returnbook.~pas

图书馆管理系统

//   功能描述： 画面项目全部清空
//   参    数： 无
//   返 回 值： Boolean
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
procedure  TfrmReturnBook.PF_Clear;
begin
    edtBookNo.Text:='';         //书籍编号
    edtBookName.Text:='';       //书籍名称
    edtReadNo.Text:='';         //读者编号
    edtReader.Text:='';         //读者姓名
    edtReadKind.Text:='';       //读者种类
    meoReader.Text:='';         //备注信息
end;
//*****************************************************************************
//   函 数 名： PF_GetBookInfo
//   功能描述： 获得书籍的信息
//   参    数： 无
//   返 回 值： 无
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
Function TfrmReturnBook.PF_GetBookInfo: Boolean;
VAR strSql : String;
begin
    Result:=True;
    with Db_Connect.Library_Query do
        begin
        strSql:='';
        strSql:=strSql + 'SELECT BOOK_NO ';           //书籍编号
        strSql:=strSql + ',BOOK_NAME ';               //书籍名称
        strSql:=strSql + ',BOOK_TYPE ';               //书籍类别
        strSql:=strSql + ',BOOK_AUTHOR ';             //书籍作者
        strSql:=strSql + ',BOOK_PUB ';                //出版社名称
        strSql:=strSql + ',BOOK_MEMO ';               //书籍备注
        strSql:=strSql + ' FROM BOOKS WHERE BOOK_NO='+edtBookNo.Text+'';
        DatabaseName:=gDbName;
        Close;
        SQL.Clear;
        SQL.Add(strSql);
        TRY
            open;            
            if Not EOF then begin
                edtBookNo.Text:=Fieldbyname('BOOK_NO').AsString;           //书籍编号
                edtBookName.Text:=Fieldbyname('BOOK_NAME').AsString;       //书籍名称
            end
            else begin
                edtBookName.Text:='';       //书籍名称
                Result:=False;
            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;
//*****************************************************************************
//   函 数 名： PF_Check
//   功能描述： 必须输入的项目
//   参    数： 无
//   返 回 值： Boolean
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
Function  TfrmReturnBook.PF_Check: Boolean;
begin
    Result:=False;
    if Trim(edtBookNo.Text)='' then begin
        MessageDlg('      请输入书籍编号！      ',mtError,[mbOk],0);
        edtBookNo.SetFocus;
        Exit;
    end;
    if Trim(edtReadNo.Text)='' then begin
        MessageDlg('      请输入读者编号！      ',mtError,[mbOk],0);
        edtReadNo.SetFocus;
        Exit;
    end;
    if PF_GetBookInfo=False then begin
        MessageDlg('输入书籍编号不存在，请重新输入！',mtError,[mbOk],0);
        edtBookNo.SetFocus;
        Exit;
    end;
    if PF_GetReaderInfo=False then begin
        MessageDlg('输入读者编号不存在，请重新输入！',mtError,[mbOk],0);
        edtReadNo.SetFocus;
        Exit;
    end;
    if Trim(edtBorrowNo.Text)='' then begin
        MessageDlg('您输入的还书信息有错误，请确认后重新输入！',mtError,[mbOk],0);
        edtReadNo.SetFocus;
        Exit;
    end;
    Result := True;
end;
//*****************************************************************************
//   函 数 名： FormDestroy
//   功能描述： 画面关闭
//   参    数： 无
//   返 回 值： Boolean
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
procedure TfrmReturnBook.FormDestroy(Sender: TObject);
begin
    if self.Caption ='修改还书信息' then begin
        frmReturnList.Enabled:=True;
        frmReturnList.PF_GetData;
    end
    else begin
        frmMain.N32.Enabled :=True;
    end;
