蛐
蛐蛐
Unregistered / Unconfirmed
GUEST, unregistred user!
.....
var upstats: TUpdateStatus;
begin
upstats:= [] // 出错信息是TUpdatestatus 与SET不兼容
if cbUnchanged.checked then
include(upstats,unchanged) //出错。
end;
目的 ，在FORM上有四个CheckBox分别为已修改，未修改，已删除等。
如当CHECK已修改BOX时，则只显示已修改的记录
//*******************
在FORM上有四个CHECKBOX，分别对应已删除 新增记录，修改记录 未修改记录。
当CHECK“已删除”则显示已删除 记录，
当CHECK 新增记录时，则显示新增记录
当CHECK修改记录时，则显示已修改记录
当CHECK未修改记录时，则显示未修改记录
var upstats: TUpdateStatus;
begin
upstats:= [] // 出错信息是TUpdatestatus 与SET不兼容
if cbUnchanged.checked then
include(upstats,unchanged) //出错。
end;
目的 ，在FORM上有四个CheckBox分别为已修改，未修改，已删除等。
如当CHECK已修改BOX时，则只显示已修改的记录
//*******************
在FORM上有四个CHECKBOX，分别对应已删除 新增记录，修改记录 未修改记录。
当CHECK“已删除”则显示已删除 记录，
当CHECK 新增记录时，则显示新增记录
当CHECK修改记录时，则显示已修改记录
当CHECK未修改记录时，则显示未修改记录