借出图书查询业务

    5.4.12　借出图书查询业务

    借出图书查询通过输入图书编号，查询图书状态，并计算借阅天数和罚款金额等相关信息，对应数据库的表是“Issue”表（见图5-29）。

    

    

    图5-29　借出图书查询子窗体设计

    代码5-15　借出图书查询业务代码

    ′****************************************************************************

    ′窗体加载

    Private Sub Form＿Load（）

    　　lblInfo.Left=Me.ScaleLeft

    　　lblInfo.Top=Me.ScaleTop

    　　lblInfo.Width=Screen.Width

    　　txtFineAmt.Visible=False

    　　lblFineAmt.Visible=False

    　　If rsIssueInfo.RecordCount=0Then

    　　　　MsgBox″不存在借出记录″，vbInformation，″借出记录″

    　　　　Unload Me

    　　End If

    End Sub

    ′设置活动窗体

    Private Sub Form＿Activate（）

    　　clear

    End Sub

    ′图书编号旁扩展按钮

    Private Sub cmdBookOpen＿Click（）

    　　frmBookInfo.Show

    　　frmBookInfo.SetFocus

    End Sub

    ′借书证号旁扩展按钮

    Private Sub cmdMemberOpen＿Click（）

    　　frmMemberInfo.Show

    　　frmMemberInfo.SetFocus

    End Sub

    ′功能函数

    Private Sub clear（）

    　　txtIssueDate.Text=″″

    　　txtBookId.Text=″″

    　　txtDaysUsed.Text=″″

    　　txtFineAmt.Text=″″

    　　txtLibraryId.Text=″″

    　　txtReturnDate.Text=″″

    　　txtFineAmt.Visible=False

    　　lblFineAmt.Visible=False

    　　txtBookId.SetFocus

    End Sub

    ′键盘回车

    Private Sub Txtbookid＿KeyPress（KeyAscii As Integer）

    　　Dim BookNo As String

    　　Dim issueDate As Date

    　　Dim currDate As Date

    　　Dim totalDaysUsed As Integer

    　　Dim totalFineAmt As Integer

    　　BookNo=txtBookId.Text

    　　If KeyAscii=13Then

    　　　　clear

    　　　　If Not IsNumeric（BookNo）Then

    　　　　　　MsgBox″无效检索″，vbCritical，″检索错误″

    　　　　　　Call clear

    　　　　　　Exit Sub

    　　　　End If

    　　　　rsIssueInfo.MoveFirst

    　　　　For i=0To rsIssueInfo.RecordCount

    　　　　　　If rsIssueInfo.EOF=True Then

    　　　　　　　　Exit For

    　　　　　　End If

    　　′超出天数及罚款金额计算方法和还书业务功能相同

    　　If rsIssueInfo（0）=Val（Trim＄（BookNo））Then

    　　　　txtLibraryId.Text=rsIssueInfo（2）

    　　　　txtReturnDate.Text=Format（Now，″mm／dd／yy″）

    　　　　txtIssueDate.Text=rsIssueInfo（1）

    　　　　issueDate=CDate（txtIssueDate.Text）

    　　　　currDate=CDate（Format（Now，″mm／dd／yy″））

    　　　　totalDaysUsed=DateDiff（″d″，issueDate，currDate）

    　　　　If totalDaysUsed＞maxDays Then

    　　　　　　txtFineAmt.Visible=True

    　　　　　　lblFineAmt.Visible=True

    　　　　　　totalDaysUsed=totalDaysUsed-maxDays

    　　　　　　totalFineAmt=fineAmt*totalDaysUsed

    　　　　　　txtDaysUsed.ForeColor=vbRed

    　　　　　　txtFineAmt.ForeColor=vbRed

    　　　　　　txtDaysUsed.Text=″超出最多允许借阅天数″＆totalDaysUsed ＆″天″

    　　　　　　txtFineAmt.Text=″″＆totalFineAmt

    　　　　Else

    　　　　　　txtDaysUsed.ForeColor=vbBlack

    　　　　　　txtFineAmt.Visible=False

    　　　　　　lblFineAmt.Visible=False

    　　　　　　txtDaysUsed.Text=totalDaysUsed

    　　　　End If

    　　　　Exit For

    　　　End If

    　　　rsIssueInfo.MoveNext

    　　Next

    　　If txtLibraryId.Text=″″Then

    　　　　MsgBox″未找到该图书借出记录！″，vbInformation，″未找到记录″

    　　　　clear

    　　End If

    　End If

    End Sub