нужно написать программу для кнопки "выбор" используя:
ComboBox1
Button1
DBGrid1
DBGrid2
DataSource1
Query1
Query2.
В ComboBox1 должен быть список в который входят:
монитор
клавиатура
видео карта
МФУ
процессор
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!! очень нужно!!!!
вот предварительный программный код, поправьте где не правильно
Код:
procedure TForm1.Button1Click(Sender: TObject);
var Sql: string;
begin
Query2. SQL. Clear;
Query2. SQL. Add('Select*from Deps');
Query2. Open;
ComboBox1.Clear;
While not Query2. of do
begin
Str:=Query2. Field By Name('Production')As string;
ComboBox1. Items. Add(Str);
Query2.Next;
end;
ComboBox1.Items.Add('все наименования');
ComboBox1.ItemIndex:=ComboBox.Items.Count-1;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select*from Deps');
Query1.Open;
end;
end.