sp; if not FileExists(strExpFileName) then
FileCreate(strExpFileName)
else
begin
if MessageBox(Handle, '指定的文件已经存在,要覆盖吗', '提示',
MB_ICONINFORMATION or MB_YESNO) = ID_YES then
begin
DeleteFile(strExpFileName);
FileCreate(strExpFileName);
ShowMessage('系统没有提供导出功能!等下一版吧!');
Exit;
end;
end;
end; //end if SaveDialog1.Execute
end;
procedure TfrmReport.FormCreate(Sender: TObject);
begin
//todo
Sdgl.SetConnectString(ADOQuery1);
Sdgl.SetConnectString(ADOQuery2);
Sdgl.SetConnectString(ADOQuery3);
end;