Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.138.116.20] |
|
Данный раздел предназначается для обсуждения вопросов использования баз данных, за исключением составления запросов на SQL. Для этого выделен специальный раздел. Убедительная просьба - соблюдать "Правила форума" и не пренебрегать "Правильным оформлением своих тем". Прежде, чем создавать тему, имеет смысл заглянуть в раздел "Базы данных: FAQ", возможно там уже есть ответ. |
Сообщ.
#1
,
|
|
|
1. Как создать список (ComboBox) значений 1 поля базы данных.
При условии что данные повторяющиеся должны вычернкиваться, и по алфавиту сортироваться. Я делаю пробежку по всей базе... формирую TString и исключаю дубликаты. НО это долго, да и потом что каждый раз пробегать по всей таблице когда человек внес руками новое значение, чтоб его в список (ComboBox) внести??? 2.Как сформировать отчет, чтобы сверху было начало таблицы, а снизу этой же продолжение (хвост)... может кто решил эту проблемму как то оригинально? Хорошо бы было условие еще наложить: пользователь выбирает какие вообще поля печатать.... и если хвоста нет, то вся таблица на одном листе...., а если по длине не входит,то остаточек полей уходит на 2 половину страница (чтоб не разбивать табл. на 2 страницы... удобней перед глазами видеть всю таблицу) |
Сообщ.
#2
,
|
|
|
к вопросу #1:
procedure fill; var q: TQueru; begin ListBox1.Clear; q := TQuery.Create(Form1); try q.DataBaseName := 'MY_DATABASE'; q.SQL.Text := 'SELECT DISTINCT A.FIELD1 FROM TABLE A ORDER BY A.FIELD1'; try q.Open; q.First; while not q.EOF do begin ListBox1.Items.Add(VarToStr(q['FIELD1'])); q.Next; end; finally q.Close; end; finally q.Free; end; end; можно выложить компонент TQuery на форму, и создавать его тогда не нада будит если не работает, пиши где |