procedure TForm14.Button1Click(Sender: TObject);       var Q, i, j:integer;
begin

for i:=0 to  ADOTable1.RecordCount-1 DO
if pos(AnsiUpperCase(edit1.Text), AnsiUpperCase(ADOTable1.Fields[q].AsString))>0 then



end;



procedure TForm14.ComboBox2Change(Sender: TObject); vaR i:integer;
begin

case combobox2.ItemIndex of
0: begin
combobox1.Clear;
combobox1.Items.Append('Íîìåð ðåéñà');
combobox1.Items.Append('Íîìåð áîðòà');
combobox1.Items.Append('Äàòà âûëåòà');
combobox1.Items.Append('Äàòà ïðèáûòèÿ');
adotable1.Active:=false;
ADOTable1.TableName:='airplain';
ADOTable1.Active:=true;
w:=3;
end;              //Declaration

1:  begin
combobox1.Clear;
combobox1.Items.Append('Íîìåð ðåéñà');
combobox1.Items.Append('Íîìåð áîðòà');
combobox1.Items.Append('Äàòà âûëåòà');
combobox1.Items.Append('Äàòà ïðèáûòèÿ');
w:=3;

end;

2: begin           //Äîêóìåíòû
combobox1.Clear;
combobox1.Items.Append('Data_obrabotki');
combobox1.Items.Append('Grys');
combobox1.Items.Append('Zayavitel');
combobox1.Items.Append('Sotrydnik');
combobox1.Items.Append('Normativno_pravovoi_akt');
combobox1.Items.Append('Resultat');
adotable1.Active:=false;
ADOTable1.TableName:='Document';
ADOTable1.Active:=true;
w:=5;

end;


3: begin               //Äîãîâîð
combobox1.Clear;
combobox1.Items.Append('Ot kogo');
combobox1.Items.Append('Komy');
combobox1.Items.Append('Nachalo');
combobox1.Items.Append('Okoncjanie');
combobox1.Items.Append('Summa');
combobox1.Items.Append('Bort airplain');
combobox1.Items.Append('reis airplain');
combobox1.Items.Append('Name Voditelya');
combobox1.Items.Append('Teh passport auto');
combobox1.Items.Append('Grys');
combobox1.Items.Append('Descriptions');
adotable1.Active:=false;
ADOTable1.TableName:='Dogovor';
ADOTable1.Active:=true;
w:=10;
end;

4:  begin        //Ãðóç
combobox1.Clear;
combobox1.Items.Append('Grys');
combobox1.Items.Append('Nomer_Grys');
combobox1.Items.Append('Bort_airplain');
combobox1.Items.Append('Data_oformlenia');
adotable1.Active:=false;
ADOTable1.TableName:='Grys';
ADOTable1.Active:=true;
w:=3;
end;

5: begin           //Õàðàêòåðèñòèêà áàãàæà
combobox1.Clear;
combobox1.Items.Append('Svedenia_oNalicii_bagaja');
combobox1.Items.Append('Vsyakoe_orygie_boevzrivchatki_radioaktivnie_materiali');
combobox1.Items.Append('Narkotiki_psihotropnie_yadovitie_vechestvo_i_lecarstva');
combobox1.Items.Append('Obekti_flori_i_fayni_ih_sostavlyaychie');
combobox1.Items.Append('Visokochastotnie_radioelectonnie_devaici_i_sredstva_svazi');
combobox1.Items.Append('Predmeti_stareni_i_iskystva');
combobox1.Items.Append('Transportnie_sredstva');
combobox1.Items.Append('Print_izdelia_i_prochii_nositili_dannih');
combobox1.Items.Append('Tovari_podligashii_nalogooblageniy');
combobox1.Items.Append('Vvremenno_vvozimievivozimie_tovari');
adotable1.Active:=false;
ADOTable1.TableName:='Haracteristikabagaja';
ADOTable1.Active:=true;
w:=9;
end;

6:  begin         //Ìåñòî ïðèáûòèÿ
combobox1.Clear;
combobox1.Items.Append('Country');
combobox1.Items.Append('City');
combobox1.Items.Append('Data_pribitia');
combobox1.Items.Append('Nomer_borta');
adotable1.Active:=false;
ADOTable1.TableName:='Mesto pribitia';
ADOTable1.Active:=true; w:=3;
end;

7:  begin         //Ìåñòî âûëèòà
combobox1.Clear;
combobox1.Items.Append('Mesto_vilita');
combobox1.Items.Append('Country');
combobox1.Items.Append('City');
combobox1.Items.Append('Data_vilita');
combobox1.Items.Append('Nomer_borta');
adotable1.Active:=false;
ADOTable1.TableName:='Mesto vilita';
ADOTable1.Active:=true;   w:=4;
end;

