procedure TZCT.CheckSaveTraBusList(var AllowChange: Boolean);
var
lModified: Boolean;
begin
lModified := (TraBusListDataSet.State in [TDatasetState.dsInsert, TDatasetState.dsEdit])
or TraBusListDataSet.UpdatesPending;
if lModified then
case jsDialogs.QuestionBox('数据已经修改,是否保存?', '', 1) of
2: AllowChange := False;
6: TraBusListDataSet.ApplyUpdates;
7:
begin
TraBusListDataSet.Cancel;
TraBusListDataSet.CancelUpdates;
end;
end;
end;