随笔分类 - Delphi相关
1
摘要:delphi在使用fastreport进行打印时,需要对数据进行计算求和。 在打印文本框的OnBeforePrint事件中进行以下代码即可实现效果 procedure Memo7OnBeforePrint(Sender: TfrxComponent); var DataSet: TfrxDataSe
阅读全文
摘要:在对接本地的一个药械监管系统使用实现的代码,编译环境delphi Xe7 ,使用类TIdHTTP实现网络的get请求和post提交 //设置组件的属性 procedure TfrmMain.SetHttpParam; begin idhtp1.HandleRedirects := True; //
阅读全文
摘要:单元(unit)是组成Pascal程序的单独的源代码模块,单元有函数和过程组成,这些函数和过程能被主程序调用。一个单元至少要有unit语句,interface,和implementation三部分,也能可选的包含initialization和finalization两部分: 一、必含部分 1、uni
阅读全文
摘要:程序使用DelphiXE11.1开发,用到控件UniDac9.1.1,QDAC里面的Qlog组件。 程序实现了SQL脚本文件批处理执行应用,运行效果图。 文件.pas代码 unit main; interface uses Winapi.Windows, Winapi.Messages, Syste
阅读全文
摘要://代码来自官方论坛type TUniSqlMonitorEx = class(TUniSqlMonitor) private FExecuteDuration: Cardinal; FFinalEvent: Boolean; protected procedure InternalSQLExecu
阅读全文
摘要:参考原文:https://www.atozed.com/forums/thread-771.html?highlight=400+Bad+Request 另外还有一篇文章说明也可参考 http://www.sumweb.net/archives/1666 使用您显示的确切代码,我没有收到“ HTTP
阅读全文
摘要:procedure TForm1.cxGrid1DBTableView1AColumnPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean)
阅读全文
摘要:使用Delphi XE7+UniDAC+TVirtualQuery开发的过程中,对已经查询到内存中的数据集TUniQuery组件,再次运用SQL语句进行查询 结果程序运行后提示错误:raised exception class ESQLiteError with message 'duplicate
阅读全文
摘要:第一种方法就是使用表格中列的PropertiesValidate方法实现,例如修改单据的数量列,希望重新计算当前行的金额列 //编辑数量时发生 procedure TfrmSkdLr.cxgrdbclmnTV_SlPropertiesValidate(Sender: TObject; var Dis
阅读全文
摘要:本文转自以下网址,感谢作者分享 https://blog.csdn.net/pcent/article/details/8169112 cxGrid1DBTableView1.Controller.FocusedRowIndex 当前行号 cxGrid1DBTableView1.Controller
阅读全文
摘要:假设我们使用Delphi6开发了一个投资系统,在开发过程中我们使用了indy控件。到目前为止投资系统已经发了若干个版本,如投资系统1.0、投资系统1.2、投资系统1.5、投资系统2.0、投资系统2.3。其中投资系统2.3是最新版。这五个版本目前都有客户使用,因此我们需要分别维护各个版本。某一天1.2
阅读全文
摘要:LookAndFeel(界面外观): NativeStyle:本地化界面为真实用系统内置外观 SkinName:本地化界面(NativeStyle:)设置为假可使用皮肤外观 OptionAnimate(动画选项): AlphaBlendValue:提示窗口默认透明度 CollapseEmptySlo
阅读全文
摘要:procedure SaveGridViewEditing(AView: TcxGridDBTableView); overload; var vDst: TDataSet; begin // 应用未保存编辑框的修改 if (AView.DataController.EditState <> [])
阅读全文
摘要:procedure TForm1.Button1Click(Sender: TObject); var i, n: Integer; XLS: TXLSReadWriteII5; // 引用XLSReadWriteII5, Xc12DataStyleSheet5, ShellAPI begin XLS := TXLSReadWriteII5.Create(nil); try XLS.Clear;
阅读全文
摘要:官方方法组合示例,使用UpdatesPending属性可判断是否有修改在缓存区中
阅读全文
摘要:看了网上的一些资料,发现了方法,但是描述都不是很详细,也至于每次都无法实现,只能在数据集中做补空行处理。今天终于弄通了,贴出方法,以备后续之用。 1. <1>在报表上加一个Child(在控件设计器中名称叫“子(W)”).其Name取名叫BlankBand。 <2>此Band就是我们要添加的空行(若你
阅读全文
摘要:转自:Delphi中的变体Variant数组相关函数 1.VarArrayCreate procedure TForm1.Button1Click(Sender: TObject); var V, W : Variant; i : Integer; begin V := VarArrayCreate
阅读全文
摘要:初步说明: CompareDate 比较两个日期时间值日期部分的大小CompareDateTime 比较两个日期时间值的大小CompareTime 比较两个日期时间值时间部分的大小DateOf 去除日期时间值的时间部分DateTimeToJulianDate 转换日期时间值为儒略日DateTimeT
阅读全文
摘要:procedure TForm1.Button1Click(Sender: TObject);var D:TDateTime; s:string;begin D:=VarToDateTime('05-10-14 04:35PM'); S:=FormatDatetime('YYYY/MM/DD HH:
阅读全文
摘要:UniDAC使用日记 1. UniQuery默认状态为行提交,使用前根据需要设置readonly或cachedupdates属性2. UniQuery.Filter默认大小写区分,请注意设置FilterOptions属性([foCaseInsensitive]),TVirtualtable也存在相同
阅读全文
1