frmmain.frm

图书简明管理系统源代码(VB),可作为软件工程课程设计用,也可以作为学习用。

'       Me.Width = 12045
'    End If
'    If Me.Height < 10590 Then
'       Me.Height = 10590
'    End If
    'Toolbar1.Width = 7530
    
End Sub

Private Sub submnuAbout_Click()
    On Error Resume Next '错误代码处理
    Unload frmabout
    frmabout.Show
    frmabout.Timer2 = False
End Sub

Private Sub submnuAddbook_Click()
    On Error Resume Next '错误代码处理
    Unload frmbookaddinfo
    frmbookaddinfo.Show
End Sub

Private Sub submnuAdddeluser_Click()
    On Error Resume Next '错误代码处理
    Unload frmadd_del_yh
    frmadd_del_yh.Show
End Sub

Private Sub submnuAddreader_Click()
    On Error Resume Next '错误代码处理
    Unload frmreaderaddinfo
    frmreaderaddinfo.Show
End Sub

Private Sub submnuBook_Click()
    On Error Resume Next '错误代码处理
    Unload frmbookmanage
    frmbookmanage.Show
End Sub

Private Sub submnuBorrow_Click()
    On Error Resume Next '错误代码处理
    Unload frmborrow_read
    Style = "borrow"
    frmborrow_read.Show
End Sub

Private Sub submnuContinu_Click()
    On Error Resume Next '错误代码处理
    Unload frmborrow_read
    Style = "borrowagain"
    frmborrow_read.Show

End Sub



Private Sub submnuExit_Click()
     Unload Me
End Sub

Private Sub submnuHelp_Click()
If Len(App.HelpFile) = 0 Then
    MsgBox "无法显示帮助目录，该工程没有相关联的帮助。", vbInformation, Me.Caption
Else
    Call HtmlHelp(Me.hWnd, App.HelpFile, 1, 0)
End If
End Sub

Private Sub submnuInquirereader_Click()
    On Error Resume Next '错误代码处理
    Unload frmreaderqueue
    frmreaderqueue.Show
End Sub

Private Sub submnuLossfine_Click()
    Unload frmlostbook
    frmlostbook.Show
    frmlostbook.SetFocus
End Sub

Private Sub submnuModifybook_Click()
    On Error Resume Next '错误代码处理
    Unload frmbookmanage
    frmbookmanage.cmdadd.Enabled = False
    frmbookmanage.Show
End Sub

Private Sub submnuBookinfo_Click()
    On Error Resume Next '错误代码处理
    Unload frmbookinfo
    frmbookinfo.Show
End Sub

Private Sub submnuBooktype_Click()
    On Error Resume Next '错误代码处理
    Unload frmbookinfo
    frmbookinfo.SSTab1.Tab = 0
    frmbookinfo.Show
    frmbookinfo.SetFocus
End Sub

Private Sub submnuCanclebook_Click()
    On Error Resume Next '错误代码处理
    Unload frmbookcancel
    frmbookcancel.Show    '显示注销图书窗体
End Sub

Private Sub submnuInquirebook_Click()
    On Error Resume Next
    Unload frmbookqueue
    frmbookqueue.Show     '显示图书查询窗体
End Sub

Private Sub submnuModifypwd_Click()
    On Error Resume Next
    frmyhmmxg.Show
End Sub

Private Sub submnumodifyreader_Click()
    On Error Resume Next
    Unload frmreadermanage
    frmreadermanage.cmdadd.Enabled = False
    frmreadermanage.Show   '显示读者管理窗体
End Sub

Private Sub submnuOverduefine_Click()
    On Error Resume Next
    Unload frmoverduefine
    frmoverduefine.Show  '显示逾期图书窗体
End Sub

Private Sub submnuPublisherinfo_Click()
    On Error Resume Next
    Unload frmbookinfo
    frmbookinfo.SSTab1.Tab = 1
    frmbookinfo.Show   '显示书籍资料管理窗体
End Sub

Private Sub submnuReaderinfo_Click()
    On Error Resume Next
    Unload frmreadermanage
    frmreadermanage.Show '显示读者管理窗体
End Sub

Private Sub submnuReadertype_Click()
    On Error Resume Next
    Unload frmreaderstyle
    frmreaderstyle.Show  '显示读者类别管理窗体
End Sub

Private Sub submnuReturn_Click()
    On Error Resume Next
    Unload frmborrow_read
    Style = "return"
    frmborrow_read.Show  '显示借阅管理窗体
End Sub

