小型MIS开发

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