VPF::Грамотный поиск записей - Форум программистов

Mephisto

Дата 20.12.2006, 10:17 (ссылка)

(нет голосов)

Загрузка ...

Волкъ

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

Репутация: нет
Всего: 34

skyboy,

Цитата(skyboy @ 14.12.2006, 21:50

)

у компонента - наследника TQuery есть свойство RowCount или RecordCount(не помню, чесно говоря) -

Только он всегда будет возвращать 1, если не двусторонний select!!!!!! Т.е. необходмо количество записей узнавать отдельным запросом, либо вообще использовать тот пример что Akella написал. Как по мне боле уместно!
Только нужно будет написать:

Код


ListView1.Columns.Clear;
ListView1.Columns.Add.Caption := '1';
ListView1.Columns.Add.Caption := '2';
ListView1.Columns.Add.Caption := '3';
ListView1.ViewStyle  := vsReport;
Query1.First;
while not Query1.eof do begin
  With ListView1.Items.Add do
  begin
    Caption := query1.FieldByName('Имя_Поля1').asString;
    SubItems.Append(query1.FieldByName('Имя_Поля2').asString);
    SubItems.Append(query1.FieldByName('Имя_Поля3').asString);
  end;
  query1.next;
end;

Это сообщение отредактировал(а) Mephisto - 20.12.2006, 10:19

former

Дата 27.12.2006, 20:50 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

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

Репутация: 7
Всего: 17

Благодарю всех за помощь. Сделал, как посоветовали Akella и Mephisto, а для определения количества найденных записей использовал переменную типа integer.

Код


procedure TMainForm.SpeedButton1Click(Sender: TObject);
var i:integer;
begin
  i:=0;
  ListView1.Clear;
  Label2.Caption:='';
  ABSQuery.Active:=false;
  ABSQuery.SQL.Clear;
  if RadioButton1.Checked=true then
  begin
    ABSQuery.SQL.Text:='SELECT PNum, DClassID, UpFNum FROM mmsedb WHERE PNum LIKE :val';
    ABSQuery.Params.ParamByName('val').Value:=Edit1.Text;
  end
  else if RadioButton2.Checked=true then
  begin
    ABSQuery.SQL.Text:='SELECT PNum, DClassID, UpFNum FROM mmsedb WHERE DClassID LIKE :val';
    ABSQuery.Params.ParamByName('val').Value:=Edit1.Text;
  end;
  ABSQuery.Active:=true;
  ABSQuery.First;
  while not ABSQuery.Eof do
  begin
    with ListView1.Items.Add do
    begin
      i:=i+1;
      Caption:=ABSQuery.FieldByName('UpdateFileNum').asString;
      SubItems.Append(ABSQuery.FieldByName('PutNum').asString);
      SubItems.Append(ABSQuery.FieldByName('DevClassID').asString);
    end;
    ABSQuery.next;
  end;
  if i=0 then ShowMessage('По вашему запросу ничего не найдено!')
  else  Label2.Caption:=IntToStr(i);
end;

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

former

Дата 29.12.2006, 00:14 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

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

Репутация: 7
Всего: 17

Тема закрыта.

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Mephisto

Дата 29.12.2006, 17:05 (ссылка)

(нет голосов)

Загрузка ...

Волкъ

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

Репутация: нет
Всего: 34

Код


procedure TMainForm.SpeedButton1Click(Sender: TObject);
begin
  ListView1.Clear;
  Label2.Caption:='';
  ABSQuery.Active:=false;
  ABSQuery.SQL.Clear;
  if RadioButton1.Checked=true then
  begin
    ABSQuery.SQL.Text:='SELECT PNum, DClassID, UpFNum FROM mmsedb WHERE PNum LIKE :val';
    ABSQuery.Params.ParamByName('val').Value:=Edit1.Text;
  end
  else if RadioButton2.Checked=true then
  begin
    ABSQuery.SQL.Text:='SELECT PNum, DClassID, UpFNum FROM mmsedb WHERE DClassID LIKE :val';
    ABSQuery.Params.ParamByName('val').Value:=Edit1.Text;
  end;
  ABSQuery.Active:=true;
  ABSQuery.First;
  while not ABSQuery.Eof do
  begin
    with ListView1.Items.Add do
    begin
      Caption:=ABSQuery.FieldByName('UpdateFileNum').asString;
      SubItems.Append(ABSQuery.FieldByName('PutNum').asString);
      SubItems.Append(ABSQuery.FieldByName('DevClassID').asString);
    end;
    ABSQuery.next;
  end;
  if ListView1.Items.Count = 0 then ShowMessage('По вашему запросу ничего не найдено!')
  else  Label2.Caption:=IntToStr(ListView1.Items.Count);
end;

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