edit3.text:=query1.Fields[4].AsString;
edit4.text:=query1.Fields[3].AsString;
edit5.text:=query1.Fields[2].AsString;
edit6.text:=query1.Fields[6].AsString;
query2.Close;
b:= trim(edit2.text);
Query2.SQL.Clear;
query2.SQL.Add('select * from 读者 where 编号 = '''+b+'''');
query2.Open;
query2.Active:=true;
edit7.text:=query2.Fields[1].AsString;
edit8.text:=query2.Fields[2].AsString;
//edit9.text:=query2.Fields[3].AsString;
query3.Close;
Query3.SQL.Clear;
query3.SQL.Add('select count(*) from 借阅 where 读者编号='''+b+'''');
query3.Open;
query3.Active:=true;
edit9.Text := query3.Fields[0].asstring+'本';
end;
end;
借书按钮代码: procedure TBorrowForm.Button2Click(Sender: TObject); var a,b:string; year,month,day:word; begin if (edit3.Text='') or (edit7.Text='') then
ShowMessage('请核实书号和读者编号!')
else
if (edit9.Text='3本') then
begin
ShowMessage('不能借书超过3本!');
end
else
begin
query1.Close;
a:= trim(edit1.text);
Query1.SQL.Clear;
query1.SQL.Add('select * from 图书 where 书号 = '''+a+'''');
query1.Open;
query1.Active:=true;
edit6.text:=query1.Fields[6].AsString;
if (edit6.Text='是') then
begin
ShowMessage('该书已经借走!');
edit1.SetFocus;
end
els