Разработка программной системы «Автоматизированная записная книжка», страница 20

DataModule1.ADOQuery4.SQL.Clear; DataModule1.ADOQuery4.SQL.Add('select Nazvanie from books where razdel='''+Label1.Caption+''' ');

DataModule1.ADOQuery4.Open;

DataModule1.ADOQuery4.First;

while not DataModule1.ADOQuery4.Eof do

begin

ComboBox1.Items.Add(DataModule1.ADOQuery4.Fields[0].AsString); DataModule1.ADOQuery4.Next;

end;

DataModule1.ADOQuery4.Close;

DataModule1.ADOQuery4.SQL.Clear;

DataModule1.ADOQuery4.SQL.Add('select Nazvanie from books where razdel='''+Label2.Caption+''' '); DataModule1.ADOQuery4.Open;

DataModule1.ADOQuery4.First;

while not DataModule1.ADOQuery4.Eof do

begin

ComboBox2.Items.Add(DataModule1.ADOQuery4.Fields[0].AsString); DataModule1.ADOQuery4.Next;

end;

DataModule1.ADOQuery4.Close;

DataModule1.ADOQuery4.SQL.Clear;

DataModule1.ADOQuery4.SQL.Add('select Nazvanie from books where razdel='''+Label3.Caption+''' ');

DataModule1.ADOQuery4.Open;

DataModule1.ADOQuery4.First;

while not DataModule1.ADOQuery4.Eof do

begin ComboBox3.Items.Add(DataModule1.ADOQuery4.Fields[0].AsString);DataModule1.ADOQuery4.Next;

end;

DataModule1.ADOQuery4.Close;

DataModule1.ADOQuery4.SQL.Clear;

DataModule1.ADOQuery4.SQL.Add('select Nazvanie from books where razdel='''+Label4.Caption+''' ');

DataModule1.ADOQuery4.Open;

DataModule1.ADOQuery4.First;

while not DataModule1.ADOQuery4.Eof do

begin

ComboBox4.Items.Add(DataModule1.ADOQuery4.Fields[0].AsString);DataModule1.ADOQuery4.Next;

end;

DataModule1.ADOQuery4.Close;

DataModule1.ADOQuery4.SQL.Clear;

DataModule1.ADOQuery4.SQL.Add('select Nazvanie from books where razdel='''+Label5.Caption+''' ');

DataModule1.ADOQuery4.Open;

DataModule1.ADOQuery4.First;

while not DataModule1.ADOQuery4.Eof do

begin ComboBox5.Items.Add(DataModule1.ADOQuery4.Fields[0].AsString);DataModule1.ADOQuery4.Next;

end;

DataModule1.ADOQuery4.Close;

DataModule1.ADOQuery4.SQL.Clear;

DataModule1.ADOQuery4.SQL.Add('select Nazvanie from books where razdel='''+Label6.Caption+''' ');

DataModule1.ADOQuery4.Open;

DataModule1.ADOQuery4.First;

while not DataModule1.ADOQuery4.Eof do

begin

ComboBox6.Items.Add(DataModule1.ADOQuery4.Fields[0].AsString);DataModule1.ADOQuery4.Next;

end;

DataModule1.ADOQuery4.Close;

DataModule1.ADOQuery4.SQL.Clear;

DataModule1.ADOQuery4.SQL.Add('select Nazvanie from books where razdel='''+Label7.Caption+''' ');

DataModule1.ADOQuery4.Open;

DataModule1.ADOQuery4.First;

while not DataModule1.ADOQuery4.Eof do

begin

ComboBox7.Items.Add(DataModule1.ADOQuery4.Fields[0].AsString);

DataModule1.ADOQuery4.Next;

end;

DataModule1.ADOQuery4.Close;

DataModule1.ADOQuery4.SQL.Clear;

DataModule1.ADOQuery4.SQL.Add('select Nazvanie from books where razdel='''+Label8.Caption+''' ');

DataModule1.ADOQuery4.Open;

DataModule1.ADOQuery4.First;

while not DataModule1.ADOQuery4.Eof do

begin

ComboBox8.Items.Add(DataModule1.ADOQuery4.Fields[0].AsString);DataModule1.ADOQuery4.Next;

end;

DataModule1.ADOQuery4.Close;

DataModule1.ADOQuery4.SQL.Clear;

DataModule1.ADOQuery4.SQL.Add('select Nazvanie from books where razdel='''+Label9.Caption+''' ');

DataModule1.ADOQuery4.Open;

DataModule1.ADOQuery4.First;

while not DataModule1.ADOQuery4.Eof do

begin

ComboBox9.Items.Add(DataModule1.ADOQuery4.Fields[0].AsString);

DataModule1.ADOQuery4.Next;

end;

DataModule1.ADOQuery4.Close;

end;

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

ComboBox1.Clear;

ComboBox1.Text:=Label1.Caption;

Label1.Visible:=false;

BitBtn2.Visible:=false;

ComboBox2.Clear;

ComboBox2.Text:=Label2.Caption;

BitBtn3.Visible:=false;

Label2.Visible:=false;

ComboBox3.Clear;

ComboBox3.Text:=Label3.Caption;

Label3.Visible:=false;

BitBtn4.Visible:=false;

ComboBox4.Clear;

ComboBox4.Text:=Label4.Caption;

Label4.Visible:=false;

BitBtn5.Visible:=false;

ComboBox5.Clear;

ComboBox5.Text:=Label5.Caption;

Label5.Visible:=false;

BitBtn6.Visible:=false;

ComboBox6.Clear;

ComboBox6.Text:=Label6.Caption;