?? frmmain.frm
字號(hào):
VERSION 5.00
Begin VB.MDIForm frmMain
BackColor = &H80000011&
Caption = "員工工資管理系統(tǒng)"
ClientHeight = 7950
ClientLeft = 165
ClientTop = 450
ClientWidth = 9255
LinkTopic = "MDIForm1"
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin VB.Menu Menu_System
Caption = "系統(tǒng)"
Begin VB.Menu Menu_AddUser
Caption = "添加用戶"
End
Begin VB.Menu Menu_ChangePWD
Caption = "修改密碼"
End
Begin VB.Menu Menu_Exit
Caption = "退出系統(tǒng)"
End
End
Begin VB.Menu Menu_Salary_Setting
Caption = "工資信息設(shè)置"
Begin VB.Menu Menu_Basic
Caption = "基本工資設(shè)置"
End
Begin VB.Menu Menu_Others
Caption = "其他項(xiàng)目設(shè)置"
End
Begin VB.Menu Menu_FormulaSetting
Caption = "工資計(jì)算公式設(shè)置"
End
End
Begin VB.Menu Menu_Salary_Manging
Caption = "工資信息管理"
Begin VB.Menu Menu_SumAttendance
Caption = "出勤統(tǒng)計(jì)"
End
Begin VB.Menu Menu_GetSalary
Caption = "計(jì)算實(shí)發(fā)工資"
End
Begin VB.Menu Menu_Check
Caption = "查詢工資"
End
Begin VB.Menu Menu_Out
Caption = "導(dǎo)出工資表"
End
End
Begin VB.Menu Menu_About
Caption = "關(guān)于"
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() '關(guān)于對(duì)話框
frmAbout.Show
frmAbout.ZOrder 0
End Sub
Private Sub Menu_AddUser_Click() '添加用戶
frmAddUser.Show
frmAddUser.ZOrder 0
End Sub
Private Sub Menu_Basic_Click() '設(shè)置基本工資
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() '退出系統(tǒng)
Unload Me
Exit Sub
End Sub
Private Sub Menu_FormulaSetting_Click() '設(shè)置計(jì)算公式
frmFormula.Show
frmFormula.ZOrder 0
End Sub
Private Sub Menu_GetSalary_Click() '計(jì)算實(shí)發(fā)工資
frmSumSalary.Show
frmSumSalary.ZOrder 0
End Sub
Private Sub Menu_Others_Click() '設(shè)置其他項(xiàng)目
ichangeFlag = 1
frmOtherSetting.Show
frmOtherSetting.ZOrder 0
End Sub
Private Sub Menu_Out_Click() '導(dǎo)出數(shù)據(jù)
frmExport.Show
frmExport.ZOrder 0
End Sub
Private Sub Menu_SumAttendance_Click() '考勤統(tǒng)計(jì)
frmSumInOut.Show
frmSumInOut.ZOrder 0
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -