Delphi三十六之数据库篇

3．提交记录前进行用户定义完整性检查

　　//在数据集控件的BeforePost事件中编写如下类似代码：

if not CheckPass then //CheckPass为自定义的完整性检查函数,用户根据需要完成

begin
Application.MessageBox(‘当前库存量不足以下发，请修改后再保存！’,
‘输入 错误’, Mb_Ok + Mb_IconError);
Abort; //利用哑异常退出提交事件
end;

　　4．用Delphi压缩和修复access 数据库

uses ComObj;
//............
Procedure CompactDb(DbName, NewName: string);

　var
　　dao: OLEVariant;
　begin
　dao := CreateOleObject("DAO.DBEngine.35");
　dao.CompactDatabase(DbName, NewName);
end;

procedure RepairDb(DbName: string);

　var
　　dao: OLEVariant;

　　begin
　　dao := CreateOleObject("DAO.DBEngine.35");
　　dao.RepairDatabase(DbName);

end;

　　以上代码在Delphi5下测试通过。

查看本文来源