小型MIS开发分解.docVIP

实 验 报 告 课程名称 数据库系统 实验名称 小型MIS开发 实验时间 2015 年 月 日 指导单位 计算机学院软件工程系 指导教师 李玲娟 学生姓名 班级学号 学院(系) 计软院 专 业 软件工程（外包） 实 验 报 告 实验名称 小型MIS开发 指导教师 李玲娟 实验类型 设计 实验学时 3 实验时间 2015.5.18 实验目的和要求 (1) 了解C/S结构的DBS的开发思路和过程 (2) 理解ODBC(OLE DB)的作用 (3) 学习Delphi的数据库访问方法和表单Form的制作方法 二、实验环境(实验设备) 硬件：微机 软件：实验内容1． 2．．． 在数据库中，右键表，创建一个数据表flight，“航班号”和“日期”是该表的主键。然后右击flight，选择显示所有行，这时表中还没有数据，这时可以在表中先预置 一些数据。 5． 实 验 报 告 6．…”， 在弹出对话框中点击“Build”，选择“Microsoft OLE DB Provider for SQL Server”，点击 “下一步”后，服务器选择local，数据库选择设计好的 修改DataSource控件的DataSet属性，改为ADOQuery1. 修改ADOQuery控件属性，Connection属性值改为ADOConnection1；SQL属性改 为“select * from flight;”。 修改DBNavigator控件属性，将DataSource属性值改为DataSource1. 修改DBGrid控件属性，将DataSource属性值改为DataSource1. 最后将ADOQuery控件的Active属性值改为TRUE。 主要事件的核心代码 登陆界面代码： 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;); 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.Pre