end;
//*****************************************************************************
//   函 数 名： edtBookNoKeyPress
//   功能描述： 限制只能输入数字
//   参    数： 无
//   返 回 值： Boolean
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
procedure TfrmReturnBook.edtBookNoKeyPress(Sender: TObject; var Key: Char);
begin
    if not (Key in ['0'..'9',#8]) then
        Key:=#0;
end;
//*****************************************************************************
//   函 数 名： PF_GetReaderInfo
//   功能描述： 获得读者信息
//   参    数： 无
//   返 回 值： 无
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
Function TfrmReturnBook.PF_GetReaderInfo: Boolean;
VAR strSql : String;
begin
    Result:=True;
    with Db_Connect.Library_Query do
        begin
        strSql:='';
        strSql:=strSql + ' SELECT READER_NO ';      //读者编号
        strSql:=strSql + ',READER_NAME ';           //读者姓名
        strSql:=strSql + ',READER_TYPE ';           //读者种类
        strSql:=strSql + ' FROM READERS WHERE READER_NO='+edtReadNo.Text+'';
        DatabaseName:=gDbName;
        Close;
        SQL.Clear;
        SQL.Add(strSql);
        TRY
            open;            
            if Not EOF then begin
                edtReadNo.Text:=Fieldbyname('READER_NO').AsString;         //读者编号
                edtReader.Text:=Fieldbyname('READER_NAME').AsString;       //读者姓名
                edtReadKind.Text:=Fieldbyname('READER_TYPE').AsString;     //读者种类
            end
            else begin
                edtReader.Text:='';         //读者姓名
                edtReadKind.Text:='';       //读者种类
                Result:=False;
            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;
//*****************************************************************************
//   函 数 名： edtBookNoExit
//   功能描述： 获得书籍的信息
//   参    数： 无
//   返 回 值： 无
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
procedure TfrmReturnBook.edtBookNoExit(Sender: TObject);
begin
    if edtBookNo.Text<>'' then begin
        //获得书籍的信息
        if PF_GetBookInfo=False then begin
            Exit;
        end;
    end
    else begin
        edtBookName.Text:='';       //书籍名称
    end;
    if (edtReadNo.Text<>'') and (edtBookNo.Text <>'') then begin
        if PF_GetBorrowDate= False then begin
            Exit;
        end;
    end;
end;
//*****************************************************************************
//   函 数 名： PF_GetReaderInfo
//   功能描述： 获得读者信息
//   参    数： 无
//   返 回 值： 无
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
procedure TfrmReturnBook.edtReadNoExit(Sender: TObject);
begin
    if edtReadNo.Text<>'' then begin
        //获得读者信息
        if PF_GetReaderInfo=False then begin
            Exit;
        end;
    end
    else begin
        edtReader.Text:='';         //读者姓名
        edtReadKind.Text:='';       //读者种类
    end;
    if (edtReadNo.Text<>'') and (edtBookNo.Text <>'') then begin
        if PF_GetBorrowDate= False then begin
            Exit;
        end;
    end;
end;
//*****************************************************************************
//   函 数 名： PF_GetData
//   功能描述： 获得数据
//   参    数： 无
//   返 回 值： 无
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
Function TfrmReturnBook.PF_GetBorrowDate: Boolean;
VAR strSql : String;
begin
    Result:=True;
    with Db_Connect.Library_Query do
        begin
        strSql:='';
        strSql:=strSql + ' SELECT BR_borrowno,BR_BORROWDATE,BR_BORROWMEMO FROM BORROWINFO ';//还书日期
        strSql:=strSql + ' WHERE BR_READERNO='''+Trim(edtReadNo.Text)+''''; //读者编号
        strSql:=strSql + ' AND BR_BOOKNO='''+Trim(edtBookNo.Text)+'''';     //书籍编号
        strSql:=strSql + ' AND BR_returndate IS NULL';                         //还书日期
        DatabaseName:=gDbName;
        Close;
        SQL.Clear;
        SQL.Add(strSql);
        TRY
            open;            
            if Not EOF then begin
                edtBorrowNo.Text :=Fieldbyname('BR_borrowno').AsString; //借阅编号
                mskDate.Text :=Fieldbyname('BR_BORROWDATE').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;
end.