ck(Sender: TObject);.Active:=false;.DataSet:=ADOQuery4;.DataSource:=DataSource4;.Active:=true;.DataSource:=DataSource4;;TForm1.N10Click(Sender: TObject);.Active:=false;.DataSet:=ADOQuery5;.DataSource:=DataSource5;.Active:=true;.DataSource:=DataSource5;;TForm1.N11Click(Sender: TObject);.Active:=false;.DataSet:=ADOQuery6;.DataSource:=DataSource6;.Active:=true;.DataSource:=DataSource6;;TForm1.N12Click(Sender: TObject);.Active:=false;.DataSet:=ADOQuery7;.DataSource:=DataSource7;.Active:=true;.DataSource:=DataSource7;;TForm1.N13Click(Sender: TObject);.Active:=false;.DataSet:=ADOQuery8;.DataSource:=DataSource8;.Active:=true;.DataSource:=DataSource8;;TForm1.N14Click(Sender: TObject);.Active:=false;.DataSet:=ADOQuery9;.DataSource:=DataSource9;.Active:=true;.DataSource:=DataSource9;;TForm1.N15Click(Sender: TObject);.Active:=false;.DataSet:=ADOQuery10;.DataSource:=DataSource10;.Active:=true;.DataSource:=DataSource10;;TForm1.N16Click(Sender: TObject);.Active:=false;.DataSet:=ADOQuery11;.DataSource:=DataSource11;.Active:=true;.DataSource:=DataSource11;;TForm1.N17Click(Sender: TObject);.Active:=false;.DataSet:=ADOQuery12;.DataSource:=DataSource12;.Active:=true;.DataSource:=DataSource12;;TForm1.N18Click(Sender: TObject);.Active:=false;.DataSet:=ADOQuery13;.DataSource:=DataSource13;.Active:=true;.DataSource:=DataSource13;;TForm1.N19Click(Sender: TObject);.Active:=false;.DataSet:=ADOQuery14;.DataSource:=DataSource14;.Active:=true;.DataSource:=DataSource14;;TForm1.N20Click(Sender: TObject);.Active:=false;.DataSet:=ADOQuery15;.DataSource:=DataSource15;.Active:=true;.DataSource:=DataSource15;;TForm1.N21Click(Sender: TObject);.Active:=false;.DataSet:=ADOQuery16;.DataSource:=DataSource16;.Active:=true;.DataSource:=DataSource16;;TForm1.N2Click(Sender: TObject) ;; TForm1.N5Click (Sender: TObject) ;. showmodal ;; TForm1.BitBtn1Click (Sender: TObject); keyfields: string; keyvalues: variant; options: tlocateoptions; not (checkbox1.Checked or checkbox2.Checked) then ( не задані умови пошуку , mtinformation, [mbok], 0) ;;; checkbox1.Checked and checkbox2.Checked then:=laquo;Цена,Количествоraquo;;:=vararrayof([edit1.Text,edit2.Text]);checkbox1.Checked then:= Ціна raquo ;;:=edit1.Text ;; checkbox2.Checked then:=laquo;Количествоraquo;;:=edit2.Text;;;:=[locaseinsensitive,lopartialkey];.locate(keyfields,keyvalues,options);not ADOQuery4.locate (keyfields, keyvalues, options) then; ( Запис не знайдено! Raquo;, mtinformation, [mbok], 0) ;;;; TForm1.Button1Click (Sender: TObject); filtr ,: string; .filtered :=false;:= raquo ;; length (edit3.text) gt; 0 thenlength (filtr) gt; 0 then add:= and else add:= raquo ;;:=filtr + add + Прізвище LIKE + # 39 + Edit3.Text + % + # 39 ;; length (edit4.text) gt; 0 thenlength (filtr) gt; 0 then add:= and else add:= raquo ;;:=filtr + add + Ім'я LIKE + # 39 + Edit4.Text + % + # 39 ;; length (edit5.text) gt; 0 thenlength (filtr) gt; 0 then add:= and else add:= raquo ;;:=filtr + add + батькові LIKE + # 39 + Edit5.Text + % + # 39 ;; length (filtr) gt; 0 then.Filter:=filtr; .filtered:=true; Showmessage ( Все поля порожні! Raquo;) ;;. Unit3 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;=class (TForm): TLabel ;: TLabel ;: TLabel ;: TButton; Button1Click (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm3; Unit1;
{$ R * .dfm} TForm3.Button1Click (Sender: TObject) ;;.
