frmmain.frm

该压缩包包含有很多关于数据库原理与应用的课件以及课程设计

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.MDIForm FrmMain 
   AutoShowChildren=   0   'False
   BackColor       =   &H8000000C&
   Caption         =   "图书馆管理系统"
   ClientHeight    =   4140
   ClientLeft      =   225
   ClientTop       =   825
   ClientWidth     =   8865
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin ComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   690
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   8865
      _ExtentX        =   15637
      _ExtentY        =   1217
      ButtonWidth     =   1455
      ButtonHeight    =   1058
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   327682
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
         NumButtons      =   6
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "图书信息"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "读者信息"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "借书"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "还书"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "重新登录"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "退出系统"
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin ComctlLib.ImageList ImageList1 
      Left            =   1680
      Top             =   1800
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      MaskColor       =   12632256
      _Version        =   327682
   End
   Begin VB.Menu mnuNewEntry 
      Caption         =   "基本信息"
      Begin VB.Menu mnuAddBookInfo 
         Caption         =   "图书信息"
      End
      Begin VB.Menu mnuAddPublicationInfo 
         Caption         =   "出版商信息"
      End
      Begin VB.Menu mnuCategory 
         Caption         =   "图书分类信息"
      End
      Begin VB.Menu d 
         Caption         =   "-"
      End
      Begin VB.Menu mnuClassInfo 
         Caption         =   "班级信息"
      End
      Begin VB.Menu f 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAddMemberInfo 
         Caption         =   "读者信息"
      End
   End
   Begin VB.Menu h 
      Caption         =   "借还书业务"
      Begin VB.Menu i 
         Caption         =   "学生信息管理"
      End
      Begin VB.Menu j 
         Caption         =   "班级信息管理"
      End
      Begin VB.Menu mnuTransIssue 
         Caption         =   "学生借书管理"
      End
      Begin VB.Menu mnuTransReturn 
         Caption         =   "学生还书管理"
      End
   End
   Begin VB.Menu k 
      Caption         =   "图书查询"
      Begin VB.Menu mnuSearchBookInfo 
         Caption         =   "图书信息查询"
      End
      Begin VB.Menu mnuSearchIssue 
         Caption         =   "外借图书信息查询"
      End
      Begin VB.Menu mnuSearchMemberInfo 
         Caption         =   "学生信息查询"
      End
   End
   Begin VB.Menu l 
      Caption         =   "图书报表"
      Begin VB.Menu i1 
         Caption         =   "图书信息报表"
      End
      Begin VB.Menu mnuPRTMemberDet 
         Caption         =   "读者信息报表"
      End
      Begin VB.Menu mnuPRTIssueDet 
         Caption         =   "借书报表"
      End
   End
   Begin VB.Menu m 
      Caption         =   "系统设置"
      Begin VB.Menu mnuSettingFineAmt 
         Caption         =   "设置罚款金额"
      End
      Begin VB.Menu mnuMaxDays 
         Caption         =   "允许借读最多天数"
      End
      Begin VB.Menu mnuSettingUser 
         Caption         =   "用户信息管理"
      End
      Begin VB.Menu mnuSettingBackup 
         Caption         =   "数据备份"
      End
   End
   Begin VB.Menu n 
      Caption         =   "工具"
   End
   Begin VB.Menu mnuLogOff 
      Caption         =   "重新登录"
   End
   Begin VB.Menu mnuAboutMe 
      Caption         =   "关于"
   End
   Begin VB.Menu mnuExit 
      Caption         =   "退出系统"
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub m1_Click()

End Sub

Private Sub MDIForm_Load()
FrmMain.Show
frmTip.Show vbModal
DoEvents
frmWelcome.Show
DoEvents
End Sub
'退出主窗体
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 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()
On Error Resume Next
    rptMemberInfo.Show
    rptMemberInfo.Refresh
    rptMemberInfo.SetFocus
End Sub

Private Sub mnuMaxDays_Click()
Dim value As String
value = InputBox("Enter maximum No.of days allowed", "Setting...!")
If Not IsNumeric(value) Then
    MsgBox "Improper Data Entered!", vbCritical, "Input Error"
    Exit Sub
End If
maxDays = Str(value)
SaveSetting App.Title, "Setting", "MaxDays", CStr(value)
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("Enter fine amount", "Setting...!")
If Not IsNumeric(value) Then
    MsgBox "Improper Data Entered!", vbCritical, "Input Error"
    Exit Sub
End If
fineAmt = Str(value)
SaveSetting App.Title, "Setting", "FineAmt", 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 mnuRPTStoreDet_Click()
    rptBookDetails.Show
    rptBookDetails.Refresh
    rptBookDetails.SetFocus
End Sub



Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Index
    Case 1
        frmBookInfo.Show
        frmBookInfo.SetFocus
    Case 2
        frmMemberInfo.Show
        frmMemberInfo.SetFocus
    Case 3
        frmIssue.Show
        frmIssue.SetFocus
    Case 4
        frmReturn.Show
        frmReturn.SetFocus
    Case 5
        Call mnuLogOff_Click
    Case 6
        Call mnuExit_Click
End Select
End Sub