工会管理系统源代码

				VERSION 5.00
				Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
				Begin VB.MDIForm 主窗体 
				   BackColor       =   &H8000000C&
				   Caption         =   "工会人员信息管理系统"
				   ClientHeight    =   7695
				   ClientLeft      =   60
				   ClientTop       =   675
				   ClientWidth     =   11235
				   LinkTopic       =   "MDIForm1"
				   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        =   "谢谢你的使用"
				            Key             =   ""
				            Object.Tag             =   ""
				         EndProperty
				         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
				            Style           =   6
				            TextSave        =   "2004-6-27"
				            Key             =   ""
				            Object.Tag             =   ""
				         EndProperty
				         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
				            Style           =   5
				            TextSave        =   "10:02"
				            Key             =   ""
				            Object.Tag             =   ""
				         EndProperty
				      EndProperty
				   End
				   Begin VB.Menu 系统 
				      Caption         =   "系统"
				      Begin VB.Menu 添加用户 
				         Caption         =   "添加用户"
				      End
				      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
				      Begin VB.Menu 管理工会职员信息 
				         Caption         =   "工会职员信息"
				      End
				      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
				      Begin VB.Menu 查询与打印工会职员信息 
				         Caption         =   "工会职员信息"
				      End
				      Begin VB.Menu 查询与打印先进个人信息 
				         Caption         =   "先进个人信息"
				      End
				      Begin VB.Menu 查询与打印教职工代表信息 
				         Caption         =   "教职工代表信息"
				      End
				      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
				        添加用户.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