frmmain.frm

图书管理系统需求规格说明书.doc

      Begin VB.Menu mnuNotepad 
         Caption         =   "记事本(&N)"
      End
      Begin VB.Menu mnuCalculator 
         Caption         =   "计算器(&C)"
      End
   End
   Begin VB.Menu mnuLogoff 
      Caption         =   "注销(&L)"
   End
   Begin VB.Menu mnuAboutMe 
      Caption         =   "关于(&A)"
   End
   Begin VB.Menu mnuExit 
      Caption         =   "退出(&X)"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Option Explicit

'声明!
'
'打开网页的代码：
'声明打开网页要用到的API
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'声明常量
Const SW_SHOWNORMAL = 1


' 菜单代码(开始)

Private Sub mnuExit_Click()
    Unload frmMain
End Sub


Private Sub mnuLogOff_Click()
    Call loggedOff
End Sub


Private Sub mnuAboutMe_Click()
    frmAbout.Show vbModal
End Sub


'工具
Private Sub mnuNotepad_Click()
On Error GoTo errHandle
    Dim a As Double
    a = Shell("c:\windows\notepad.exe", vbNormalFocus)
    Exit Sub
errHandle:
    MsgBox "无法打开记事本", vbInformation, "打开错误！"
    Resume Next
End Sub

Private Sub mnuCalculator_Click()
On Error GoTo errHandle
    Dim a As Double
    a = Shell("c:\windows\system32\calc.exe", vbNormalFocus)
    Exit Sub
errHandle:
    MsgBox "无法打开计算器", vbInformation, "打开错误！"
    Resume Next
End Sub


'******************************************************
' 打开各个窗口的代码
'******************************************************
Private Sub mnuAddBookInfo_Click()
    frmBookInfo.Show
    frmBookInfo.SetFocus
End Sub

Private Sub mnuAddPublicationInfo_Click()
    frmPubInfo.Show
    frmPubInfo.SetFocus
End Sub

Private Sub mnuCategory_Click()
    frmCatInfo.Show
    frmCatInfo.SetFocus
End Sub

Private Sub mnuClassInfo_Click()
    frmClassInfo.Show
    frmClassInfo.SetFocus
End Sub

Private Sub mnuRPTIssueDet_Click()
    rptIssueDetails.Show
    rptIssueDetails.Refresh
    rptIssueDetails.SetFocus
End Sub

Private Sub mnuRPTMemberDet_Click()
    rptMemberInfo.Show
    rptMemberInfo.Refresh
    rptMemberInfo.SetFocus
End Sub

Private Sub mnuSearchBookInfo_Click()
    frmSrchBookInfo.Show
    frmSrchBookInfo.SetFocus
End Sub

Private Sub mnuSearchIssue_Click()
    frmSrchIssue.Show
    frmSrchIssue.SetFocus
End Sub

Private Sub mnuSearchMemberInfo_Click()
    frmSrchMember.Show
    frmSrchMember.SetFocus
End Sub

Private Sub mnuSettingBackup_Click()
    frmBackUp.Show vbModal
End Sub

Private Sub mnuSettingFineAmt_Click()
    '从输入框中提取要输入的数值
    Dim value As String
    value = InputBox("请输入计费单价/天", "设置")
    '当用户输入错误参数时
    If Not IsNumeric(value) Then
        MsgBox "数据类型错误！", vbCritical, "输入错误"
        Exit Sub
    End If
    fineAmt = Str(value)
    SaveSetting App.Title, "设置", "收费金额", CStr(value)
End Sub

'以下是设定最大可借书数的代码
'Private Sub mnuSettingMaxIssueLimit_Click()
'    '从textbox中提取设置值
'    Dim value As String
'    value = InputBox("输入最大借书上限", "设置")
'
'    If Not IsNumeric(value) Then
'        MsgBox "数据类型错误！", vbCritical, "输入错误"
'        Exit Sub
'    End If
'    totBooks = Str(value)
'    SaveSetting App.Title, "Settings", "TotalBooks", CStr(value)
'End Sub

Private Sub mnuMaxDays_Click()
    '从输入框中提取要输入的数值
    Dim value As String
    value = InputBox("请输入最大借书天数", "设置")
    '当用户输入错误参数时
    If Not IsNumeric(value) Then
        MsgBox "数据类型错误！", vbCritical, "输入错误"
        Exit Sub
    End If
    maxDays = Str(value)
    SaveSetting App.Title, "设置", "最大借书天数", CStr(value)
End Sub

Private Sub mnuSettingUser_Click()
    frmUser.Show
    frmUser.SetFocus
End Sub

Private Sub mnuAddMemberInfo_Click()
    frmMemberInfo.Show
    frmMemberInfo.SetFocus
End Sub

Private Sub mnuTransIssue_Click()
    frmIssue.Show
    frmIssue.SetFocus
End Sub

Private Sub mnuTransReturn_Click()
    frmReturn.Show
    frmReturn.SetFocus
End Sub

Private Sub muRPTStockDet_Click()
    rptBookDetails.Show
    rptBookDetails.Refresh
    rptBookDetails.SetFocus
End Sub
'====================================================
' 菜单代码(结束)
'====================================================


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
        Case 1
                frmBookInfo.Show
                frmBookInfo.SetFocus
        Case 2
                frmMemberInfo.Show
                frmMemberInfo.SetFocus
        Case 5
                frmIssue.Show
                frmIssue.SetFocus
        Case 6
                frmReturn.Show
                frmReturn.SetFocus
        Case 9
                Call mnuLogOff_Click
        Case 10
                flagCloseAll = True
                Unload Me
        Case 13
                Call mnuExit_Click
    End Select
End Sub



Private Sub MDIForm_Load()
    '开启主窗口
    frmMain.Show
    
    '显示小提示
    frmTip.Show vbModal
    DoEvents
    
    frmWelcome.Show
       
    DoEvents
    flagCloseAll = False
End Sub

'当程序关闭时
Private Sub MDIForm_Unload(Cancel As Integer)
On Error Resume Next
    If ApplicationUnload() <> 1 Then
        Cancel = True
        flagCloseAll = False
    Else
        Unload frmSYSTRAYICON
    End If
End Sub

'点击打开网络连接
Private Sub status_PanelClick(ByVal Panel As MSComctlLib.Panel)
        ShellExecute Me.hWnd, vbNullString, "http://www.lib.cug.edu.cn/", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub