DBGrid组件插入技术及其在数据录入中的应用.docVIP

DBGrid组件插入技术及其在数据录入中的应用 [日期：2006-05-17] 来源：? 作者： [字体：大 中 小] 姚翎 付勉 袁宏武 ? ? 摘要：本文介绍了Delphi6.0中的组件插入技术，并且以学生基本信息的输入为例详细讲解了实现过程及其应用。 关键词：组件 属性 事件 ?? ?在数据库应用系统中，数据录入是必不可少的基本功能，数据录入功能的优劣自然相当重要。Delphi为用户提供了功能强大的DBGrid组件，我们在实现数据录入时也经常采用到它。DBGrid是一个数据感应控件，所以，如果仅仅是利用DBGrid组件提供的缺省选项，那么获得焦点网格(Grid)的只能是文本编辑框，这就使得数据录入的功能也受到了限制。利用在DBGrid中插入组件技术便可克服上述不足，从而使DBGrid组件的功能得到扩展。 ??? 1、关键技术 ??? 由于Delphi为我们提供了重新绘制网格的机制，因此我们可以通过对DBGrid.OnDrawDataCell事件代码的编写来实现在DBGrid中插入组件。 ??? 我们可以理解为：当我们在DBGrid中输入数据时，网格上便浮现出一个DBEdit组件以期用户输入，也就是说，你输入数据的网格实际上是浮动的DBEdit组件。那么，如果想在网格中绘制你期待的组件，只需要在网格上浮现一个目标组件即可。 ? 2、实例示范 下面笔者以在DBGrid中插入组件Combobox为例，简述如何在DBGrid中插入组件以扩展其功能 。 2.1 实例背景 假如有这样一张表inf_stud（学生基本信息表），结构如下： ? 字段名 描 述 类 型 长 度 Id_stud 学 号 Char 7 Name 姓 名 Varchar 8 Sex 性 别 Char 2 Birthday 出生年月 Datetime ? Aced_backgrd 学 历 Varchar 10 由此表结构可知，在录入字段“性别”和“学历”的内容时，我们希望能够利用Combobox组件进行选择：当输入性别时，Combobox为用户提供供选择的内容为“男”和“女”；当输入学历内容时，可供选择的内容为“本科”、“硕士研究生”和“博士研究生”如图1所示。 ?  图 1? Combobox组件应用示例 2.2? 实例实现 2.2.1 创建应用程序，加入所用组件等准备工作，略。 2.2.2 为组件设置属性，这里只列出Combobox1的相关属性： Combobox1.visible:=false; Combobox1.left，Combobox1.top，Combobox1.width，Combobox1.height未定，将在程序中动态根据各列的具体情况而定。 2.2.3 书写Combobox1的DrawDataCell事件代码。 DrawDataCell事件用来重新绘制单元格，当网格获得焦点时，移动Combobox1到获得焦点得网格上，并且使Combobox1可见，从而实现在DBGrid的指定列上显示Combobox1的功能。 代码如下： ??? procedure Tform1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin ??? ??if (gdfocused in state) then begin ?//当焦点发生改变，根据所在列的位置、长宽确定Combobox1的位置以及长宽等属性 ???? ????combobox1.left:=rect.Left+DBGrid1.Left; ????? ???combobox1.Top:=rect.Top+DBGrid1.Top; ???? ????combobox1.width:=Rect.Right-Rect.Left; ????? ???combobox1.height:=Rect.Bottom-Rect.Top; ?????? ??????? ????? ??if (DBGrid1.SelectedIndex=0) or (DBGrid1.SelectedIndex=1) or (DBGrid1.SelectedIndex=3) ??then ???????? ?????combobox1.visible:=false;//根据程序要求，此时Combobox控件不出现 ????? ?else ?????????? ???if ?(table1.State=dsedit) or (table1.State=dsinsert) then ???????????????? combobox1.visible:=true; //Co