随笔分类 - Delphi
摘要:FastReport经验1.FastReport中如果访问报表中的对象? 可以使用FindObject方法。 TfrxMemoView(frxReport1.FindObject(’memo1′)).Text:=’FastReport’;2.FastReport中如何使用上下标? 设置frxmemo...
阅读全文
posted @ 2014-04-18 10:59
麦麦提敏
摘要:FastReport中文网http://www.fastreportcn.com/Article/2.html
阅读全文
posted @ 2014-04-18 10:44
麦麦提敏
摘要:FastReport报表控件使用技巧总结1.FastReport中如何访问报表中的对象? 可以使用FindObject方法。TfrxMemoView(frxReport1.FindObject('memo1')).Text:='FastReport';2.FastReport中如何使用上下标? 设置...
阅读全文
posted @ 2014-04-18 10:43
麦麦提敏
摘要:WinAPI: ShellExecute - 打开外部程序或文件ShellExecute( hWnd: HWND; {指定父窗口句柄} Operation: PChar; {指定动作, 譬如: open、print} FileName: PChar; {指定要打开的文件或程序} Parame...
阅读全文
posted @ 2014-04-15 12:24
麦麦提敏
摘要:Delphi Excel 操作大全(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口:ExcelApp.Visib...
阅读全文
posted @ 2014-04-15 12:17
麦麦提敏
摘要:DATEADD和DATEDIFF函数、其他日期处理方法 、已打开的端口、FORMAT函数DATEADD和DATEDIFF函数、其他日期处理方法 、已打开的端口、Format函数KeyLife富翁笔记 作者: microtan标题: SQL 中日期的处理 关键字: SQL 中日期的处理 分类: 个人专区 密级: 公开 (评分: , 回复: 0, 阅读: 131) »» 通常,你需要获得当前日期和计算一些其他的日期,例如,你的程序可能需要判断一个月的第一天或者最后一天。你们大部分人大概都知道怎样把日期进行分割(年、月、日等),然后仅仅用分割出来的年、
阅读全文
posted @ 2014-03-28 12:57
麦麦提敏
摘要:把page中的dataset中填的数据表删除.(改成notassigned)
阅读全文
posted @ 2014-03-15 12:13
麦麦提敏
摘要:CXGRID中的字段如何能以0.00的格式显示在CXGRID中如何让字段能以0.00的格式显示,我的字段是FLOAT类型,满意的马上给分!------解决方案--------------------可以 先把cxGrid中的你要设的那个列改为 properties = CalcEdit然后再设置 DisplayFormat = 0.00;-,0.00 即可
阅读全文
posted @ 2014-03-06 13:12
麦麦提敏
摘要:procedure Tform1.Edit1KeyPress(Sender: TObject;varKey: Char);varedt: TEdit;str, strL, strR:string;p: integer;begin // 获取当前文本内容, 注意要去掉选中部分(因为会被改写).edt := TEdit(Sender);str := edt.text;ifLength(edt.SelText) 0thenbegin strL := LeftStr(edt.text, edt.SelStart); strR := RightStr(edt.text, Length(edt.text.
阅读全文
posted @ 2014-01-20 12:58
麦麦提敏
摘要:来源http://www.cnblogs.com/djcsch2001/archive/2010/07/19/1780573.html1. 去掉GroupBy栏cxGrid1DBTableView1.OptionsView.GroupByBox:=False;2. 在GRID footer 中加入sum(列)cxGrid1DBTableView1.OptionsView.footer:=Ture;然后在cxGRid1的customize中的summary 的footer.add需要合计的列kind= skSum(这个是设计的方法,以后会增加代码方法)3. 去掉cxgrid 中的过滤下拉箭头选择
阅读全文
posted @ 2014-01-14 13:12
麦麦提敏
摘要:Delphi 三层开发************ http://blog.csdn.net/lailai186/article/category/1396968 Delphi CxGrid 汇总************ http://blog.csdn.net/lailai186/article/details/8824724delphi四种消息框 ************ http://www.cnblogs.com/FuYan/archive/2013/04/28/3048733.html动态创建Fastreport http://blog.csdn.net/xinzheng_wang...
阅读全文
posted @ 2013-12-27 12:39
麦麦提敏
摘要:Delphi操作Excel大全DELPHI操作excel(转)(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:ExcelApp.Caption := '应用程序调用 Microsoft Excel';3) 添加新工作簿:ExcelApp.WorkBooks.Add;4) 打开已存在的工作簿:Ex
阅读全文
posted @ 2013-12-27 12:28
麦麦提敏
摘要:一名Delphi程序员的开发习惯有关开发习惯的一些想法,如鲠在喉,不吐不快。究其发贴动机,当然不排除有骗取参与分的可能,但另一方面,也希望能给同行(念Xing)者提供一些 建议,或者参考(希望不是误人子弟)。同时,也希望各位能够就我的这些陋习,发表一点看法,给出批评和指正的意见。谢谢。一.建立工程目录 首先,第一步要做的,当然是给新项目建一个单独的目录(别笑)。目录名称与项目名称同名,或者另取一个也可,只要清楚、简练。然后,在此目录中创建以下各 个目录: :用来存放该项目相关的开发文档(需求说明,概要设计,详细设计等等等等); :用来存放Delphi源程序中的”.Dpr”,”.Pas”,”.D
阅读全文
posted @ 2013-12-25 21:41
麦麦提敏
摘要:Android开发数据库三层应用-DataSnaphttp://www.2ccc.com/news/Html/?1517.html 核心提示:我觉得Delphi最强大的的功能之一就是开发数据库三层应用的DataSnap,在Android上的实现,首先是完成服务器的设计:(1)利用向导完成DataSnap服务器的框架,如下图:由于是实验,所以选择VCL程序,如果是实际应用,建议Service程序我习惯使用TCP/IP作为通讯协议,简单且速度...我觉得Delphi最强大的的功能之一就是开发数据库三层应用的DataSnap,在Android上的实现,首先是完成服务器的设计:
阅读全文
posted @ 2013-12-19 15:18
麦麦提敏
摘要:让Delphi的DataSnap发挥最大效率让Delphi的DataSnap发挥最大效率一个DataSnap的应用程序由两个层组成:DataSnap服务器,它有一个带有一个或者更多DataSetProvider组件的远程数据模块;DataSnap客户端,它带有一个xxxConnection组件和一个或者多个连接到DataSetProviders的ClientDataSets。你可以不使用ClientDataSet而换用XMLBroker组件,后者是专门用在InternetExpress Web服务器应用程序上的。 DataSetProviders的作用是把数据导出到外部世界,而ClientDa
阅读全文
posted @ 2013-11-21 23:47
麦麦提敏
摘要:使用 TRegistry 类[1]: 显示各主键下的项{XP 注册表中的主键}HKEY_CLASSES_ROOT {文件类型信息} HKEY_CURRENT_USER {当前用户信息}HKEY_LOCAL_MACHINE {软硬件信息} HKEY_USERS {所有用户信息} HKEY_CURRENT_CONFIG {当前配置信息}{Delphi 定义的常量}HKEY_CLASSES_ROOT = DWORD($80000000);HKEY_CURRENT_USER = DWORD($80000001);HKEY_LOCAL_MACHINE = DWORD($8000...
阅读全文
posted @ 2013-11-21 23:35
麦麦提敏
摘要:ini 文件操作记要(1): 使用 TIniFileunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButt...
阅读全文
posted @ 2013-11-21 23:32
麦麦提敏
摘要:先人的DELPHI基础开发技巧 ◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL: var xpanel,ypanel,xlabel,ylabel:integer; PANEL的MouseMove事件:xpanel:=x;ypanel:=y; P
阅读全文
posted @ 2013-11-19 08:57
麦麦提敏
摘要:Q: 怎么来改变ListBox的字体呢?就修改其中的一行。A: 先把ListBox1.Style 设成lbOwnerDrawFixed然后在 OnDrawItem 事件下写下如下代码procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);varOffset: Integer;beginOffset := 2;with (Control as TListBox).Canvas do beginFillRect(Rect);if Index
阅读全文
posted @ 2013-11-19 08:54
麦麦提敏

浙公网安备 33010602011771号