癫狂编程

Delphi XE5的新功能“ TListView内置搜索过滤”

摘要：在窗体的OnCreate事件中初始化TListView项。 procedure TForm1.FormCreate(Sender: TObject); const Books: array [0 .. 4] of string = ( 'Delph abc', 'Delphi XE2入门', ' b 阅读全文

posted @ 2020-11-20 10:26 癫狂编程阅读(369) 评论(0) 推荐(0)

可能是全网最全的解决摄像头无法创建视频捕捉过滤器问题？

摘要：请先关闭杀毒软件1.运行注册表Regedit程序， 2.一直点击到 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class{6BDD1FC6-810F-11D0-BEC7-08002BE2092F} 3.右侧找到的 UpperFilters 阅读全文

posted @ 2020-11-19 18:35 癫狂编程阅读(3663) 评论(0) 推荐(0)

Delphi – TDataSet确定它是否在插入/编辑状态时被修改

摘要：当数据集已处于插入状态时,如何确定数据感知组件字段是否已被修改？我想知道一个字段是否“真正”修改过. (我不在乎用户是否在某个字段中输入了某些东西,然后删除了所有内容,这意味着发生了修改). DataSet.Modified,DataSet.UpdateStatus或ChangeCount没有解决我阅读全文

posted @ 2020-11-18 11:30 癫狂编程阅读(621) 评论(0) 推荐(0)

Delphi 获取DataSet传入参数后的SQL命令

摘要： ClientDataSet1.CommandText := sSQL; ClientDataSet1.Params.Clear;ClientDataSet1.CommandText :='SELECT * FROM test WHERE ID=:TID and Code=:Code '; //传参后阅读全文

posted @ 2020-11-16 19:59 癫狂编程阅读(303) 评论(0) 推荐(0)

TClientDataSet[7]: 辨析 Field、FieldDef、Fields、FieldDefs、FieldList、FieldDefList

摘要： TFieldTFieldDefTFieldsTFieldDefsTFieldList、TFieldDefList Assign AssignValue Clear FocusControl GetData GetParentComponent HasParent IsBlob IsValidChar 阅读全文

posted @ 2020-11-16 16:21 癫狂编程阅读(613) 评论(0) 推荐(0)

枚举HasFlag函数实现的内部逻辑是什么

摘要：有人可以帮我理解一个枚举类的HasFlag方法的内部逻辑吗？首先让我解释一下我的要求.我已经创建了一个带有flag属性的枚举,然后使用HasFlag()函数从位标志值中获取选定的组合.但是这里我的要求是不同的.我的数据库中有一个表,其中列出了不同的枚举值.结构如下. EnumTypeID EnumV 阅读全文

posted @ 2020-11-16 16:07 癫狂编程阅读(230) 评论(0) 推荐(0)

在DBGrid中用代码实现按回车键跳到下一格的方法

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

posted @ 2020-11-15 23:45 癫狂编程阅读(251) 评论(0) 推荐(0)

eclipse下没有Dynamic Web Project的处理方法

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

posted @ 2020-11-15 21:58 癫狂编程阅读(397) 评论(0) 推荐(0)

怎样解决回车、Tab键在DBGrid表单元格的移动问题？

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

posted @ 2020-11-15 19:54 癫狂编程阅读(205) 评论(0) 推荐(0)

编写Delphi控件属性Stored和Default的理解及应用

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

posted @ 2020-11-15 18:19 癫狂编程阅读(552) 评论(0) 推荐(0)

Dbgrid 中表字段所在的列序号

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

posted @ 2020-11-15 18:08 癫狂编程阅读(216) 评论(0) 推荐(0)

将DBGrid 当前列定位到指定的字段上

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

posted @ 2020-11-15 18:02 癫狂编程阅读(104) 评论(0) 推荐(0)

DBGridEh，如何通过字段名查找列？

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

posted @ 2020-11-15 17:59 癫狂编程阅读(485) 评论(0) 推荐(0)

delphi dbgrid 知道字段名如何知道是第几列

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

posted @ 2020-11-15 17:56 癫狂编程阅读(279) 评论(0) 推荐(0)

DBGrid 各属性的设置

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

posted @ 2020-11-15 17:51 癫狂编程阅读(546) 评论(0) 推荐(0)

Delphi 获取选中的行或列，选中到某个行数

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

posted @ 2020-11-15 17:16 癫狂编程阅读(483) 评论(0) 推荐(0)

ClientDataSet中动态添加计算字段

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

posted @ 2020-11-15 17:09 癫狂编程阅读(281) 评论(0) 推荐(0)

ClientDataSet中动态添加计算字段并用计算字段显示记录的UpdateStatus

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

posted @ 2020-11-15 17:04 癫狂编程阅读(332) 评论(0) 推荐(0)

TClientDataSet[9]: 计算字段和 State

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

posted @ 2020-11-15 14:35 癫狂编程阅读(181) 评论(0) 推荐(0)

Delphi2010 DataSnap 学习(二)

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

posted @ 2020-11-15 14:31 癫狂编程阅读(164) 评论(0) 推荐(0)