VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.MDIForm 主窗體 
   BackColor       =   &H000080FF&
   Caption         =   "工會人員信息管理系統"
   ClientHeight    =   7695
   ClientLeft      =   60
   ClientTop       =   675
   ClientWidth     =   11235
   LinkTopic       =   "MDIForm1"
   Picture         =   "主窗體.frx":0000
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin ComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   7320
      Width           =   11235
      _ExtentX        =   19817
      _ExtentY        =   661
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   3
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Object.Width           =   12347
            MinWidth        =   12347
            Text            =   "謝謝你的使用"
            TextSave        =   "謝謝你的使用"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Style           =   6
            TextSave        =   "2006-9-17"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Style           =   5
            TextSave        =   "15:54"
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu 系統 
      Caption         =   "系統"
      Begin VB.Menu 添加用戶 
         Caption         =   "添加用戶"
      End
      Begin VB.Menu 查看日志 
         Caption         =   "查看日志"
      End
      Begin VB.Menu 退出 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu 管理 
      Caption         =   "管理"
      Begin VB.Menu 管理會員基本信息 
         Caption         =   "會員基本信息"
      End
   End
   Begin VB.Menu 查詢與打印 
      Caption         =   "查詢與打印"
      Begin VB.Menu 查詢與打印會員基本信息 
         Caption         =   "會員基本信息"
      End
   End
   Begin VB.Menu 關于 
      Caption         =   "關于"
   End
End
Attribute VB_Name = "主窗體"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
    If Identify = 1 Then
        查看日志.Enabled = False
        添加用戶.Enabled = False
    End If
End Sub

Private Sub 查看日志_Click()
    日志.Show
End Sub

Private Sub 查詢與打印會員基本信息_Click()
    會員基本信息查詢與打印.Show
End Sub

Private Sub 關于_Click()
    關于作業.Show
End Sub

Private Sub 管理會員基本信息_Click()
    會員基本信息管理.Show
End Sub

Private Sub 添加用戶_Click()
    用戶.Show
End Sub

Private Sub 退出_Click()
    Call LogPlug("系統", "用戶 " + UserName + " 退出") '記錄日志
    End
End Sub