华北科技学院Delphi实验报告简易学生信息管理系统.docVIP

华北科技学院计算机学院系综合性实验 实 验 报 告 程序下载地址:/detail/gunavy2009/4868911 课程名称 Delphi程序设计 实验学期 2012 至 2013 学年 第 一 学期 学生所在系部 计算机学院 年级 专业班级 计算机科学与技术 学生姓名 学号 任课教师 实验成绩 计算机学院制 《Delphi程序设计》课程综合性实验报告 开课实验室：信息楼基础七 2012 年 11月26日 实验题目 Delphi数据库设计数据库设计Username 文本 50 主键 Userpsw 文本 50 Userright 文本 1 学生信息表info.db包含： 字段名 类型 长度 主键 Snum 文本 7 主键 Sname 文本 10 Sex 文本 2 Birthday 日期/时间 Enrolldate 日期/时间 班级 文本 6 2、软件界面设计： 系统登录窗体 信息管理界面（管理员使用界面） 信息管理界面（普通用户使用界面） 3、主要功能代码设计： 1)、系统登录界面登录按钮btnLogin的onClick事件代码为： procedure TFrmLogin.BtnLoginClick(Sender: TObject); var uname,upsw:string; begin uname:=EdtUsername.Text; upsw:=EdtUserpsw.Text; if (uname = ) or (upsw=) then begin MessageBox(0,请输入用户名和密码,错误,0); EdtUsername.SetFocus; end else begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(select * from user where username=++uname++and userpsw=++upsw+); adoquery1.Open; if adoquery1.RecordCount=0 then begin application.MessageBox(用户名或密码错误，请重新输入,提示,mb_ok); EdtUsername.SetFocus; end else begin if adoquery1.FieldByName(userright).AsInteger=0 then begin FrmStudent.BtnAdd.Enabled:=false; FrmStudent.BtnModify.Enabled:=false; FrmStudent.BtnDelete.Enabled:=false; end; FrmStudent.Show; FrmLogin.hide; end; end; end; 2）、登录界面的AdoQuery控件的connectionstring的代码为： Provider=MSDASQL.1;Persist Security Info=False;Data Source=student 3）、信息管理界面查询记录按钮btnQuery的onClick事件过程代码为： procedure TFrmStudent.b