8:  begin         //Ïàññàæèðû
combobox1.Clear;
combobox1.Items.Append('FIO');
combobox1.Items.Append('Reis_Samolyota');
combobox1.Items.Append('Nomer_mesta');
combobox1.Items.Append('Napravlenie');
combobox1.Items.Append('Grys');
adotable1.Active:=false;
ADOTable1.TableName:='Passagir';
ADOTable1.Active:=true; w:=4;
end;

9:  begin        // Ïðàâàâûå äåêëàðàöèè
combobox1.Clear;
combobox1.Items.Append('Íîìåð ðåéñà');
combobox1.Items.Append('Íîìåð áîðòà');
combobox1.Items.Append('Äàòà âûëåòà');
combobox1.Items.Append('Äàòà ïðèáûòèÿ');
adotable1.Active:=false;
ADOTable1.TableName:='pravodecl';
ADOTable1.Active:=true; w:=3;
end;

10:  begin      //Ðåéñû
combobox1.Clear;
combobox1.Items.Append('Nomer_reisa');
combobox1.Items.Append('Grys');
combobox1.Items.Append('Airplain');
combobox1.Items.Append('Bort_samolotyov');
combobox1.Items.Append('Grysopodneomnosti(tonn)');
combobox1.Items.Append('Piloti');
adotable1.Active:=false;
ADOTable1.TableName:='Reis';
ADOTable1.Active:=true;  w:=5;
end;

11:  begin                //Ðåçóëüòàò
combobox1.Clear;
combobox1.Items.Append('Naimenovanie');
//combobox1.Items.Append('Íîìåð áîðòà');
//combobox1.Items.Append('Äàòà âûëåòà');
//combobox1.Items.Append('Äàòà ïðèáûòèÿ');
adotable1.Active:=false;
ADOTable1.TableName:='Resault';
ADOTable1.Active:=true;   w:=0;
end;

12:  begin         //  Ñîòðóäíèê
combobox1.Clear;
combobox1.Items.Append('Sotrydnik');
//combobox1.Items.Append('Íîìåð áîðòà');
//combobox1.Items.Append('Äàòà âûëåòà');
//combobox1.Items.Append('Äàòà ïðèáûòèÿ');
adotable1.Active:=false;
ADOTable1.TableName:='Sotrydnik';
ADOTable1.Active:=true;   w:=0;
end;

13:   begin      //   Çàÿâèòåëè
combobox1.Clear;
combobox1.Items.Append('FIO');
combobox1.Items.Append('Passport');
combobox1.Items.Append('Grajdanstvo');
combobox1.Items.Append('Adress');
adotable1.Active:=false;
ADOTable1.TableName:='Zayavitel';
ADOTable1.Active:=true;  w:=3;
end;

end;
end;

procedure TForm14.ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0: case combobox2.ItemIndex of
   0: q:=0;
   1: q:=1;
   2: q:=2;
   3: q:=3;
   end;
1: case combobox2.ItemIndex of
   0: q:=0;
   1: q:=1;
   2: q:=2;
   3: q:=3;
   end;
2: case combobox2.ItemIndex of
   0: q:=0;
   1: q:=1;
   2: q:=2;
   3: q:=3;
   end;
3: case combobox2.ItemIndex of
   0: q:=0;
   1: q:=1;
   2: q:=2;
   3: q:=3;
   end;
4: case combobox2.ItemIndex of
   0: q:=0;
   1: q:=1;
   2: q:=2;
   3: q:=3;
   end;
5: case combobox2.ItemIndex of
   0: q:=0;
   1: q:=1;
   2: q:=2;
   3: q:=3;
   end;
6: case combobox2.ItemIndex of
   0: q:=0;
   1: q:=1;
   2: q:=2;
   3: q:=3;
   end;
7: case combobox2.ItemIndex of
   0: q:=0;
   1: q:=1;
   2: q:=2;
   end;
8: case combobox2.ItemIndex of
   0: q:=0;
   1: q:=1;
   2: q:=2;
   3: q:=3;
   end;
9: case combobox2.ItemIndex of
   0: q:=0;
   1: q:=1;
   2: q:=2;
   3: q:=3;
   end;
10: case combobox2.ItemIndex of
   0: q:=0;
   1: q:=1;
   2: q:=2;
   3: q:=3;
   end;
11: case combobox2.ItemIndex of
   0: q:=0;
   1: q:=1;
   2: q:=2;
   3: q:=3;
   end;
12: case combobox2.ItemIndex of
   0: q:=0;
   1: q:=1;
   2: q:=2;
   3: q:=3;
   end;
13: case combobox2.ItemIndex of
   0: q:=0;
   1: q:=1;
   2: q:=2;
   3: q:=3;
   end;
end; END;

procedure TForm14.N3Click(Sender: TObject);
begin
Form14.Close;
Form4.Show;
Form14.close;
end;

procedure TForm14.N2Click(Sender: TObject);
begin
Form4.Show;
end;

end.