改按钮代码:
procedure TChangeForm.Button1Click(Sender: TObject);
var mima,yh:string;
begin
if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') or (edit4.Text='') then
begin
ShowMessage('请输入用户名和密码!')
end
else
if not (edit3.Text=edit4.Text) then
begin
ShowMessage('两次新密码输入不相同,请重新输入!') ;
edit3.Text:='';
edit4.Text:='';
end
else
yh:=trim(edit1.Text);
mima:=trim(edit2.Text);
table1.Open;
table1.SetKey;
table1.Fields[0].AsString:=yh;
if not table1.GotoKey then
begin
ShowMessage('用户名或密码错误!') end else if not (table1.Fields[1].AsString = mima) then begin ShowMessage('用户名或密码错误!') end
else
begin
query1.Close;
query1.SQL.Text:='update 合法用户 set 密码 = '''+edit3.Text+''' where 用 户名 = '''+edit1.Text+'''';
query1.ExecSQL;
MessageDlg('修改成功',mtInformation,[mbOK],0);
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end
end;
end.
功能选择界面
3.2 内部管理界面
内部管理主界面 相关代码: procedure TServeringForm.Button1Click(Sender: TObject); begin QueryForm.query1.close; QueryForm.query1.open; QueryForm.show; end; procedure TServeringForm.Button2Click(Sender: TObject); begin BorrowForm.show; end; procedure TServeringForm.Button4Click(Sender: TObject); begin ServeringForm.Close; end; procedure TServeringForm.Button3Click(Sender: TObject);
begin
ReturnForm.show;
end;
图书管理界面
修改按钮代码:
procedure TBooksForm.Button1Click(Sender: TObject);
begin
table1.ApplyUpdates;
end;
取消按钮代码:
procedure TBooksForm.Button2Click(Sender: TObject);
begin
table1.CancelUpdates;
BooksForm.Close;
end;
读者信息界面
借阅记录界面
3.3 服务系统界面
图书查询界面 查询按钮代码:
procedure TQueryForm.Button1Click(Sender: TObject);
begin
if (edit1.Text='')then ShowMessage('请输入查询要求!') else begin query1.Close; Query1.SQL.Clear; query1.SQL.Add('select * from 图书 where 书名 LIKE ''%'+Trim(edit1.Text)+'%'''); query1.Open; query1.Active:=true; edit1.Text:=''; end; end; procedure TQueryForm.Button2Click(Sender: TObject); var abc:string; begin if edit2.Text=''then ShowMessage('请输入查询要求!') else begin query1.Close; abc:= trim(edit2.text); Query1.SQL.Clear; query1.SQL.Add('select * from 图书 where 类别 = query1.Open; query1.Active:=true; edit1.text:=''; edit2.Text:=''; end; end; procedure TQueryForm.Button3Click(Sender: TObject); begin BorrowForm.show; end; procedure TQueryForm.Button4Click(Sender: TObject); begin QueryForm.Close; end; procedure TQueryForm.Button5Click(Sender: TObject);
'''+abc+'''');
begin query1.Close; Query1.SQL.Clear; query1.SQL.Add('select * from 图书 '); query1.Open; query1.Active:=true; edit1.Text:=''; end; procedure TQueryForm.Button6Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from 图书 ');
query1.Open;
query1.Active:=true;
edit1.Text:='';
end;
借书处理界面 确定按钮代码:
procedure TBorrowForm.Button1Click(Sender: TObject);
var
a,b:string;
begin
if (edit1.Text='') or (edit2.Text='') then
ShowMessage('请输入书号和读者编号!')
else
begin
query1.Close;
a:= trim(edit1.text);
Query1.SQL.Clear;
query1.SQL.Add('select * from 图书 where 书号 = '''+a+'''');
query1.Open;
query1.Active:=true;