Delphi中DBGrid控件的高级使用.pdf

2003耳2月电脑学习第1期

Delphi中DBGrid控件的高级使用

杜瑾

摘要阐述了TDBGrid控件的一些高级属性。利用此高级属性开发出一个功能较为强大的教据浏览程序。
关键词DelphiDBGnd控件高级使用

MakingAdvancedUseofDBGridinDelphi

DuJill

AbstractThisarticleintroducessomeadvancedattributes．bywhichapowerfuldatabrowsingprogrmnisdeveloped．

KeywordDelphiDBGridAdvancedUse

TDBGrid控件是Delphi开发数据库应用程序中，专门NewlApplication来新建一个工程，此时，系统会自动创建一
用来显示和编辑数据库表中的数据，它可以以网格的形式个空白窗体作为程序的默认操作区。根据程序需要实现的
显示数据库中全部记录的所有字段信息，并且还可以使用功能，需要往空白窗体中依次添加如下控件：一个Table对
它开发出一个可以支持多列选择的应用程序，可以说TDB—象Table1，一个TDataSource对象DataSource1，以及本程序
Grid控件是数据操作中使用最频繁、功能最强大的一个的需要用到的核心控件：DBGridl，在窗体中适当调整其布局；
控件。通过编程，可以灵活的控制该控件的显示属性，在本2、根据程序需要实现的功能，为Table1连接上一个具
文中，通过将该控件的DefaultDrawing属性值设置为False，有文本和图像的数据源，在此例中，我基们选择系统数据库
然后对它进行自定义绘图设置以便让它能够显示图片和文DBDEMO下的”events．db"，对Table1的属性作如下设置：
本文件，同时在选择某一行时，还可以以特别的标志突出显Table1．DataBaseName：=DBDEMO；釜
示该行，从而达到数据控制的目的。Tabk1．Tablename：=events．db；Table1．Active：=true：
操作步骤：3、双击Tablel，弹出字段编辑器，在其中单击右键以弹
1、关闭Delphi中当前所有活动工程，执行菜单Filel出菜单项，选择AddallField将表中所有字段添加到该编

Merlin．LanguagelD=&H409其运行结果图2：
显示角色
Me出a．Show
让角色讲话，其中pau为发言输出标志，即中间暂停1000毫秒

Merlin．SpeakHello!＼pau=1000kIa／iiMerlin．

Text1．Text=elcome!

EndSub

PrivateSubspkcmd_Click0
Merlin．SpeakText1．Text

EndSub

PrivateSubplycmd—Click0
Merlin．Playanlmation：=List1．Text
Merlin．SpeakText1．Text

EndSub

PrivateSubmovcmd
—Click0
Merlin．MoveTox：=Text2．Text，y：=Text3．Text

EndSub图2运行后的界面
PrivateSubuldcmd
—Click0
卸载动画人物
，参考文献
AgentI．Characters．Unloadmedin"

EndSUb1．http'／／www．microsoft．coin／

杜瑾南京陆军指挥学院训练模拟教研室助教(210045)收稿日期：2~2-09—05

·29·

辑器中，然后选中Event_Photo字段，设置其Visible属性为件页面，编辑其对应的事件：当需要获取数据以显示时
False，使其在DBGridl中不被显示出来。在其中拖动各项(OnGetText)，即将Event_Description字段中的相应内容赋
字段可改变它们之间的相对位置，这个位置就是DBGridl给列表的Text，其实现代码如下：

procedureTForm1．Table1Event
中的显示顺序。最后我们选中DBGridl，将其DefauhDraw-_De．scriptionGetText(sender：．TField；
ing属性值设置为False一这是本程序需要实现的所有功能v8rText：String；DisplayText：Boolean)；
的前提，所有的工作都必须在此条件下才能实现，还应将begin
text：=table1．fieldbyname('Event_Description)．AsString；
该控件与TableI连接起来，即DBGrid1．DataSource：=Data-
end；
Source