学生管理实验报告.docx

学生管理实验报告.docx

《学生管理实验报告.docx》由会员分享，可在线阅读，更多相关《学生管理实验报告.docx（11页珍藏版）》请在冰豆网上搜索。

学生管理实验报告

可視化程序設計

--综合实验报告

题目：

数据库应用设计

班级：

08计算机科学与技术6班

一、试验目的：

熟悉数据库应用程序的开发步骤；学会运用数据库组件结构中的数据集组件、数据源组件和数据控制组件；练习使用BCBDataBaseDesktop创建数据表、编辑数据表；练习使用BDEAdministrator设置、连接、管理数据；练习使用Query组件及SQL语句完成对数据库的查询。

二、实验内容：

1.编写一个通讯录应用程序，通讯录中的信息包括姓名、性别、院系、班级、地址、邮编、电话1、电话2、E_mail地址。

2.该通讯录应用程序应具有信息的查看、编辑功能。

3.该通讯录应用程序应具有对信息的添加和删除功能。

4.该通讯录应用程序应具有如下对信息的查找功能：

1）按院系查找，用户选择一个院系后应列出该系的所有班级，用户选择某一班级后应列出该班的所有学生信息。

2）按姓名查找。

3）按学号查找。

4）支持模糊查询。

三、实验步骤

1.建立与学生通讯录系统相关的数据表结构

表建立数据库别名为TXL

表1-1-1txl表

表1-2xy表结构

表1-2-1xy表

表1-3xy_zy表结构

表1-3-1xy_zy表

表1-4xy_zy_bj表结构

表1-4-1xy_zy_bj表

2、根据界面需要添加组件，组要组件及主要组件的属性设计如表2-1和2-2所示

表2-1学生通讯录管理系统

表2-2图2-1中组件的属性设置

3、编写相关代码

#include

#pragmahdrstop

#include"Unit1.h"

//-------------------------------------------------------------------

#pragmapackage（smart_init）

#pragmaresource"*.dfm"

TForm1*Form1;

//-------------------------------------------------------------------

__fastcallTForm1:

:

TForm1（TComponent*Owner）

:

TForm（Owner）

{

}

//-------------------------------------------------------------------

void__fastcallTForm1:

:

Button1Click（TObject*Sender）

{

QueryXMCZ->Close（）;

QueryXMCZ->SQL->Clear（）;

QueryXMCZ->SQL->Add（"Select*"）;

QueryXMCZ->SQL->Add（"FromTXL"）;

QueryXMCZ->SQL->Add（"WhereTXL.XM=:

XM"）;

QueryXMCZ->ParamByName（"XM"）->AsString=Edit1->Text;

DBGrid4->DataSource=DataSource1;

QueryXMCZ->Open（）;

}

//-------------------------------------------------------------------

void__fastcallTForm1:

:

Button4Click（TObject*Sender）

{

DBGrid4->DataSource=DataSourceTXL;

}

//-------------------------------------------------------------------

void__fastcallTForm1:

:

Button2Click（TObject*Sender）

{

QueryXHCZ->Close（）;

QueryXHCZ->SQL->Clear（）;

QueryXHCZ->SQL->Add（"Select*"）;

QueryXHCZ->SQL->Add（"FromTXL"）;

QueryXHCZ->SQL->Add（"WhereTXL.XH=:

XH"）;

QueryXHCZ->ParamByName（"XH"）->AsString=Edit2->Text;

DBGrid4->DataSource=DataSource1;

QueryXMCZ->Open（）;

}

//-------------------------------------------------------------------

void__fastcallTForm1:

:

Button5Click（TObject*Sender）

{

Form1->Close（）;

}

//-------------------------------------------------------------------

void__fastcallTForm1:

:

Button3Click（TObject*Sender）

{

QueryBJCZ->Close（）;

QueryBJCZ->SQL->Clear（）;

QueryBJCZ->SQL->Add（"Select*"）;

QueryBJCZ->SQL->Add（"FromTXL"）;

QueryBJCZ->SQL->Add（"Wherebjlike:

bj"）;

QueryBJCZ->ParamByName（"bj"）->AsString=Edit3->Text;

DBGrid4->DataSource=DataSource1;

QueryBJCZ->Open（）;

}

四、试验结果

表4-1运行结果

表4-2添加同学信息结果

表4-3删除同学信息结果

表4-4按姓名查找结果

表4-5按学号查找结果

表4-6模糊查找结果