rtip.~pas

来自「蛮不错的图书管理系统,大家可以载着试试看啊」· ~PAS 代码 · 共 64 行

unit rtip;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, DB, DBTables;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    q1: TQuery;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
    uses  gl,main1,returnbook;
{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    q1.SQL.Clear;
    q1.SQL.add('select * from book_info where 图书编号=:n');
    q1.ParamByName('n').AsString:=edit1.Text;
    q1.Open;
    if q1.RecordCount=0 then
      begin
         messagedlg('书库中无此书,请检查输入书号！',mtinformation,[mbyes],0);
         exit;
      end;
    q1.Close;
    q1.SQL.Clear;
    q1.SQL.add('select * from borrow_info where 图书编号=:n');
    q1.ParamByName('n').AsString:=edit1.Text;
    q1.Open;
     if q1.RecordCount=0 then
      begin
         messagedlg('此书未被借出,请检查输入书号！',mtinformation,[mbyes],0);
         exit;
      end;
    userno:=q1.FieldByName('图书卡号').AsString;
    main.listbookinfo;
    returnbookfrm.Show;
    returnbookfrm.ListView1.Items.Clear;
    returnbookfrm.l1.Caption:=  edit1.Text+'现被'+q1.fieldbyname('图书卡号').AsString+'用户借阅，该同学所借图书信息如下表！   ';
    returnbookfrm.l1.Font.Color:=clred;
 
    q1.Close;
end;

end.