华北科技学院_Delphi实验报告_简易学生信息管理系统

华北科技学院_Delphi实验报告_简易学生信息管理系统

华北科技学院计算机学院系综合性实验

实 验 报 告

程序下载地址:/detail/gunavy2009/4868911

课程名称 Delphi程序设计 实验学期 2012 至 2013 学年 第 一 学期

学生所在系部 计算机学院 年级 专业班级 计算机科学与技术 学生姓名 学号 任课教师 实验成绩

计算机学院制

华北科技学院_Delphi实验报告_简易学生信息管理系统

华北科技学院计算机学院综合性实验报告

《Delphi程序设计》课程综合性实验报告

华北科技学院_Delphi实验报告_简易学生信息管理系统

华北科技学院计算机学院综合性实验报告

2、软件界面设计： 系统登录窗体

信息管理界面(管理员使用界面)

第 2 页

华北科技学院_Delphi实验报告_简易学生信息管理系统

华北科技学院计算机学院综合性实验报告

信息管理界面(普通用户使用界面)

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第 3 页

华北科技学院_Delphi实验报告_简易学生信息管理系统

华北科技学院计算机学院综合性实验报告

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.btnQueryClick(Sender: TObject); begin if EdtContent.Text = '' then begin MessageB

ox(0,'查询内容为空！','错误',0); EdtContent.SetFocus; end else if trim(EdtContent.Text)<>'' then begin case GrpCondition.ItemIndex of 0: begin StrSql:='select * from info where Snum='''+trim(EdtContent.text)+''''; if QryStu.Active then begin QryStu.Active:=false; QryStu.SQL.Clear; QryStu.SQL.Add(StrSql); QryStu.Active:=true; if QryStu.Bof and QryStu.Eof then begin MessageDlg('查无此人！,请重新输入学号',mtError,[mbOK],1); EdtContent.Text:=''; EdtContent.SetFocus; end; end; end; 1: begin StrSql:='select * from info where Sname='''+trim(EdtContent.text)+''''; if QryStu.Active then begin QryStu.Active:=false; QryStu.SQL.Clear; QryStu.SQL.Add(StrSql); QryStu.Active:=true; if QryStu.Bof and QryStu.Eof then begin MessageDlg('查无此人！,请重新输入姓名',mtError,[mbOK],1); EdtContent.Text:=''; EdtContent.SetFocus; end;第 4 页

华北科技学院_Delphi实验报告_简易学生信息管理系统

华北科技学院计算机学院综合性实验报告

end; end; 2: begin StrSql:='select * from info where ClassName='''+trim(EdtContent.text)+''''; if QryStu.Active then begin QryStu.Active:=false; QryStu.SQL.Clear; QryStu.SQL.Add(StrSql); QryStu.Active:=true; if QryStu.Bof and QryStu.Eof then begin MessageDlg('查无此人！,请重新输入班级',mtError,[mbOK],1); EdtContent.Text:=''; EdtContent.SetFocus; end; end; end; 3: begin StrSql:='select * from info where Sex='''+trim(EdtContent.text)+''''; if QryStu.Active then begin QryStu.Active:=false; QryStu.SQL.Clear; QryStu.SQL.Add(StrSql); QryStu.Active:=true; if QryStu.Bof and QryStu.Eof then begin MessageDlg('性别输入错误,请重新输入性别',mtError,[mbOK],1); EdtContent.Text:=''; EdtContent.SetFocus; end; end; end; end; end; end; 4) 、信息管理界面新增记录按钮 btnAdd 的 onClick 事件过程代码为： procedure TFrmStudent.BtnAddClick(Sender: TObject); begin if EdtNum.Text='' then begin MessageBox(0,'学号内容不能为空！','错误',MB_OK); EdtNum.SetFocus; end else QryStu.Close; QryStu.SQL.Clear; QryStu.SQL.Text:='select * from info where snum='''+EdtNum.Text+''''; QryStu.Open; if not(QryStu.Eof and QryStu.Bof) then begin MessageBox(0,'学号不能重复','错误',0); EdtNum.SetFocus; Exit; end else第 5 页

华北科技学院_Delphi实验报告_简易学生信息管理系统

华北科技学院计算机学院综合性实验报告

begin QryStu.Close; QryStu.SQL.Clear; QryStu.SQL.Text:='select * from info'; QryStu.Open; QryStu.Append; QryStu.FieldByName('snum').AsString:=EdtNum.Text; QryStu.FieldByName('sname').AsString:=EdtName.Text; if RdoMan.Checked then QryStu.FieldByName('sex').AsString:='男' else QryStu.FieldByName('sex').asstring:='女'; QryStu.FieldByName('birthday').AsDateTime:=DtpBirthday.Date; QryStu.FieldByName('enrolldate').AsDateTime:=DtpDate.date; QryStu.FieldByName('classname').AsString:=EdtClass.Text; QryStu.Post; end; end; 5) 、信息管理界面修改记录按钮 btnModify 的 onClick 事件过程代码为： procedure TFrmStudent.BtnModifyClick(Sender: TObject); begin QryStu.Close; QryStu.SQL.clear; QryStu.SQL.Text:='select * from info where snum='''+

EdtNum.Text+''''; QryStu.Open; if (QryStu.Eof and QryStu.Bof) then begin MessageBox(0,'学号不存在，不能修改','警告',0); EdtNum.SetFocus; Exit; end else begin QryStu.Close; QryStu.SQL.clear; QryStu.SQL.Text:='select * from info where snum='''+EdtNum.Text+''''; QryStu.Open; QryStu.Edit; QryStu.FieldByName('snum').AsString:=EdtNum.Text; QryStu.FieldByName('sname').AsString:=EdtName.Text; if RdoMan.Checked then QryStu.FieldByName('sex').AsString:='男' else QryStu.FieldByName('sex').asstring:='女'; QryStu.FieldByName('birthday').AsDateTime:=DtpBirthday.Date; QryStu.FieldByName('enrolldate').AsDateTime:=DtpDate.Date; QryStu.FieldByName('classname').AsString:=EdtClass.Text; QryStu.Post; end; e …… 此处隐藏：3594字，全部文档内容请下载后查看。喜欢就下载吧 ……