returnbook.~pas

图书馆管理系统

unit ReturnBook;

interface

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

type
  TfrmReturnBook = class(Tform)
    GroupBox2: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    btnSave: TButton;
    btnClose: TButton;
    meoReader: TMemo;
    edtBorrowNo: TEdit;
    Panel2: TPanel;
    edtReadKind: TEdit;
    edtReader: TEdit;
    grySelect: TQuery;
    mskDate: TMaskEdit;
    Label1: TLabel;
    Label11: TLabel;
    Label2: TLabel;
    mskReturnDate: TMaskEdit;
    Panel1: TPanel;
    edtBookName: TEdit;
    pnlReader: TPanel;
    edtReadNo: TEdit;
    pnlBook: TPanel;
    edtBookNo: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnCloseClick(Sender: TObject);
    procedure cmbBookNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure edtBookNoKeyPress(Sender: TObject; var Key: Char);
    procedure edtBookNoExit(Sender: TObject);
    procedure edtReadNoExit(Sender: TObject);
  private
    function PF_GetData(strNo:string): Boolean;
    function PF_GetReaderInfo: Boolean;
    function PF_Check: Boolean;
    procedure PF_Clear;
    function PF_UpdateData: Boolean;
    function PF_GetBookInfo: Boolean;
    function PF_GetBorrowDate: Boolean;
    { Private declarations }
  public
    { Public declarations }
    procedure PF_FormShow(strForm,strNo:string);
  end;

var
  frmReturnBook: TfrmReturnBook;
  frmReturnBookM: TfrmReturnBook;
implementation

uses Db_Con,COMMON,LendList, Main, ReturnList;

{$R *.dfm}
//*****************************************************************************
//   函 数 名： FormClose
//   功能描述： 关闭画面
//   参    数： 无
//   返 回 值： 无
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
procedure TfrmReturnBook.FormClose(Sender: TObject;var Action: TCloseAction);
begin
    Action:=caFree;
end;
//*****************************************************************************
//   函 数 名： btnCloseClick
//   功能描述： 返回
//   参    数： 无
//   返 回 值： 无
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
procedure TfrmReturnBook.btnCloseClick(Sender: TObject);
begin
    Close;
end;
//*****************************************************************************
//   函 数 名： cmbBookNameKeyDown
//   功能描述： 回车键相当TAB键
//   参    数： 无
//   返 回 值： 无
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
procedure TfrmReturnBook.cmbBookNameKeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
begin
    if key = 13 then
    begin
        key := 0;
        SelectNext(ActiveControl,True,True);
    end;
end;
//*****************************************************************************
//   函 数 名： PF_GetData
//   功能描述： 获得数据
//   参    数： 无
//   返 回 值： 无
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
Function TfrmReturnBook.PF_GetData(strNo:string): Boolean;
VAR strSql : String;
begin
    Result:=True;
    with Db_Connect.Library_Query do
        begin
        strSql:='';

        strSql:=strSql + ' SELECT ';
        strSql:=strSql + ' A.BR_READERNO ';             //读者编号
        strSql:=strSql + ',A.BR_READERNAME ';           //读者姓名
        strSql:=strSql + ',A.BR_BOOKNO ';               //书籍编号
        strSql:=strSql + ',A.BR_BOOKNAME ';             //书籍名称
        strSql:=strSql + ',A.BR_BORROWDATE ';           //出借日期
        strSql:=strSql + ',A.BR_RETURNDATE ';           //还书日期
        strSql:=strSql + ',A.BR_BORROWMEMO ';           //备注信息
        strSql:=strSql + ',B.BOOK_TYPE ';               //书籍类别
        strSql:=strSql + ',B.BOOK_AUTHOR ';             //书籍作者
        strSql:=strSql + ',B.BOOK_PUB ';                //出版社名称
        strSql:=strSql + ',B.BOOK_MEMO ';               //书籍备注
        strSql:=strSql + ',C.READER_TYPE ';             //读者种类
        strSql:=strSql + ' FROM BORROWINFO A LEFT OUTER JOIN BOOKS B ON (A.BR_BOOKNO=B.BOOK_NO)';
        strSql:=strSql + ' LEFT OUTER JOIN READERS C ON (A.BR_READERNO=C.READER_NO) ';
        strSql:=strSql + ' WHERE A.BR_BORROWNO='+strNo+'';
        DatabaseName:=gDbName;
        Close;
        SQL.Clear;
        SQL.Add(strSql);
        TRY
            open;            
            if Not EOF then begin
                edtBookNo.Text:=Fieldbyname('BR_BOOKNO').AsString;           //书籍编号
                edtBookName.Text:=Fieldbyname('BR_BOOKNAME').AsString;       //书籍名称
                edtReadNo.Text:=Fieldbyname('BR_READERNO').AsString;         //读者编号
                edtReader.Text:=Fieldbyname('BR_READERNAME').AsString;       //读者姓名
                edtReadKind.Text:=Fieldbyname('READER_TYPE').AsString;       //读者种类
                mskDate.Text:=Fieldbyname('BR_BORROWDATE').AsString;         //出借日期
                mskReturnDate.Text:=Fieldbyname('BR_RETURNDATE').AsString;   //还书日期
                meoReader.Text:=Fieldbyname('BR_BORROWMEMO').AsString;       //备注信息
            end;
            Close;
        except
            on E:exception do
            begin
                Result:=False;
                Close;
                Application.MessageBox(PChar(E.Message),'图书管理信息系统',MB_OK + MB_ICONERROR);
                exit;
            end;
        end;
    end;
end;
//*****************************************************************************
//   函 数 名： FormCreate
//   功能描述： 初始化
//   参    数： 无
//   返 回 值： Boolean
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
procedure TfrmReturnBook.FormCreate(Sender: TObject);
begin
    self.Caption :='添加还书信息';
    //还书日期
    mskReturnDate.Text:=FormatDateTime('YYYY-MM-DD',Now);
end;
//*****************************************************************************
//   函 数 名： FormCreate
//   功能描述： 初始化
//   参    数： 无
//   返 回 值： Boolean
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
procedure TfrmReturnBook.PF_FormShow(strForm,strNo:string);
begin
    self.Caption :=strForm;
    edtBorrowNo.Text :=strNo;
    if PF_GetData(strNo)=False then begin
        Exit;
    end;
    //还书日期
    mskReturnDate.Text:=FormatDateTime('YYYY-MM-DD',Now);
    pnlReader.Enabled :=False;
    pnlBook.Enabled :=False;
    mskReturnDate.SetFocus;
end;
//*****************************************************************************
//   函 数 名： PF_UpdateData
//   功能描述： 保存数据
//   参    数： 无
//   返 回 值： Boolean
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
Function TfrmReturnBook.PF_UpdateData:Boolean;
var strSql : string;
begin
    Result:=True;
    with Db_Connect.Library_Query do begin
        strSql:='';
        strSql:=strSql + ' UPDATE BORROWINFO SET';
        if Trim(mskReturnDate.Text)<>'    -  -  ' then begin
            strSql:=strSql + ' BR_RETURNDATE ='''+Trim(mskReturnDate.Text)+'''';//还书日期
        end else begin
            strSql:=strSql + ' BR_RETURNDATE =NULL';                        //还书日期
        end;
        strSql:=strSql + ',BR_BORROWMEMO='''+Trim(meoReader.Text)+'''';     //备注信息
        strSql:=strSql + ' WHERE BR_READERNO='''+Trim(edtReadNo.Text)+''''; //读者编号
        strSql:=strSql + ' AND BR_BOOKNO='''+Trim(edtBookNo.Text)+'''';     //书籍编号
        DatabaseName:=gDbName;
        Close;
        SQL.Clear;
        SQL.Add(strSql);
        TRY
            //SQL
            ExecSQL;
            MessageDlg('      还书信息保存成功！      ',mtInformation,[mbOk],0);
        except
            on E:exception do
            begin
                Close;
                Result:=False;
                Application.MessageBox(PChar(E.Message),'图书管理信息系统',MB_OK + MB_ICONERROR);
                exit;
            end;
        end;
    end;
    Db_Connect.Library_Query.Close;
end;
//*****************************************************************************
//   函 数 名： btnSaveClick
//   功能描述： 保存数据
//   参    数： 无
//   返 回 值： Boolean
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
procedure TfrmReturnBook.btnSaveClick(Sender: TObject);
begin
    if PF_Check=False then begin
        Exit;
    end;
    //保存数据
    if PF_UpdateData=False then begin
        Exit;
    end;
    if self.Caption ='添加还书信息' then begin
        PF_Clear;
    end
    else begin
        self.Close;
        frmReturnList.PF_GetData;
    end;

end;
//*****************************************************************************
//   函 数 名： PF_Check