Поиск в базе данных 1 группа радиокнопок, 1 поле ввода, 1 кнопка делфи.

[igi3]

Как можно осуществить поиск в таблице? Поиск запускается кнопкой, критерий поиска вводится в поле ввода, столбци по которым бутет проходить поиск определяется группой радиокнопок (0-номеру, 1-дате, 2-названию).

[Npwas]

Таблица на ООП, это тоже самое что матрица, нумеруется все с нуля. Вот и передаем в процедуру поиска номер нужного столбца или строки( в зависимости от того что тебе надо), а потом начиная с 0 до N-1 ищем нужную запись как в обычном массиве, в строках или в столбцах!!! =)

[Valio]

Что за БД?

[Npwas]

Сообщение от Valio

Что за БД?

Може он имел ввиду компонент DBGrid.


Пробуй так с помощью StringGrid, действует и удобно:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids;

type
  TForm1 = class(TForm)
    SG1: TStringGrid;
    SG2: TStringGrid;
    RadioGroup1: TRadioGroup;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{НАЧАЛЬНЫЕ ПАРАМЕТРЫ}
procedure TForm1.FormCreate(Sender: TObject);
begin
RadioGroup1.ItemIndex:=1;
With RadioGroup1.Items do
  Begin
    Add('номер');
    Add('дата');
    Add('название');
  End;
  SG1.RowCount:=2;
  SG1.ColCount:=3;
  SG1.FixedCols:=0;
  SG2.RowCount:=2;
  SG2.ColCount:=3;
  SG2.FixedCols:=0;
end;
{ДОБАВЛЕНИЕ ЭЛЕМЕНТА}
procedure TForm1.Button1Click(Sender: TObject);
Var
 k:integer;
begin
  SG1.Cells[0,SG1.RowCount-1]:=Edit1.Text;
  SG1.Cells[1,SG1.RowCount-1]:=Edit2.Text;
  SG1.Cells[2,SG1.RowCount-1]:=Edit3.Text;
  SG1.RowCount:=SG1.RowCount+1;
end;
{ПОИСК ЭЛЕМЕНТА}
procedure TForm1.Button2Click(Sender: TObject);
 Var
  j,k:integer;
begin
{ОЧИСТКА ТАБЛИЦЫ 2}
 IF SG2.RowCount<> 2 Then
  Begin
    For j:=0 to SG2.RowCount-2 do
     For k:=0 to SG2.ColCount-1 do
     SG2.Cells[k,j]:='';
    SG2.RowCount:=2;
  End;
  {ПОИСК ЭЛЕМЕНТОВ В ТАБЛИЦЕ}
 For j:=0 to SG1.RowCount-2 do
   begin
   IF Edit4.Text=SG1.Cells[RadioGroup1.ItemIndex,j] Then
       Begin
        //ВЫВОД НАЙДЕННОГО В ТАБЛИЦУ 2
         k:=SG2.RowCount-1;
         SG2.Cells[0,k]:=SG1.Cells[0,j];
         SG2.Cells[1,k]:=SG1.Cells[1,j];
         SG2.Cells[2,k]:=SG1.Cells[2,j];
         SG2.RowCount:=SG2.RowCount+1;
       End
   end
end;

end.

[igi3]

БД(bde) из 8 таблиц парадокс. Поиск проиходит 1 таблице но с1 подстановочным полем в DBGrid. Tables и DataSource на модуле данных.

[igi3]

БД на bde из 8 таблиц парадокс. Поиск по 1 таблице но сподстановочным полем. Открывается через DBGrid. Table и DataSource на модуле данных.

[Npwas]

15:59
oO А зачем такое извращение?!

16:02
Проще и удобней воспользоваться StringGrid, как я пример привел!!!



_________________
Не используйте форум как чат - не пишите несколько коротких сообщений подряд! Это нарушение правил!
Есть что добавить - нажимайте кнопку "Правка/Редактировать" на своём крайнем сообщении
и изменяйте, добавляйте....

Прошу учесть на будущее...

Модератор.

[Npwas]

Сообщение от igi3

Поиск по 1 таблице но с подстановочным полем.

И что ты имеешь ввиду под подстановочным полем?!

[AlexMas]

можно так попробовать:

case RadioGroup1.ItemIndex of
   0: FieldName:='Name';
   1: FieldName:='Date';
   2: FieldName:='State';
end;
FieldValue:=Edit1.Text;
Table.Locate(FieldName, FieldValue, [loCaseInsensitive, loPartialKey]);