Олег Киреев
-
Постов
131 -
Зарегистрирован
-
Посещение
-
Победитель дней
7
Сообщения, опубликованные Олег Киреев
-
-
В 28.12.2017 в 11:53, wamaco сказал:
Windows 7 64
Не запускается вообще!
Здравствуйте уважаемый wamaco.
СпасиБО за замечание. У меня тоже Windows 7 64. Всё работает. Пожалуйста пришлите коротенький видеоролик того как Вы запускаете и что происходит.
С Уважением. Олег.
-
В 28.12.2017 в 16:28, GASCHE сказал:
Здравсвуйте Уважаемый Gasche.
Так и задумано для того чтобы помещалась вся информация после того как выполнены необходимые предварительные действия и перед тем как сохранить всё в картинку. Вот посмотрите в приложении как это выглядит.
С Уважением. Олег.
-
21 час назад, wamaco сказал:
Windows 7 64
Не запускается вообще!
Здравствуйте Wamaco.
СпасиБО за ответ. Пожалуйста пришлите на мою почту kireevoleg@gmail.com или сюда видео того как Вы запускаете и что происходит. У меня тоже Windows 7 64 и все работает.
С Уважением. Олег.
-
Здравствуйте Андрей.
Не совсем понял. Пришлите пожалуйста на мою почту или сюда скриншот или видеоролик того что происходит. Адрес в верхнем меню "О приложении".
СпасиБО. С Уважением. Олег.
-
Приложение может:
1.Ррасчитывать длины, углы и координаты карданного
вала при разных координатах и углах установки
коробки передач (эл. двигателя) в автобусах,
троллейбусах и автомобилях;
2.Подбирать соответствующий карданный вал из
базы данных;
3.Сохранять результаты расчёта в картинку;
4. Вносить и редактировать данные координат установки
коробки передач, мостов и 3D модели в базу данных;
5.Визуализировать расчёт в 3D;
6.Пересчитывать удельный дисбаланс и дисбаланс;
7.Расчитывать критическую частоту карданной передачи по
ГОСТ 1686-2006;
8.Вести дополнительные расчёты углов в шарнирах.Разработал Олег Киреев. Тел +375 29 676 13 84. Минск.
Эл. почта kireevoleg1966@gmail.comВсегда готов принять замечания и предложения.
СпасиБО EMBARCADERO!
-
Приложение для расчёта и подбора опор подвески силового агрегата автомобиля v.44.
-
Здравствуйте GASCHE.
СпасиБО за ответ.
Пробовал и ExecSQL та же ошибка.
С Уважением. Олег.
-
Здравствуйте galex.
СпасиБО за ответ.
Я вместо старого кода который в самом начале писал ввёл этот:
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Text := 'SELECT *'
+ ' FROM SGKA_TAB_IZV'
+ ' WHERE OTDEL like :OTDEL'
+ ' AND DATA between :DATE1 and :DATE2'
+ ' ORDER BY NOMER';
Query1.ParamByName('OTDEL').AsString := bsSkinComboBox1.Text+ '%';
Query1.ParamByName('DATE1').AsDate := bsSkinDateEdit7.Date;
Query1.ParamByName('DATE2').AsDate := bsSkinDateEdit8.Date;
Query1.Open;Ну и заработало. Наверное надо было через параметры делать запрос.
Можно ещё вопрос?
У меня совсем нет опыта в oracle. Теперь естественно научившись делать выборки на научится вставлять строки, редактировать и удалять. Я пробую это делать так:
//вставка в 2 полей:
Query1.Insert;
Query1.FieldByName('NOMER').AsString:=bsSkinEdit1.Text;
Query1.FieldByName('DATA').AsString:=bsSkinDateEdit1.Text;
Query1.Post;Визуально видно в таблице что вставилось но после перезагрузки запроса пропадает.
или sql запросом:
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Text := 'INSERT INTO SGKA_TAB_IZV (NOMER,DATA) VALUES ('+#39+ bsSkinEdit1.Text+#39+','+#39+ bsSkinDateEdit1.Text+#39+')';
Query1.Open;Ругается что таблица только для чтения. Хотя в oracle она открыта на редактирование, удаление и вставку.
Посоветуйте что делать?
С Уважением. Олег.
-
galex спасиБО. Всё получилось.
С Уважением. Олег.
-
В 30.08.2017 в 12:19, galex сказал:
Здавствуйте gelo1.
Пример для вас я собирал на коленке и сожалению очень мало данных для анализа ошибки. Но попробуем.
1. Возможно не хватает указания схемы.Т.е. вам необходимо попробовать изменить запрос на
SELECT * FROM PUBLIC.Tab_Izv
если таблица находиться в схеме PUBLIC.
Возникает ли ошибка если вы выполните запрос
SELECT * FROM Tab_Izv
в вашем Adminnistration Tool? (Кстати что вы для этого используете?)
2. Проверьте настойки соединения с базой в вашем приложении.
Кстати какие компоненты для подключения к базе вы используете: FireDAC/UniDAC/ZEOSLib/BDE???
Ну вот пока вроде и все...Как я и сказал слишком мало данных для анализа.
С Уважением
galexСпасиБО за ответ.
1.На простой запрос
SELECT * FROM Tab_Izv всё срабатывает. А что даёт команда PUBLIC ?
2.Использую старинное BDE. Все запросы кроме тех в которых есть поля дат отлично срабатывают. А вот с датами у меня загвоздка. Поставить приложение менеджера у меня нет прав администратора. Работаю на ощупь.
С Уважением. Олег.
-
В 29.08.2017 в 08:30, Rusland сказал:
Попробуйте
Query1.SQL.Add('SELECT * FROM Tab_Izv WHERE OTDEL like '+#39+bsSkinComboBox1.Text+'%'+#39+ ' AND DATA BETWEEN TO_DATE (Ot, "dd.mm.yyyy") AND TO_DATE (Doo, "dd.mm.yyyy") ORDER BY NOMER;' );Здравствуйте Rusland.
Обратите внимание что Ot и Doo это переменные. В запросе в скобках ' ' они участвуют как в прямом запросе. При выполнении запроса ругается "capability not supported". Что делать?
С Уважением. Олег.
-
В 28.08.2017 в 21:13, galex сказал:
Попробуй сделать запрос с параметрами:
Query1.Close; Query1.SQL.Clear; Query1.SQL.Text := 'SELECT *' + ' FROM Tab_Izv' + ' WHERE Otdel like :OTDEL' + ' AND Data between :DATE1 and :DATE2' + ' ORDER BY Nomer'; Query1.ParamByName('OTDEL').AsString := bsSkinComboBox1.Text+ '%'; Query1.ParamByName('DATE1').AsDate := bsSkinDateEdit7.Date; Query1.ParamByName('DATE2').AsDate := bsSkinDateEdit8.Date; Query1.Open;Здравствуйте galex.
Попробовал. При выполнении ругается " table does not exist". Хотя на гриде вся таблица загружается. Что делать?
С Уважением. Олег.
-
Здравствуйте уважаемые члены сообщества.
Пожалуйста. Подскажите где ошибка в синтаксисе запроса к БД Oracle в котором мне надо из указанного пользователем поля отдела выбрать данные в промежутке дат. Ранее обращаясь к Access я дел так:
var Ot,Doo: Integer;
Ot:=Trunc(bsSkinDateEdit7.Date);
Doo:=Trunc(bsSkinDateEdit8.Date);Query1.Active:=False;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT * FROM Tab_Izv where Otdel like '+#39+ bsSkinComboBox1.Text+ '%' +#39+
' AND Data between '+ inttostr(Ot)+' and '+inttostr(Doo) +' ORDER BY Nomer' );
Query1.Active:=True;и все отлично работает но вот к Oracle так не получается пробую так:
var Ot,Doo: String;
Ot:=bsSkinDateEdit7.Text;
Doo:=bsSkinDateEdit8.Text;Query1.Active:=False;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT * Tab_Izv where OTDEL like '+#39+ bsSkinComboBox1.Text+ '%' +#39+
' AND DATA between (to_char('+ Ot+','+''''+'dd.mm.yyyy'+''''+')) and (to_char('+ Doo+','+''''+'dd.mm.yyyy'+''''+')) ORDER BY NOMER' );
Query1.Active:=True;Ругается на пропуск оператора. Где же ошибка???
С Уважением. Олег.
-
Приложение Записная книжка с паролем v1.0 для OS Android без каких либо условий и рекламы для смартфонов с диагональю экрана 4...7 дюймов.
СпасиБО ЭМБАРКАДЕРО !
-
-
Решение: Делать в своём приложении скрытыми компонентами отслеживание изменения в базе.
Олег.
-
Здравствуйте Белов.
Замечание принимаю. Прошу прощения.
Оказалось просто моя невнимательность. Не на тот Query повесил запрос. Отличий Виндовса от Андроида здесь нет.
С Уважением. Олег.
-
СпасиБО всем. Разобрался. Тему закрываем.
С Уважением. Олег.
-
Всем спасиБо. Разобрался. Тему можно закрывать.
С Уважением. Олег.
-
СпасиБо. Попробую.
С Уважением. Олег.
-
Здравствуйте уважаемые члены сообщества.
Пожалуйста подскажите почему не отфильтровываются данные (вообще не реагирует) в Гриде при наборе текста в Едите.
Код на процедуру изменения Едита такой:
//Найти запись procedure TForm_Tabl_Knijka.Edit_Poisk_ZapisChange(Sender: TObject); begin Query_Tab_Zapisy_Poisk.Active:=False; Query_Tab_Zapisy_Poisk.SQL.Clear; Query_Tab_Zapisy_Poisk.SQL.Add('SELECT * FROM Tab_Zapisy where Soderjanie like '+#39+Edit_Poisk_Zapis.Text+'%'+ #39+' ORDER BY Soderjanie' ); Query_Tab_Zapisy_Poisk.Active:=True; end;В приложении для Виндовс всё отлично реагирует. А в телефоне под Андроид ноль внимания и даже когда нажимаю кнопочку с кривой стрелочкой.
С Уважением. Олег.
-
СпасиБо Крапоткин.
А можно еще вопрос по фильтрации данных в на телефоне в Андроиде.
На процедуру изменения Едита пишу так:
//Найти запись procedure TForm_Tabl_Knijka.Edit_Poisk_ZapisChange(Sender: TObject); begin Query_Tab_Zapisy_Poisk.Active:=False; Query_Tab_Zapisy_Poisk.SQL.Clear; Query_Tab_Zapisy_Poisk.SQL.Add('SELECT * FROM Tab_Zapisy where Soderjanie like '+#39+Edit_Poisk_Zapis.Text+'%'+ #39+' ORDER BY Soderjanie' ); Query_Tab_Zapisy_Poisk.Active:=True; end;В Видовсе всё отлично работает сразу при наборе отфильтровывает. На телефоне ноль внимания и даже когда нажимаю кривую стрелку.
Что у меня не так?
С Уважением. Олег.
-
Да Крапоткин. СпасиБО. Я раньше столкнулся с тем чтобы обновить базу приходилось полностью удалять приложение с телефона и устанавливать снова.
(Я служил под Екатеринбургом возле посёлка Белоярского в 1988/89гг. Интересно как там всё изменилось?)
С Уважением. Олег.
-
Александр спасиБО.
Интуитивно я об этом догадывался но проверил по Вашему совету. Так оно и есть.
С Уважением. Олег.
Подбор и расчёт карданного вала v18.0 для OS Window
в Приложения, написанные с использованием FireMonkey
Опубликовано · Изменено пользователем gelo1
Здравствуйте уважаемый wamaco.
СпасиБО. Конечно я подожду.
С Уважением. Олег.