frmmain.frm

采用最新的XP类模块

VERSION 5.00
Begin VB.Form frmmain 
   BackColor       =   &H8000000B&
   Caption         =   "钻井事故分析系统"
   ClientHeight    =   10710
   ClientLeft      =   165
   ClientTop       =   645
   ClientWidth     =   15120
   LinkTopic       =   "Form1"
   ScaleHeight     =   10710
   ScaleWidth      =   15120
   StartUpPosition =   2  '屏幕中心
   Begin VB.Menu mnuGeneral 
      Caption         =   "通用(&F)"
      Begin VB.Menu databasesystem 
         Caption         =   "数据库管理(&S)"
         Shortcut        =   {F2}
      End
      Begin VB.Menu mnuFind 
         Caption         =   "事故查询管理(&F)"
         Shortcut        =   {F3}
      End
      Begin VB.Menu line1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuuser 
         Caption         =   "用户管理"
         Shortcut        =   {F4}
      End
      Begin VB.Menu line2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出(&X)"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuAbout 
         Caption         =   "关于(&A)"
         Shortcut        =   {F1}
      End
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'表示当前的用户类型
'0---管理员类型的用户; 1---学生类型的用户
Public mnUserType As Integer
'表示当前登录的用户名
Public msUserName As String
Dim i  As Integer

Private Sub frmmain_Activate()
'根据不同的用户类型，使相应的菜单项可见
  Select Case mnUserType
    Case 0:                       '以管理员身份登录
        mnuFind.Visible = True
    Case 1:                       '以职工身份登录， 只能查询自己的信息
        mnuFind.Visible = False
  End Select
End Sub

Private Sub frmmain_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If MsgBox("真的要对出本系统吗？", vbQuestion + vbYesNo + vbDefaultButton2, "退出") = vbNo Then
    Cancel = 1
  End If
End Sub

Private Sub databasesystem_Click()
   If mnUserType = 0 Then   '若为管理员用户
      frmacess.Show
   Else                     '若为学生类用户
      frmview.Show
   End If
End Sub

Private Sub Form_Load()
Set cg1 = cnn.Execute("select * from admin where name='" & loginname & "'")
For i = 0 To 11
'system(i) = cg1.Fields(i + 2)
Next
End Sub

Private Sub mnuAbout_Click()
 '显示“关于...”窗口
  Load frmSplash
  frmSplash.mbAbout = True
  frmSplash.Show vbModal
End Sub

Private Sub mnuExit_Click()
End
End Sub

Private Sub mnuFind_Click()
   frmview.Show
End Sub


Private Sub mnuuser_Click()
If mnUserType = 0 And system(11) = False Then   '若为管理员用户
   frmquan.Show vbModal
Else                     '若为学生类用户
   frmview.Show vbModal
End If
End Sub