mainmdifrm.frm

一个关于企业工资管理的数据库应用的例子。

VERSION 5.00
Begin VB.MDIForm mainmdifrm 
   BackColor       =   &H00808000&
   Caption         =   "企业工资管理系统"
   ClientHeight    =   7650
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   8505
   LinkTopic       =   "MDIForm1"
   WindowState     =   2  'Maximized
   Begin VB.Menu yhdl 
      Caption         =   "用户登录"
      Begin VB.Menu tjyh 
         Caption         =   "添加用户"
      End
      Begin VB.Menu xgmm 
         Caption         =   "修改密码"
      End
      Begin VB.Menu zwgl 
         Caption         =   "职务管理"
      End
      Begin VB.Menu bmgl 
         Caption         =   "部门管理"
      End
      Begin VB.Menu cxdl 
         Caption         =   "重新登录"
      End
      Begin VB.Menu tcxt 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu ygda 
      Caption         =   "员工档案管理"
      Begin VB.Menu tjyg 
         Caption         =   "添加员工信息"
      End
      Begin VB.Menu gxyg 
         Caption         =   "更新员工信息"
      End
      Begin VB.Menu scyg 
         Caption         =   "删除员工信息"
      End
      Begin VB.Menu cxyg 
         Caption         =   "查询员工信息"
      End
      Begin VB.Menu ygxxbb 
         Caption         =   "员工信息报表"
      End
   End
   Begin VB.Menu ygdd 
      Caption         =   "员工调动"
      Begin VB.Menu tjdd 
         Caption         =   "添加调动"
      End
      Begin VB.Menu xgdd 
         Caption         =   "修改调动"
      End
      Begin VB.Menu scdd 
         Caption         =   "删除调动"
      End
      Begin VB.Menu cxdd 
         Caption         =   "查询调动"
      End
      Begin VB.Menu ddxxbb 
         Caption         =   "调动信息报表"
      End
   End
   Begin VB.Menu ygkqgl 
      Caption         =   "员工考勤管理"
      Begin VB.Menu tjkqxx 
         Caption         =   "添加考勤信息"
      End
      Begin VB.Menu xgkqxx 
         Caption         =   "修改考勤信息"
      End
      Begin VB.Menu sckqxx 
         Caption         =   "删除考勤信息"
      End
      Begin VB.Menu cxkqxx 
         Caption         =   "查询考勤信息"
      End
   End
   Begin VB.Menu yggz 
      Caption         =   "员工工资管理"
      Begin VB.Menu yggzgl 
         Caption         =   "员工工资管理"
      End
      Begin VB.Menu xgjbgz 
         Caption         =   "修改基本工资"
      End
      Begin VB.Menu cxtj 
         Caption         =   "查询统计"
      End
   End
End
Attribute VB_Name = "mainmdifrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub bmgl_Click()
adddepart.Show
End Sub


Private Sub cxdd_Click()
chaxunmove.Show
End Sub

Private Sub cxdl_Click()
Unload mainmdifrm
frmlogin.Show
End Sub

Private Sub cxkqxx_Click()
kqcx.Show
End Sub

Private Sub cxtj_Click()
gzcx.Show
End Sub

Private Sub cxyg_Click()
queryinfo.Show
End Sub

Private Sub ddxxbb_Click()
DataReport2.Show
End Sub

Private Sub gxyg_Click()
editinfo.Show
End Sub

Private Sub scdd_Click()
changemove.Show
End Sub

Private Sub sckqxx_Click()
kqtj.Show
End Sub

Private Sub scyg_Click()
editinfo.Show
End Sub

Private Sub tcxt_Click()
Unload Me
End Sub

Private Sub tjdd_Click()
tianjiamove.Show
End Sub

Private Sub tjkqxx_Click()
kqtj.Show
End Sub

Private Sub tjyg_Click()
editinfo.Show
End Sub

Private Sub tjyh_Click()
FrmAddUsers.Show
End Sub
Private Sub xgdd_Click()
changemove.Show
End Sub

Private Sub xgjbgz_Click()
xggzxx.Show
End Sub

Private Sub xgkqxx_Click()
kqtj.Show
End Sub

Private Sub xgmm_Click()
xgpaword.Show
End Sub

Private Sub yggzgl_Click()
gzgl.Show
End Sub

Private Sub ygxxbb_Click()
DataReport1.Show
End Sub

Private Sub zwgl_Click()
addzhiwu.Show
End Sub