borrow_return.pas

该是一个比较好的图书馆系统,是现在大学生软件课程设计的好模板

unit borrow_return;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ADODB, DB;

type
  Tborrow = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Label8: TLabel;
    Edit8: TEdit;
    Label9: TLabel;
    Edit9: TEdit;
    GroupBox3: TGroupBox;
    Label10: TLabel;
    Edit10: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    GroupBox4: TGroupBox;
    Label11: TLabel;
    Edit11: TEdit;
    Label12: TLabel;
    Edit12: TEdit;
    Label13: TLabel;
    Edit13: TEdit;
    Label14: TLabel;
    Edit14: TEdit;
    Label15: TLabel;
    Edit15: TEdit;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    ADOQuery1: TADOQuery;
    ADOCommand1: TADOCommand;
    GroupBox5: TGroupBox;
    Label16: TLabel;
    Edit16: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  borrow: Tborrow;

implementation

{$R *.dfm}

procedure Tborrow.Button1Click(Sender: TObject);
begin
if Edit1.text<>''then
begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Text:='select StuID  from [User] where StuID='''+Edit1.text+'''';
  adoquery1.Open;
  if adoquery1.FieldByName('StuID').AsString='' then
  begin
    showmessage('用户不存在！');
  end
  else
  begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Text:='select *  from [User] where StuID='''+Edit1.text+'''';
  adoquery1.Open;
  Edit2.Text:=adoquery1.FieldByName('Name').AsString;
  Edit3.Text:=adoquery1.FieldByName('Gender').AsString;
  Edit4.Text:=adoquery1.FieldByName('StuGroup').AsString;
 //Edit4.Text:=adoquery1.FieldByName('Gender').AsString;
  end;
  end;
  if Edit5.text<>''then
   begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Text:='select BookID  from Book where BookID='''+Edit5.text+'''';
  adoquery1.Open;
  if adoquery1.FieldByName('BookID').AsString='' then
  begin
    showmessage('图书不存在！');
  end
  else
  begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Text:='select *  from Book where BookID='''+Edit5.text+'''';
  adoquery1.Open;
  Edit6.Text:=adoquery1.FieldByName('BookName').AsString;
  Edit7.Text:=adoquery1.FieldByName('Auther').AsString;
  Edit8.Text:=adoquery1.FieldByName('Public_data').AsString;
  Edit9.Text:=adoquery1.FieldByName('Press').AsString;
  end;
  end
  else
  showmessage('请输入正确的用户和正确的图书！');
end;
//end;

procedure Tborrow.FormCreate(Sender: TObject);
begin
Edit10.Text:=formatdatetime('yyyy/mm/dd', now);
Edit16.Text:=formatdatetime('yyyy/mm/dd', now);
end;

procedure Tborrow.Button3Click(Sender: TObject);
begin
close;
end;

procedure Tborrow.Button6Click(Sender: TObject);
begin
close;
end;

procedure Tborrow.Button4Click(Sender: TObject);
begin
if Edit11.text<>''then
   begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Text:='select BookID  from Book where BookID='''+Edit11.text+'''';
  adoquery1.Open;
  if adoquery1.FieldByName('BookID').AsString='' then
  begin
    showmessage('图书不存在！');
  end
  else
  begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Text:='select *  from Book where BookID='''+Edit11.text+'''';
  adoquery1.Open;
  Edit12.Text:=adoquery1.FieldByName('BookName').AsString;
  Edit13.Text:=adoquery1.FieldByName('Auther').AsString;
  Edit14.Text:=adoquery1.FieldByName('Public_data').AsString;
  Edit15.Text:=adoquery1.FieldByName('Press').AsString;
  end;
  end
  else
  showmessage('请输入正确的图书！');
end;
//end;

procedure Tborrow.Button5Click(Sender: TObject);
begin
   button4.Click;
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:='select * from Borrow where BookID='''+edit11.Text+'''';
   adoquery1.Open;
   if adoquery1.FieldByName('Symbol').AsInteger=1 then
   begin
    showmessage('该书已还！');
   end
   else
   if adoquery1.FieldByName('End_data').AsString>'2008-5-12' then
   showmessage('该书已超期，请接收管理员的处罚！');
   if adoquery1.FieldByName('BookID').AsString<>'' then
   begin
    adocommand1.CommandText:='update Borrow set Symbol=1 where BookID='''+adoquery1.FieldByName('BookID').AsString+'''';
    adocommand1.Execute;
    adocommand1.CommandText:='update Book set Symbol=1 where BookID='''+adoquery1.FieldByName('BookID').AsString+'''';
    adocommand1.Execute;
    showmessage('还书成功');
   end;
   if adoquery1.FieldByName('BookID').AsString='' then
   begin
   showmessage('该书未借出去！');
   end;
end;

procedure Tborrow.Button2Click(Sender: TObject);
var symbol:integer;
begin
button1.Click;
if (Edit2.Text<>'')and(edit6.Text<>'')then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from [User] where StuID='''+Edit1.text+'''';
adoquery1.Open;
symbol:= adoquery1.FieldByName('Symbol').AsInteger;
if adoquery1.FieldByName('Symbol').AsInteger=0 then
begin
showmessage('用户已挂失！');
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from Book where BookID='''+Edit5.text+'''';
adoquery1.Open;
if adoquery1.FieldByName('Symbol').AsInteger=1 then
begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Text:='select * from Borrow where UserID='''+Edit1.text+'''';
    adoquery1.Open;
    if (adoquery1.FieldByName('End_data').asstring<Edit10.Text)and(adoquery1.FieldByName('Symbol').AsInteger=0)then
    begin
    showmessage('对不起，您有书超期未还，现在还不能借书！');
    end
    else
    begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Text:='select * from Borrow where UserID='''+Edit1.text+'''and BookID='''+Edit5.text+'''';
    adoquery1.Open;
    if adoquery1.FieldByName('UserID').AsString<>''then
    begin
     adocommand1.CommandText:='update Borrow set Symbol=0 where BookID='''+Edit5.Text+'''';
     adocommand1.Execute;
     adocommand1.CommandText:='update Borrow set Borrow_data=''2008-05-12'' where BookID='''+Edit5.Text+'''';
     adocommand1.Execute;
     adocommand1.CommandText:='update Borrow set End_data=''2008-06-22'' where BookID='''+Edit5.Text+'''';
     adocommand1.Execute;
     adocommand1.CommandText:='update Borrow set return_data=null where BookID='''+Edit5.Text+'''';
     adocommand1.Execute;
     adocommand1.CommandText:='update Book set Symbol=0 where BookID='''+Edit5.Text+'''';
     adocommand1.Execute;
     showmessage('借阅成功！');
     end
     else
     begin
    adocommand1.CommandText:='insert Borrow values('''+edit1.Text+''','''+edit5.Text+''','''+Edit10.Text+''',''2008-06-22'',null,0)';
    adocommand1.Execute;
    adocommand1.CommandText:='update Book set Symbol=0 where BookID='''+Edit5.Text+'''';
    adocommand1.Execute;
    showmessage('借阅成功！');
    end
    end
end
else
begin
showmessage('该书已借出！');
end
end;


end;
end;

procedure Tborrow.FormShow(Sender: TObject);
begin
 Edit1.Text:='';
 Edit2.Text:='';
 Edit3.Text:='';
 Edit4.Text:='';
 Edit5.Text:='';
 Edit6.Text:='';
 Edit7.Text:='';
 Edit8.Text:='';
 Edit9.Text:='';
 Edit11.Text:='';
 Edit12.Text:='';
 Edit13.Text:='';
 Edit14.Text:='';
 Edit15.Text:='';
end;

end.