rl_borrow.frm

图书管理软件,基本功能已具备

    On Error GoTo msh_Borrow_Click
    
    Dim i As Integer
    
    msh_Borrow.Redraw = False
    
    For i = 0 To msh_Borrow.Rows - 1
        msh_Borrow.TextMatrix(i, 0) = "" '清除表格控件最左边的选定当前行标志"→"
    Next
    msh_Borrow.TextMatrix(msh_Borrow.RowSel, 0) = " →"  '标出表格控件最左边的选定当前行标志"→"
    msh_Borrow.Redraw = True
    
    C_UserName = ""
    
    '---读取所选的图书编号
    C_UserName = msh_Borrow.TextMatrix(msh_Borrow.RowSel, 3)
    
    Call Data_Get_Books
    
    
    Exit Sub
msh_Borrow_Click:
    MsgBox "msh_Borrow_Click()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  cmd_ReaderSearch_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub cmd_ReaderSearch_Click()
    On Error GoTo cmd_ReaderSearch_Click
    

    Call Data_Get_Reader
    
    Call Fr_Mshf
    
    Exit Sub
    
cmd_ReaderSearch_Click:
    MsgBox "cmd_ReaderSearch_Click()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  cmd_Search_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub cmd_Search_Click()
    On Error GoTo cmd_Search_Click
    
    Call Data_Get_Books
    
    Exit Sub
cmd_Search_Click:
    MsgBox "cmd_Search_Click()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  cmd_Borrow_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub cmd_Borrow_Click()
    On Error GoTo cmd_Borrow_Click
    
    If Item_Check = False Then
        Exit Sub
    End If
    
    Call Exe_Borrow
    Call Data_Get_Reader
    Call Data_Get_Books
    Exit Sub
cmd_Borrow_Click:
    MsgBox "cmd_Borrow_Click()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  cmd_Return_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub cmd_Return_Click()
    On Error GoTo cmd_Return_Click
    
    If Item_Check = False Then
        Exit Sub
    End If
    
    Call Exe_Return
    Call Fr_Mshf
    Call Data_Get_Reader
    Call Data_Get_Books
    
    Exit Sub
cmd_Return_Click:
    MsgBox "cmd_Return_Click()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  cmd_Clear_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub cmd_Clear_Click()
    On Error GoTo cmd_Clear_Click
    Call Item_Clear
    Call Fr_Mshf_Clear
    Exit Sub
cmd_Clear_Click:
    MsgBox "cmd_Clear_Click()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  cmd_Quit_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub cmd_Quit_Click()
    On Error GoTo cmd_Quit_Click
    
    Unload Me
    
    Exit Sub
cmd_Quit_Click:
    MsgBox "cmd_Quit_Click()---出错", vbCritical, "错误"
