rl_newbooksmanage.frm

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

'***************************************************************
'*  cmd_Search_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub cmd_Search_Click()
    On Error GoTo cmd_Search_Click
      
    '---如果前一次没有找到结果，重新搜索时将表格控件设置为可以点击
    msh_BooksManage.Enabled = True
    
    '---表格控件重新加载
    Call Fr_Mshf
    
    '---将窗体各个控件的值清空
    Call Item_Clear
    
    Exit Sub
cmd_Search_Click:
    MsgBox "cmd_Search_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

'****************************************************************
'*  数据查看
'*
'*  [参数]
'*      无
'*  [返回]
'*      实行状况
'*      True：成功
'*      False：失败
'****************************************************************
Private Function Data_Get() As Boolean
    On Error GoTo Data_Get
    
    
    Data_Get = False
    
    Dim S_UserName As String
    Dim S_SQL      As String
    
    '---被选中的用户名
    S_UserName = Trim(C_UserName)
            
    Me.MousePointer = vbHourglass
    
    '---查询语句
    S_SQL = ""
    S_SQL = S_SQL & " SELECT T_Books.BooksCode,"
    S_SQL = S_SQL & " T_Books.BarCode,"
    S_SQL = S_SQL & " T_Books.ISBN,"
    S_SQL = S_SQL & " T_Books.Title,"
    S_SQL = S_SQL & " T_BooksType.BooksType,"
    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.PublishDate,"
    S_SQL = S_SQL & " T_Books.Page,"
    S_SQL = S_SQL & " T_Books.BriefIntroduction,"
    S_SQL = S_SQL & " T_Books.EnterDate,"
    S_SQL = S_SQL & " T_Books.EnterNumber,"
    S_SQL = S_SQL & " T_Place.Place,"
    S_SQL = S_SQL & " T_Books.Handler,"
    S_SQL = S_SQL & " T_Books.HandleDate"
    S_SQL = S_SQL & " FROM T_Publishing INNER JOIN"
    S_SQL = S_SQL & " (T_Place INNER JOIN"
    S_SQL = S_SQL & " (T_BooksType INNER JOIN T_Books ON T_BooksType.BooksTypeID = T_Books.BooksTypeID)"
    S_SQL = S_SQL & " ON T_Place.PlaceID = T_Books.PlaceID)"
    S_SQL = S_SQL & " ON T_Publishing.PublishingID = T_Books.PublishingID"
    S_SQL = S_SQL & " where t_books.bookscode='" & S_UserName & "'"
    
    Call Cmn_Ado_Select_Nolock(S_SQL, rc)
    
    '---数据库字段写到窗体控件中
    
    txt_BooksID.text = rc("BooksCode")
    txt_BarCode.text = rc("barcode")
    txt_ISBN.text = rc("ISBN")
    txt_BooksName.text = rc("title")
    cbo_BooksType.text = rc("BooksType")
    txt_Writer.text = rc("Writer")
    cbo_Publishing.text = rc("Publishing")
    txt_Price.text = rc("Price")
    dtp_PublishingDate.Value = rc("PublishDate")
    txt_Page.text = rc("Page")
    txt_Remarks.text = rc("BriefIntroduction")
    txt_EnterNumber.text = rc("enternumber")
    txt_Handler.text = rc("handler")
    txt_HandleDate.text = rc("handledate")
    cbo_Place.text = rc("Place")
    dtp_BooksRegisterDate.Value = rc("EnterDate")
    
    '---计算在馆数量
    S_SQL = ""
    S_SQL = S_SQL & " SELECT Count([bookscode]) AS 借出数量"
    S_SQL = S_SQL & " FROM t_booksborrow"
    S_SQL = S_SQL & " WHERE t_booksborrow.BooksCode='" & S_UserName & "' and t_booksborrow.EstateID <>2"
    
    Call Cmn_Ado_Select_Nolock(S_SQL, rc)
    
    '---显示在馆数量
    txt_InLibraryNumber.text = CStr(CInt(txt_EnterNumber.text) - CInt(rc("借出数量")))
    
    '---鼠标状态置为正常
    Me.MousePointer = vbDefault
    
    Data_Get = True
    
    Exit Function
Data_Get:
    Me.MousePointer = vbDefault
    MsgBox "Data_Get()---出错", vbCritical, "错误"
    '--- 返回值：异常终了设定
    Data_Get = False
End Function

