实 验 报 告
（ 2015/ 2016学年 第二学期）
课程名称 实验名称
数据库系统 小型MIS的开发
2016
实验时间 指导单位 指导教师
年 5 月 19 日
计算机学院软件工程系
张少娴
学生姓名 学院(系)
侯利萍 计软院
班级学号 专 业
B******** 软件工程
实 验 报 告
实验名称 小型MIS的开发 实验类型 验证 一、 实验目的和要求 (1) 了解C/S结构的DBS的开发思路和过程 (2) 理解ODBC的作用 (3) 学习Delphi的数据库访问方法和表单Form的制作方法 指导教师 张少娴 实验时间 2016-5-19 实验学时 3 二、实验环境(实验设备) 硬件：微机 软件：Delphi 7（或更高版本），SQL Server 2000（或更高版本） 三、实验原理及内容 实验原理基于第八章的相关内容。 实验内容如下： 1．在SQL Server2000中创建数据库 2．在所创建的数据库中，创建自己在实验中用到的表 Microsoft SQL SERVER (local)(Windows NT) 个数据库sxn 企业管理器SQL Server组 创建一个数据表flight 右击数据库在本地服务器上创建一 在数据库sxn中右击“表” 3．启动Delphi，创建一个自己的Project，进行表单设计 系统主界面 登录界面：管理员用 操作界面：按访问系统的用户的不同，对功能进行设置 4．通过ADO访问后台SQL Server2000的数据库 用MS SQL Server2000 做后台数据库，通过ADO访问数据库 （1）用到的控件及作用 其中用到的控件有的ADOConnection、ADOQuery、DataSource、DBNavigator、DBGrid。 AdoConnection 用来连接数据库的。 AdoQuery 用来执行SQL语句的。 DataSource 是数据源控件用于数据集控件和数据显示控件的链接作用。 BNavigator 组件用于在数据集进行记录导航，当用户单击DBNaVigator组件的某个按钮时，现记录 指针的前移、后移，插入‘删除、修改当前记录等操作，而无须编写任何程序代码。 DBGrid 是用来显示数据的主要手段。 （2）各个控件的设置顺序 a) 打开Delphi后，将一些控件拖到FORM中(如下图所示)。其中ADOConnection控件和ADOQuery在ADO数据集组件中，DataSource在Data Access数据访问组件中。DBNavigator和DBGrid在Control数据控制组件中。 b) 修改ADOConnection控件的Connection String属性，点击该属性后的“…”，在弹出的对话框中点击“Build”，选择希望连接的数据“Microsoft OLE DB Provider for SQL Server”，点击“下一步”后，如图5其中服务器名称可以选为“local”(复制本机的SQL SERVER服务器名)，数据库选为事先在SQL SERVER计好的数据库sxn。点击“测试连接”，如果“测试连接成功”则点击“确定”后完成对ADOConnection控配置，否则就要返回检查。可将ADOConnection的login prompt属性值设置为FLASE，这样就不会出据库登录的窗口。 c) 修改ADOQuery控件属性。将Connection属性值改为ADOConnection1；将SQL属性 值改为“select * from flight;”。 d) 修改DataSource控件的DataSet属性。将该属性值改为：ADOQuery1即可。 e) 修改DBNavigator控件属性。将DataSource属性值设置为DataSource1。 f) 修改DBGrid控件属性。将DataSource属性值设置为DataSource1。 b) g) 最后将ADOQuery控件的Active属性值改为TRUE。至此，DBGrid控件中应有数据显示；DBNavigator控件中也应部分按钮被激活。 3）涉及到的各个控件的属性及取值 AdoConnection Connection String属性，“Build”，选择希望连接的数据“Microsoft OLE DB Provider fServer” login prompt属性值设置为FLASE AdoQuery Active属性值改为TRUE DataSource DataSet属性值改为ADOQuery1 DBNavigator DataSource属性值设置为DataSource1 DBGrid DataSource属性值设置为DataSource1 5．主要事件的核心代码 Form1 票务查询： Procedure TForm1.Button2Click(Sender: TObject); begin Unit3.Form3.DBNavigator1.VisibleButtons:=[]; Unit3.Form3.FormCreate(Sender); Unit3.Form3.Show; end; 票务管理： uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBCtrls; procedure TForm1.Button1Click(Sender: TObject); Begin Unit3.Form3.DBNavigator1.VisibleButtons:=[nbFirst,nbPrior,nbNext, nbLast,nbInsert,nbDelete,nbEdit,nbPost,nbCancel,nbRefresh]; Unit2.Form2.Show; end; Form2： 确定： 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 TForm2.Button2Click(Sender: TObject); begin close; end; From3： 退出： procedure TForm3.Button2Click(Sender: TObject); begin close; end; 查询： procedure TForm3.Button1Click(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select *'); ADOQuery1.SQL.Add('from flight'); ADOQuery1.SQL.Add('where 航班号='''+Edit1.Text+ '''and 日期='''+ComboBox1.Text+'-'+ ComboBox2.Text+'-'+ComboBox3.Text+''''); ADOQuery1.Prepared; ADOQuery1.Open; ADOQuery1.Active:=true; End; 实 验 报 告
四、实验小结 本次实验为后台数据库，以 Delphi为前端开为前端开发工具，设计并实现一个民航票务管理系统。要求该系统具有票务管理 (录入、修改、删除各航班机票信息)的功能和查询各航班信息的功能，其中票务管理功能只由员进行。 此外，系统界面要美观、简捷，操作结果要准确。 在本次试验中，最后连接数据库的时候总是报错，经过向老师询问，才发现忘记了拖DBNavigator控件。 通过本次实验，我对Delphi的操作有了一定的理解和掌握，也明白了如何设计并实现一个管理系统，如何连接数据库。这次实验受益颇多，使我对Delphi和数据库有了更加深刻的认识。 五、指导教师评语 成 绩
批阅人 日 期
