ufrmborrowbook.pas

一款不错的图书馆借阅系统

unit ufrmBorrowBook;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, Grids, DBGrids, DB, ADODB;

type
  TfrmBorrowBook = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    edUserID: TEdit;
    qryBorrow: TADOQuery;
    dsBorrow: TDataSource;
    DBGrid1: TDBGrid;
    Panel4: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edName: TDBEdit;
    edGender: TDBEdit;
    edBirthday: TDBEdit;
    DBRadioGroup1: TDBRadioGroup;
    btnQuit: TButton;
    btnBorrowBook: TButton;
    btnReturnBook: TButton;
    cmdBorrow: TADOCommand;
    cmdReturn: TADOCommand;
    qryReader: TADOQuery;
    dsReader: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnQuitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure edUserIDKeyPress(Sender: TObject; var Key: Char);
    procedure btnBorrowBookClick(Sender: TObject);
    procedure btnReturnBookClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBorrowBook: TfrmBorrowBook;

procedure WorkfrmBorrowBook;

implementation

uses udmData, ufrmSelectBook;

{$R *.dfm}
procedure WorkfrmBorrowBook;
begin
  Application.CreateForm(TfrmBorrowBook, frmBorrowBook);
  frmBorrowBook.ShowModal;
end;

procedure TfrmBorrowBook.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := cafree;
end;

procedure TfrmBorrowBook.btnQuitClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmBorrowBook.FormCreate(Sender: TObject);
begin
  qryReader.Parameters.ParamByName('UserID').Value := '10001';
  qryReader.Open;
  qryBorrow.Close;
  qryBorrow.Open;
end;

procedure TfrmBorrowBook.edUserIDKeyPress(Sender: TObject; var Key: Char);
begin
  if Key= chr(13) then
    begin
      qryReader.Close;
      qryReader.Parameters.ParamByName('UserID').Value := StrToInt(edUserID.Text);
      qryReader.Open;
      qryBorrow.Close;
      qryBorrow.Open;
    end;
end;

procedure TfrmBorrowBook.btnBorrowBookClick(Sender: TObject);
var
  BookID :integer;
  BorrowDate,ReturnDate :TDateTime;
  Str:string;
begin
//  BookID := WorkfrmSelectBook;
  if InputQuery( '书号','请要借的书的输入书号',Str) = false then exit;
  BookID := StrToInt(Str);
  if BookID = -1 then exit;
  cmdBorrow.Parameters.ParamByName('BookID').value := BookID;
  cmdBorrow.Parameters.ParamByName('UserID').Value :=
     qryReader.fieldByName('UserID').value;
  BorrowDate := Date;
  ReturnDate := Date;
  cmdBorrow.Parameters.ParamByName('BorrowDate').Value := BorrowDate;
  cmdBorrow.Parameters.ParamByName('ReturnDate').Value := ReturnDate;
  cmdBorrow.Execute;
  qryBorrow.Close;
  qryBorrow.Open;
end;

procedure TfrmBorrowBook.btnReturnBookClick(Sender: TObject);
begin
  if qryBorrow.RecordCount <= 0 then exit;

  cmdReturn.Parameters.ParamByName('UserID').value :=
                                    qryReader.fieldByName('UserID').Value;
  cmdReturn.Parameters.ParamByName('BookID').value :=
                                    qryBorrow.fieldByName('a.BookID').Value;
  cmdReturn.Execute;
  qryBorrow.Close;
  qryBorrow.Open;
end;

end.