'***************************************************************
'*  数据插入
'*
'*  [参数]
'*      无
'*  [返回]
'*      True:成功
'*      False:失败
'***************************************************************
Private Function Data_Insert() As Boolean
    On Error GoTo Data_Insert
    
    '---返回值初始设置
    Data_Insert = False
    
    Dim S_SQL            As String
    Dim S_BooksID        As String
    Dim S_ISBN           As String
    Dim S_BooksType      As String
    Dim S_Writer         As String
    Dim S_Publishing     As String
    Dim S_BooksName      As String
    Dim S_BarCode        As String
    Dim S_Address        As String
    Dim S_PublishingDate As String
    Dim S_Remarks        As String
    Dim S_Price          As String
    Dim S_Page           As String
    Dim S_PlaceID        As String
    Dim S_EnterDate      As String
    Dim S_EnterNumber    As String
    Dim S_Handler        As String
    Dim S_HandleDate     As String
    
    
    S_BooksID = Trim(txt_BooksID.text)
    
    '---鼠标置忙状态
    Me.MousePointer = vbHourglass
    
    '---检测图书编号是否已经存在
    S_SQL = ""
    S_SQL = S_SQL & " SELECT BooksCode"
    S_SQL = S_SQL & " FROM T_Books"
    S_SQL = S_SQL & " WHERE BooksCode='" & S_BooksID & "'"
    
    '---执行SQL语句
    Call Cmn_Ado_Select_Nolock(S_SQL, rc)
    
    If rc.EOF Then

    Else
        '---用户名已存在执行以下操作
        MsgBox "此图书编号已存在，请重新输入图书编号", , "图书管理"
        txt_BooksID.SetFocus
        Me.MousePointer = vbDefault
        Exit Function
    End If
    
    '---获取插入数据
    S_BooksID = Trim(txt_BooksID.text)
    S_ISBN = Trim(txt_ISBN.text)
    S_BooksType = Int(cbo_BooksType.ListIndex) + 1
    S_Writer = Trim(txt_Writer.text)
    S_Publishing = Int(cbo_Publishing.ListIndex) + 1
    S_BooksName = Trim(txt_BooksName.text)
    S_BarCode = Trim(txt_BarCode.text)
    S_PublishingDate = dtp_PublishingDate.Value
    S_Remarks = Trim(txt_Remarks.text)
    S_Price = Trim(txt_Price.text)
    S_Page = Trim(txt_Page.text)
    S_PlaceID = Int(cbo_Place.ListIndex) + 1
    S_EnterDate = Trim(dtp_BooksRegisterDate.Value)
    S_EnterNumber = Trim(txt_EnterNumber.text)
    S_Handler = Trim(C_LoginName)
    S_HandleDate = CStr(Format(Now, "yyyy年MM月dd日 HH:mm:ss"))
    
    '---鼠标置忙状态
    Me.MousePointer = vbHourglass
    
    '---数据插入语句
    S_SQL = ""
    S_SQL = S_SQL & "INSERT INTO T_Books("
    S_SQL = S_SQL & "BooksCode,"
    S_SQL = S_SQL & "ISBN,"
    S_SQL = S_SQL & "BooksTypeID,"
    S_SQL = S_SQL & "Writer,"
    S_SQL = S_SQL & "Publishingid,"
    S_SQL = S_SQL & "title,"
    S_SQL = S_SQL & "BarCode,"
    S_SQL = S_SQL & "PublishDate,"
    S_SQL = S_SQL & "BriefIntroduction,"
    S_SQL = S_SQL & "Price,"
    S_SQL = S_SQL & "Page,"
    S_SQL = S_SQL & "PlaceID,"
    S_SQL = S_SQL & "EnterDate,"
    S_SQL = S_SQL & "EnterNumber,"
    S_SQL = S_SQL & "Handler,"
    S_SQL = S_SQL & "HandleDate"
    S_SQL = S_SQL & ")VALUES("
    S_SQL = S_SQL & "'" & S_BooksID & "',"
    S_SQL = S_SQL & "'" & S_ISBN & "',"
    S_SQL = S_SQL & "'" & S_BooksType & "',"
    S_SQL = S_SQL & "'" & S_Writer & "',"
    S_SQL = S_SQL & "'" & S_Publishing & "',"
    S_SQL = S_SQL & "'" & S_BooksName & "',"
    S_SQL = S_SQL & "'" & S_BarCode & "',"
    S_SQL = S_SQL & "'" & S_PublishingDate & "',"
    S_SQL = S_SQL & "'" & S_Remarks & "',"
    S_SQL = S_SQL & "'" & S_Price & "',"
    S_SQL = S_SQL & "'" & S_Page & "',"
    S_SQL = S_SQL & "'" & S_PlaceID & "',"
    S_SQL = S_SQL & "'" & S_EnterDate & "',"
    S_SQL = S_SQL & "'" & S_EnterNumber & "',"
    S_SQL = S_SQL & "'" & S_Handler & "',"
    S_SQL = S_SQL & "'" & S_HandleDate & "'"
    S_SQL = S_SQL & ")"
    
    Dim YesNo As Integer
    
    '---执行SQL语句前确认
    YesNo = MsgBox("确定添加数据吗？", vbYesNo + vbQuestion, "提示")
    If YesNo = vbYes Then
        '---执行数据插入语句
        Call Cmn_Ado_Execute(S_SQL)
    Else
        Me.MousePointer = vbDefault
        Exit Function
    End If
    
    '---鼠标置默认状态
    Me.MousePointer = vbDefault
 
    '---正常返回值设置
    Data_Insert = True
    
    Call Item_Clear '各项目清空
    
    '---将焦点设置到图书编号文本框
    txt_BooksID.SetFocus
    
    Exit Function
