ComboBox

procedure TForm1.TabSheet5Show(Sender: TObject);
var
s:String;
begin
ADOTable2.Active:=True;
ComboBox3.Items.Clear;
while not ADOTable2.Eof do
begin
ComboBox3.Items.Add(ADOTable2Podrazdelenie.Value);
if(ADOTable2Kod_Podrazdelenie.Value=ADOTable1kod_podrazdelenie.Value)then
ComboBox3.Text:=ADOTable2Podrazdelenie.Value;
ADOTable2.Next;
end;
ADOTable2.Active:=False;

ADOTable4.Active:=True;
ComboBox4.Items.Clear;
while not ADOTable4.Eof do
begin
ComboBox4.Items.Add(ADOTable4Dolgnost.Value);
if(ADOTable4Kod_Dolgnost.Value=ADOTable1Kod_dolgnost.Value)then
ComboBox4.Text:=ADOTable4Dolgnost.Value;
ADOTable4.Next;
end;
ADOTable4.Active:=False;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ADOTable1.Active:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if ADOTable1.State in [dsInsert,dsEdit] then
begin
if(PageControl1.ActivePageIndex=4)then
begin
ADOTable2.Active:=true;
ADOTable2.First;
ADOTable1.Edit;
ADOTable1kod_podrazdelenie.Value:=ADOTable2.Lookup('Podrazdelenie',ComboBox3.Text,'Kod_ Podrazdelenie');
ADOTable2.Active:=false;
ADOTable4.Active:=true;
ADOTable4.First;
ADOTable1Kod_dolgnost.Value:=ADOTable4.Lookup('Dolgnost',ComboBox4.Text,'Kod_Dolgnost');
ADOTable4.Active:=false;
end;
if(PageControl1.ActivePageIndex=3)then
begin
ADOTable3.Active:=true;
ADOTable1.Edit;
ADOTable3.First;
ADOTable1Kod_obrazovanie.Value:=ADOTable3.Lookup('Obrazovanie',ComboBox2.Text,'Kod_Obrazovanie');
ADOTable3.Active:=false;
end;
if(PageControl1.ActivePageIndex=0)then
begin
if(DBEdit1.Text<>'')and(DBEdit2.Text<>'')and(DBEdit3.Text<>'')and(DBEdit4.Text<>'')and(DBEdit5.Text<>'')and(DBEdit6.Text<>'')and(DBEdit7.Text<>'')and(DBEdit8.Text<>'')and(DBEdit9.Text<>'')then
begin
if(ComboBox3.Text='')then
begin
ADOTable1kod_podrazdelenie.Value:=1;
ADOTable1Kod_dolgnost.Value:=1;
end;
if(ComboBox2.Text='')then
begin
ADOTable1Kod_obrazovanie.Value:=1;
end;
end
else
ShowMessage('Ошибка! Не все поля таблицы заполнены.');
end;
try
ADOTable1.Post;
except
ShowMessage('Произошла исключительная ситуация: не могу создать сотрудника! Обратитесь к разработчику программы.');
end;
//ADOTable1.Edit;
end;
end;