📄 员工信息表.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form Form2
Caption = "员工信息"
ClientHeight = 9150
ClientLeft = 2685
ClientTop = 915
ClientWidth = 10170
LinkTopic = "Form2"
MaxButton = 0 'False
ScaleHeight = 9150
ScaleWidth = 10170
Begin TabDlg.SSTab SSTab1
Height = 8775
Left = 120
TabIndex = 0
Top = 120
Width = 9855
_ExtentX = 17383
_ExtentY = 15478
_Version = 393216
Tabs = 4
Tab = 3
TabsPerRow = 4
TabHeight = 520
TabCaption(0) = "员工基本信息"
TabPicture(0) = "员工信息表.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Command6"
Tab(0).Control(1)= "Command5"
Tab(0).Control(2)= "Combo3"
Tab(0).Control(3)= "Frame3"
Tab(0).Control(4)= "Frame2"
Tab(0).Control(5)= "Frame1"
Tab(0).Control(6)= "Adodc1"
Tab(0).Control(7)= "DataGrid1"
Tab(0).Control(8)= "Label16"
Tab(0).ControlCount= 9
TabCaption(1) = "考勤信息"
TabPicture(1) = "员工信息表.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame8"
Tab(1).Control(1)= "Frame7"
Tab(1).Control(2)= "Frame6"
Tab(1).Control(3)= "Frame5"
Tab(1).Control(4)= "Command12"
Tab(1).Control(5)= "Command11"
Tab(1).Control(6)= "Combo4"
Tab(1).Control(7)= "Frame4"
Tab(1).Control(8)= "Adodc2"
Tab(1).Control(9)= "DataGrid2"
Tab(1).Control(10)= "Label17"
Tab(1).ControlCount= 11
TabCaption(2) = "奖罚信息"
TabPicture(2) = "员工信息表.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Command30"
Tab(2).Control(1)= "Command29"
Tab(2).Control(2)= "Combo5"
Tab(2).Control(3)= "Frame12"
Tab(2).Control(4)= "Frame11"
Tab(2).Control(5)= "Frame10"
Tab(2).Control(6)= "Frame9"
Tab(2).Control(7)= "Adodc3"
Tab(2).Control(8)= "DataGrid3"
Tab(2).Control(9)= "Label39"
Tab(2).ControlCount= 10
TabCaption(3) = "工资信息浏览"
TabPicture(3) = "员工信息表.frx":0054
Tab(3).ControlEnabled= -1 'True
Tab(3).Control(0)= "Label55"
Tab(3).Control(0).Enabled= 0 'False
Tab(3).Control(1)= "DataGrid4"
Tab(3).Control(1).Enabled= 0 'False
Tab(3).Control(2)= "Adodc4"
Tab(3).Control(2).Enabled= 0 'False
Tab(3).Control(3)= "Frame13"
Tab(3).Control(3).Enabled= 0 'False
Tab(3).Control(4)= "Frame14"
Tab(3).Control(4).Enabled= 0 'False
Tab(3).Control(5)= "Frame15"
Tab(3).Control(5).Enabled= 0 'False
Tab(3).Control(6)= "Frame16"
Tab(3).Control(6).Enabled= 0 'False
Tab(3).Control(7)= "Combo9"
Tab(3).Control(7).Enabled= 0 'False
Tab(3).Control(8)= "Command39"
Tab(3).Control(8).Enabled= 0 'False
Tab(3).Control(9)= "Command40"
Tab(3).Control(9).Enabled= 0 'False
Tab(3).ControlCount= 10
Begin VB.CommandButton Command40
Caption = "返回"
Height = 375
Left = 8520
TabIndex = 166
Top = 480
Width = 975
End
Begin VB.CommandButton Command39
Caption = "查询"
Height = 375
Left = 7560
TabIndex = 165
Top = 480
Width = 975
End
Begin VB.ComboBox Combo9
Height = 300
Left = 5760
TabIndex = 164
Text = "Combo9"
Top = 480
Width = 1695
End
Begin VB.Frame Frame16
Height = 975
Left = 240
TabIndex = 154
Top = 7560
Width = 9255
Begin VB.CommandButton Command38
Caption = "退出"
Height = 375
Left = 7920
TabIndex = 162
Top = 360
Width = 1095
End
Begin VB.CommandButton Command37
Caption = "取消"
Height = 375
Left = 6840
TabIndex = 161
Top = 360
Width = 1095
End
Begin VB.CommandButton Command36
Caption = "保存"
Height = 375
Left = 5760
TabIndex = 160
Top = 360
Width = 1095
End
Begin VB.CommandButton Command35
Caption = "修改"
Height = 375
Left = 4680
TabIndex = 159
Top = 360
Width = 1095
End
Begin VB.CommandButton Command34
Caption = "上一条"
Height = 375
Left = 1200
TabIndex = 158
Top = 360
Width = 1095
End
Begin VB.CommandButton Command33
Caption = "下一条"
Height = 375
Left = 2280
TabIndex = 157
Top = 360
Width = 1095
End
Begin VB.CommandButton Command32
Caption = "末记录"
Height = 375
Left = 3360
TabIndex = 156
Top = 360
Width = 1095
End
Begin VB.CommandButton Command31
Caption = "首记录"
Height = 375
Left = 120
TabIndex = 155
Top = 360
Width = 1095
End
End
Begin VB.Frame Frame15
Caption = "工资发放日期"
Height = 1215
Left = 240
TabIndex = 144
Top = 6360
Width = 9255
Begin VB.ComboBox Combo8
Height = 300
Left = 6840
TabIndex = 150
Text = "Combo8"
Top = 480
Width = 1455
End
Begin VB.ComboBox Combo7
Height = 300
Left = 3960
TabIndex = 149
Text = "Combo7"
Top = 480
Width = 1455
End
Begin VB.ComboBox Combo6
Height = 300
ItemData = "员工信息表.frx":0070
Left = 960
List = "员工信息表.frx":0072
TabIndex = 148
Text = "Combo6"
Top = 480
Width = 1455
End
Begin VB.Label Label51
AutoSize = -1 'True
Caption = "(号)"
BeginProperty Font
Name = "宋体"
Size = 7.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 150
Index = 6
Left = 8400
TabIndex = 153
Top = 600
Width = 300
End
Begin VB.Label Label51
AutoSize = -1 'True
Caption = "(月)"
BeginProperty Font
Name = "宋体"
Size = 7.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 150
Index = 5
Left = 5520
TabIndex = 152
Top = 600
Width = 300
End
Begin VB.Label Label51
AutoSize = -1 'True
Caption = "(年)"
BeginProperty Font
Name = "宋体"
Size = 7.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 150
Index = 4
Left = 2520
TabIndex = 151
Top = 600
Width = 300
End
Begin VB.Label Label54
AutoSize = -1 'True
Caption = "日："
Height = 180
Left = 6480
TabIndex = 147
Top = 600
Width = 360
End
Begin VB.Label Label53
AutoSize = -1 'True
Caption = "月份："
Height = 180
Left = 3360
TabIndex = 146
Top = 600
Width = 540
End
Begin VB.Label Label52
AutoSize = -1 'True
Caption = "年份："
Height = 180
Left = 360
TabIndex = 145
Top = 600
Width = 540
End
End
Begin VB.Frame Frame14
Caption = "工资信息"
Height = 1575
Left = 240
TabIndex = 128
Top = 4680
Width = 9255
Begin VB.TextBox Text31
Height = 375
Left = 1200
TabIndex = 139
Text = "Text31"
Top = 960
Width = 1455
End
Begin VB.TextBox Text30
Height = 375
Left = 6840
TabIndex = 138
Text = "Text30"
Top = 360
Width = 1335
End
Begin VB.TextBox Text29
Height = 375
Left = 3960
TabIndex = 137
Text = "Text29"
Top = 360
Width = 1335
End
Begin VB.TextBox Text28
Height = 375
Left = 1200
TabIndex = 136
Text = "Text28"
Top = 360
Width = 1335
End
Begin VB.Label Label51
AutoSize = -1 'True
Caption = "(元)"
BeginProperty Font
Name = "宋体"
Size = 7.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 150
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -