frmmain.frm

本人自己编写的!!!!!看看这样做的怎么样

VERSION 5.00
Begin VB.MDIForm frmMain 
   Appearance      =   0  'Flat
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   7380
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   9495
   LinkTopic       =   "MDIForm1"
   Picture         =   "frmMain.frx":0000
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu frmlogin 
      Caption         =   "登录"
   End
   Begin VB.Menu menureaders 
      Caption         =   "读者信息管理"
      Begin VB.Menu menuaddreader 
         Caption         =   "添加"
         Index           =   1
      End
      Begin VB.Menu menumodifyreader 
         Caption         =   "修改"
         Index           =   2
      End
      Begin VB.Menu menudeletereader 
         Caption         =   "删除"
         Index           =   3
      End
      Begin VB.Menu menuinquirereader 
         Caption         =   "查询"
         Index           =   4
      End
   End
   Begin VB.Menu menubooks 
      Caption         =   "图书信息管理"
      Begin VB.Menu menuaddbook 
         Caption         =   "添加"
         Index           =   1
      End
      Begin VB.Menu menumodifybook 
         Caption         =   "修改"
         Index           =   2
      End
      Begin VB.Menu menudeletebook 
         Caption         =   "删除"
         Index           =   3
      End
      Begin VB.Menu menuinquirebook 
         Caption         =   "查询"
         Index           =   4
      End
   End
   Begin VB.Menu menuborrows 
      Caption         =   "借阅信息管理"
      Begin VB.Menu menuaddborrows 
         Caption         =   "借书"
         Index           =   1
      End
      Begin VB.Menu menuaddreturn 
         Caption         =   "还书"
         Index           =   2
      End
      Begin VB.Menu menuinquirereturn 
         Caption         =   "当前借阅信息查询"
         Index           =   3
      End
      Begin VB.Menu menuinquirereturn1 
         Caption         =   "借阅历史查询"
         Index           =   4
      End
   End
   Begin VB.Menu menuexit 
      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 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(Index As Integer)
    bflagadd = 1
         frmBook1.Show vbModal
End Sub

Private Sub menuaddborrows_Click(Index As Integer)
  brflagadd = 1
  frmBorrow.Show
End Sub

Private Sub menuaddreader_Click(Index As Integer)  '当单击此菜单项时触发
 flagadd = 1
 frmReader.Show vbModal
End Sub

Private Sub menuaddreturn_Click(Index As Integer)
 brflagadd = 2
 frmBorrow.Show
End Sub

Private Sub menudeletebook_Click(Index As Integer)
bflagadd = 3
      frmBook1.Show vbModal
End Sub

Private Sub menudeletereader_Click(Index As Integer)
 flagadd = 3
    frmReader.Show vbModal
End Sub

Private Sub menuexit_Click()
    Unload Me
End Sub

Private Sub menuinquirebook_Click(Index As Integer)
  bflagadd = 4
      frmBook1.Show vbModal
End Sub

Private Sub menuinquirereader_Click(Index As Integer)
 flagadd = 4
    frmReader.Show vbModal
End Sub

Private Sub menuinquirereturn_Click(Index As Integer)
 brflagadd = 3
 frmborrow1.txtsql = "select jy.借书证号 , 姓名 ,jy.ISBN ,书名 , 索书号 , 借书时间 from jy,xs,book where xs.借书证号=jy.借书证号  and jy.ISBN =book.ISBN"
 frmborrow1.Show vbModal
End Sub

Private Sub menuinquirereturn1_Click(Index As Integer)
  brflagadd = 4
  frmborrow1.txtsql = "select jyls.借书证号,姓名,jyls.ISBN,书名,索书号,借书时间,还书时间 from jyls,xs,book where xs.借书证号=jyls.借书证号 and jyls.ISBN=book.ISBN"
  frmborrow1.Show vbModal
End Sub

Private Sub menumodifybook_Click(Index As Integer)
 bflagadd = 2
      frmBook1.Show vbModal
End Sub

Private Sub menumodifyreader_Click(Index As Integer)
flagadd = 2             '编辑
    frmReader.Show vbModal
End Sub