Delphi XE7试用记录2 万一博客中介绍了不少Delphi7以后的新功能测试,想跟着测试一下.每次测试建立一个工程,在窗体上放几个按钮,测试几个相关的功能,这样虽然简单明了,但日后查阅起来不方便.最好能操作简单,尽可能集中到一个项目中,功能分类清晰,同时可以看到运行效果及源代码. 窗体上放置ActionList.MainMen.TreeView.PageControl.Memo.测试代码放到Action中,运行时根据Action自动建立MainMenu和TreeView中的项目,点击Men…

Delphi XE7试用记录1 在网上看到XE7的一些新特征,觉得完整Unicode支持.扩展Pascal语法.更多功能的库都很吸引人,决定试试XE7. XE7官方安装程序很大,因此选择了lite版,网上可以搜到下载地址,安装很容易,注意要把需要的附加功能包和安装程序放在一起,而且不要更名. 安装后,先建立一个VCL窗体程序,测试一下. XE7启动速度比Delphi7慢了许多,毕竟程序大了很多,自带的组件包也多了很多.减少组件包的数量可以提高一些速度,网上说有默认程序选项,设置以后可以适用于新工…

1.1Delphi数据库应用程序的层次结构 Delphi数据库应用程序通过数据存取构件对数据库进行访问,通过可视的数据构件(Data Control)将数据呈现给用户,并与用户进行交互.Delphi数据库应用程序的结构如下图: 图 2‑1 Delphi数据库应用程序结构图 Delphi访问数据库可以分为三级: (1).由ADO(Active Data Object)对象及底层数据库驱动程序来访问数据源. (2).再由数据集构件(TADOTable.TADOQuery.TADODataSet)与A…

数据源记录集:ClientDataSetSource:目标记录集:ClientDataSetCopy 1)复制一条记录. ClientDataSetCopy.Close;  ClientDataSetCopy.Fields.Clear;  ClientDataSetCopy.FieldDefs.Clear; //复制字段定义  ClientDataSetCopy.FieldDefs.Assign( ClientDataSetSource.FieldDefs);  ClientDataSetCop…

CheckOrder方法写在uDataModConn类里.…

//判断是否是数字 function IsNumeric(sDestStr: string): Boolean; //简写多余汉字 function SimplifyWord(sWord: string; iMaxLen: Integer): string; //读写取注册表中的字符串值 function ReadRegStr(sDWName, KeyName: string; SvrBZ: TSvrOrClient; DefaultValue: string = ''): string; pr…

IWServerController.HistoryEnabled := True; //使浏览器后退.前进按钮有效TIWForm2.Create(WebApplication).Show;  //建立并显示 TIWForm2; 执行后 WebApplication.ActiveForm 就从 TIWForm1 变为 TIWForm2,从第一个页面跳到第二个页面.release //释放,返回主界面.释放后, TIWForm1 就出来了, 达到了返回的目的,//为什么 IW 提倡使用 Relea…

…

在小组开发中,应用程序部分采用Delphi7,一些组件使用C++做.在今天将一个动态库的C++接口声明头文件转换为D7的Unit单元时,一切都很顺利,直到遇到下面这样一个另类的东西: typedef struct tagRecord{ int val; int getvalplus() {  val++;  return val; }}TRecord, *PRecord; 带函数的结构体!面对这个面目狰狞的家伙,我开始无所适从,狂在GOOGLE.BAIDU里通过关键字“Delphi 带函数的记录…

对于Windows下的控制台编程,我相信很多人都不陌生.而C语言开始的著名的“Hello world”程序基本是学习编程的第一步.我想对于 RAD开发,大家熟悉的一般都是GUI编程,而对于console的编程基本很少用到.其实对于Delphi而言,不但可以开发GUI程序,而且也可以 开发console程序. 为什么要提到控制台程序呢,因为通过控制台程序你可以清晰的了解到一种编程语言运行的基本原理.Delphi也开发一样,我们不单单是 要知道点几下鼠标就能设置图形界面,但是程序运行的过程和基本原理…

续:软件项目量化管理(CMMI高成熟度)实践经验谈--之概述篇 二.项目管理过程 软件开发项目管理过程,从项目全视角来看,分为售前.售中.售后等三个大的阶段.本文所谈的是售中阶段项目管理过程,在售中阶段,项目管理主要分项目策划.项目跟踪监控.项目结项归档等三部分.相关活动包含销售活动.採购活动.资源活动.支持活动等. 1.项目策划 项目策划是一种具有建设性.逻辑性的思维的过程,在此过程中,总的目的就是把全部可能影响决策的决定总结起来,对未来起到指导和控制作用,终于借以达到方案目标. 它是一门新兴…

课程分四个大章节 初级篇,中级篇,进阶篇,高级篇 初级篇内容:编写一个完整的,简单的外挂 C++的数据类型:Byte,Word,DWORD,int,float API函数的调mouse_event,GetWindowRect,SetCursorPos,FindWindow,SendMessage) CE5.4工具的使用方法 中级篇内容:调试工具的使用技巧,功能CALL的概念 调试工具OD1.1的使用技巧(如硬件断点,条件断点,内存断点. 常用汇编指令与对应高级语言的转换. 游戏功能CALL概念…

http://www.cnblogs.com/railgunman/archive/2010/08/16/1801004.html Delphi关于记录文件的操作   本例子几个变量的说明TFileRec = record //记录定义Day : Integer;... //其他定义end;f : File of TFileRec;  //标准的输入/输出文件FilRec : TFileRec;    //记录数据FileName ;             //记录文件的名称关于记录文件的相关…

Delphi的table的RecNum属性,可以用来定位记录,如:self.Table1.RecNum:=23;即可以让数据库记录移动到23号记录上,但这种作用仅限于Paradox数据库,而不是dBASE数据库.如何解决这个问题,可以如下处理: unit DBTables; ... procedure TBDEDataSet.SetRecNo(Value: Integer); begin CheckBrowseMode; if (FRecNoStatus = rnParadox) and (Va…

Delphi 为TClientdataset定义结果集,并增加记录 procedure addDefsFieldsForCDS(aDataSet: TClientDataSet);begin  aDataSet.Data := null;  aDataSet.FieldDefs.Clear;  aDataSet.FieldDefs.Add('ID', ftString, 100);  aDataSet.FieldDefs.Add('CODE', ftString, 100);  aDataSet…

delphi adodataset ctstatic 数据是缓存在服务器端还是客户端 答:客户端,开启本地缓存功能后,就能数据在本地批量修改后,再批量提交,减少了网络传送   原创,专业,图文 Delphi中封装ADO之我重学习记录 - Delphi,封装,ADO,学习,记录 今日头条,最新,最好,最优秀,最靠谱,最有用,最好看,最有效,最热,排行榜,最牛,怎么办,怎么弄,解决方案,解决方法,怎么处理,如何处理,如何解决 keylife富翁笔记 作者: hongyuan标题: delphi中…

1. 起源 此问题源于[秋风人事档案管理系统]用Delphi XE重编译中所发现. 快十年了,当初Delphi 7所编写项目,想用Delphi XE重新编译,并打算做为Free软件发布,编译错误中发现此问题,感觉颇有些意思,遂记录下来,以做备忘. 自Delphi 2009之后我转做c#之WinForm界面开发,Delphi 2010之后未实际做过项目,因此至此才遇到此问题. 此时Delphi XE更新已至XE10版.因情结而不愿XE2之后的use方法,遂决定以Delphi XE做为工具,重整老项…

在Delphi cxGrid主从表中从表只能编辑第一条记录,这个问题是由于设置主从关联字段错误造成的. 从表DBtableView2的keyfieldnames,DetailKeyFieldNames和MasterKeyFieldNames 是关键:             MasterKeyFieldNames为主表关联字段,             DetailKeyFieldNames 为从表关联字段, keyfieldnames这里应该设置的是从表主字段,而不是跟MasterKeyFie…

关于用Delphi中的Indy控件实现收发邮件的几点学习记录             这几天心里颇不宁静,不是因为项目延期,而是因为自己几个月前做的邮件发送程序至今无任何进展,虽然一向谦虚的人在网上发贴总以“小弟”自称.也发过N多关于此类问题的贴子,但总是收益甚少,但也十分感谢参与贴子的各位同仁.必竟,用Indy控件实现收发邮件的例子太少了,于是小弟决定写一篇关于Indy收发邮件的文章,供大家参考.由于本人才疏学浅,故难免有不少谬误,还请各位见谅. 在做例子之前,应明白整个发送和接收邮件流程:…

作者QQ:(648437169) 点击下载➨Delphi阿里云短信             阿里云api文档 [Delphi 阿里云短信]是最新的阿里云短信接口,不是阿里大于短信接口,支持SendSms(发送短信). SendBatchSms(接口批量发送短信).QuerySendDetails(查看短信发送记录)…

delphi 中Adoquery ,在打开时能否让记录指针不移动?由于数据集Adoquery 时,它的针指称动会废时,能否在打开完成之前不让记录指针不移动.打开完毕之后再回复移动? 这样用:self.ADOQuery1.DisableControls;.........self.ADOQuery1.EnableControls; procedure refreshDataSet(daSet: TadoQuery); var tempBookmark: TBookmark; begin IF Da…

unit UntOpenMenu; //download by http://wwww.NewXing.com interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus,registry; type TFrmMain = class(TForm) MainMenu1: TMainMenu; F1: TMenuItem; open: TMenuItem; Recent…

首先需要说明,这个问题的出现需要几个前提:使用微软的Oracle驱动(使用Oracle自己的驱动不会出现这个问题).使用绑定变量法,使用Format等方式拼接SQL也不会出现这个问题,还有一些诡异的规律我还没有发现原因,将会在文中说明. 这个问题是工作中的一个功能模块出现的问题,但是我会在本文中通过一个程序重现这个问题,然后进行分析. 首先给出重现这个问题的简单的程序 首先为了重现这个问题,在程序开发时候配置TADOConnection,必须选择微软的驱动,如下图红框标记的第一个驱动就是微软的O…

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender:…

http://www.cnblogs.com/azhqiang/p/4050331.html 在进行数据库操作时, 我们经常会遇到批量向数据库中写入记录的情况. 在这里我提供3种操作方式:   1.  单条语句循环插入, 这是最笨的方法: for i := 0 to 100 do   ADOCommand1.Execute('IINSERT INTO .....')   //伪码, 只是说明意思   2.  多条语句批量插入, 将多条Insert语句拼成一条语句, 一次执行: for i :=…

功能:根据一条记录满足特定条件,使用不同的颜色进行显示. 来源:http://www.aliyagoo.com/blog 主要事件是在PrepareCanvas 不是DrawColumnCell 而且 DefaultDraw不需要设置 procedure TBills.DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;   Column: TColumn; AState: TGridDrawState); begin    if RD.…

DBGrid1.DragMode   :=   dmManual;//留意这个设置不要变 procedure ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); procedure TForm18.ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean);begincase   Msg.message   of          WM_LBUTTO…

procedure TForm1.btnDoSumClick(Sender: TObject);var  i: Integer;begin  if DBGrid1.SelectedRows.Count > 0 then  begin    with DBGrid1.DataSource.DataSet do    begin      for i := 0 to DBGrid1.SelectedRows.Count-1 do      begin        GotoBookmark(Poin…

CnPack  http://www.cnpack.org Alt+F11 ,添加引用,但是文件列表太多,速度慢,打开添加引用窗口后,工具栏有个hook,去掉hook就用IDE自带的速度很快! GE  http://www.gexperts.org/ ge安装完后最好把快捷键都去掉. 搜狗输入法的快捷键Ctrl+,  也去掉,因为Ctrl+, 是 {} begin end 配对跳转的功能. CnPack,调整菜单显示顺序,把历史文件调整到最顶端,第一个菜单. CnPack>Options>Wi…

Delphi XE10支持MongoDB的数据库,提供了个例子restaurants可批量导入数据. 本文对比Delphi例子与MongoDB自带的mongoimport导入批量数据的性能. 步骤: 1.运行例子前需要先安装MongoDB, MongoDB安装及运行mongod.exe,安装完成后bin目录中有mongoimport.exe,可将json批量数据导入到数据库中. 2.Delphi MongoDB例程数据库保存在: C:\Users\Public\Documents\Embarca…