End Sub
'****************************************************************
'*  Data_Get_Books
'*
'*  [参数]
'*      无
'*  [返回]
'*      True：成功
'*      False：失败
'****************************************************************
Private Function Data_Get_Books() As Boolean
    On Error GoTo Data_Get_Books
    
    
    Data_Get_Books = False
    
    Dim S_BooksCode As String
    Dim S_BarCode As String
    Dim S_ReaderID As String
    Dim S_SQL As String
    Dim BorrowedTime As String
    Dim Gather As String
    Dim T_SQL As String
    
    S_BooksCode = Trim(txt_BooksID.text)
    S_BarCode = Trim(txt_BarCode.text)
    S_ReaderID = Trim(txt_ReaderID.text)
       
    Me.MousePointer = vbHourglass
    
    T_SQL = ""
    
    '---判断搜索区内是否有数据，如果有则按搜索条件显示，无则无条件显示
    '[txt_sBooksID]
    If C_UserName <> "" Then
        T_SQL = T_SQL & "BooksCode='" & C_UserName & "'"
        T_SQL = " WHERE " & T_SQL
    End If
    '[txt_sWriter]
    If C_UserName = "" Then
        T_SQL = T_SQL & "(T_Books.BooksCode='" & S_BooksCode & "' OR T_Books.BarCode='" & S_BarCode & "')"
        T_SQL = " WHERE " & T_SQL
    End If
    
    
    '---查询语句
    S_SQL = ""
    S_SQL = S_SQL & " SELECT T_Books.BooksCode,"
    S_SQL = S_SQL & " T_Books.BarCode,"
    S_SQL = S_SQL & " T_Books.Title,"
    S_SQL = S_SQL & " T_Books.Writer,"
    S_SQL = S_SQL & " T_Publishing.Publishing,"
    S_SQL = S_SQL & " T_Books.Price,"
    S_SQL = S_SQL & " T_Books.Page,"
    S_SQL = S_SQL & " T_BooksType.BooksType,"
    S_SQL = S_SQL & " T_Books.BriefIntroduction"
    S_SQL = S_SQL & " FROM"
    S_SQL = S_SQL & " T_BooksType INNER JOIN"
    S_SQL = S_SQL & " (T_Publishing INNER JOIN"
    S_SQL = S_SQL & " T_Books ON"
    S_SQL = S_SQL & " T_Publishing.PublishingID = T_Books.PublishingID)"
    S_SQL = S_SQL & " ON T_BooksType.BooksTypeID = T_Books.BooksTypeID"
    S_SQL = S_SQL & T_SQL

    Call Cmn_Ado_Select_Nolock(S_SQL, rc)
    
    C_UserName = ""
    
    '---数据库字段写到窗体控件中
    txt_BooksID.text = rc("BooksCode")
    txt_BarCode.text = rc("barcode")
    txt_BooksName.text = rc("title")
    txt_Publishing.text = rc("Publishing")
    txt_Price.text = rc("Price")
    txt_Page.text = rc("Page")
    txt_BooksType.text = rc("BooksType")
    txt_Remarks.text = rc("BriefIntroduction")
    txt_Writer.text = rc("Writer")
    
    S_SQL = ""
    S_SQL = S_SQL & " SELECT count(booksCode) as 被借出次数 From T_BooksBorrow where bookscode='" & S_BooksCode & "'"
    
    Call Cmn_Ado_Select_Nolock(S_SQL, rc)
    
    txt_BorrowedTime = rc("被借出次数")
    '---鼠标状态置为正常
    Me.MousePointer = vbDefault
    
    Data_Get_Books = True
    
    Exit Function
Data_Get_Books:
    Me.MousePointer = vbDefault
    MsgBox "Data_Get_Books()---出错", vbCritical, "错误"
    '--- 返回值：异常终止设定
    Data_Get_Books = False
End Function

