随笔分类 -  Delphi相关

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

1
点击右上角即可分享
微信分享提示