癫狂编程

摘要： 预先在 DBGrid 加一列，baiTitle为 “ID”。然du后：在事件中添加“DBGridDisplayDrawColumnCell”参考我的内容自己zhi改吧！我也dao是看别人的，实现了！ 图 procedure TForm1.DBGridDisplayDrawColumnCell(Sen 阅读全文

摘要： unit DBDateTimePicker; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls,DB,DBCTRLS; type TDBDateTime 阅读全文

摘要： 八、数据敏感控件的制作。 Delphi的一大亮点就是它的数据库开发能力。而数据敏感组件则在这中间起着很重要的作用。在Delphi的Data Control页面下的控件都是用于显示和编辑数据库中的数据的。相信大家已经体会到数据敏感控件的好处了。我们这一节就给大家演示一下数据敏感控件的开发方法。 需要提 阅读全文

摘要： 刚才真正明白了Delphi中的TDateTime类型，实际上为一个浮点数，因此TDateTime类型的两个变量可以进行浮点数的大部分操作，对于小数部分可以使用minuteof输出它的分钟数，负小数取补后转化为分钟数。并且可以通过TDateTimeToStr,StrToDateTime可以方便与str 阅读全文

摘要： 下面是一个在DBGrid1按回车键的 procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); var EndCol : Integer; begin EndCol := DBGrid1.Columns.Count - 1; 阅读全文

摘要： 在一个Dbgrid中显示多数据库 在数据库编程中，不必要也不可能将应用程序操作的所有数据库字段放入一个数据库文件中。正确的数据库结构应是：将数据库字段放入多个数据库文件，相关的数据库都包含一个唯一的关键字段，在多数据库结构里可以建立联系。 例如：要编制一个人事管理程序，为简化演示程序，只建立两个数据 阅读全文

摘要： 我试了一下，发现DBGrid对Enter键不响应？怎么解决呢？请高手指点！ Form->KeyPreview==true;寫在Form Down 里if (Key==VK_RETURN)Key=Tab; DBGrid里面的属性option不是有一个设置选项的呵！ 在DbGrid的KeyDown中if 阅读全文

摘要： procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then //如果是一个Enter键盘 begin if not (ActiveControl is TDBGrid) then //如 阅读全文

摘要： 如果希望回车键从左向右移动，到最后一列时到下一行的第一列，则可在DBGrid1的OnKeyPress事件中加入如下代码： if Key=Chr(VK_RETURN) then begin if DBGrid1.SelectedIndex<DBGrid1.Columns.Count-1 then DB 阅读全文

摘要： procedure TfrmBorrow_Edt.edtBalanceKeyPress(Sender: TObject; var Key: Char); begin if (key = #13) then begin Perform(WM_NEXTDLGCTL,0,0); end; end; 阅读全文

摘要： 在onkeypress事件写如下代码：if key=#13 then begin keybd_event(vk_tab,0,0,0); keybd_event(vk_tab,0,keyeventf_keyup,0); end; 阅读全文

摘要： 示例： if Key = 13 then //回車後跳到下一格 with TDbgrideh(ActiveControl) do begin if Selectedindex < (FieldCount - 1) then Selectedindex := Selectedindex + 1 els 阅读全文

摘要： 看到一篇介绍ClientDataSet和TDataSetProvider，非常精彩，特此保存。 TClientDataSet用法第十一章 TClientDataSet 与TTable、TQuery一样，TClientDataSet也是从TDataSet继承下来的，它通常用于多层体系结构的客户端。TC 阅读全文

摘要： 我在Delphi中使用查询获取数据,并希望在运行之前向查询添加计算字段.计算字段使用代码中的值以及查询,因此我不能仅在SQL中计算它. 我知道我可以附加一个OnCalcFields事件来实际进行计算,但问题是在添加计算字段后查询中没有其他字段… 我做了一些挖掘,发现所有的场定义都是创建的,但实际的字 阅读全文

摘要： 通常的写法是把各字段都加死在数据集,然后再在数据集的某个字段选中某个字段的OnChange事件,最后才在此事件中添加代码. 但是我现在想写一种比较能常的写法,不管数据集有哪些字段,我只要自定义一个事件能触发它,而不需要将字段添加到数据集内不知各位有什么高见,是不是要通过拦截消息才能做 TDateSe 阅读全文

摘要： 向代码中增加方法和数据字段（Adding Methods and Data Fields to Code） 现在可以看出，在快速创建Windows应用程序的UI（用户接口）部分，Delphi是一个强有力的工具。它创建了事件处理程序，因而编程人员可以输入代码驱动其应用程序。但不久将会发现，需要在实际应 阅读全文

摘要： 1. 去掉cxgrid中抬头的box,在tableview1的ptionsview的groupbybox=false; 1.1类似PageControl显示 解决：增加一个Level,将cxGrid1->RootLevelOptions->DetailTabsPosition设为dtpTop， 然后 阅读全文

摘要： 如何捕捉CxGrid的双击事件？就像DbGrid一样，双击某一行就触发Dbgrid的OnDblClick事件。CxGrid的TableView有OnDblClick及OnCellDblClick事件，但双击某一行时不触发这两个事件，反而在CxGrid内，数据区外双击就触发OnDblClick事件，很 阅读全文

摘要： (注版本为DevExpr_v46) 1. CxGrid汇总功能 ① OptionsView-Footer设置为True，显示页脚 ② CxGrid的Summary选项卡定义要汇总的列和字段名及汇总方式，Footer选项卡定义单个汇总，Default For Groups定义按组汇总。OptionsV 阅读全文

摘要： TField对象的SetText和GetText事件处理函数 使用TField对象的SetText和GetText事件处理函数可方便的解决字段的代码与代码所对应值的显示问题 TSimpleDataset/TClientDataset对象的Aggregation 使用TDataset对象的Aggreg 阅读全文