Курсовая работа: Информационно-аналитическая система "MTTS"

procedure Ttardel.Button1Click(Sender: TObject);

var i: integer;

begin

if messagedlg('Удалитьгород: '+dd.Table2.Fields[1].Text, mtinformation,[mbYes,mbNo],0)=mrYes

then

begin

dd.Table2.Delete;

//dd.Table1.Post;

dd.Query2.Close;

dd.DataSource2.DataSet:=dd.Query2;

dd.Query2.Open;

for i:=1 to dd.Table3.RecordCount do

begin

dd.Table3.RecNo:=i;

dd.Table3.Delete;

end;

dd.Query3.Close;

dd.DataSource3.DataSet:=dd.Query3;

dd.Query3.Open;

// dd.Table3.Post;

end

else exit;

end;

2.5. Поискданных

Нажав на кнопку «Поиск» на самой основной форме, открывается форма, где выбирается сама таблица, по которой нужно выполнить поиск и из раскрывающегося списка выбирается те значения, которые нужно найти. Для таблицы «Изделие» поиск выполняется следующим образом:

Нажать «Поиск».

Программа:

procedure Ttarfind.Button1Click(Sender: TObject);

var s, s1: string;