DELPHI 表格控件DBGridEh史上最全使用资料 DELPHI 表格控件DBGridEh史上最全使用资料
白波九道整理直用版 1)页即合计… 2)定制表格底〔 tooter)区域的汇总统计行.38 3) TDB Sumlist说明-… 4)如何工作以及为什么有时 Sumlist的集合值计算不正确? 5) dbgrideh列求和..39 5.数据功能… 40 1)査我字段点击某列值的下拉按紐弹出一^从数据库取值下拉列表…40 )使用 DBGrid自动过滤实现方法…..4 3)使用 DBGrideh自动过滤实方法2 4) DBgridEh控件中使用过滤功能(适用ehib52chb53)42 5)支持模糊查询..111-43 6) ehlib4.4.50牛支持模糊匹配的修改方法… 4““““私山4缸4“““ 7)EhLi5.Buld50.13的过滤字串郭是模过滤倦改…1045 8)滚动条滚动时选择不变,还有自动过滤功能的实现…----45 9)增量溲索…… “““ 10) ehlib总是按两次ctn4f才出来查找框,怎么办?46 l1)如何改良 dbgrideh的文字过滤.1:46 12)改进 DBGrideh表头点击自动排序实现双击状态轮流.47 13)改灵Ehib的排序功能加快排厅速度 14)在 DbGndeh中显示 Tree view数果50 15) DE gride- Keylist、 Picklist.…..151 16)主从表设置 .,---+---+---- 53 17)在 DbGridEh中显示表中表.55 6.输入/出... 56 1)导入导出数据.1---1-1111256 2)从多冲格式导入/导出数据到 TDBGrideh 翻和ga 3) DBGRID生成 EXCEL报表 444444.44444E44444444∴2 4)使用 TPrintDBgrideh组件.61 5)打印时确定Ehib定义的报表表头颜色261 6)Ehb中的 PrintDBgridEh如呵印页码,即第儿共儿页…… 62 7)怎么让 PrintDBgrideh只打印 DbGridEh中指定的列…62 8)怎样进行横向打印/打印预览? “心“““私““““私“以回“ 7.将存在的 DBGrid组件转换为 DBGridEh组件 …652 、 ElI h安装问题…-64 1. Ehlib安装步骤 2. Ehlib安装问〔 dbsumlst, dcu出错), 3.安装提示找不到BPL文件 四、 De I p hi下的优秀表格(Grid)显示控件----65 L TextGrid 2. TopGrid3.01....... 65 3. XLGrId.….111111111111111166 4. DevExpress Express QuantumGirid .aa. 5. TMS Grid Pack 6. Ehlib-..11-171 第3页 白波九道整理自用版 白波儿道整理自用版 7. Profgrid 444“““““ 8. Easy Grid ..... L暮 ……71 五、 del phi中配置文件的使用(a,ini) 六 窗口动画效果 Animatewindow应用 Delphi Excel to Sql Server. 八、 Delphi控制Exce的经验如下: 76 一、 DBGrideh(增强型表格组件)功能详解 DEGRI DEE是Enib3.0组件包中的组件之一。Enib3,0组件包是一位俄国人为增强 borland系列开发工具功能而开发的笃三方红件,它具有界面友好、功能强大、开发效率高、、 快速制作预览打臼简单中国式报表等特点。因此,一推出即受到广大Br1and程序员的青 睐:目前这个版本支持 Borland Del phi versions4,5,6&?和 Borland c+ Builder VersIons4&5,可极大地提高数据库应用系统客户端的性能。许多商品敦件如《速达200》 等都使用了该组件。下面本人将使用亥组件在实际系统开发过程中的经验总结如下。 NEGri d點h组件无论在外观上还是功能上都非常类似Br1and开发工具中现有的 nhgri d组 件,它除了提供 dbgrid組件的全部功能外,还增加了下列新功能 ●任意选择多行、列或矩形区域的数据 ●为多列标题设定共同的父标题行 ●表格底部(Pa:er)区显示求和、汁数和其它统计信息 自动调整组件宽度与客户区域等宽 ●设置标题行、数据行的高度 ●超长的标题行、数据行文本自动折行处理 ●标题行可作为按钮使用,并可选择是否显示排序标志符(V降序△升序 ●点击列标题可对当前列自动排序而无需编写代码 ●能够自动设置除超长文本显示不下的多余部分,并以省略号(…)代替 ●自动搜索字段(Lkp)数据单元格以单、多列字段下拉列表形式显示 鲁自动搜索字段(Lkp)数据单元格可进行增量搜索 ●可锁定任意列数在屏幕水平方向不滚动 鲁日期时间控件 Date li me picker可支持 TDate field and TDat e ti me field两种日期格式 鲁根据字段不同值显示关联的1 ma ge li s t对象图片组中的图片, 隐藏任意列 鲁显示3D风格的数据区、表尾区和鲎定滚动列,制作3D外观表格 ●显示№m类型宁段值 除B00LEAN型数据外,其它数据类型也可以检查框( checkbox)形式显小数据 使用专门的函数和过程来存取以rg或ini文件格式保存的表格布局(包含各数据列表、 数据列访问顺序、列宽、索引标识、行高等信息〉文件 ●通过设置数据单亓格的hnt和 Teal Ti ps属性,当移动鼠标到该单元格时,可以显示单 元格容纳不下的文本内容 第4页 白波九道整理自用版 白波儿道整理自用版 ●将组件中数据导入导出到Text,Cs,ⅢM,RTF,S和内部数据答多种格式的文件 中 、应用实例 nib3.0组件包安装成功后,在系统的组件面板中会显示“ enli h”组牛包标签,添加 NEGri deh到窗体的方法与其它组件一样。在窗体中添加该组件后,请跟我起来实现图2 的一些特殊效果,具体属性设置请参考属性表的说明。 1.定制标题行 1)制作复杂标题行 标题行可设为2行以上高度,并可以为多列创建一个共同的父标题行。为实现这个效果, 需在各个列标题属性中以“|”分隔父砾题和一标题,如办公用品包括代码和名称两部分, 具体属性设置如下: semi tititile=true: timelines=2 nEGri dehe. Col ums01. Title. Caption:='办公用品代码; NEGri deh, Col us1. Title, Caption:='办公用品|名称 2)按钮式标题 设置Colm, Title. litle but tor为Ile可以强制标题单元为按钮式。写 0 nti Ti e Bt n click事件来控制用户单亡标题单元时的操作 标题行显示图片 实现图2中的购买人标题行显示效果。首先添加一个 i magelis t组件im1并在其中添加 组bm,ic0格式的图片。然后将Drid的置 i elates设置为ing1.最后在需要显示图 片的列标题的 imageindex中设置需要显示的ing1+图片的序号。孩9执行一下程序,是 不是很酷! 4)如根据不同状态在数据单元格中显示相应图片 如根据库存材料的不同状态在数据单元略中显示相应图片,具体设置如下: 添加个 imagelist组件img1并在其中深加组bmpc格式的图片,然后将需要显示图片 的列的 imagelist属性设置为img1;在 keylist属性中添加实际数据存储值,一行为一个值, 第5页 白波九道整理自用版 白波九道整理自用版 切记一定要与 imagelist中图片顺序对应,否则会张冠李戴,面目全非。还可在 picklist 中添加提示信息,也要求是一行为个值。并设toi为tue,那么,运行时当鼠标移动 到该数据单元格时在显示图片的同时不显示提示信息,怎么样,功能够强大吧!可使用空 格键或鼠标切换下一张图片,图片切奂的同吋乜改变了实际存储数据值。也可通过 shift+ 空格或鼠标切换为上一张图片。这样就实现了上下个方向图片切换。 5)自动显示标题行的升降排序标志符(V降序△升序)并做相应排序 DEGri deh组件可以在标题行单元格中显示小三角形升、降排序标志符图片,在运行时可点 击标题行,图片自动切换許做相应排序。具体属性设置如下: Options Eh=-dghiu: o Sort Ma ki ng Col amn, title, tit. e Button=true Sort marked col amns为当前排序列可车运行时使然后在该列的 tItle e k事件中添 加代码: rocedure TForm. Query DB Gr i dEhITitleBt nCli ek( Sender: TOhjec1: ACol: Integer; Col amn: TCol umEIl 乱r s0 rt s t ring: string;H/排序列 /进行排序 with Cul amn do if Fi el dName then Exit: case title, Sort Marker af Title. Sort marker ;= s mDo wnEh s4rfstring : Coi unn, Fi e I dNa. AsC i end smDonEh: sortstriug:= Col umm Fiel d Na me +AsCt smUp Eh: sortstriag : CoI umn, Fi el dNa me DESC /进行排序 trT dat aset.Sort:= sortstri ng/ dataset为实际数据集变量名 except end: 第6页 白波九道整理自用版 白波九道整卫白用版 end: end 切记 I workup型字段不可做上述设置,套则系统会提示错误 另外,组件说明书屮提到不需嬰编写代码即可自动排序,但是不缩写代码自动排序方法我 还没找到,有知道的眀友烦请告诉我一古啊!让我也对程序代码进行“减肥” 3.2定制表格底部( woter)区域的汇总績行 DEGri deh组件可以在表格底部显示汇总行,如记录数合计、列字没累加和等信息。在 ter RowCount中设置底部显示的行数:然后在Ftr;编辑器屮添加一个或多个显示列, 显示列可以是字段值累加和、记录数合计、字段值或静态文件等集合类型,可以在设计时 在 Val ue ty pe属性中设置,也可在运行时通过设置Fers[il, Val ne type指定其类型。其 含义见下表 切记设置 DBR i dely. Sumli st, Acti v为Irue,才会进行汇总統计运算。带注意的是,如显 示类型为不是当前列的累加和,则需车 fieldname属性中指定汇总列,其它类型则无此要 求 点 dbgrideh标题排序 在网上看了许多这方面的技术资料,啰索而麻烦,其实就这么几行搞定: procedure Sortigrid: TDBGri dEh]: Grid Options Eh Grid Opt Eh [dgh Aut oOrt Mar ki ng I Grid. CuI umn Def Va nes, Tit t, Title Button s True Grid Options Eh Grid Opt ions Eh +[dghhlti Sort Marking]: Grid, Sort Local: =T /功能:设定助id政h合计行信息 /参数:p助 )h Gr i4: TDBGri deh; pc Fields string i 字段列表,字段用逗号分隔 / prt Type: FOoter val ue Type;统计类型 FOoter Typu=(fηtNn, f rt Su皿 fytAvg, fvt Count, ivt Fitl dVal ue, fst St atic Test); /引用: str Tostringlist /例如: Dbgri t( Dh Gri dehl, Number,Sum, f rt sum):设定数量和金额字段为 合计统计 Procedure Db Gri dEh Foot( pDb Gri d: TDi Gri dEh; peFields: string: pvt Type: Looter Val ue Type y 第7页 白波九道整理自用版 白波儿道整理自用版 var nFldLuop integer ciel dName i str: ny I mp Fl dList Tatri1ys p Dh Gr i d. Footer ro ncount;=1;定网格尾部统计行行数 p Db Gr i d. Sumlist,scit:=true;活統计 p Db Gr i d. Footer ol or;= ( Bt face;指定统计行颜色 t mp Fl dLi st TSiringlist, Creat e: Str ToSt ringList( Uppercase(peril ds),',', t mp FI dLi s t};//将字符串转换为串列表 For nfl dLoop to pDb Gr id Col tmns Count 1 do c Fi el d Na me:= p) Gri d, Columns[nfl dLoop]. Fiel dname;//网格列字段名 if t mp FI dLi st, Indexof( uppercased ( Fiel dNa me))>=0 thei p Dh Gr i d, Col ums afl dLoopl. Footer. Val ueType: prt lype;/统计类型 end i t mp Fl dList. Free “= //功能:将指定分隔符分隔的字符串转换为字符串列表。 /此函数在需要将 /参数: / pe St ring: string;字符串 pe Char: string;分隔符 p Des Li s t:rs: ringLi s t字符串列表 /例如 // ar t mp Fl dLi s:: TStr ing / tmp FI dLi st:: TSt ng Li st Create / StrToStringlist: Lpptrease(pefitlds),',', tmp Fl dList / tmp Fl dLi st Fre 第8页 白波九道整理自用版 白波儿道整理自用版 Procedure Str ToS ringList( prStrins, pe Char: string: p De s List TString Li st y overload; var cAddStr, cSreStr string nPos integer i g In p De s List. Clear r Str peStering i while true do nPos:= pos( pc Caar, tSrcstr )i if apos=自then p De s List. Add( cSicitr)i Exit i el se begin cAd dStr : cop( cSrestr p Desli st. Add( cAddStr)i Deletel eSrcstr, L, nPos +length( pe Char ).1); /Splits a deli mited text line into IStrings (dues not account far stuff in quotes but it shoal d) procedure Split(aval ue: string; a Del i mi ter: Char; var Re sal1: STrings); X: Integer s: string: if result nil , han Res alt s Stri s t /! Res ul t, Clear S:= for X:=I ta Lengt h( a val if a value[ x] < aDli miter then a eIse 第9页 白波九道整理自用版 白波九道整理自用版 Regal t, Add(s) hen salt. Add( s procedure Tf r mBd Det ail. DBGr i dEhl Dre wCol umm Ce ll( Sender: ROject const Reet: TRee:: Dat a col: Integer: Col amn: ICol umm Eh State: TGr i d Dra wst it e); if adoquery1. fie byname('合计数量!), As Integer adoquery1 fiel dbname('KC) As lnteseI t he n Sender as TDB Gr: dEH). Canvas. Brush Color : 5008080FF; end DBGri dEhI. De f aul: Dr a w Col umn Cel I( Rect, Dat a Col, Cal amn, St at) end 200711.1617:18:5)(*幸事卓南春南有本本故南幸春] 格式显示 版权所有(C)2407咏南工作室(陈新光) u Dat apr DR dure Set Di s l ay Format ADataset: TDat a se mp l e me nt at i an Set Di sl ayFormat( ADat aset: TData Set): TaI i: lat for i:=0 to dAtaset fieldcount 1 do bi with DAtaset do hagi n 第10页 白波九道整理自用版