rl_main.frm

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

Private Sub Exit_Click()
    On Error Resume Next
    Unload Me
    
End Sub

'***************************************************************
'*  窗体加载
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub MDIForm_Load()
    On Error GoTo MDIForm_Load
    
    Me.Caption = App.Title
    
    '---一般管理员登陆不可见项目
    If C_UserGroup = True Then
    
        DataCopy.Visible = False '系统备份
        DataRecovery.Visible = False '系统还原
        RemoveRedundant.Visible = False '清除冗余
        BasicMaterials.Visible = False '基本信息管理
        
    End If
    
    Dim P_Path As String
    
    '---加载主窗体背景图片
    P_Path = "\common\Pictures\BG" & MyRnd & ".jpg" '图片地址
    Me.Picture = LoadPicture(App.Path + P_Path) '加载图片

    Exit Sub
MDIForm_Load:
    MsgBox "MDIForm_Load()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  窗体退出 [QueryUnload]
'*
'*  [参数]
'*      1：系统参数
'*      2：系统参数
'*  [返回]
'*      无
'***************************************************************
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    On Error GoTo MDIForm_QueryUnload
    
    Dim YesNo As Integer
        
    '---执行前确认
    YesNo = MsgBox("真的要退出红杉图书信息管理系统吗？", vbYesNo + vbQuestion, "提示")
    
    If YesNo = vbYes Then
        End
    Else
        Cancel = 1
    End If
    
    Exit Sub
MDIForm_QueryUnload:
    MsgBox "MDIForm_QueryUnload()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  窗体卸载 [Unload]
'*
'*  [参数]
'*      1：系统参数
'*  [返回]
'*      无
'***************************************************************
Private Sub MDIForm_Unload(Cancel As Integer)
    On Error GoTo MDIForm_Unload
    
    Call Cmn_Ado_DisRecordset(rc) '关闭记录集
    
    Exit Sub
MDIForm_Unload:
    MsgBox "MDIForm_Unload()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  Books_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub Books_Click()
    On Error Resume Next
    
    RL_newBooksManage.Show '打开图书管理窗体
    
End Sub

'***************************************************************
'*  BooksClassification_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub BooksClassification_Click()
    On Error Resume Next
    
    RL_BooksType.Show '打开图书类型管理窗体
    
End Sub

'***************************************************************
'*  BorrowReturn_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub BorrowReturn_Click()
    On Error Resume Next
    
    RL_Borrow.Show '打开借书还书操作窗体
    
End Sub

'***************************************************************
'*  AdminSetup_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub AdminSetup_Click()
    On Error Resume Next
    
    RL_User.Show '打开管理员设置窗体
    
End Sub

'***************************************************************
'*  Calculator_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub Calculator_Click()
    On Error Resume Next
    
    Shell "Calc.exe" '调用系统的计算器程序
End Sub

'***************************************************************
'*  Notebook_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub Notebook_Click()
    On Error Resume Next
    
    Shell "Notepad.exe" '调用系统的记事本程序
    
End Sub

'***************************************************************
'*  Sys_Exit_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub Sys_Exit_Click()
    On Error Resume Next
    Unload Me
    
End Sub

'***************************************************************
'*  Position_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub Position_Click()
    On Error Resume Next
    
    RL_Position.Show '打开图书摆放位置管理窗体
    
End Sub

'***************************************************************
'*  PublishingHouse_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub PublishingHouse_Click()
    On Error Resume Next
    
    RL_Publishinghouse.Show '打开出版社管理窗体
    
End Sub

'***************************************************************
'*  Reader_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub Reader_Click()
    On Error Resume Next
    
    RL_newReaderManage.Show '打开读者管理窗体
    
End Sub

'***************************************************************
'*  ReaderClassification_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub ReaderClassification_Click()
    On Error Resume Next
    
    RL_ReaderType.Show '打开读者类型管理窗体
    
End Sub

'***************************************************************
'*  About_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub About_Click()
    On Error Resume Next
    
    RL_About.Show '打开关于窗体
    
End Sub

'***************************************************************
'*  AllBooks_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub AllBooks_Click()
    On Error Resume Next
    
    RL_StatisticsBooks.Show '打开统计全部图书窗体
    
End Sub

'***************************************************************
'*  AllReader_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub AllReader_Click()
    On Error Resume Next
    
    RL_StatisticsReader.Show '打开统计全部读者窗体
    
End Sub

'***************************************************************
'*  Change_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub Change_Click()
    On Error Resume Next
    
    RL_Mod_Password.Show '打开修改密码窗体
    
End Sub

'***************************************************************
'*  Locking_Click
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub Locking_Click()
    On Error Resume Next
    
    RL_Lock.Show 1 '以独占形式打开锁定窗体
    
End Sub

'***************************************************************
'*  tlb_Main_ButtonClick
'*
'*  [参数]
'*      1:系统参数
'*  [返回]
'*      无
'***************************************************************
Private Sub tlb_Main_ButtonClick(ByVal Button As MSComctlLib.Button)
    On Error GoTo tlb_Main_ButtonClick
    Select Case Button.Key
        Case "exit"
            Unload Me '关闭窗体
        Case "About"
            RL_About.Show '打开关于窗体
        Case "Borrow"
            RL_Borrow.Show '打开借书还书操作窗体
        Case "ReaderManage"
            RL_newReaderManage.Show '打开读者管理窗体
        Case "BooksManage"
            RL_newBooksManage.Show '打开图书管理窗体
    End Select
    
'    2005-4-6 DEL Begin
'    '---关闭主窗体
'    If Button.Key = "exit" Then Unload Me
'    '---打开关于窗体
'    If Button.Key = "About" Then RL_About.Show
'    '---打开借书操作窗体
'    If Button.Key = "Borrow" Then RL_Borrow.Show
'    '---打开读者管理窗体
'    If Button.Key = "ReaderManage" Then RL_newReaderManage.Show
'    '---打开图书管理窗体
'    If Button.Key = "BooksManage" Then RL_newBooksManage.Show
'
'    If Button.Key = "AllBooks" Then RL_StatisticsBooks.Show
'    2005-4-6 DEL End

    Exit Sub
tlb_Main_ButtonClick:
    MsgBox "tlb_Main_ButtonClick()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  tlb_Main_ButtonMenuClick
'*
'*  [参数]
'*      1:系统参数
'*  [返回]
'*      无
'***************************************************************
Private Sub tlb_Main_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
    On Error GoTo tlb_Main_ButtonMenuClick
    
    Select Case ButtonMenu.Key
        Case "AllBooks"
            RL_StatisticsBooks.Show '打开统计全部图书窗体
        Case "AllReader"
            RL_StatisticsReader.Show '打开统计全部读者窗体
    End Select
    Exit Sub
tlb_Main_ButtonMenuClick:
    MsgBox "tlb_Main_ButtonMenuClick()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  MyRnd
'*
'*  [参数]
'*      无
'*  [返回]
'*      整型数值
'***************************************************************
Private Function MyRnd() As Integer
    On Error GoTo MyRnd
       Randomize Timer '初始化随机数生成器
       
       MyRnd = Int(Rnd * 10) '取得随机数
       
       Exit Function
MyRnd:
    MsgBox "MyRnd()---出错", vbCritical, "错误"
End Function