📄 addgongzi.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmgongzi
Caption = "工资管理"
ClientHeight = 6600
ClientLeft = 165
ClientTop = 855
ClientWidth = 8925
LinkTopic = "Form1"
Picture = "addgongzi.frx":0000
ScaleHeight = 6600
ScaleWidth = 8925
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "返 回"
Height = 495
Left = 7200
TabIndex = 4
Top = 5640
Width = 1215
End
Begin MSComctlLib.TreeView TreeView1
Height = 5055
Left = 240
TabIndex = 0
Top = 840
Width = 1935
_ExtentX = 3413
_ExtentY = 8916
_Version = 393217
Style = 7
Appearance = 0
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "删除工资记录"
Height = 180
Left = 6240
TabIndex = 9
Top = 4800
Visible = 0 'False
Width = 1080
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "计算工资"
Height = 180
Left = 4200
TabIndex = 8
Top = 4800
Visible = 0 'False
Width = 720
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "查询工资记录"
Height = 180
Left = 7320
TabIndex = 7
Top = 2880
Visible = 0 'False
Width = 1080
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "修改工资记录"
Height = 180
Left = 5280
TabIndex = 6
Top = 2880
Visible = 0 'False
Width = 1080
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "增加工资记录"
Height = 180
Left = 3240
TabIndex = 5
Top = 2880
Visible = 0 'False
Width = 1080
End
Begin VB.Image Image8
Height = 960
Left = 4080
Picture = "addgongzi.frx":C5C54
Top = 3840
Visible = 0 'False
Width = 960
End
Begin VB.Image Image7
Height = 960
Left = 5400
Picture = "addgongzi.frx":C729E
Top = 1800
Visible = 0 'False
Width = 960
End
Begin VB.Image Image6
Height = 960
Left = 7320
Picture = "addgongzi.frx":C88E8
Top = 1800
Visible = 0 'False
Width = 960
End
Begin VB.Image Image5
Height = 960
Left = 6240
Picture = "addgongzi.frx":C9F32
Top = 3840
Visible = 0 'False
Width = 960
End
Begin VB.Image Image4
Height = 960
Left = 3240
Picture = "addgongzi.frx":CB57C
Top = 1800
Visible = 0 'False
Width = 960
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "查询考勤记录"
Height = 255
Left = 7320
TabIndex = 3
Top = 3600
Visible = 0 'False
Width = 1215
End
Begin VB.Image Image3
Height = 960
Left = 7320
Picture = "addgongzi.frx":CCBC6
Top = 2400
Visible = 0 'False
Width = 960
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "修改考勤记录"
Height = 180
Left = 5160
TabIndex = 2
Top = 3600
Visible = 0 'False
Width = 1080
End
Begin VB.Image Image2
Height = 960
Left = 5160
Picture = "addgongzi.frx":CE210
Top = 2520
Visible = 0 'False
Width = 960
End
Begin VB.Label Label1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "添加考勤记录"
ForeColor = &H80000008&
Height = 180
Left = 3000
TabIndex = 1
Top = 3600
Visible = 0 'False
Width = 1080
End
Begin VB.Image Image1
Height = 960
Left = 3000
Picture = "addgongzi.frx":CF85A
Top = 2520
Visible = 0 'False
Width = 960
End
Begin VB.Menu kqgl
Caption = "考勤管理"
Begin VB.Menu tjkq
Caption = "增加考勤记录"
End
Begin VB.Menu xgkq
Caption = "修改考勤记录"
End
Begin VB.Menu cxkq
Caption = "查询考勤记录"
End
End
Begin VB.Menu gzgx
Caption = "工资更新"
Begin VB.Menu tjgz
Caption = "增加工资记录"
End
Begin VB.Menu xggz
Caption = "修改工资记录"
End
Begin VB.Menu cxgz
Caption = "查询工资记录"
End
Begin VB.Menu scgz
Caption = "删除工资记录"
End
Begin VB.Menu jsgz
Caption = "计算工资"
End
End
End
Attribute VB_Name = "frmgongzi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub cxgz_Click()
frmsgz.Show
End Sub
Private Sub cxkq_Click()
frmcxkq.Show
End Sub
Private Sub Form_Load()
Dim gzxx As Node
Dim gzgx As Node
Dim tjkq As Node
Set gzxx = TreeView1.Nodes.Add(, , "gzxx", "考勤管理")
Set gzxx = TreeView1.Nodes.Add("gzxx", tvwChild, "child01", "添加考勤记录")
Set gzxx = TreeView1.Nodes.Add("gzxx", tvwChild, "child02", "修改考勤记录")
Set gzxx = TreeView1.Nodes.Add("gzxx", tvwChild, "child03", "查询考勤记录")
Set gzgx = TreeView1.Nodes.Add(, , "gzgx", "工资更新")
Set gzgx = TreeView1.Nodes.Add("gzgx", tvwChild, "child04", "增加工资记录")
Set gzgx = TreeView1.Nodes.Add("gzgx", tvwChild, "child05", "修改工资记录")
Set gzgx = TreeView1.Nodes.Add("gzgx", tvwChild, "child06", "查询工资记录")
Set gzgx = TreeView1.Nodes.Add("gzgx", tvwChild, "child07", "计算工资")
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.BorderStyle = 0
Image2.BorderStyle = 0
Image3.BorderStyle = 0
Image4.BorderStyle = 0
Image5.BorderStyle = 0
Image6.BorderStyle = 0
Image7.BorderStyle = 0
Image8.BorderStyle = 0
End Sub
Private Sub Image1_Click()
frmkaoqin.Show
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.BorderStyle = 1
End Sub
Private Sub Image2_Click()
frmxgkq.Show
End Sub
Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.BorderStyle = 1
End Sub
Private Sub Image3_Click()
frmcxkq.Show
End Sub
Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.BorderStyle = 1
End Sub
Private Sub Image4_Click()
frmaddgongzi.Show
End Sub
Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.BorderStyle = 1
End Sub
Private Sub Image5_Click()
frmdg.Show
End Sub
Private Sub Image5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image5.BorderStyle = 1
End Sub
Private Sub Image6_Click()
frmsgz.Show
End Sub
Private Sub Image6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image6.BorderStyle = 1
End Sub
Private Sub Image7_Click()
frmxiugaigongzi.Show
End Sub
Private Sub Image7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image7.BorderStyle = 1
End Sub
Private Sub Image8_Click()
frmjsgz.Show
End Sub
Private Sub Image8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image8.BorderStyle = 1
End Sub
Private Sub jsgz_Click()
frmjsgz.Show
End Sub
Private Sub scgz_Click()
frmdg.Show
End Sub
Private Sub tjgz_Click()
frmaddgongzi.Show
End Sub
Private Sub tjkq_Click()
frmkaoqin.Show
End Sub
Private Sub TreeView1_Click()
Select Case TreeView1.SelectedItem.Index
Case 1
Image1.Visible = True
Image2.Visible = True
Image3.Visible = True
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Case 2
frmkaoqin.Show
Case 3
frmxgkq.Show
Case 4
frmcxkq.Show
Case 5
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Image4.Visible = True
Image5.Visible = True
Image6.Visible = True
Image7.Visible = True
Image8.Visible = True
Label4.Visible = True
Label5.Visible = True
Label6.Visible = True
Label7.Visible = True
Label8.Visible = True
Case 6
frmaddgongzi.Show
Case 7
frmxiugaigongzi.Show
Case 8
frmsgz.Show
Case 9
frmjsgz.Show
End Select
End Sub
Private Sub xggz_Click()
frmxiugaigongzi.Show
End Sub
Private Sub xgkq_Click()
frmxgkq.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -