frmmain.frm

用VB6.0编写工资管理系统

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H80000011&
   Caption         =   "企业职工工资管理系统  作者:肖林 版权所有,欢迎使用"
   ClientHeight    =   7950
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   9255
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu Menu_System 
      Caption         =   "系统管理(&X)"
      Begin VB.Menu Menu_AddUser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu Menu_ChangePWD 
         Caption         =   "修改密码"
      End
      Begin VB.Menu Menu_Exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu Menu_Salary_Setting 
      Caption         =   "工资信息设置(&C)"
      Begin VB.Menu Menu_Basic 
         Caption         =   "基本工资设置"
      End
      Begin VB.Menu Menu_Others 
         Caption         =   "其他项目设置"
      End
      Begin VB.Menu Menu_FormulaSetting 
         Caption         =   "工资计算公式设置"
      End
   End
   Begin VB.Menu Menu_Salary_Manging 
      Caption         =   "工资信息管理(&M)"
      Begin VB.Menu Menu_SumAttendance 
         Caption         =   "出勤统计"
      End
      Begin VB.Menu Menu_GetSalary 
         Caption         =   "计算实发工资"
      End
      Begin VB.Menu Menu_Check 
         Caption         =   "查询工资"
      End
      Begin VB.Menu Menu_Out 
         Caption         =   "导出工资表"
      End
   End
   Begin VB.Menu Menu_About 
      Caption         =   "关于系统(&A)"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Menu_About_Click()              '关于对话框
    frmAbout.Show
    frmAbout.ZOrder 0
End Sub

Private Sub Menu_AddUser_Click()            '添加用户
    frmAddUser.Show
    frmAddUser.ZOrder 0
End Sub

Private Sub Menu_Basic_Click()               '设置基本工资
    ichangeFlag = 1
    frmBasicSetting.Show
    frmBasicSetting.ZOrder 0
End Sub

Private Sub Menu_ChangePWD_Click()           '修改密码
    frmChangePWD.Show
    frmChangePWD.ZOrder 0
End Sub

Private Sub Menu_Check_Click()               '查询信息
    frmResult.Show
    frmResult.ZOrder 0
    frmResult.Caption = "信息查询"
End Sub

Private Sub Menu_Exit_Click()                '退出系统
    Unload Me
    Exit Sub
End Sub

Private Sub Menu_FormulaSetting_Click()     '设置计算公式
    frmFormula.Show
    frmFormula.ZOrder 0
End Sub

Private Sub Menu_GetSalary_Click()          '计算实发工资
    frmSumSalary.Show
    frmSumSalary.ZOrder 0
End Sub

Private Sub Menu_Others_Click()             '设置其他项目
    ichangeFlag = 1
    frmOtherSetting.Show
    frmOtherSetting.ZOrder 0
End Sub

Private Sub Menu_Out_Click()                '导出数据
    frmExport.Show
    frmExport.ZOrder 0
End Sub

Private Sub Menu_SumAttendance_Click()      '考勤统计
    frmSumInOut.Show
    frmSumInOut.ZOrder 0
End Sub