'****************************************************************
'*  Data_Get_Reader
'*
'*  [参数]
'*      无
'*  [返回]
'*      True：成功
'*      False：失败
'****************************************************************
Private Function Data_Get_Reader() As Boolean
    On Error GoTo Data_Get_Reader
    
    
    Data_Get_Reader = False
    
    Dim S_SQL      As String
    Dim S_ReaderID As String
    
    S_ReaderID = Trim(txt_ReaderID.text)
           
    Me.MousePointer = vbHourglass
    
    '---查询语句
    S_SQL = ""
    S_SQL = S_SQL & " SELECT T_Reader.ReaderID,"
    S_SQL = S_SQL & " T_Reader.ReaderName,"
    S_SQL = S_SQL & " T_ReaderType.ReaderType,"
    S_SQL = S_SQL & " T_Reader.Department,"
    S_SQL = S_SQL & " T_ReaderType.RestrictAmount,"
    S_SQL = S_SQL & " T_Reader.Remark"
    S_SQL = S_SQL & " FROM"
    S_SQL = S_SQL & " T_ReaderType INNER JOIN"
    S_SQL = S_SQL & " T_Reader ON"
    S_SQL = S_SQL & " [T_ReaderType].[ReaderTypeID]=[T_Reader].[ReaderTypeID]"
    S_SQL = S_SQL & " WHERE T_Reader.ReaderID='" & S_ReaderID & "'"

    Call Cmn_Ado_Select_Nolock(S_SQL, rc)
    
    If rc.EOF Then
        MsgBox "对不起没有此读者编号，请检查是否输入错误！", vbCritical, "提示"
        txt_ReaderID.SetFocus
        Me.MousePointer = vbDefault
        Exit Function
    End If
    
    '---数据库字段写到窗体控件中
    
    txt_ReaderID.text = rc("ReaderID")
    txt_ReaderName.text = rc("ReaderName")
    txt_ReaderType.text = rc("ReaderType")
    txt_Department.text = rc("Department")
    txt_RestrictAmmount.text = rc("RestrictAmount")
    txt_ReaderRemarks.text = rc("Remark")
    
    S_SQL = ""
    S_SQL = S_SQL & " SELECT count(bookscode) as 已借书数量 From T_BooksBorrow where readerid='" & S_ReaderID & "'"

    Call Cmn_Ado_Select_Nolock(S_SQL, rc)

    txt_NonceHoldAmount = rc("已借书数量")
    
    S_SQL = ""
    S_SQL = S_SQL & " SELECT count(bookscode) as 未归还数量 From T_BooksBorrow where readerid='" & S_ReaderID & "' AND EstateID<>3"

    Call Cmn_Ado_Select_Nolock(S_SQL, rc)

    txt_NotReturned = rc("未归还数量")
    
    '---鼠标状态置为正常
    Me.MousePointer = vbDefault
    
    Data_Get_Reader = True
    
    Exit Function
Data_Get_Reader:
    Me.MousePointer = vbDefault
    MsgBox "Data_Get_Reader()--出错!"
    '--- 返回值：异常终止设定
    Data_Get_Reader = False
End Function

'****************************************************************
'*  Timer1_Timer
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'****************************************************************
Private Sub Timer1_Timer()
    On Error GoTo Timer1_Timer
    txt_HandleDate.text = CStr(Format(Now, "yy-M-d HH:mm:ss"))
    
    Exit Sub
Timer1_Timer:
    MsgBox "Timer1_Timer()---出错", vbCritical, "错误"
End Sub

'****************************************************************
'*  Exe_Borrow
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'****************************************************************
Private Function Exe_Borrow()
    On Error GoTo Exe_Borrow
    
    If Where_Estate = 0 Then
        Call First_Borrow
        Call Fr_Mshf
        Exit Function
    End If

    If Where_Estate = 1 Then
        Call Continue_Borrow
        Call Fr_Mshf
        Exit Function
    End If
    
    If Where_Estate = 2 Then
        MsgBox "此书已续借,请及时归还!", vbExclamation, "提示"
        Exit Function
    End If
    
    If Where_Estate = 3 Then
        M_Where = True
        Call First_Borrow
        Call Fr_Mshf
        Exit Function
    End If
    
    
    Exit Function
    
Exe_Borrow:
    MsgBox "Exe_Borrow()---出错", vbCritical, "错误"
    
End Function

'****************************************************************
'*  Where_Estate
'*
'*  [参数]
'*      无
'*  [返回]
'*      0:未借
'*      1:借出
'*      2:已还
'*      3:续借
'****************************************************************
Private Function Where_Estate() As Integer
    On Error GoTo Where_Estate
    
    '---设置初始值
    Where_Estate = 0
    
    Dim S_SQL        As String
    Dim S_BooksCode  As String
    Dim S_ReaderID   As String
    Dim YesNo        As Integer
    Dim W_BooksCode  As String
    Dim W_ReaderID   As String
    Dim W_EstateID   As String
    Dim W_Returndate As String
    
    S_BooksCode = Trim(txt_BooksID.text)
    S_ReaderID = Trim(txt_ReaderID.text)
    
    S_SQL = ""
    S_SQL = S_SQL & " SELECT TOP 1 * FROM T_BooksBorrow WHERE BooksCode='" & S_BooksCode & "' AND ReaderID='" & S_ReaderID & "' ORDER BY ID DESC"
    
    Call Cmn_Ado_Select_Nolock(S_SQL, rc)