|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
15.07.2010, 08:23 | #11 |
Пользователь
Регистрация: 18.09.2009
Сообщений: 49
|
Если человек только-только начал изучать Delphi, то подсказка должна быть предельно простой и разложенной по полочкам (иначе может получиться решение задачи методом "интригала" как в фильме про Электроника). К сожалению, не все операторы языка SQL работают со всеми без исключения типами б.д.
|
15.07.2010, 09:10 | #12 | ||
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Имеются в виду типы данных? Или различные СУБД? Ну есть СУБД, которые SQL не поддерживают.. но, к счастью, таким чрезвычайно мало, к тому же, подобные СУБД — это прямой кандидат в топку.. Цитата:
to Епгений СУБД какая? попробуйте кинуть на форму ещё один Query (туда же, в DataModule2, рядышком с FindQuery ) Дайте ему имя, например, QFlgCount на кнопку повесить такой код (пишу прямо здесь, могут быть мелкие неточности): Код:
|
||
15.07.2010, 13:54 | #13 | |
Пользователь
Регистрация: 18.09.2009
Сообщений: 49
|
Цитата:
Для своих файлов Paradox.db я использовал "конструкцию" типа Query.SQL.Add('ALTER TABLE "Table2.db" ADD NNNN Character(20)'); С помощью SQL можно было бы и переименовывать таблицы типа Query.SQL.Add('ALTER TABLE Table2.db RENAME TO Table222.db'); Но для файлов Paradox.db и DBase.dbf такая вещь лично у меня не срабатывает. Есть операторы MODIFY и CHANGE, которые могут менять тип конкретного поля в базе или его имя, но опять же это не подходит для Paradox.db и DBase.dbf. Что касается топки, то все зависит от финансовых возможностей и желания руководителей предприятия. Например, у нас еще несколько месяцев будут работать программы, написанные на Clippere 5.5 более 20 лет назад и работающие под MS-DOS. Чтобы запустить их в WinXP пришлось повозиться. С другой стороны идет внедрение 1С.Предприятие 8, а стретьей стороны покупаются ноутбуки за 100.000 руб с Windows 7 Home Premium (64-х разрядная) и чтобы ВСЕ РАБОТАЛО ЗАВТРА ЖЕ !!! Поэтому приходится иногда крутится, а иногда выкручиваться. |
|
15.07.2010, 16:13 | #14 |
SQL-коддинг
Участник клуба
Регистрация: 16.01.2009
Сообщений: 1,192
|
|
16.07.2010, 10:43 | #15 |
Пользователь
Регистрация: 04.05.2010
Сообщений: 59
|
Э-э-э ребята можно за одно спросить про печать содержимого формы еси вам не трудно конечно.
мне нужно вывести на печать содержимой одной формы и все получается, но одно но при выводе размер текса маленький и выводит где то на краю листа. Нужно что б текст был по середине и размер по болше. Я использовал две кнопки, компонент PrintDialog, PageControl1 внем я создал две закладки. Вот код: Код:
Последний раз редактировалось Епгений; 16.07.2010 в 11:10. |
16.07.2010, 10:51 | #16 |
Форумчанин
Регистрация: 13.07.2010
Сообщений: 346
|
если мне память не изменяет - Form1.Print
Non est culpa vin, sed culpa bibentis
|
16.07.2010, 17:55 | #17 |
Пользователь
Регистрация: 04.05.2010
Сообщений: 59
|
|
16.07.2010, 18:11 | #18 |
Форумчанин
Регистрация: 13.07.2010
Сообщений: 346
|
ну я-же процитировал
"мне нужно вывести на печать содержимой одной формы" и там много кода.... я указал как можно еще форму распечатать
Non est culpa vin, sed culpa bibentis
|
19.07.2010, 11:58 | #19 | |
Пользователь
Регистрация: 04.05.2010
Сообщений: 59
|
Цитата:
Я вот хочу модернезидовать код М_Виктора: Запись Покровск из поле Место и запись 'ДА' из поля ФЛГ, а нужно посчитать скока Покровск = Да Эээ я попробовал сам состряпать код, но увы безуспешно. Вот код: var i,a:integer; s:string; begin i:=0; if not DataModule2.FindQuery.Bof then DataModule2.FindQuery.First; while not DataModule2.FindQuery.Eof do begin if DataModule2.FindQuery.FieldByName(' Место').AsString='Покровск'= DataModule2.FindQuery.FieldByName(' ФЛГ').AsString='да' then i:=i+1; DataModule2.FindQuery.Next; Edit2.text:=IntToStr(i); Edit1.text:=IntToStr(a); |
|
19.07.2010, 12:03 | #20 |
Форумчанин
Регистрация: 13.07.2010
Сообщений: 346
|
Давайте-ка вы сначала сюда структуры ваших таблиц...
а то вам наугад подсказывают - результат налицо....
Non est culpa vin, sed culpa bibentis
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Подсчитать сколько раз заданное слово встречается в сообщении. | kri* | Помощь студентам | 1 | 28.05.2010 22:29 |
Как подсчитать сколько раз встречается символ в строке? | zver777 | Общие вопросы Delphi | 10 | 10.01.2010 00:57 |
подсчитать сколько раз встретилось каждое из чисел Х - бейсик | Аля Самойлова | Помощь студентам | 12 | 11.05.2009 13:41 |
подсчитать на сколько процентов введенный символ похож на эталонный | Кирилл13 | Помощь студентам | 4 | 20.12.2008 20:17 |