На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! информация о разделе
user posted imageДанный раздел предназначается для обсуждения вопросов использования баз данных, за исключением составления запросов на SQL. Для этого выделен специальный раздел. Убедительная просьба - соблюдать "Правила форума" и не пренебрегать "Правильным оформлением своих тем". Прежде, чем создавать тему, имеет смысл заглянуть в раздел "Базы данных: FAQ", возможно там уже есть ответ.

Модераторы: Chow, Bas, MIF
  
> Есть2 интересных вопроса
    1. Как создать список (ComboBox) значений 1 поля базы данных.
      При условии что данные повторяющиеся должны вычернкиваться, и по алфавиту  
      сортироваться.
      Я делаю пробежку по всей базе... формирую TString и исключаю дубликаты.

      НО это долго, да и потом что каждый раз пробегать по всей таблице когда человек  
      внес руками новое значение, чтоб его в список (ComboBox) внести???

    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 на форму, и создавать его тогда не нада будит
      если не работает, пиши где
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0209 ]   [ 15 queries used ]   [ Generated: 5.05.24, 14:39 GMT ]