Private Sub sysinit_Click()
        delData = True
        Dim regmex As String
        regmex = MsgBox("初始系统：清除数据库中所有的数据。" & Chr(13) & _
                "一旦删除就不能恢复，操作员可以先备份一份数据库，再进行删除。" & Chr(13) & _
                "现在真的要清除数据库吗？", vbExclamation + vbDefaultButton2 + vbYesNo, "系统初始化")
        If regmex = vbYes Then
            For Each Form In Forms  '遍历窗体集
                Unload Me
            Next Form
            
            TransactSQL ("delete * from jsxxb")
            TransactSQL ("delete * from hsxxb")
            TransactSQL ("delete * from fkxxb")
            TransactSQL ("delete * from zxxxb")
            TransactSQL ("delete * from dzlbb")
            TransactSQL ("delete * from tslbb")
            TransactSQL ("delete * from hsxxb")
            TransactSQL ("delete * from dzxxb")
            TransactSQL ("delete * from tsxxb")
            TransactSQL ("delete * from cbslbb")
            TransactSQL ("delete from yhxxb where 用户名<>'Admin' and 用户名<>'System'")
            TransactSQL ("update yhxxb set 密码='123456' where 用户名='Admin' or 用户名='System'")
            
            frmlogin.Show
            
        End If
        delData = False
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
    Case "导航"
    
         CoolBar2.Visible = Not CoolBar2.Visible
         
    Case "借书"
         Unload frmborrow_read
         Style = "borrow"
         frmborrow_read.Show  '显示借阅管理窗体
        
    Case "还书"
         Unload frmborrow_read
         Style = "return"
         frmborrow_read.Show  '显示借阅管理窗体
       
    Case "续借"
         Unload frmborrow_read
         Style = "borrowagain"
         frmborrow_read.Show  '显示借阅管理窗体
    
    Case "用户"
         Unload frmyhmmxg
         frmyhmmxg.Show
         
    Case "帮助"
         If Len(App.HelpFile) = 0 Then
               MsgBox "无法显示帮助目录，该工程没有相关联的帮助。", vbInformation, Me.Caption
         Else
               Call HtmlHelp(Me.hWnd, App.HelpFile, 1, 0)
        End If
    Case "退出系统"
         Unload Me
    End Select
End Sub

Private Sub Toolbar2_ButtonClick(Index As Integer, ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
    Case "图书管理"
         Unload frmbookmanage
         frmbookmanage.Show
         
    Case "新增图书"
         Unload frmbookaddinfo
         frmbookaddinfo.Show
        
    Case "修改图书"
         Unload frmbookmanage
         frmbookmanage.cmdadd.Enabled = False
         frmbookmanage.Show
       
    Case "查询图书"
         Unload frmbookqueue
         frmbookqueue.Show     '显示图书查询窗体
         
    Case "书籍资料"
         Unload frmbookinfo
         frmbookinfo.Show
         
    Case "图书注销"
         Unload frmbookcancel
         frmbookcancel.Show    '显示注销图书窗体
         
    End Select
End Sub

Private Sub Toolbar3_ButtonClick(Index As Integer, ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
    Case "读者信息"
         Unload frmreadermanage
         frmreadermanage.Show
         
    Case "新增读者"
         Unload frmreaderaddinfo
         frmreaderaddinfo.Show
        
    Case "修改读者"
         Unload frmreadermanage
         frmreadermanage.cmdadd.Enabled = False
         frmreadermanage.Show
       
    Case "查询读者"
         Unload frmreaderqueue
         frmreaderqueue.Show     '显示图书查询窗体
         
    Case "读者类别"
         Unload frmreaderqueue
         frmreaderstyle.Show
         
    End Select
End Sub

Private Sub Toolbar4_ButtonClick(Index As Integer, ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
    Case "逾期罚款"
         Unload frmoverduefine
         frmoverduefine.Show
         
    Case "损失罚款"
         Unload frmlostbook
         frmlostbook.Show
    
    End Select
End Sub

Private Sub Toolbar5_ButtonClick(Index As Integer, ByVal Button As MSComctlLib.Button)
Select Case Button.Key
    Case "操作说明"
          If Len(App.HelpFile) = 0 Then
               MsgBox "无法显示帮助目录，该工程没有相关联的帮助。", vbInformation, Me.Caption
          Else
               Call HtmlHelp(Me.hWnd, App.HelpFile, 1, 0)
          End If
    Case "初始系统"
          If user = "Admin" Or user = "System" Then
                delData = True
                Dim regmex As String
                regmex = MsgBox("初始系统：清除数据库中所有的数据。" & Chr(13) & _
                       "一旦删除就不能恢复，操作员可以先备份一份数据库，再进行删除。" & Chr(13) & _
                       "现在真的要清除数据库吗？", vbExclamation + vbDefaultButton2 + vbYesNo, "系统初始化")
                If regmex = vbYes Then
                    For Each Form In Forms  '遍历窗体集
                        Unload Form
                    Next Form
                    
                    TransactSQL ("delete * from jsxxb")
                    TransactSQL ("delete * from hsxxb")
                    TransactSQL ("delete * from fkxxb")
                    TransactSQL ("delete * from zxxxb")
                    TransactSQL ("delete * from dzlbb")
                    TransactSQL ("delete * from tslbb")
                    TransactSQL ("delete * from hsxxb")
                    TransactSQL ("delete * from dzxxb")
                    TransactSQL ("delete * from tsxxb")
                    TransactSQL ("delete * from cbslbb")
                    TransactSQL ("delete from yhxxb where 用户名<>'Admin' and 用户名<>'System'")
                    TransactSQL ("update yhxxb set 密码='123456' where 用户名<>'Admin' or 用户名<>'System'")
                   
                    frmlogin.Show
                End If
                
                delData = False
         End If
    End Select
End Sub