frmadmini.frm

第一次用VB编写的图书管理系统,仅供大家参考,呵呵,不足之处多多包含

      Begin VB.Menu MnuSFind 
         Caption         =   "查询学生资料(&F)"
      End
      Begin VB.Menu MnuSModify 
         Caption         =   "修改学生资料(&M)"
      End
      Begin VB.Menu MnuSDelete 
         Caption         =   "删除学生资料(&D)"
      End
      Begin VB.Menu MnuSsep2 
         Caption         =   "-"
      End
      Begin VB.Menu MnuSpwd 
         Caption         =   "修改学生密码(&P)"
      End
   End
   Begin VB.Menu MnuA 
      Caption         =   "统计(&A)"
      Begin VB.Menu MnuAOpt 
         Caption         =   "统计管理(&O)"
      End
      Begin VB.Menu MnuAsep 
         Caption         =   "-"
      End
   End
   Begin VB.Menu MnuSys 
      Caption         =   "系统(&O)"
      Begin VB.Menu MnuOIni 
         Caption         =   "图书借阅系统(&I)"
      End
      Begin VB.Menu MnuOSep1 
         Caption         =   "-"
      End
      Begin VB.Menu MnuOLogin 
         Caption         =   "重新登陆(&L)"
      End
      Begin VB.Menu MnuOPwd 
         Caption         =   "修改密码(&P)"
      End
      Begin VB.Menu MnuOSep 
         Caption         =   "-"
      End
      Begin VB.Menu MnuPic 
         Caption         =   "系统启动图片"
         Shortcut        =   ^P
      End
      Begin VB.Menu MnuOOption 
         Caption         =   "系统设置(&O)"
      End
   End
   Begin VB.Menu MnuWin 
      Caption         =   "窗口(&W)"
      WindowList      =   -1  'True
      Begin VB.Menu MnuWL 
         Caption         =   "水平平铺(&L)"
      End
      Begin VB.Menu MnuWV 
         Caption         =   "垂直平铺(&V)"
      End
      Begin VB.Menu MnuWC 
         Caption         =   "重叠排列(&C)"
      End
      Begin VB.Menu MnuWI 
         Caption         =   "排列图标(&I)"
      End
   End
   Begin VB.Menu MnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu MnuHAbout 
         Caption         =   "关于图书管理系统"
      End
      Begin VB.Menu MnuHSep1 
         Caption         =   "-"
      End
      Begin VB.Menu MnuHHelp 
         Caption         =   "帮助信息(&H)"
      End
   End
   Begin VB.Menu MnuExit 
      Caption         =   "退出(&E)"
      Begin VB.Menu MnuEClose 
         Caption         =   "关闭窗口(&O)"
         Enabled         =   0   'False
      End
      Begin VB.Menu MnuESep 
         Caption         =   "-"
      End
      Begin VB.Menu MnuEReturn 
         Caption         =   "返回(&R)"
      End
      Begin VB.Menu MnuEExit 
         Caption         =   "退出(&E)"
      End
   End
End
Attribute VB_Name = "FrmAdmini"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Admini As String
Public bytPwd As Byte
Private Sub MDIForm_Load()
On Error Resume Next
Admini = DBRct.Fields("name").Value
Sta.Panels(1).Text = "欢迎使用在线借书系统"
Sta.Panels(2).Text = "操作员:" & Admini
Sta.Panels(5).Text = Now
End Sub

Private Sub MnuAOpt_Click()
Dim Stat As New FrmStat
Stat.Show
End Sub

Private Sub MnuBAdd_Click()
MnuBbook_Click
End Sub

Private Sub MnuBbook_Click()
Dim Book As New FrmBook
Book.Show
End Sub

Private Sub MnuBDelete_Click()
MnuBbook_Click
End Sub

Private Sub MnuBFind_Click()
MnuBbook_Click
End Sub

Private Sub MnuBModify_Click()
MnuBbook_Click
End Sub

Private Sub MnuBReturn_Click()
Load FrmReturn: FrmReturn.Show
End Sub

Private Sub MnuEExit_Click()
Unload Me: Call DisConnect: End
End Sub

Private Sub MnuEReturn_Click()
Unload Me: Load FrmMain: FrmMain.Show
End Sub

Private Sub MnuHAbout_Click()
MsgBox "图书管理系统v1.0" & vbCrLf & "作者:彭方春" & vbCrLf & "QQ  :497213330", 0, "关于"
End Sub

Private Sub MnuHHelp_Click()
 Shell ("help\help.exe")
End Sub



Private Sub MnuOIni_Click()
    FrmMain.Show
End Sub

Private Sub MnuOLogin_Click()
On Error GoTo L_Err
Load FrmAL: FrmAL.Show vbModal, Me
Sta.Panels(2).Text = "操作员:" & DBRct.Fields("name").Value
Admini = DBRct.Fields("name").Value
L_Err:
End Sub

Private Sub MnuOOption_Click()
'
End Sub

Private Sub MnuOPwd_Click()
bytPwd = 1
Load FrmApwd: FrmApwd.Show vbModal
End Sub

Private Sub MnuPic_Click()
Load FrmPic: FrmPic.Show
End Sub

Private Sub MnuSAdd_Click()
MnuSstu_Click
End Sub

Private Sub MnuSDelete_Click()
MnuSstu_Click
End Sub

Private Sub MnuSFind_Click()
MnuSstu_Click
End Sub

Private Sub MnuSModify_Click()
MnuSstu_Click
End Sub

Private Sub MnuSpwd_Click()
bytPwd = 2
Load FrmApwd: FrmApwd.Show vbModal
End Sub

Private Sub MnuSstu_Click()
Dim STU As New FrmAstu
 STU.Show
End Sub

Private Sub MnuWC_Click()
Me.Arrange (vbCascade)
End Sub

Private Sub MnuWI_Click()
Me.Arrange (3)
End Sub

Private Sub MnuWL_Click()
Me.Arrange (vbTileHorizontal)
End Sub

Private Sub MnuWV_Click()
Me.Arrange (vbTileVertical)
End Sub

Private Sub Timer1_Timer()
Sta.Panels(5).Text = Now
End Sub

Private Sub Tlb_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
 Case "还书":  MnuBReturn_Click
 Case "图书":  MnuBbook_Click
 Case "读者":  MnuSstu_Click
 Case "统计":  MnuAOpt_Click
 Case "密码A": MnuOPwd_Click
 Case "密码B": MnuSpwd_Click
 Case "系统":  MnuOOption_Click
 Case "退出":  MnuEExit_Click
 Case "登陆":  MnuOLogin_Click
 Case "帮助":
End Select
End Sub