主窗体.frm

针对我国目前企事业单位的不断增多,工会部门也相应的越来越多,而工会人员信息管理则变得越来越繁琐。由于需要统计大量的数据

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