mdimain.frm

学生选课系统

VERSION 5.00
Begin VB.MDIForm MDImain 
   BackColor       =   &H8000000C&
   Caption         =   "图书管理系统"
   ClientHeight    =   4665
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   7395
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu munDB 
      Caption         =   "数据库(&D)"
      Begin VB.Menu munSubjects 
         Caption         =   "主题信息管理"
      End
      Begin VB.Menu munTitles 
         Caption         =   "书籍信息管理"
      End
      Begin VB.Menu munBooks 
         Caption         =   "书本信息管理"
      End
      Begin VB.Menu sdsd 
         Caption         =   "-"
      End
      Begin VB.Menu munMembers 
         Caption         =   "会员信息管理"
      End
      Begin VB.Menu munEmployees 
         Caption         =   "雇员信息管理"
      End
      Begin VB.Menu dd 
         Caption         =   "-"
      End
      Begin VB.Menu munOptions 
         Caption         =   "配置"
      End
      Begin VB.Menu sdsdssd 
         Caption         =   "-"
      End
      Begin VB.Menu munExit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu munTransactions 
      Caption         =   "管理(&M)"
      Begin VB.Menu munIssue 
         Caption         =   "借出书籍"
      End
      Begin VB.Menu munRenewal 
         Caption         =   "续借书籍"
      End
      Begin VB.Menu munReturn 
         Caption         =   "归还书籍"
      End
      Begin VB.Menu kkj 
         Caption         =   "-"
      End
      Begin VB.Menu munRes 
         Caption         =   "预订书籍"
      End
      Begin VB.Menu munMiss 
         Caption         =   "丢失书籍"
      End
      Begin VB.Menu oo 
         Caption         =   "-"
      End
      Begin VB.Menu munPayfine 
         Caption         =   "支付欠款"
      End
   End
   Begin VB.Menu munReports 
      Caption         =   "报表(&R)"
      Begin VB.Menu munFineReport 
         Caption         =   "欠款支付表"
      End
      Begin VB.Menu munFineBal 
         Caption         =   "会员欠款一览表表"
      End
      Begin VB.Menu munMissBook 
         Caption         =   "书籍丢失情况表"
      End
   End
   Begin VB.Menu munAbout 
      Caption         =   "关于(&H)"
   End
End
Attribute VB_Name = "MDImain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
   
    M.FileName = App.Path & "\library.mdb"
    strConnection = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Library;Data Source=Localhost"
    M.LoadGlobalVariables
End Sub
Private Sub munAbout_Click()
    frmAbout.Show
End Sub

Private Sub munBooks_Click()
    frmBooks.Show
End Sub

Private Sub munEmployees_Click()
    frmEmployees.Show
End Sub

'"会员欠款一览表"菜单单击事件响应代码
Private Sub munFineBal_Click()
    Dim db As Connection
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open strConnection
    Set adoprimaryrs = New Recordset
    adoprimaryrs.Open "select MemberId,BooksInHand,FineBal,Tel," & _
                        "Email,Address from Members where FineBal>0", _
                        db, adOpenStatic, adLockOptimistic
    '动态绑定报表到记录集
    Set FineBalReport.DataSource = adoprimaryrs
    FineBalReport.Show
End Sub

'"欠款支付表"菜单单击事件响应代码
Private Sub munFineReport_Click()
    Dim db As Connection
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open strConnection
    Set adoprimaryrs = New Recordset
    adoprimaryrs.Open "select MemberId,FineAmount,PayDate from Fine", _
                        db, adOpenStatic, adLockOptimistic
    '动态绑定报表到记录集
    Set FineReport.DataSource = adoprimaryrs
    FineReport.Show
End Sub

'"书本丢失情况表"菜单单击事件响应代码
Private Sub munMissBook_Click()
    Dim db As Connection
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open strConnection
    Set adoprimaryrs = New Recordset
    adoprimaryrs.Open "select Titles.TitleId,Titles.Subject,Titles.Title," & _
                        "Titles.Author,Books.BookId from Books,Titles " & _
                        "where Titles.TitleId=Books.TitleID and " & _
                        "books.condition='MISSING'", db, _
                        adOpenStatic, adLockOptimistic
    '动态绑定报表到记录集
    Set MissReport.DataSource = adoprimaryrs
    MissReport.Show
End Sub

Private Sub munMembers_Click()
    frmMembers.Show
End Sub



Private Sub munOptions_Click()
    frmOptions.Show
    munOptions.Enabled = False
End Sub

Private Sub munPayfine_Click()
    frmpayfine.Show
End Sub
'借阅书籍菜单的单击事件响应代码
'注意其中对frmIssue的修改
Private Sub munIssue_Click()

    frmIssue.cmdIssue.Visible = True
    frmIssue.cmdcharge.Visible = False
    frmIssue.cmdrenewal.Visible = False
    frmIssue.cmdreturn.Visible = False

    frmIssue.Caption = "Issue Book"
    
    munIssue.Enabled = False
    munRenewal.Enabled = True
    munReturn.Enabled = True
    
    frmIssue.Show
End Sub

'丢失书籍菜单的单击事件响应代码
'注意其中对frmIssue的修改
Private Sub munMiss_Click()
    frmIssue.cmdIssue.Visible = False
    frmIssue.cmdcharge.Visible = False
    frmIssue.cmdrenewal.Visible = False
    frmIssue.cmdreturn.Visible = False
    frmIssue.cmdMiss.Visible = True
    frmIssue.Caption = "丢失书籍"
    frmIssue.Show
End Sub

'续借书籍菜单的单击事件响应代码
'注意其中对frmIssue的修改
Private Sub munRenewal_Click()
    frmIssue.cmdrenewal.Visible = True
    frmIssue.cmdcharge.Visible = False
    frmIssue.cmdIssue.Visible = False
    frmIssue.cmdreturn.Visible = False
    frmIssue.Show
    frmIssue.Caption = "续借书籍"
    munRenewal.Enabled = False
    munIssue.Enabled = True
    munReturn.Enabled = True
End Sub

'预定书籍菜单的单击事件响应代码
'注意其中对frmIssue的修改
Private Sub munRes_Click()
    frmIssue.cmdIssue.Visible = False
    frmIssue.cmdcharge.Visible = False
    frmIssue.cmdrenewal.Visible = False
    frmIssue.cmdreturn.Visible = False
    frmIssue.cmdReserve.Visible = True
    frmIssue.Caption = "预定书籍"
    frmIssue.Show
End Sub

'归还书籍菜单的单击事件响应代码
'注意其中对frmIssue的修改
Private Sub munReturn_Click()
    frmIssue.cmdreturn.Visible = True
    frmIssue.cmdcharge.Visible = False
    frmIssue.cmdIssue.Visible = False
    frmIssue.cmdrenewal.Visible = False
    frmIssue.Show
    frmIssue.Caption = "归还书籍"
    munReturn.Enabled = False
    munIssue.Enabled = True
    munRenewal.Enabled = True
End Sub

Private Sub munSubjects_Click()
    frmSubjects.Show
End Sub

Private Sub munTitles_Click()
    frmTitles.Show
End Sub