癫狂编程

摘要： TClientDataSet 中计算字段有两种: Calculated(计算字段)、InternalCalc(内部计算字段).两者区别是: Calculated 在每次需要时都要重新计算; InternalCalc 只需要计算一次.Calculated 需要计算的时间, InternalCalc 需 阅读全文

摘要： SELECT DISTINCT a.*,ISNULL(c.client_net_address,'') AS client_net_address FROM ( SELECT * ,RIGHT(UPPER(sys.fn_varbintohexstr(CONVERT(VARBINARY(4),CAST(SUBSTRING(clientid,1,3) AS INT... 阅读全文

摘要： 选择菜单 Tools－－Environment在打开的对话框中选择 Designer 页，选 其中的 Options 选项勾选 Show component captions ，点击 OK即可 阅读全文

摘要： procedure TForm1.ClientDataSet1NewRecord(DataSet: TDataSet); begin ShowMessage('你好'); ClientDataSet1.First; while not ClientDataSet1.Eof do begin ClientDataSet1.Edit; ClientDataSet1.F... 阅读全文

摘要： 当需要根据外部输入的参数来决定要执行的SQL语句时，常常需要动态来构造SQL查询语句，个人觉得用得比较多的地方就是分页存储过程和执行搜索查询的SQL语句。一个比较通用的分页存储过程，可能需要传入表名，字段，过滤条件，排序等参数，而对于搜索的话，可能要根据搜索条件判断来动态执行SQL语句。 在SQL 阅读全文

摘要： procedure TMSWageEdit.aqyMSWageEditCalcFields(DataSet: TDataSet);begin inherited; with DataSet do if RecNo =-1 then FieldByName('计算字段').AsInteger := 1 阅读全文

摘要： 软件提示“没有活动事务”，原因：使用事务时 Trydm.ADOConnection1.BeginTrans;1、 sql语句 dm.ADOConnection1.CommitTrans; 2、 代码出现异常 excetp dm.ADOConnection1.RollbackTrans;end;如上所 阅读全文

摘要： 我们有一个Delphi的数据库应用程序,上面有个DBGrid和一个数据集： DBGrid是用来显示来自数据集（查询或表）的数据，根据设计,当您调用已经打开的数据集的Refresh方 法（例如使用DBNavigator的Refresh），当前行的位置将被设置为0 （第一个记录）。 这意味着，如果用户选 阅读全文

摘要： ClientDataSet.First;while not ClientDataSet.eof dobegin ClientDataSet.edit; ClientDataSet.FieldByName('行号字段').asInteger := ClientDataSet.RecNo; Client 阅读全文

摘要： DBGrid使用起来还是很方便的，但就是没有显示记录序号的功能，必须自己加，参照老外给的解决方案如下： 方案1： 1- 在DBGrid建一个第一列 (列的名字起“NO”) 2- 在DBGrid事件 DrawColumnCell 下加如下代码 阅读全文

摘要： var IsHave:Boolean; begin adoquery.first; while(not adoquery.eof) do begin if(adoquery.fieldbyname('列名').asstring="用户添加的值") then begin IsHave=True; break; end; adoquery.next; end; if(IsHav... 阅读全文

摘要： 在 win7下可能报错请大家按下面的方式 delphi7运行不正常的提示unable to rename'c:\program files\Borland\delphi7\Bin\delphi32.$$$'to'c:\program files\Borland\delphi7\Bin\delphi3 阅读全文

摘要： procedure TForm1.Table1CalcFields(DataSet: TDataSet); begin table1.FieldValues['no']:=table1.RecNo; end; //聲明全局變量i procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; ... 阅读全文

摘要： ClientDataSet字段不能进行编辑时的解决方法： procedure ModifyClientDataSet(const YesOrNot: Boolean; cs : TClientDataSet);var i : Integer;begin // 当 YesOrNot 为 true 时为 阅读全文

摘要： 以下不保存证正确 Query用SQL语言执行过的，没有必要Cancel、Post，因为其会对数据库直接操作；执行Update、Insert、Delete请用SQL语句； 用Table使用对当前记录直接操作，也许会有用，Cance、Post会起作用；执行Update、Insert、Delete，可对当 阅读全文

摘要： 本论文主要是通过三天来讲解三层的结构，今天是第一天，先讲解一下delphi下的Models层，我主要封装了两个查询得到数据集的函数，主要是通过在表示层上创建的数数据集控件传递进来，通过业务逻辑对语句的处理进行操作数据集，最后提交数据集的数据到数据库中去，进而想成delphi中的假三层，这样做能够独立 阅读全文

摘要： ADOquery属性中cursortype属性 2009-03-24 8:47 ctOpenForwardOnly 向前移动 - — 除了只能在记录集中向前移动以外，其它的和动态游标类似。 ctKeyset 键集 – 不允许查看其他用户添加的记录和访问其他用户删除的记录。 ctDynamic 动态 阅读全文

摘要： delphi那些默认图标在哪里就是那些Text,Label,Checkbox，显示在palette上面的那些图标。 上面的按钮是在ActionManager中添加的，让后拖到ActionToolBar上面的，类型是TAction 阅读全文

摘要： 序号的自动生成1.定义变量 private maxno:integer; public bmodified:boolean;2.写函数 function max(const a,b:integer):integer; begin if a>b then result:=a else result:= 阅读全文

摘要： 路径指文件存放的位置，在网页中利用路径可以引用文件，插入图像、视频等。表示路径的方法有两种：相对路径，绝对路径。以下讨论均是在HTML环境下进行。 相对路径 相对路径是指目标相对于当前文件的路径，网页结构设计中多采用这种方法来表示目标的路径。相对路径有多种表示方法，其表示的意义不尽相同。表示方法如下 阅读全文