frmmain.frm

有读者和图书信息的添加查询,借还书等,先建立数据库和ODBC数据源

VERSION 5.00
Begin VB.MDIForm frmmain 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   4560
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   8670
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu frmlogin 
      Caption         =   "登陆"
   End
   Begin VB.Menu menuReaders 
      Caption         =   "读者信息管理"
      Begin VB.Menu menuAddreader 
         Caption         =   "添加"
      End
      Begin VB.Menu menuModifyreader 
         Caption         =   "修改"
      End
      Begin VB.Menu menuDeletereader 
         Caption         =   "删除"
      End
      Begin VB.Menu menuInquirereader 
         Caption         =   "查询"
      End
   End
   Begin VB.Menu menuBooks 
      Caption         =   "图书信息管理"
      Begin VB.Menu menuAddbook 
         Caption         =   "添加"
      End
      Begin VB.Menu menuModifybook 
         Caption         =   "修改"
      End
      Begin VB.Menu menuDeletebook 
         Caption         =   "删除"
      End
      Begin VB.Menu menuInquirebook 
         Caption         =   "查询"
      End
   End
   Begin VB.Menu menuBorrows 
      Caption         =   "借阅信息管理"
      Begin VB.Menu menuAddborrow 
         Caption         =   "借书"
      End
      Begin VB.Menu menuAddreturn 
         Caption         =   "还书"
      End
      Begin VB.Menu menuInquirereturn 
         Caption         =   "当前借阅信息查询"
      End
      Begin VB.Menu menuInquirereturn1 
         Caption         =   "借阅历史查询"
      End
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub frmlogin_Click()
        Dim flogin As New frmlogin
        flogin.Show vbModal
        If flag = 1 Then
           menuReaders.Enabled = True
           menuBooks.Enabled = True
           menuBorrows.Enabled = True
        Else
           End
        End If
End Sub

Private Sub MDIForm_Load()
        If flag = 0 Then
           menuReaders.Enabled = False
           menuBooks.Enabled = False
           menuBorrows.Enabled = False
         End If
End Sub

Private Sub menuAddbook_Click()
            bflagadd = 1
            frmBook1.Show vbModal
End Sub

Private Sub menuAddborrow_Click()
            brflagadd = 1
            frmBorrow1.Show
End Sub

Private Sub menuAddreader_Click()
        flagadd = 1
        frmReader1.Show vbModal
End Sub

Private Sub menuAddreturn_Click()
            brflagadd = 2
            frmBorrow1.Show
End Sub

Private Sub menuDeletebook_Click()
            bflagadd = 3
            frmBook1.Show vbModal
End Sub

Private Sub menuDeletereader_Click()
            flagadd = 3
            frmReader1.Show vbModal
End Sub

Private Sub menuInquirebook_Click()
            bflagadd = 4
            frmBook1.Show vbModal
End Sub

Private Sub menuInquirereader_Click()
            flagadd = 4
            frmReader1.Show vbModal
End Sub

Private Sub menuInquirereturn_Click()
           brflagadd = 3
           frmBorrow.txtSQL = "select zzyjy.借书证号,姓名,zzyjy.ISBN,书名,索书号,借书日期 from zzyjy,zzyxs,zzybook where zzyxs.借书证号=zzyjy.借书证号 and zzyjy.ISBN=zzybook.ISBN "
           frmBorrow.Show vbModal
End Sub

Private Sub menuInquirereturn1_Click()
            brflagadd = 4
            frmBorrow.txtSQL = "select zzyjyls.借书证号,姓名,zzyjyls.ISBN,书名,zzyjyls.索书号,zzyjyls.借书日期,还书日期 from zzyjyls,zzyxs,zzybook where zzyxs.借书证号=zzyjyls.借书证号 and zzyjyls.ISBN=zzybook.ISBN "
            frmBorrow.Show vbModal
End Sub

Private Sub menuModifybook_Click()
            bflagadd = 2
            frmBook1.Show vbModal
End Sub

Private Sub menuModifyreader_Click()
            flagadd = 2
            frmReader1.Show vbModal
End Sub