西安工程大学C++程序设计.docx

1、西安工程大学C+程序设计可视化程序设计 综合实验报告 题目：（实验四）数据库应用设一、 试验目的：熟悉数据库应用程序的开发步骤；学会运用数据库组件结构中的数据集组件、数据源组件和数据控制组件；练习使用BCB DataBase Desktop创建数据表、编辑数据表；练习使用BDE Administrator设置、连接、管理数据；练习使用Query组件及SQL语句完成对数据库的查询。二、 实验内容：1. 编写一个通讯录应用程序，通讯录中的信息包括姓名、性别、院系、班级、地址、邮编、电话1、电话2、E_mail地址。2. 该通讯录应用程序应具有信息的查看、编辑功能。3. 该通讯录应用程序应具有对信息

2、的添加和删除功能。4. 该通讯录应用程序应具有如下对信息的查找功能：1） 按院系查找，用户选择一个院系后应列出该系的所有班级户选择某一班级后应列出该班的所有学生信息。2） 按姓名查找。3） 按学号查找。4） 支持模糊查询。三、 试验步骤：1 数据库的设计与建表：通过“程序”中的Borland C+Builder6中的BDE Administator选项中的“对象”中的“新建”，出现如图对话框，如图（1）所示，选“确定”，之后修改数据库别名为“TongXunLu”，PATH改为E：C+Builder6程序我的程序，（我的程序为新建文件夹），最后在“对象”选项卡中选“应用”，修改路径后如图（一）所

3、示。 图（1）图（一）2.新建一个BanJiMC表：1）创建表结构：通过“程序”中的Borland C+Builder6中的Database Desktop选项中的“文件”中的“新建”选项卡中的“表”，出现如图对话框，如图（2）所示，选“OK”，之后建立表结构，如图（3）所示，最后点击SaveAs选择C+Builder6中的“我的程序”，选择BanJiMC文件进行保存。2）之后创建表：选项中“文件”中的“打开”选项卡中的“表”，选择“我的程序”-BanJiMC表，选择“编辑”，所见表如图（4）所示。 图（2）3）再顺次建立相关表结构以及创建表，如图（4）图（5）所示 图（3）图（4）图（5）4

4、）相应的表结构如下：3.界面设计如图（二）所示 1）界面设计如下所示 注意：后面紧接的图是在浏览状态下的相关操作。2）运行后的界面如下所示 3）进行相关操作以后的界面如下所示（1） 按学号模糊查找的实现。（2） 按姓名模糊查找的实现。（3） 按学院查找，实现相应的班级。（4） 按班级查找，实现相应的学生信息。（4） 浏览、编辑之间的应用。（5） 对数据表的相应操作添加、删除、查找等的验证。上图为学号的模糊查找到精确查找的实现模糊查找成功！上图为姓名模糊查找到精确查找的实现模糊查找成功！上图为编辑状态时添加信息的实现添加成功！上图为在编辑状态时删除信息的实现删除时在确定后删除成功！按班级查找相对

5、应的人员通信信息操作成功！四、组件对象属性设计，与数据源组件的连接组件名称属性名称属性的取值TForm1Caption通讯录应用程序界面TSpeedButton1Caption浏览TSpeedButton2Caption编辑TSpeedButton3Caption退出TDBNavigator1DataSourceNameShowHintDataSourceTXDADBNavigatorTXDAtrueTLable1Caption选择院系TLable2Caption选择班级TComboBox1NameComboBoxZymcTQuery1DatabaseNameNameSQLTongXunLuQ

6、ueryYXMCSelect * From YuanXiMCTDBGrid1DataSourceNameDataSourceBJMCDBGridBJMCTQuery2DatabaseNameNameSQLTongXunLuQueryBJMC如下图（四）TDataSource1DataSetNameQueryBJMCDataSourceBJMCTLable3Caption可如下进行信息查找TLable4Caption按学号查找TLable5Caption按姓名查找TQuery3DatabaseNameNameSQLTongXunLuQueryTXDA Select * From TongXunD

7、ATEdit1NameTextEditXH清空TEdit2实现事件代码的共享NameTextOn Exit事件On Enter事件EditXM清空选择EditXHExit选择EditXHEnterTDBGrid2DataSourceNameDataSourceTXDADBGridTXDATTable1ActiveDatabaseNameNameTableNameFalseTongXunLuTableTXDATongXunDA.DBTDataSource2DataSetNameTableTXDADataSourceTXDA图（四）五相关代码如下在TongXunDA表显示时，表头字段显示如下：打开

8、TDBGridTXDA组件的列名编辑器，加入所有字段，并设置各个列的Title属性中的Caption子属性，使DBGridTXDA现实的列标题为“学号”、“姓名”“性别”、“院系名称”、“班级名称”、“地址”、“邮政编码”、“TELL1”、“TELL2”“E-Mail”。 1). 窗体的初始化，初始化代码完成表的打开和初始化下拉列表框void _fastcall TForm1:FormCreate(TObject *Sender) QueryYXMC-Open(); /打开查询 TableTXDA-Close(); TableTXDA-ReadOnly=true; /使表处于只读状态 Tabl