Data_Insert:
    Me.MousePointer = vbDefault
    MsgBox "Data_Insert()---出错", vbCritical, "错误"
    
    '---异常终止设置
    Data_Insert = False
End Function

'****************************************************************
'*  数据修改
'*
'*  [参数]
'*      无
'*  [返回]
'*      实行状况
'*      True：成功
'*      False：失败
'****************************************************************
Private Function Data_Upd() As Boolean
    On Error GoTo Data_Upd
    
    '---设置返回值初始值
    Data_Upd = False
        
    Dim S_SQL            As String
    Dim S_BooksID        As String
    Dim S_ISBN           As String
    Dim S_BooksType      As String
    Dim S_Writer         As String
    Dim S_Publishing     As String
    Dim S_BooksName      As String
    Dim S_BarCode        As String
    Dim S_Address        As String
    Dim S_PublishingDate As String
    Dim S_Remarks        As String
    
    '---获得更新的数据
    S_BooksID = Trim(txt_BooksID.text)
    S_ISBN = Trim(txt_ISBN.text)
    S_BooksType = Int(cbo_BooksType.ListIndex) + 1 '将所选信息的索引后置一位
    S_Writer = Trim(txt_Writer.text)
    S_Publishing = Int(cbo_Publishing.ListIndex) + 1 '将所选信息的索引后置一位
    S_BooksName = Trim(txt_BooksName.text)
    S_BarCode = Trim(txt_BarCode.text)
    S_PublishingDate = dtp_PublishingDate.Value
    S_Remarks = Trim(txt_Remarks.text)
    
    Me.MousePointer = vbHourglass
              
    '---更新语句
    S_SQL = ""
    S_SQL = S_SQL & " UPDATE T_Books SET"
    S_SQL = S_SQL & " BooksCode='" & S_BooksID & "',"
    S_SQL = S_SQL & " ISBN='" & S_ISBN & "',"
    S_SQL = S_SQL & " BooksTypeID='" & S_BooksType & "',"
    S_SQL = S_SQL & " Writer='" & S_Writer & "',"
    S_SQL = S_SQL & " Publishingid='" & S_Publishing & "',"
    S_SQL = S_SQL & " Title='" & S_BooksName & "',"
    S_SQL = S_SQL & " BarCode='" & S_BarCode & "',"
    S_SQL = S_SQL & " BriefIntroduction='" & S_Remarks & "'"
    S_SQL = S_SQL & " WHERE BooksCode='" & S_BooksID & "'"
    
    Dim YesNo As Integer
    
    '---执行SQL语句前确认
    YesNo = MsgBox("确定修改数据吗？", vbYesNo + vbQuestion, "提示")
    If YesNo = vbYes Then
        '---执行数据插入语句
        Call Cmn_Ado_Execute(S_SQL)
    Else
        Me.MousePointer = vbDefault
        Exit Function
    End If
    
    
    Me.MousePointer = vbDefault
    
    '---正确返回值设置
    Data_Upd = True
    
    Call Item_Clear
    
    Exit Function
Data_Upd:
    Me.MousePointer = vbDefault
    MsgBox "Data_Upd()---出错", vbCritical, "错误"
    '--- 返回值：异常终了设定
    Data_Upd = False
End Function

'****************************************************************
'*  数据删除
'*
'*  [参数]
'*      无
'*  [返回]
'*      实行状况
'*      True：成功
'*      False：失败
'****************************************************************
Private Function Data_Del() As Boolean
    On Error GoTo Data_Del
    
    '---设置返回初始值
    Data_Del = False
        
    Dim S_SQL     As String
    Dim S_BooksID As String
            
    Me.MousePointer = vbHourglass
    
    S_BooksID = msh_BooksManage.TextMatrix(msh_BooksManage.RowSel, 1) '选择当前行的图书编号
   
    '---删除语句
    S_SQL = ""
    S_SQL = S_SQL & "DELETE FROM T_Books"
    S_SQL = S_SQL & " WHERE BooksCode='" & S_BooksID & "'"
    
    Dim YesNo As Integer
    
    '---执行SQL语句前确认
    YesNo = MsgBox("确定删除数据吗？", vbYesNo + vbQuestion, "提示")
    If YesNo = vbYes Then
        '---执行数据插入语句
        Call Cmn_Ado_Execute(S_SQL)
    Else
        Me.MousePointer = vbDefault
        Exit Function
    End If