实验报告-模板实验报告-模板.doc

中国计量学院 实验报告 实验课程： 数据库应用 实验日期： 实验名称： 班级： 学号： 姓 名： 实验报告成绩： 教师签名： 指导教师评语： 实验目的 掌握Delphi工程总体框架的建立方法，以及工程环境的配置。 熟悉数据库系统开发的完整过程，能够独立开发一个数据库系统，并调试运行。 实验环境 Delphi7+access2003 实验内容和步骤 通过access2003建立MDB数据库如下： 图1 数据库 系统主界面 图2 主界面 登录窗体 图3 登录窗体 核心代码： procedure TLoginFrm.btnokClick(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.sql.Clear; //该处也可以用参数的 //ADOQuery1.SQL.Add(select * from users where 姓名=+trim(edit1.Text)+ and 密码=+trim(edit2.Text)+); ADOQuery1.SQL.Add(select * from users where 姓名=:a and 密码=:b); ADOQuery1.Parameters.ParamByName(a).value:=trim(edit1.Text); ADOQuery1.Parameters.ParamByName(b).value:=trim(edit2.Text); //ADOQuery1.ExecSQL; ADOQuery1.Open; if ADOQuery1.RecordCount0 then begin Form1.statusbar1.Panels[1].Text:=上次登录时间: +adoquery1.fieldbyname(上次登录时间).value; ADOQuery1.SQL.Clear; ADOQuery1.SQL.add(update users set 上次登录时间=+formatdatetime(yy-mm-dd ,date)+formatdatetime(hh:nn:ss,time)+); ADOQuery1.execsql; Form1.statusbar1.Panels[0].Text:=登录用户：+edit1.Text; edit1.Clear; edit2.Clear; LoginFrm.Hide; Form1.Visible:=true; Form1.WindowState:=wsMaximized; end else begin edit1.text:=; edit2.Text:=; messagebox(handle,用户名或密码错误!,提示信息,mb_ok or mb_iconwarning); exit; end; 基本信息录入 核心代码： procedure Tfrm_jbxxlr.Button1Click(Sender: TObject); begin if Edit1.Text = then begin MessageBox(handle,学号不能为空!,警告,MB_OK+MB_ICONWARNING); Edit1.SetFocus ; exit; end; if Edit2.Text = then begin MessageBox(handle,姓名不能为空!,警告,MB_OK+