?? 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 + -