第6章 Delphi数据库应用程序组件 Delphi程序设计(第二版)电子教案.ppt

ADOQuery组件的Name属性分别为 Query_TB03、Query_XA01。 （3）设置Query_TB03属性 Connection: ADOConnection_Xsda SQL属性中输入Select语句如下： Select TB0301,TB0302 from TB03 Active属性为True。 （4）设置Query_XA01属性 Connection: ADOConnection_Xsda DataSource：DataSource_TB03 ； 数据源DataSource_TB03与Query_TB03连接 6.5.5 ADOQuery组件的主从表操作 SQL属性中输入Select语句如下： Select XA0101,XA0102,XA0103,XA0104,XA0106,XA0114,XA0119 From XA01 where XA0114=:TB0301 Active属性为True。 （5）表格标题用中文表示 双击Query_TB03组件，进入字段编辑器，单击鼠标右键，选择Add Fields项，增加字段对象TB0301、TB0302，将TB0302拖到第1个位置，并将DislpayLabel属性改为“班级名称”，其余字段作类似处理。 6.5.5 ADOQuery组件的主从表操作 用字段编辑器对Query_XA01作同样处理，使DBGrid_XA01表格标题用中文表示。 程序设计好后，窗体左侧为班级编码主表，右侧为与主表当前班级记录对应的学生档案从表，如图6.20所示。程序运行后，用鼠标选择左侧窗体内的班级时，右侧窗体内的学生档案随之改变。 6.5.5 ADOQuery组件的主从表操作 当ADOQuery组件执行多表关联的Select查询语句时，部分字段是不允许编辑修改的。例如，动态查询学生姓名、学号、宿舍与性别等的SQL语句： Select XA0102,XA0104,GC0102,XA0119 from XA01,GC01 where XA0106=GC0101 and XA0114=:TB0301 中不能对性别字段GC0102进行编辑修改，如何做到既能显示学生性别，又能修改学生性别，这就要用到计算字段。 6.5.6 计算字段及其事件处理 所谓计算字段并不是数据表中实际存放的字段，而是根据需要自定义的字段。这些字段的值是根据数据表中其它字段值动态计算出来的，所以称为计算字段。下面结合例题来说明计算字段的定义与使用方法。 例6.20 在例6.19中的Query_XA01数据集中增加“学生性别”计算字段，编写宿舍录入程序。 （1）在例6.19的窗体内添加ADOTable组件与GC01数据表连接，设置ADOTable组件的属性如下： 6.5.6 计算字段及其事件处理 Name ：Table_GC01 Connection：ADOConnection_Xsda TableName：GC01 Active：True （2）在Query_XA01组件中增加计算字段“XB” 双击Query_XA01组件激活字段编辑器，在编辑框内右击鼠标，在弹出式菜单中选择New Fields，设置新字段的属性如下： 6.5.6 计算字段及其事件处理 Name：XB Type :String Size：10 Field Type：Lookup ；使用主从表的关联 Lookup Keys：GC0101 ；从表关联字段为性别码GC0101 Result Field ：GC0102 ；从表返回字段为性别GC0102 Key Fields：XA0106 ；主表关联字段为性别码XA0106 Dataset：Table_GC01 ；从表数据集组件为Table_GC01 6.5.6 计算字段及其事件处理 如图6.21所示。 计算字段“XB”的值是通过主从表的关联关系XA0106=GC0101，由学生档案表XA01中的性别编码XA0106字段值定位性别编码表GC01中记录，并通过GC0102字段返回性别名称，而获知男或女。 6.5.6 计算字段及其事件处理 图6.21 计算字段的设置界面 6.5.6 计算字段及其事件处理 （3）在字段编辑器内单击“XB”，在对象监视中，将“XB”字段的属性DisplayLable改为“性别”。 程序执行后，学生档案将随班级记录而变化，计算字段“XB”不但能显示“男”或“女”，而且可以通过下拉列表框选择“男”或“女”。运行后的程序界面如图6.22所示。 6.5.6 计算字段及其事件处理 6.6.1 设计学生宿舍录入程序 例6.21 按图6.23的界面要求设计学生宿舍录入程序。 1．设计要求 （1）界面由工具栏、状态栏、选择系部、选择班级区与学生宿舍录入区