Перейти к содержанию
Fire Monkey от А до Я

Олег Киреев

Пользователи
  • Постов

    131
  • Зарегистрирован

  • Посещение

  • Победитель дней

    7

Весь контент Олег Киреев

  1. Здравствуйте уважаемый wamaco. СпасиБО за замечание. У меня тоже Windows 7 64. Всё работает. Пожалуйста пришлите коротенький видеоролик того как Вы запускаете и что происходит. С Уважением. Олег.
  2. Здравсвуйте Уважаемый Gasche. Так и задумано для того чтобы помещалась вся информация после того как выполнены необходимые предварительные действия и перед тем как сохранить всё в картинку. Вот посмотрите в приложении как это выглядит. С Уважением. Олег.
  3. Здравствуйте Wamaco. СпасиБО за ответ. Пожалуйста пришлите на мою почту kireevoleg@gmail.com или сюда видео того как Вы запускаете и что происходит. У меня тоже Windows 7 64 и все работает. С Уважением. Олег.
  4. Здравствуйте Андрей. Не совсем понял. Пришлите пожалуйста на мою почту или сюда скриншот или видеоролик того что происходит. Адрес в верхнем меню "О приложении". СпасиБО. С Уважением. Олег.
  5. Приложение может: 1.Ррасчитывать длины, углы и координаты карданного вала при разных координатах и углах установки коробки передач (эл. двигателя) в автобусах, троллейбусах и автомобилях; 2.Подбирать соответствующий карданный вал из базы данных; 3.Сохранять результаты расчёта в картинку; 4. Вносить и редактировать данные координат установки коробки передач, мостов и 3D модели в базу данных; 5.Визуализировать расчёт в 3D; 6.Пересчитывать удельный дисбаланс и дисбаланс; 7.Расчитывать критическую частоту карданной передачи по ГОСТ 1686-2006; 8.Вести дополнительные расчёты углов в шарнирах. Разработал Олег Киреев. Тел +375 29 676 13 84. Минск. Эл. почта kireevoleg1966@gmail.com Всегда готов принять замечания и предложения. СпасиБО EMBARCADERO! РасчётКардВала_v18.rar
  6. Здравствуйте GASCHE. СпасиБО за ответ. Пробовал и ExecSQL та же ошибка. С Уважением. Олег.
  7. Здравствуйте 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 она открыта на редактирование, удаление и вставку. Посоветуйте что делать? С Уважением. Олег.
  8. galex спасиБО. Всё получилось. С Уважением. Олег.
  9. СпасиБО за ответ. 1.На простой запрос SELECT * FROM Tab_Izv всё срабатывает. А что даёт команда PUBLIC ? 2.Использую старинное BDE. Все запросы кроме тех в которых есть поля дат отлично срабатывают. А вот с датами у меня загвоздка. Поставить приложение менеджера у меня нет прав администратора. Работаю на ощупь. С Уважением. Олег.
  10. Здравствуйте Rusland. Обратите внимание что Ot и Doo это переменные. В запросе в скобках ' ' они участвуют как в прямом запросе. При выполнении запроса ругается "capability not supported". Что делать? С Уважением. Олег.
  11. Здравствуйте galex. Попробовал. При выполнении ругается " table does not exist". Хотя на гриде вся таблица загружается. Что делать? С Уважением. Олег.
  12. Здравствуйте уважаемые члены сообщества. Пожалуйста. Подскажите где ошибка в синтаксисе запроса к БД 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; Ругается на пропуск оператора. Где же ошибка??? С Уважением. Олег.
  13. Приложение Записная книжка с паролем v1.0 для OS Android без каких либо условий и рекламы для смартфонов с диагональю экрана 4...7 дюймов. СпасиБО ЭМБАРКАДЕРО ! Note_Book_v.6.apk
  14. Решение: Делать в своём приложении скрытыми компонентами отслеживание изменения в базе. Олег.
  15. Здравствуйте Белов. Замечание принимаю. Прошу прощения. Оказалось просто моя невнимательность. Не на тот Query повесил запрос. Отличий Виндовса от Андроида здесь нет. С Уважением. Олег.
  16. Всем спасиБо. Разобрался. Тему можно закрывать. С Уважением. Олег.
  17. Здравствуйте уважаемые члены сообщества. Пожалуйста подскажите почему не отфильтровываются данные (вообще не реагирует) в Гриде при наборе текста в Едите. Код на процедуру изменения Едита такой: //Найти запись 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; В приложении для Виндовс всё отлично реагирует. А в телефоне под Андроид ноль внимания и даже когда нажимаю кнопочку с кривой стрелочкой. С Уважением. Олег.
  18. СпасиБо Крапоткин. А можно еще вопрос по фильтрации данных в на телефоне в Андроиде. На процедуру изменения Едита пишу так: //Найти запись 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; В Видовсе всё отлично работает сразу при наборе отфильтровывает. На телефоне ноль внимания и даже когда нажимаю кривую стрелку. Что у меня не так? С Уважением. Олег.
  19. Да Крапоткин. СпасиБО. Я раньше столкнулся с тем чтобы обновить базу приходилось полностью удалять приложение с телефона и устанавливать снова. (Я служил под Екатеринбургом возле посёлка Белоярского в 1988/89гг. Интересно как там всё изменилось?) С Уважением. Олег.
  20. Александр спасиБО. Интуитивно я об этом догадывался но проверил по Вашему совету. Так оно и есть. С Уважением. Олег.
×
×
  • Создать...