?? +
字號(hào):
Width = 975
End
Begin VB.CommandButton qdcmd
Caption = "確定"
Height = 375
Left = 2760
TabIndex = 30
Top = 7200
Width = 975
End
Begin VB.CommandButton tjcmd
Caption = "添加"
Height = 375
Left = 1080
TabIndex = 29
Top = 7200
Width = 975
End
Begin VB.Frame qtxx
Caption = "其他信息"
Height = 735
Left = 120
TabIndex = 26
Top = 6120
Width = 8295
Begin VB.TextBox bztxt
DataField = "備注"
DataSource = "Adodc1"
Height = 375
Left = 2280
TabIndex = 28
Top = 240
Width = 5415
End
Begin VB.Label bz
Caption = "備注"
Height = 255
Left = 1320
TabIndex = 27
Top = 360
Width = 855
End
End
Begin VB.Frame gzjl
Caption = "工作簡歷"
Height = 975
Left = 120
TabIndex = 19
Top = 5040
Width = 8295
Begin VB.TextBox zctxt
DataField = "職稱"
DataSource = "Adodc1"
Height = 375
Left = 6480
TabIndex = 25
Top = 360
Width = 1575
End
Begin VB.TextBox kssjtxt
DataField = "工作開始時(shí)間"
DataSource = "Adodc1"
Height = 375
Left = 3840
TabIndex = 23
Top = 360
Width = 1575
End
Begin VB.TextBox zwtxt
DataField = "職務(wù)"
DataSource = "Adodc1"
Height = 375
Left = 720
TabIndex = 21
Top = 360
Width = 1575
End
Begin VB.Label zc
Caption = "職稱"
Height = 375
Left = 5880
TabIndex = 24
Top = 480
Width = 735
End
Begin VB.Label kssj
Caption = "工作開始時(shí)間"
Height = 375
Left = 2640
TabIndex = 22
Top = 480
Width = 1095
End
Begin VB.Label zw
Caption = "職務(wù)"
Height = 375
Left = 240
TabIndex = 20
Top = 480
Width = 855
End
End
Begin VB.Frame jbxx
Caption = "個(gè)人基本信息"
Height = 2295
Left = 240
TabIndex = 0
Top = 2760
Width = 8295
Begin VB.TextBox lxdhtxt
DataField = "聯(lián)系電話"
DataSource = "Adodc1"
Height = 375
Left = 6480
TabIndex = 18
Top = 1680
Width = 1575
End
Begin VB.TextBox jtzztxt
DataField = "家庭住址"
DataSource = "Adodc1"
Height = 375
Left = 6480
TabIndex = 17
Top = 960
Width = 1575
End
Begin VB.TextBox xltxt
DataField = "學(xué)歷"
DataSource = "Adodc1"
Height = 375
Left = 6600
TabIndex = 16
Top = 240
Width = 1575
End
Begin VB.TextBox Text3
DataField = "政治面貌"
DataSource = "Adodc1"
Height = 375
Left = 3720
TabIndex = 12
Top = 1680
Width = 1575
End
Begin VB.TextBox Text2
DataField = "籍貫"
DataSource = "Adodc1"
Height = 375
Left = 3600
TabIndex = 11
Top = 960
Width = 1575
End
Begin VB.TextBox Text1
DataField = "民族"
DataSource = "Adodc1"
Height = 375
Left = 3600
TabIndex = 10
Top = 240
Width = 1575
End
Begin VB.TextBox csrqtxt
DataField = "出身日期"
DataSource = "Adodc1"
Height = 375
Left = 840
TabIndex = 6
Top = 1680
Width = 1575
End
Begin VB.TextBox xmtxt
DataField = "姓名"
DataSource = "Adodc1"
Height = 375
Left = 840
TabIndex = 5
Top = 960
Width = 1575
End
Begin VB.TextBox bhtxt
DataField = "員工編號(hào)"
DataSource = "Adodc1"
Height = 375
Left = 840
TabIndex = 4
Top = 240
Width = 1575
End
Begin VB.Label lxdh
Caption = "聯(lián)系電話"
Height = 375
Left = 5760
TabIndex = 15
Top = 1800
Width = 975
End
Begin VB.Label jtzz
Caption = "家庭住址"
Height = 375
Left = 5760
TabIndex = 14
Top = 1080
Width = 975
End
Begin VB.Label xl
Caption = "學(xué)歷"
Height = 375
Left = 5760
TabIndex = 13
Top = 360
Width = 855
End
Begin VB.Label zzmm
Caption = "政治面貌"
Height = 375
Left = 2880
TabIndex = 9
Top = 1800
Width = 855
End
Begin VB.Label jg
Caption = "籍貫"
Height = 375
Left = 2880
TabIndex = 8
Top = 1080
Width = 855
End
Begin VB.Label mz
Caption = "民族"
Height = 375
Left = 2880
TabIndex = 7
Top = 360
Width = 735
End
Begin VB.Label csrq
Caption = "出生日期"
Height = 375
Left = 120
TabIndex = 3
Top = 1800
Width = 735
End
Begin VB.Label xm
Caption = "姓名"
Height = 495
Left = 120
TabIndex = 2
Top = 1080
Width = 735
End
Begin VB.Label bh
Caption = "編號(hào)"
Height = 375
Left = 120
TabIndex = 1
Top = 240
Width = 735
End
End
End
Attribute VB_Name = "添加員工信息"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
End Sub
Private Sub Command2_Click()
End Sub
Private Sub Command3_Click()
Unload Me
'On Error Resume Next
End Sub
Private Sub qdcmd_Click()
qdcmd.Enabled = Not qdcmd.Enabled
tjcmd.Enabled = Not tjcmd.Enabled
Adodc1.Recordset.Update
'On Error Resume Next
End Sub
Private Sub qxcmd_Click()
Unload Me
'On Error Resume Next
End Sub
Private Sub tjcmd_Click()
qdcmd.Caption = "保存"
tjcmd.Enabled = Not tjcmd.Enabled
Adodc1.Recordset.AddNew
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -