📄 frmmain.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmmain
BackColor = &H00CFCFCF&
BorderStyle = 0 'None
Caption = "公司员工人事管理系统"
ClientHeight = 6390
ClientLeft = 19995
ClientTop = 19995
ClientWidth = 10230
ClipControls = 0 'False
Icon = "frmmain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6390
ScaleWidth = 10230
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox Picture2
Height = 855
Left = 7320
ScaleHeight = 795
ScaleWidth = 2355
TabIndex = 36
Top = 720
Width = 2415
End
Begin VB.PictureBox Picture1
Height = 135
Left = 7680
ScaleHeight = 75
ScaleWidth = 75
TabIndex = 34
Top = 36000
Width = 135
End
Begin VB.CommandButton Command2
BackColor = &H00CFCFCF&
Caption = ">>"
Height = 300
Index = 3
Left = 8640
Style = 1 'Graphical
TabIndex = 33
TabStop = 0 'False
ToolTipText = "最后一条记录"
Top = 2560
Width = 1200
End
Begin VB.CommandButton Command2
BackColor = &H00CFCFCF&
Caption = ">"
Height = 300
Index = 2
Left = 8640
Style = 1 'Graphical
TabIndex = 32
TabStop = 0 'False
ToolTipText = "后一条记录"
Top = 2160
Width = 1200
End
Begin VB.CommandButton Command2
BackColor = &H00CFCFCF&
Caption = "<"
Enabled = 0 'False
Height = 300
Index = 1
Left = 7320
Style = 1 'Graphical
TabIndex = 31
TabStop = 0 'False
ToolTipText = "前一条记录"
Top = 2560
Width = 1200
End
Begin VB.CommandButton Command2
BackColor = &H00CFCFCF&
Caption = "<<"
Enabled = 0 'False
Height = 300
Index = 0
Left = 7320
Style = 1 'Graphical
TabIndex = 30
TabStop = 0 'False
ToolTipText = "第一条记录"
Top = 2160
Width = 1200
End
Begin VB.CommandButton cmdupdate
BackColor = &H00CFCFCF&
Caption = "修改"
Height = 300
Left = 8640
Style = 1 'Graphical
TabIndex = 29
TabStop = 0 'False
ToolTipText = "更改内容,只争对当前内容"
Top = 3370
Width = 1200
End
Begin VB.CommandButton Command6
BackColor = &H00CFCFCF&
Caption = "更新"
Height = 300
Left = 8640
Style = 1 'Graphical
TabIndex = 28
TabStop = 0 'False
Top = 2970
Width = 1200
End
Begin VB.CommandButton cmddelete
BackColor = &H00CFCFCF&
Caption = "删除"
Height = 300
Left = 7320
Style = 1 'Graphical
TabIndex = 27
TabStop = 0 'False
ToolTipText = "删除一条记录"
Top = 3370
Width = 1200
End
Begin VB.CommandButton cmdadd
BackColor = &H00CFCFCF&
Caption = "添加"
Height = 300
Left = 7320
Style = 1 'Graphical
TabIndex = 26
TabStop = 0 'False
ToolTipText = "增加一条记录"
Top = 2970
Width = 1200
End
Begin VB.Timer Timer1
Interval = 10
Left = 7920
Top = 2760
End
Begin VB.Frame Frame2
BackColor = &H00CFCFCF&
Caption = "当前指针"
Height = 3135
Left = 240
TabIndex = 4
Top = 600
Width = 6975
Begin VB.TextBox Text9
DataField = "总分"
DataSource = "Data1"
Height = 270
Left = 3960
TabIndex = 38
Top = 18000
Width = 1095
End
Begin VB.TextBox Text4
DataField = "部门"
DataSource = "Data1"
Enabled = 0 'False
Height = 270
Left = 840
MaxLength = 8
TabIndex = 20
Text = "Text4"
Top = 660
Width = 1335
End
Begin VB.TextBox Text3
DataField = "年龄"
DataSource = "Data1"
Enabled = 0 'False
Height = 270
Left = 3240
MaxLength = 3
TabIndex = 19
Text = "Text3"
Top = 660
Width = 615
End
Begin VB.TextBox Text2
DataField = "性别"
DataSource = "Data1"
Enabled = 0 'False
Height = 270
Left = 3240
MaxLength = 1
TabIndex = 18
Text = "Text2"
Top = 280
Width = 615
End
Begin VB.Frame Frame6
BackColor = &H00CFCFCF&
Caption = "详细资料"
Height = 2880
Left = 4320
TabIndex = 16
Top = 160
Width = 2535
Begin VB.TextBox Text12
BackColor = &H00CFCFCF&
DataField = "员工简介"
DataSource = "Data1"
Height = 2580
Left = 120
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 17
Text = "frmmain.frx":030A
Top = 240
Width = 2295
End
End
Begin VB.Frame Frame3
BackColor = &H00CFCFCF&
Caption = "人员基本数据"
Height = 2055
Left = 120
TabIndex = 9
Top = 960
Width = 4095
Begin VB.TextBox Text13
DataField = "3"
DataSource = "Data1"
Enabled = 0 'False
Height = 270
Left = 3050
MaxLength = 1
TabIndex = 47
Text = "Text10"
Top = 500
Width = 375
End
Begin VB.TextBox Text11
DataField = "2"
DataSource = "Data1"
Enabled = 0 'False
Height = 270
Left = 2080
MaxLength = 1
TabIndex = 46
Text = "Text10"
Top = 500
Width = 375
End
Begin VB.TextBox Text10
DataField = "1"
DataSource = "Data1"
Enabled = 0 'False
Height = 270
Left = 1000
MaxLength = 1
TabIndex = 45
Text = "Text10"
Top = 500
Width = 375
End
Begin VB.Frame Frame1
BackColor = &H00CFCFCF&
Caption = "Frame1"
Height = 615
Left = 660
TabIndex = 42
Top = 220
Width = 30
End
Begin VB.Frame Frame5
BackColor = &H00CFCFCF&
Caption = "动态因数"
Height = 975
Left = 120
TabIndex = 10
Top = 960
Width = 3855
Begin VB.TextBox Text8
DataField = "日常考核扣款"
DataSource = "Data1"
Enabled = 0 'False
Height = 270
Left = 3240
MaxLength = 3
TabIndex = 24
Text = "8"
Top = 600
Width = 495
End
Begin VB.TextBox Text7
DataField = "领导评定"
DataSource = "Data1"
Enabled = 0 'False
Height = 270
Left = 1080
MaxLength = 3
TabIndex = 23
Text = "7"
Top = 600
Width = 495
End
Begin VB.TextBox Text6
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -