小型MIS开发资料

实验报告（2014/2015学年第二学期）课程名称数据库系统实验名称小型MIS开发实验时间2015年月日指导单位计算机学院软件工程系指导教师李玲娟学生姓名班级学号学院(系)计软院专业软件工程（外包）PAGE1实验报告实验名称小型MIS开发指导教师李玲娟实验类型设计实验学时3实验时间2015.5.18实验目的和要求(1)了解C/S结构的DBS的开发思路和过程(2)理解ODBC(OLEDB)的作用(3)学习Delphi的数据库访问方法和表单Form的制作方法二、实验环境(实验设备)硬件：微机软件：Delphi，SQLServer6．通过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。主要事件的核心代码登陆界面代码：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;');ADOQuery1.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;实验报告四、实验小结五、指导教师评语