procedure Form1_bExport_OnClick (Sender: string; var Cancel: boolean);
var
SaveDialog: TSaveDialog;
begin
SaveDialog := TSaveDialog.Create(Form1);
if SaveDialog.Execute then Export('SELECT lastname, firstname, salary, dateofbirth, isSmoke, comment FROM employees', SaveDialog.FileName);
SaveDialog.Free;
end;
procedure Form1_bImport_OnClick (Sender: string; var Cancel: boolean);
var
OpenDialog: TOpenDialog;
begin
OpenDialog := TOpenDialog.Create(Form1);
OpenDialog.InitialDir := ExtractFileDir(Application.Exename);
if OpenDialog.Execute then Import('employees', 'lastname,firstname,salary,dateofbirth,isSmoke,comment', OpenDialog.FileName);
OpenDialog.Free;
end;
procedure Form1_bImportCheckDup_OnClick (Sender: string; var Cancel: boolean);
var
OpenDialog: TOpenDialog;
begin
OpenDialog := TOpenDialog.Create(Form1);
OpenDialog.InitialDir := ExtractFileDir(Application.Exename);
if OpenDialog.Execute then Import('employees', 'lastname,firstname,salary,dateofbirth,isSmoke,comment', OpenDialog.FileName, 'lastname,firstname');
OpenDialog.Free;
end;
Проект с примером:
Dmitry.