图书馆管理系统-大作业(6)

信息与计算科学系课程设计报告

if Edit6.Text = '' then begin

ShowMessage('图书类型名不能为空！'); Edit6.SetFocus; Exit; end;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Text := 'insert into 图书明细表(图书编号,类别编号,' + '图书名称,作者,出版社,出版日期,定价)' +

'values(:id,:type,:name,:author,:publish,:time,:price)';

ADOQuery1.Parameters.ParamByName('id').Value := Trim(Edit1.Text); ADOQuery1.Parameters.ParamByName('name').Value := Trim(Edit2.Text); ADOQuery1.Parameters.ParamByName('type').Value := trim(edit6.Text); ADOQuery1.Parameters.ParamByName('author').Value := Trim(Edit3.Text); ADOQuery1.Parameters.ParamByName('publish').Value := Trim(Edit5.Text);

ADOQuery1.Parameters.ParamByName('time').Value := StrToDate(Trim(Edit7.Text));

ADOQuery1.Parameters.ParamByName('price').Value := StrToFloat(Trim(Edit4.Text));

ADOQuery1.ExecSQL; ADOQuery1.Close; if messagedlg('入库完毕，还有要入库的书籍吗？', mtconfirmation, [mbyes, mbno], 0) = mryes then

begin

Edit2.Text := ''; Edit1.Text := ''; Edit3.Text := ''; Edit4.Text := ''; Edit5.Text := ''; Edit6.Text := ''; Edit7.Text := ''; Edit2.SetFocus; end; end;

5.7 密码修改代码：

procedure TfrmModifyPsw.Button1Click(Sender: TObject); begin try

with DM.ADOQuery1 do begin

if yhmedit.Text = '' then begin

26

信息与计算科学系课程设计报告

ShowMessage('用户名不能为空！'); yhmedit.SetFocus; Exit; end;

if jmmedit.Text = '' then begin

ShowMessage('请输入旧密码！'); jmmedit.SetFocus; Exit; end;

if xmmedit.Text = '' then begin

ShowMessage('请输入新密码！'); xmmedit.SetFocus; Exit; end;

if qrmmedit.Text = '' then begin

ShowMessage('请确认密码！'); qrmmedit.SetFocus; Exit; end; Close; SQL.Clear;

SQL.Add('select * from 用户 where 姓名=:xm and 密码=:mm'); Parameters.ParamByName('xm').Value := Trim(yhmedit.Text); Parameters.ParamByName('mm').Value := Trim(jmmedit.Text); Open;

if RecordCount < 1 then begin

ShowMessage('旧密码不正确!'); Exit; end;

if xmmedit.Text <> qrmmedit.Text then begin

ShowMessage('新密码和旧密码不一致!'); Exit; end; end;

with DM.ADOQuery1 do begin Close; SQL.Clear;

SQL.Add('update 用户 set 密码=:mm where 姓名=:xm');

27

信息与计算科学系课程设计报告

Parameters.ParamByName('xm').Value := Trim(yhmedit.Text); Parameters.ParamByName('mm').Value := Trim(xmmedit.Text); ExecSQL;

ShowMessage('密码修改成功!'); end; except

ShowMessage('密码修改失败!'); end;

jmmedit.Clear; xmmedit.Clear; qrmmedit.Clear; end;

5.7 读者服务代码：

（1）登陆代码

procedure TfrmReaderSer.Button1Click(Sender: TObject); begin

with DM.ADOQuery1 do begin Close; SQL.Clear;

SQL.Add('select * from 学生信息表 where 学号=:username and 密码=:pass ');

Parameters.ParamByName('username').Value := Edit1.Text; Parameters.ParamByName('pass').Value := Edit2.Text; Open;

Button4.Enabled := true; Button6.Enabled := true; Button5.Enabled := true;

ShowMessage('欢迎继续使用!'); if RecordCount < 1 then begin

ShowMessage('用户名或密码错误，请重新输入!'); Edit2.Text := ''; Exit; end else begin end; end; end;

（2）修改按钮代码：

procedure TfrmReaderSer.Button4Click(Sender: TObject);

28

信息与计算科学系课程设计报告

begin try

with DM.ADOQuery1 do begin Close;

SQL.Clear;

SQL.Add('select * from 学生信息表 where 姓名=:xm and 密码=:mm'); Parameters.ParamByName('xm').Value := Trim(yhmedit.Text); Parameters.ParamByName('mm').Value := Trim(jmmedit.Text); Open;

if RecordCount < 1 then begin

ShowMessage('旧密码不正确!'); Exit; end;

if xmmedit.Text <> qrmmedit.Text then begin

ShowMessage('新密码和旧密码不一致!'); Exit; end; end;

with DM.ADOQuery1 do begin Close;

SQL.Clear;

SQL.Add('update 学生信息表 set 密码=:mm where 姓名=:xm'); Parameters.ParamByName('xm').Value := Trim(yhmedit.Text); Parameters.ParamByName('mm').Value := Trim(xmmedit.Text); ExecSQL;

ShowMessage('密码修改成功!'); end; except

ShowMessage('密码修改失败!'); end;

jmmedit.Clear; xmmedit.Clear; qrmmedit.Clear; end;

29

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库图书馆管理系统-大作业(6)在线全文阅读。