本文整理自网络,侵删。
procedure Tdm.DataModuleCreate(Sender: TObject);begintry FDConnection1.Connected := False; FDConnection1.Params.Database := ExtractFileDir(ParamStr(0)) + '\mdb\' + 'code.mdb'; FDConnection1.Connected := True;//FDConnection1.Close;//FDConnection1.Connected:=True;except on E: Exception do begin Tip.Show('提示',e.Message); end;end;end;
https://www.cnblogs.com/windson/p/12649724.html
相关阅读 >>
Delphi里的compile和build都能产生可执行文件,有什么区别啊?
Delphi 2009 之 tstringbuilder 类[2]: append 与 appendformat
更多相关阅读请进入《Delphi》频道 >>