5,930
社区成员
发帖
与我相关
我的任务
分享
try
Table_RemoteConfigInfo.Close;
Table_RemoteConfigInfo.DatabaseName:=ExtractFilePath(ParamStr(0));
Table_RemoteConfigInfo.TableName:='data.db';
Table_RemoteConfigInfo.TableType:= ttParadox;
Table_RemoteConfigInfo.EmptyTable;
Table_RemoteConfigInfo.Open;
Table_TestRecord.Close;
Table_TestRecord.DatabaseName:=ExtractFilePath(ParamStr(0));
Table_TestRecord.TableName:='info.db';
Table_TestRecord.Open;
except
Application.MessageBox('数据库初始化失败,程序无法正常运行,请重新安装!','提示',MB_OK+MB_ICONError);
Application.Terminate;
end;