Реферат: Створення клієнтської програми для користування базою данних MS ACCESS в Delphi 4 0

t3+' like '''+Edit3.Text+''') and ('+t4+' like '''+Edit4.Text+''') and (';

case ComboBox1.ItemIndex of

0: sqlWhere:=sqlWhere+t5+' = '+Edit5.Text+');';

1: sqlWhere:=sqlWhere+t5+' > '+Edit5.Text+');';

2: sqlWhere:=sqlWhere+t5+' < '+Edit5.Text+');';

3: sqlWhere:=sqlWhere+t5+' between '+Edit5.Text+' and '+Edit12.Text+');';

end;

DataModule1.Query1.SQL.Add(sqlTable+sqlWhere);

DataModule1.Query1.ExecSQL;

end;

end;

procedure TForm1.ToolButton9Click(Sender: TObject); // додання записів

var sqlInsert: String;

begin

DataModule1.Query1.SQL.Clear;

sqlInsert:='Insert into Товар Values ('''+'%'+Edit1.Text+''','''+Edit2.Text+''','''+

Edit3.Text+''','''+Edit5.Text+''','''+Edit4.Text+''');';

DataModule1.Query1.SQL.Add(sqlInsert);

DataModule1.Query1.ExecSQL;

end;

procedure TForm1.ToolButton7Click(Sender: TObject); // створення нової таблиці

var TableName,sqlCreate:string;

begin

DataModule1.Query1.SQL.Clear;

TableName:=InputBox('Введіть ім''я нової таблиці','','');

sqlCreate:='Select * into '+TableName+' from Товар where ('+t1+' like '''+'%'+Edit1.Text+''') and ('+t2+' like '''+Edit2.Text+''') and ('+

t3+' like '''+Edit3.Text+''') and ('+t4+' like '''+Edit4.Text+''') and (';

case ComboBox1.ItemIndex of

0: sqlCreate:=sqlCreate+t5+' = '+Edit5.Text+');';