Курсовая работа: База данных предприятия

end;

procedure TForm1.N8Click(Sender: TObject);

begin

If Application.MessageBox(PChar('Выдействительнохотитеудалить'

+DataModule2.BookTableDSDesigner.AsString), 'Внимание!!!' ,

MB_OKCANCEL)=id_OK then

DataModule2.BookTable.Delete;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

DataModule2.BookTable.IndexFieldNames:= '[Названиепредприятия]';

end;

procedure TForm1.N10Click(Sender: TObject);

begin

DataModule2.BookTable.IndexFieldNames:= 'Город';

end;

procedure TForm1.FindEditChange(Sender: TObject);

begin

If Length (FindEdit.Text)>0 then

DataModule2.BookTable.Filtered:=true

else

DataModule2.BookTable.Filtered:=false;

DataModule2.BookTable.Filter:='[Названиепредприятия]>'''+FindEdit.Text+'''';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

DataModule2.FindQuery.Active:=false;

DataModule2.FindQuery.Parameters.ParamByName('Telephone').Value:=

FindTelephoneEdit.Text;