Поиск:

Ответ в темуСоздание новой темы Создание опроса
> помогите с програмированием TList 
:(
    Опции темы
setis
Дата 21.3.2006, 06:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 18.3.2006

Репутация: нет
Всего: нет
Помогите настроить TList чтобы он выводил сообщения после проверки ID1,2,3,4,5.

У меня не получается сделать чтобы он показвал информацию в 5 стролбцах, при проверке ID. Если у меня задействовано до 3 ID то он показывает нормально. Если 4 то на последний столбец он не выводит информацию. А если 5 то он первые 3 показывает нормально, а последний переносит на 4 столбец.


Field1,2,3,4,5 это из базы данных столбцы.
Код

Form1.ADOQuery1.SQL.Clear;
 Form1.ADOQuery1.SQL.Add(Field_String);
 Form1.ADOQuery1.SQL.Add('FROM basa');
 Form1.ADOQuery1.SQL.Add(Where_String);
 Form1.ADOQuery1.SQL.Add('ORDER BY TIME');
 Form1.ADOQuery1.ExecSQL;

 Form1.ADOQuery1.Prepared:=True;
 Form1.ADOQuery1.Active:=True;

 item_count:=0;
 for x2:=1 to Form1.ADOQuery1.RecordCount do begin
  Form1.ADOQuery1.RecNo:=x2;
  cur_time:=Form1.ADOQuery1['Time'];
  Form1.ListView1.Items.Add.Caption:=cur_time;

  //1111111111
  if ID1='1' then begin
  if (Form1.ADOQuery1[Field1]>=Edit1.Text) and (Form1.ADOQuery1[Field1]<=Edit2.Text)
  then
   Form1.ListView1.Items[item_count].SubItems.Add('Оптимально');
  if (Form1.ADOQuery1[Field1]<Edit1.Text) and (Form1.ADOQuery1[Field1]>=Edit3.Text) or (Form1.ADOQuery1[Field1]>Edit2.Text) and (Form1.ADOQuery1[Field1]<=Edit4.Text)
  then
   Form1.ListView1.Items[item_count].SubItems.Add('Допустимо');
  if (form1.ADOQuery1[Field1]<Edit3.Text) or (Form1.ADOQuery1[Field1] >Edit4.Text)
  then
   Form1.ListView1.Items[item_count].SubItems.Add('Аварийно');
  end;

   //2222222222222222
  if ID2='2' then begin
  if (Form1.ADOQuery1[Field2]>=Edit5.Text) and (Form1.ADOQuery1[Field2]<=Edit6.Text)
  then
   Form1.ListView1.Items[item_count].SubItems.Add('Оптимально');
  if (Form1.ADOQuery1[Field2]<Edit5.Text) and (Form1.ADOQuery1[Field2]>=Edit8.Text) or (Form1.ADOQuery1[Field2]>Edit6.Text) and (Form1.ADOQuery1[Field2]<=Edit7.Text)
  then
   Form1.ListView1.Items[item_count].SubItems.Add('Допустимо');
  if (form1.ADOQuery1[Field2]<Edit8.Text) or (Form1.ADOQuery1[Field2] >Edit7.Text)
  then
   Form1.ListView1.Items[item_count].SubItems.Add('Аварийно');
  end;

   //3333333
  if ID3='3' then begin
  if (Form1.ADOQuery1[Field3]>=Edit9.Text) and (Form1.ADOQuery1[Field3]<=Edit10.Text)
  then
   Form1.ListView1.Items[item_count].SubItems.Add('Оптимально');
  if (Form1.ADOQuery1[Field3]<Edit9.Text) and (Form1.ADOQuery1[Field3]>=Edit11.Text) or (Form1.ADOQuery1[Field3]>Edit10.Text) and (Form1.ADOQuery1[Field3]<=Edit12.Text)
  then
   Form1.ListView1.Items[item_count].SubItems.Add('Допустимо');
  if (form1.ADOQuery1[Field3]<Edit11.Text) or (Form1.ADOQuery1[Field3] >Edit12.Text)
  then
   Form1.ListView1.Items[item_count].SubItems.Add('Аварийно');
  end;

   //4444444
  if ID4='4' then begin
  if (Form1.ADOQuery1[Field4]>=Edit13.Text) and (Form1.ADOQuery1[Field4]<=Edit14.Text)
  then
   Form1.ListView1.Items[item_count].SubItems.Add('Оптимально');
  if (Form1.ADOQuery1[Field4]<Edit13.Text) and (Form1.ADOQuery1[Field4]>=Edit14.Text) or (Form1.ADOQuery1[Field4]>Edit14.Text) and (Form1.ADOQuery1[Field4]<=Edit16.Text)
  then
   Form1.ListView1.Items[item_count].SubItems.Add('Допустимо');
  if (form1.ADOQuery1[Field4]<Edit3.Text) and (Form1.ADOQuery1[Field4] >Edit4.Text)
  then
   Form1.ListView1.Items[item_count].SubItems.Add('Аварийно');
  end;

   //555555555
  if ID5='5' then begin
  if (Form1.ADOQuery1[Field5]>=Edit17.Text) and (Form1.ADOQuery1[Field5]<=Edit18.Text)
  then
   Form1.ListView1.Items[item_count].SubItems.Add('Оптимально');
  if (Form1.ADOQuery1[Field5]<Edit17.Text) and (Form1.ADOQuery1[Field5]>=Edit19.Text) or (Form1.ADOQuery1[Field5]>Edit18.Text) and (Form1.ADOQuery1[Field5]<=Edit20.Text)
  then
   Form1.ListView1.Items[item_count].SubItems.Add('Допустимо');
  if (form1.ADOQuery1[Field5]<Edit19.Text) or (Form1.ADOQuery1[Field5] >Edit20.Text)
  then
   Form1.ListView1.Items[item_count].SubItems.Add('Аварийно');
  end;
   inc(item_count);
 end;
 Form3.Visible:=False;
 Form1.Visible:=True;
end;
PM MAIL   Вверх
Демо
Дата 21.3.2006, 09:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 2
Всего: 50
А при чем здесь TList?


--------------------
    
PM MAIL ICQ Skype   Вверх
bartram
Дата 21.3.2006, 10:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

Репутация: нет
Всего: 29
setis, Тебе надо в раздел Delphi: Базы данных и репортинг smile


--------------------
В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image 
PM MAIL ICQ   Вверх
setis
Дата 21.3.2006, 14:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 18.3.2006

Репутация: нет
Всего: нет
TList в роли репорта пользователю или оператору.


А как переместить тему?
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0853 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.