procedure TfrmEmployee.btnDeleteClick(Sender: TObject);var aBool: Boolean;begin inherited; MessageDlg('是否删除?', mtConfirmation, mbYesNo, procedure(Res: Integer) begin aBool :=Res = mrYes; if aBool then begin ClientDataSet1.Delete; if untDll.SaveData('
参考代码 procedure TUniFrmeWebEmbedBase.ExportData; //导出到excel var FlexCelImport1: TExcelFile; i, rowindex, colindex: Integer; ms : TMemoryStream; begin { 检查数据集 } if Assigned(cdsMain) and cdsMain.Active then try { 创建Excel文件 } FlexCelImport1 := TXlsFile.C
// uses FireDAC.Phys.SQLite 之后, 可不用添加 TFDPhysSQLiteDriverLink //访问SQLite 文件数据库 procedure TMainForm.UniEdit1KeyPress(Sender: TObject; var Key: Char); begin then begin FDQuery1.ExecSQL('INSERT INTO ToDoListTable VALUES( (select max(id)+1 from ToDoListT