// 退出确认...
procedure TMainForm.CornerButton11Click(Sender: TObject);
begin
MessageDlg('本操作将从资金管理系统退出!'+#13#10+'确认是否进行退出处理?', System.UITypes.TMsgDlgType.mtInformation,
[
System.UITypes.TMsgDlgBtn.mbYes,
System.UITypes.TMsgDlgBtn.mbNo
], 0,
procedure(const AResult: TModalResult)
begin
if AResult = mrYES then
begin
//
// 善后处理并退出...
timer.Enabled:=false;
Cds1.Close;
cds2.Close;
cds3.Close;
rights.Free;
grid1.RowCount:=0;
grid2.RowCount:=0;
grid3.RowCount:=0;
grid4.RowCount:=0;
mbconn.Disconnect;
close;
end;
end);
end;