综合实例——学生管理系统

《综合实例——学生管理系统》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第9章综合实例——学生管理系统1．实训目的　　　　（1）掌握新建Access数据库的使用。　　　　（2）掌握BDE和ODBC的使用。　　　　（3）掌握TTable组件的使用。　　　　（4）了解TTable组件的查询功能。2．实训内容　　设计一个学生管理系统，利用Access数据库创建student数据库，使该系统具有添加、编辑、删除和查询等功能，设计界面如图9.1.1所示。图9.1.1设计界面3．Access数据库设计　　（1）新建空数据库。打开Access软件，新建空数据库并保存在合适的位置，弹出“student:数据库（Acces

2、ss2000文件格式）”对话框，如图9.1.2所示。图9.1.2“student:数据库（Accesss2000文件格式）”对话框（2）设计表。双击“student：数据库（Accesss2000文件格式）”对话框中的“使用设计器创建表”选项，打开“表1:表”窗口，如图9.1.3所示。图9.1.3“表1：表”窗口在此窗口中输入字段名称和数据类型，并在打开的“常规”选项卡中设置字段。student表中字段的设计格式如图9.1.4所示。图9.1.4student表中字段的设计（3）保存表。单击工具栏上的“保存”按钮，弹出“另存为”对话框，如图9.1.

3、5所示。图9.1.5“另存为”对话框输入表名为studentdossier，单击“确定”按钮，即student数据库创建完成。4．BDE别名设计　　（1）打开“BDEAdministrator”窗口，在打开的“Databases”选项卡中单击鼠标右键，弹出快捷菜单，如图9.1.6所示。在快捷菜单中选择“ODBCAdministrator…”命令，弹出“ODBC数据源管理器”对话框，如图9.1.7所示。图9.1.6快捷菜单　　　　　　图9.1.7“ODBC数据源管理器”对话框（2）单击“ODBC数据源管理器”对话框中的“添加”按钮，弹出“创建新数

4、据源”对话框，如图9.1.8所示。图9.1.8“创建新数据源”对话框（3）选择“名称”列表框中的“MicrosoftAccessDriver(*.mdb)”选项，单击“完成”按钮，弹出“ODBCMicrosoftAccess安装”对话框，在“数据源名”文本框中输入studentdossier（可以是任意名称，但是必须输入名称），如图9.1.9所示。图9.1.9“ODBCMicrosoftAccess安装”对话框（4）单击该对话框中的“选择”按钮，选择新建的“student”数据库，单击“确定”按钮，返回到“ODBC数据源管理器”对话框中，再次单击

5、“确定”按钮即可完成设置。　　（5）返回到“BDEAdministrator”窗口（见图9.1.6），在打开的“Databases”选项卡中单击鼠标右键，在弹出的快捷菜单中选择“Refresh”命令，刷新BDE管理器，则在“Databases”选项卡中将显示新增的别名为“studdossier”的选项，即BDE数据库的别名创建完成。5．界面设计　　（1）新建项目，并将窗体Form1的Caption属性值设为学生管理系统。　　（2）在窗体Form1中添加TPageControl组件，修改Style属性值为tsFlatButtons。用鼠标右键

6、单击TPageControl组件，在弹出的快捷菜单中选择“NewPage”命令，创建选项卡，并修改此选项卡的Caption属性值为学生档案管理。用同样的方法再新建一个选项卡，并修改Caption属性值为学生查询。（3）在“学生档案管理”选项卡中添加1个TDatabase组件、1个TTable组件、1个TDataSource组件、1个TDBComboBox组件、1个TDBGrid组件、2个TPanel组件、4个TDBEdit组件、5个TLabel组件和6个TButton组件，“学生档案管理”选项卡设计界面如图9.1.10所示；“学生档案管理”选项卡

7、中的组件属性设置如表9.1所示。图9.1.10“学生档案管理”选项卡设计界面表9.1组件属性设置（4）在“学生查询”选项卡中添加1个TLable组件、1个TComboBox组件、1个TEdit组件、1个TButton组件、1个TDatabase组件、1个TTable组件、1个TDataSource组件、1个TDBGrid组件和1个TPanel组件。“学生查询”选项卡设计界面如图9.1.11所示；“学生查询”选项卡中的组件属性设置如表9.2所示。表9.2组件属性设置图9.1.11“学生查询”选项卡设计界面6．代码设计程序代码如下：implemen

8、tation{$R*.nfm}procedureTForm1.Button7Click(Sender:TObject);//“查询