frmmain1.frm

随着计算机应用的普及

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "企业人事管理信息系统"
   ClientHeight    =   7320
   ClientLeft      =   165
   ClientTop       =   915
   ClientWidth     =   9600
   LinkTopic       =   "MDIForm1"
   Picture         =   "frmMain1.frx":0000
   StartUpPosition =   3  '窗口缺省
   Begin MSComctlLib.StatusBar sbStatusBar 
      Align           =   2  'Align Bottom
      Height          =   270
      Left            =   0
      TabIndex        =   0
      Top             =   7050
      Width           =   9600
      _ExtentX        =   16933
      _ExtentY        =   476
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   11218
            Text            =   "Status"
            TextSave        =   "Status"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            AutoSize        =   2
            TextSave        =   "2005-7-7"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            AutoSize        =   2
            TextSave        =   "0:35"
         EndProperty
      EndProperty
   End
   Begin VB.Menu menuSystem 
      Caption         =   "系统"
      Begin VB.Menu menuAdduser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu menuModifypwd 
         Caption         =   "修改密码"
      End
      Begin VB.Menu menuExit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu menuManrecord 
      Caption         =   "员工基本信息"
      Begin VB.Menu AddyginfoMenu 
         Caption         =   "添加员工信息"
      End
      Begin VB.Menu menuModifyrecord 
         Caption         =   "修改员工信息"
      End
      Begin VB.Menu DeletefginfoMenu 
         Caption         =   "删除员工信息"
      End
      Begin VB.Menu InquireyginfoMenu 
         Caption         =   "员工信息查询"
      End
   End
   Begin VB.Menu menuCheck 
      Caption         =   "员工家庭信息"
      Begin VB.Menu AddfamilyMenu 
         Caption         =   "添加员工家庭信息"
      End
      Begin VB.Menu menuModifyfamily 
         Caption         =   "修改员工家庭信息"
      End
      Begin VB.Menu DeletefamilyMenu 
         Caption         =   "删除员工家庭信息"
      End
      Begin VB.Menu InquirefamilyMenu 
         Caption         =   "员工家庭信息查询"
      End
   End
   Begin VB.Menu menuManapprise 
      Caption         =   "企业部门信息"
      Begin VB.Menu AdddepartmentMenu 
         Caption         =   "添加企业部门信息"
      End
      Begin VB.Menu ModifydepartmentMenu 
         Caption         =   "修改企业部门信息"
      End
      Begin VB.Menu DeletedepartmentMenu 
         Caption         =   "删除企业部门信息"
      End
      Begin VB.Menu InquiredepartmentMenu 
         Caption         =   "企业部门信息查询"
      End
   End
   Begin VB.Menu menuHelp 
      Caption         =   "帮助"
      Begin VB.Menu menuAbout 
         Caption         =   "About"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub AdddepartmentMenu_Click()
    frmAdddepartment.Show
End Sub



Private Sub AddfamilyMenu_Click()
frmAddfamily.Show
End Sub

Private Sub AddyginfoMenu_Click()
frmAddyginfo.Show
End Sub

Private Sub DeletedepartmentMenu_Click()
frmDeletedepartment.Show

End Sub

Private Sub DeletefamilyMenu_Click()
frmDeletefamily.Show

End Sub


Private Sub DeletefginfoMenu_Click()
frmDeleteyginfo.Show

End Sub

Private Sub InquiredepartmentMenu_Click()
frmInquiredepartment.Show

End Sub

Private Sub InquirefamilyMenu_Click()
frmInquirefamily.Show
End Sub

Private Sub InquireyginfoMenu_Click()
frmInquireyginfo.Show
End Sub

Private Sub MDIForm_Load()
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
    flagEdit = False
    
End Sub





Private Sub MDIForm_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
    Unload Me
End Sub







       

Private Sub menuModifyfamily_Click()
frmModifyfamily.Show
End Sub



Private Sub ModifydepartmentMenu_Click()
frmModifydepartment.Show

End Sub