癫狂编程

摘要： procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then //回車後跳到下一格 begin with TDBGrid(ActiveControl) do if SelectedI 阅读全文

摘要： eclipse版本： eclipse-java-oxygen-R-win32-x86_64.zip name=Eclipse Platform id=org.eclipse.platform version=4.7.0 解决办法：为当前的eclipse安装Java EE开发插件 点击菜单栏的 Hel 阅读全文

摘要： procedure Tfrm_rk.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then { 判断是按执行键} if not (ActiveControl is TDbgrid) Then Begin { 不是在 阅读全文

摘要： property ButtonSize: Integer read FButtonSize write SetButtonSize default 0; property Color: TColor read FColor write SetColor default clBtnHighlight; 阅读全文

摘要： // // 功能：返回表字段在 DBGrid 列中的序号，首序号为0// 参数： pDbGrid:TDbGrid; DBGrid// pcFieldName : string 数据表字段名， W{ifT03垠%h[ 字段名不区分大小写// 返回：当表字段在 DBGrid 中存在时，返回表字段所在的列 阅读全文

摘要： // 功能：将 DbGrid 当前列定位到某字段上。 // 参数： pDbGrid:TDbGrid; DBGrid // pcFieldName : string 数据表字段名，字段名不区分大小写 // 返回：当表字段在 DBGrid 中存在时，返回表字段所在的列的序号，首序号为0 // 否则，返回 阅读全文

摘要： var i: integer;begin for i := 0 to DBgridEh1.columns.count - 1 do begin if DBgridEh1.columns[i].FieldName = '你想要的' then DBgridEh1.columns[i].Visible : 阅读全文

摘要： for i:=0 to dbgrid1.columns.count doif dbgrid1.columns[i].caption:='字段bai名duzhi' thenbeginx:=i; //第daoi列break;end; 阅读全文

摘要： 在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的 阅读全文

摘要： procedure xxx.xxx; var colName : string;Col:Integer;bm:TBookmark; begin bm:=adoselect.GetBookMark;//获取目前ado的行数 colName := cxGridDBKCSL.Controller.Focu 阅读全文

摘要： 在ClientDataSet中静态添加字段很容易，但是要在ClientDataSet已经获得数据打开了数据集的情况下添加就麻烦了。下图为在已经取得数据的情况下动态添加字图，请看最后列: ********************************************************* 阅读全文

摘要： ClientDataSet中每条记录都有UpdateStatus=(usUnmodified, usModified, usInserted, usDeleted)记录该条数据是修改的，删除的，还是新增的等。有时候我们只想看修改的或新增的或删除的就可能用到这一属性。下图用计算字段显示UpdateSt 阅读全文

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

摘要： 承上一篇. 我们来做个简单的数据库连接测试. 在上个学习的基础上,我们打开Server的ServerMethodUnit1模块,在设计界面放上三个控件: SQLConnection1: TSQLConnection;SQLDataSet1: TSQLDataSet;DataSetProvider1: 阅读全文

摘要： bai1、行号不能做关键字； du2、先排序 3、更新时，给zhi行号字段重新编号； daoClientDataSet.First; while not ClientDataSet.eof do begin ClientDataSet.edit; ClientDataSet.FieldByName( 阅读全文

摘要： 自动增长字段: //建立方法一: begin with ClientDataSet1 do begin FieldDefs.Add('ID', ftAutoInc); FieldDefs.Add('Name', ftString, 11); CreateDataSet; end; end; //建立 阅读全文

摘要： 1楼: 数据库为SQL Server2000,表结构为： djbh char 10 单句号　主键 sort int 序号 sn： int 排列号　主键 spid char 40 商品ＩＤ shl decimal 数量 ...... 使用 Query->DataSetProvider->ClientD 阅读全文

摘要： 程序中也不用循环呀给该DBGrid对应的数据集控件如AdoDateSet增加一个计算字段，类型为Integer然后在该字段的OnGetText事件中写上： Text := IntToStr(AdoDateSet.RecNo)；这一句代码就行了 procedure Tkcspmxbform.Query 阅读全文

摘要： procedure TForm1.DBGrid1ColumnMoved(Sender: TObject; FromIndex, ToIndex: Integer); begin if FromIndex = 0 then//这里可根据你得情况设置,这里是不运行拖动第一列 begin DBGrid1. 阅读全文

摘要： cxGrid设定字段类型为CheckBox 1：设定OraQuery属性 CachedUpdates设定为True； 双击打开OraQuery，选中Update SQLs页面，Insert、Updates和Delete对应的输入框中输入相应的SQL语句； 2：设定cxGrid字段类型和属性 首先，选 阅读全文

摘要： 不知道大家有没有多次安装Delphi不同版本，丢失文件关联的痛苦经历，昨天俺就遇到一回。 我的机器上先装了Delphi6，之后又装了Delphi2006，昨日将Delphi2006卸载后，Delphi相关的.dpr、.pas等文件都既不见了图标又失去了关联，Delphi6没有自动恢复文件关联的功能f 阅读全文