小型MIS开发

实 验 报 告

（ 2014/2015学年 第 二 学期）?

???

课程名称 实验名称

数据库系统 小型MIS开发

2015

实验时间 指导单位 指导教师

年 月 日

计算机学院软件工程系

李玲娟

学生姓名 学院(系)

计软院

班级学号

专 业 软件工程（外包）

实 验 报 告

实验名称 小型MIS开发 实验类型 设计 一、 实验目的和要求 (1) 了解C/S结构的DBS的开发思路和过程 (2) 理解ODBC(OLE DB)的作用 (3) 学习Delphi的数据库访问方法和表单Form的制作方法 指导教师 李玲娟 实验时间 2015.5.18 实验学时 3 二、实验环境(实验设备) 硬件：微机 软件：Delphi ，SQL Server 1

三、实验原理及内容 实验内容： 1．需求分析 该系统具有录入、修改、删除和查询各航班机票信息的功能。 需录入的信息如下：航班号、起点、终点、日期、起飞时刻、到达时刻、票价、折扣票数、剩余座位数、航班所属航空公司。 录入、修改、删除只能由管理员进行。 2．数据库结构设计 表结构为flight（航班号，起点，终点，日期，起飞时刻，到达时刻，票价，折扣票数，剩余座位数，航班所属航空公司） 关键字是航班号、日期。 3．创建数据库 开始-程序-打开Microsoft SQL SERVER的服务管理器。将服务器名选为local，服 务选为SQL Server, 刷新服务，激活本地服务器。 打开Microsoft SQL SERVER的企业管理器，在本地服务器上创建一个数据库B12041212，打开SQL Server组，打开数据库，右键数据库创建数据库。 4．在所创建的数据库中，创建自己在实验中用到的表 在数据库中，右键表，创建一个数据表flight，“航班号”和“日期”是该表的主键。右击flight，选择显示所有行，这时表中还没有数据，这时可以在表中先预置 一些数据。 5．启动Delphi，创建一个自己的Project，进行表单设计 2

3

实 验 报 告

4

6．通过ADO访问后台数据库 （1）连接中使用了ADOConnection控件，ADOQuery控件，DataSource控件， DBNavigator和DBGrid控件。 （2）修改ADOConnection控件的Connection String属性，点击该属性后的“…”， 在弹出对话框中点击“Build”，选择“Microsoft OLE DB Provider for SQL Server”，点击 “下一步”后，服务器选择local，数据库选择设计好的B12041217。 修改DataSource控件的DataSet属性，改为ADOQuery1. 修改ADOQuery控件属性，Connection属性值改为ADOConnection1；SQL属性改 为“select * from flight;”。 修改DBNavigator控件属性，将DataSource属性值改为DataSource1. 修改DBGrid控件属性，将DataSource属性值改为DataSource1. 最后将ADOQuery控件的Active属性值改为TRUE。 7．主要事件的核心代码 登陆界面代码： procedure TForm2.Button1Click(Sender: TObject); begin if ((Edit1.Text='sxn') and (Edit2.Text='sxn')) then begin Unit3.Form3.FormCreate(Sender); Unit3.Form3.Show; end else showmessage('请输入正确的用户名或密码！'); Edit1.Text:=''; Edit2.Text:=''; end; 初始化数据表： procedure TForm3.FormCreate(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.Active:=false; ADOQuery1.SQL.Add('select * from flight;'); 5

ADOQuery1.Prepared; ADOQuery1.Active:=true; DBEdit1.Text:='F001'; ComboBox1.Text:='2006'; ComboBox2.Text:='01'; ComboBox3.Text:='01'; end; 查询数据库： procedure TForm3.Button1Click(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('selext *'); ADOQuery1.SQL.Add('from flight'); ADOQuery1.SQL.Add('where 航班号='''+DBEdit1.Text+ '''and 日期='''+ComboBox1.Text+'-'+ ComboBox2.Text+'-'+ComboBox3.Text+''''); ADOQuery1.Prepared; ADOQuery1.Open; ADOQuery1.Active:=true; end; 实 验 报 告

6

四、实验小结 五、指导教师评语 成 绩 批阅人 日 期 7

本文来源：https://www.bwwdw.com/article/cvod.html