9、eTXDA-Open(); ComboBoxZymc-Items-Clear(); /清空下拉列表框 QueryYXMC-First(); if(QueryYXMC-Eof&QueryYXMC-Bof) return; /表为空表 while(!QueryYXMC-Eof) /记录指针不在表尾时循环 /将当前记录的YuanXiMingCheng字段的值加入到列表，获取院系名称 ComboBoxZymc-Items-Add(QueryYXMC-FieldByName(YuanXiMingCheng)-AsString); QueryYXMC-Next(); /记录指针下移一个记录 ComboBo

10、xZymc-ItemIndex=0; /设置列表索引 ComboBoxZymcClick(Sender);/-2).设置快捷按钮的一组相关属性将GropIndex属性均设置为1，使只有一个按钮处于按下状态void _fastcall TForm1:spbtnLLClick(TObject *Sender) TableTXDA-Close(); TableTXDA-ReadOnly=true; /使表处于浏览状态 TableTXDA-Open();/-void _fastcall TForm1:spbtnBJClick(TObject *Sender) TableTXDA-Close(); Ta

11、bleTXDA-ReadOnly=false; /使表处于编辑状态 TableTXDA-Open();/-void _fastcall TForm1:spbtnExitClick(TObject *Sender) Close();/-3）.用ComboBoxZymc的OnClick事件实现选择院系时，表格中出现相应的班级信息，注意此处选择SQL属性的动态传参来实现void _fastcall TForm1:ComboBoxZymcClick(TObject *Sender) /显示所选院系相应的班级信息，设置QuerBJMC的ParamByName属性实现相应班级的出现 QueryBJMC-C

12、lose(); /准备给动态参数赋值 QueryBJMC-ParamByName(YXMC)-AsString=ComboBoxZymc-Text; QueryBJMC-Open(); /执行查询/-4）.在选择班级时，显示对应人员信息void _fastcall TForm1:QueryBJMCAfterScroll(TDataSet *DataSet) /改变QueryBJBM的记录位置时，使用过滤功能更新TableTXDA中的显示的信息 TableTXDA-Close(); if(QueryBJMC-Eof&QueryBJMC-Bof) /表为空表 TableTXDA-Filtered=

13、false; /不显示任何信息 else TableTXDA-Filter=BanJiMingCheng=+QueryBJMC- FieldByName(BanJiMingCheng)-AsString; /在TongXunDA中显示与BanJiMC中BanJiMingCheng字段的相同的信息 TableTXDA-Filtered=true; TableTXDA-Open();/-5）.在EditXH组件的OnEnter事件中实现模糊查找时数据集的重新赋值void _fastcall TForm1:EditXHEnter(TObject *Sender) /按学号模糊查找的实现 /进入编辑栏

14、时 TableTXDA-Close(); /关闭TableTXDA衔接的TXDA数据表 DataSourceTXDA-DataSet=QueryTXDA; /修改DataSet给TableTXDA，以实现SQL的模糊查询语句 TableTXDA-Open();/-6）.在EditXH组件的OnChange事件中实现模糊查找学号、姓名void _fastcall TForm1:EditXHChange(TObject *Sender) /编辑栏每次被修改时 QueryTXDA-Close(); /关闭数据表 QueryTXDA-SQL-Clear(); /清空SQL语句QueryTXDA-SQL

15、-Add(Select * From TongXunDA where XueHao like%+EditXH-Text+%); /添加模糊查询语句 QueryTXDA-Open(); /执行查询/-void _fastcall TForm1:EditXMEnter(TObject *Sender) /按姓名模糊查找的实现 / 实现代码的共享/-void _fastcall TForm1:EditXMChange(TObject *Sender) QueryTXDA-Close(); /关闭数据表 QueryTXDA-SQL-Clear(); /清空SQL语句QueryTXDA-SQL-Add(

16、Select * From TongXunDA where XingMing like%+EditXM-Text+%); /添加模糊查询语句 QueryTXDA-Open(); /执行查询/-void _fastcall TForm1:EditXMExit(TObject *Sender) /离开编辑栏时 / 实现代码的共享/-void _fastcall TForm1:EditXHExit(TObject *Sender) /离开编辑栏时 TableTXDA-Close(); /关闭QueryTXDA衔接的TXDA数据表 DataSourceTXDA-DataSet=TableTXDA; /恢复DataSet TableTXDA-Open();/-六运行结果及分析1）.按姓名查找可以实现。2）.按学号查找可以实现。3）.按学号查找和按姓名查找均支持模糊查找。4）.实现了浏览状态和编辑状态的改变此两种状态作用均可实现。5）.当状态出于编辑状态时，察看、添加和删除功能均可实现。6）.选择院系时，没有实现相应班级的显示，但是，当选择相应的班级时，可以实现相应人员信息的显示。七.个人对此作业的评价非常满意！