华北科技学院_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; end;
第 6 页