2011年9月6日
导入EXCEL到数据库中
摘要： procedure Import(SourceDS, DestDS: Tadoquery);var sFileName, sTableName: string; sl: TStringList; i: integer; conn: TADOConnection; dialog: TOpenDialog;begin dialog := TOpenDialog.Create(Application); if not dialog.Execute then Exit; try sFileName := dialog.FileName; conn := TADOConnection.Create(.. 阅读全文
posted @ 2011-09-06 20:17 delphi中间件 阅读(434) 评论(0) 推荐(0) 编辑
fastreport一些使用方法
摘要： uses Printers txtPrinterName.Items.Assign(Printer.Printers); frxReport1.LoadFromFile(AppConfig.ReportPath + ReportId + '.fr3'); frxReport1.PrintOptions.Printer := txtPrinterName.Text; frxReport1.PrintOptions.ShowDialog := False; frxReport1.PrintOptions.Copies := StrToInt(txtCopies.Text); frx 阅读全文
posted @ 2011-09-06 20:16 delphi中间件 阅读(1613) 评论(0) 推荐(0) 编辑