回复:joe-liu
几点说明:
1> 修改CMIS_W 的source:
Hwnds:=FindWindow ('tformsmain1',nil);
Hwndw:=FindWindow ('tformwmain1',nil);
为
Hwnds:=FindWindow ('tformsmain',nil);
Hwndw:=FindWindow ('tformwmain',nil);
在DELPHI7编译时,会出现window 的提示信息,[前台系统]已经运行。
这样可以退出DELPHI7开发环境,得到的可执行文件就可以进行安装。
CMIS_S亦然。
2>
{
dao:=CreateOleObject('DAO.DBEngine.36'); dao.CompactDatabase(ExtractFilePath(Application.ExeName)+'/data/hotelmanage.mdb',ExtractFilePath(Application.ExeName)+'/data/temp.mdb');
DeleteFile(ExtractFilePath(Application.ExeName)+'/DATA/hotelmanage.mdb');
RenameFile(ExtractFilePath(Application.ExeName)+'/data/temp.mdb',ExtractFilePath(Application.ExeName)+'/data/hotelmanage.mdb');
copyfile(Pchar(ExtractFilePath(Application.ExeName)+'/data/hotelmanage.mdb'),Pchar(ExtractFilePath(Application.ExeName)+'/back/hotelmanage.bak'),false);
}
这段源码可以进行系统的压缩备份。在经过第1>步处理后,方可把此段源码变为有效,否则无法进行编译。
Bug修正:(适用于9.051以下版本)
procedure TFormWork.ToolButton1Click(Sender: TObject);中的
约在FormWork中4696行。
由//Set Name End
adoqry_tablegues.Edit;
adoqry_tablegues.Post;
if not(adoqry_hanggues.Eof and adoqry_hanggues.Bof) then
begin
adoqry_hanggues.Post;
adoqry_hanggues.edit;
end;
改为 //Set Name End
adoqry_tablegues.Edit;
adoqry_tablegues.Post;
if not(adoqry_hanggues.Eof and adoqry_hanggues.Bof) then
begin
adoqry_hanggues.Post;
adoqry_hanggues.edit;
end;
可以修正[结 帐]时产生的错误。
最新版本DEMO下载地址:http://www.leadinsoft.com/program/CMIS-SETUP51.rar