1、实 验 报 告（ 2014/2015 学年 第 二 学期）课程名称 数据库系统实验名称 小型 MIS 开发实验时间 2015 年 月 日指导单位 计算机学院软件工程系指导教师 李玲娟学生姓名 班级学号学院(系) 计软院 专 业 软件工程（外包）1实 验 报 告实验名称 小型 MIS 开发 指导教师 李玲娟实验类型 设计 实验学时 3 实验时间 2015.5.18一、 实验目的和要求(1) 了解 C/S 结构的 DBS 的开发思路和过程(2) 理解 ODBC(OLE DB)的作用(3) 学习 Delphi 的数据库访问方法和表单 Form 的制作方法二、实验环境(实验设备)硬件：微机软件：Del
2、phi ，SQL Server2三、实验原理及内容实验内容：1需求分析该系统具有录入、修改、删除和查询各航班机票信息的功能。需录入的信息如下：航班号、起点、终点、日期、起飞时刻、到达时刻、票价、折扣票数、剩余座位数、航班所属航空公司。录入、修改、删除只能由管理员进行。2数据库结构设计表结构为 flight（航班号，起点，终点，日期，起飞时刻，到达时刻，票价，折扣票数，剩余座位数，航班所属航空公司）关键字是航班号、日期。3创建数据库开始-程序- 打开 Microsoft SQL SERVER 的服务管理器。将服务器名选为 local，服务选为 SQL Server, 刷新服务，激活本地服务器。打
3、开 Microsoft SQL SERVER 的企业管理器，在本地服务器上创建一个数据库B12041212，打开 SQL Server 组，打开数据库，右键数据库创建数据库。4在所创建的数据库中，创建自己在实验中用到的表在数据库中，右键表，创建一个数据表 flight， “航班号”和“日期”是该表的主键。然后右击 flight，选择显示所有行，这时表中还没有数据，这时可以在表中先预置一些数据。5启动 Delphi，创建一个自己的 Project，进行表单设计34实 验 报 告56通过 ADO 访问后台数据库（1）连接中使用了 ADOConnection 控件，ADOQuery 控件，DataS
4、ource 控件，DBNavigator 和 DBGrid 控件。（2）修改 ADOConnection 控件的 Connection String 属性，点击该属性后的“” ，在弹出对话框中点击“Build” ，选择“Microsoft OLE DB Provider for SQL Server”，点击“下一步”后，服务器选择 local，数据库选择设计好的 B12041217。修改 DataSource 控件的 DataSet 属性，改为 ADOQuery1.修改 ADOQuery 控件属性，Connection 属性值改为 ADOConnection1；SQL 属性改为“select
5、* from flight;” 。修改 DBNavigator 控件属性，将 DataSource 属性值改为 DataSource1.修改 DBGrid 控件属性，将 DataSource 属性值改为 DataSource1.最后将 ADOQuery 控件的 Active 属性值改为 TRUE。7主要事件的核心代码登陆界面代码：procedure TForm2.Button1Click(Sender: TObject);beginif (Edit1.Text=sxn) and (Edit2.Text=sxn) thenbeginUnit3.Form3.FormCreate(Sender);U
6、nit3.Form3.Show;endelseshowmessage(请输入正确的用户名或密码！);Edit1.Text:=;Edit2.Text:=;end;初始化数据表：procedure TForm3.FormCreate(Sender: TObject);beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.Active:=false;ADOQuery1.SQL.Add(select * from flight;);6ADOQuery1.Prepared;ADOQuery1.Active:=true;DBEdit1.Text:=F001;
7、ComboBox1.Text:=2006;ComboBox2.Text:=01;ComboBox3.Text:=01;end;查询数据库：procedure TForm3.Button1Click(Sender: TObject);beginADOQuery1.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;实 验 报 告7四、实验小结 五、指导教师评语成 绩 批阅人 日 期
