📄 frmjgxxgl.frm
字号:
Top = 960
Width = 945
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "第一学历:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Left = 840
TabIndex = 28
Top = 1320
Width = 945
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "获取时间："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Left = 3600
TabIndex = 27
Top = 1320
Width = 1050
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "最终学历:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Left = 840
TabIndex = 26
Top = 1680
Width = 945
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "获取时间："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Left = 3600
TabIndex = 25
Top = 1680
Width = 1050
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "参加工作时间:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Left = 360
TabIndex = 24
Top = 2160
Width = 1365
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "职务："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Left = 3960
TabIndex = 23
Top = 2160
Width = 630
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "职称："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Left = 5520
TabIndex = 22
Top = 480
Width = 630
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "联系电话:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Left = 840
TabIndex = 21
Top = 2640
Width = 945
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "联系手机："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Left = 3600
TabIndex = 20
Top = 2640
Width = 1050
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "家庭住址："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Left = 840
TabIndex = 19
Top = 3240
Width = 1050
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "婚否："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Left = 3600
TabIndex = 18
Top = 840
Width = 630
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "备注："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Left = 1200
TabIndex = 17
Top = 3600
Width = 630
End
End
Begin VB.Label Label32
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "1、连续操作修改，请确保先双击列表项；"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 480
TabIndex = 69
Top = 1080
Width = 4440
End
Begin VB.Label Label31
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "2、请尽量保持刷新状态，重新在部门列表框中选择即可。"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 480
TabIndex = 68
Top = 1560
Width = 6120
End
Begin VB.Label RSCount
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000040C0&
Height = 300
Left = 8160
TabIndex = 33
Top = 240
Width = 150
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "部门："
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 480
TabIndex = 1
Top = 208
Width = 900
End
End
Attribute VB_Name = "FrmJgxxgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim RS0 As ADODB.Recordset
Dim RS2 As ADODB.Recordset
Dim RS3 As ADODB.Recordset
Dim AddFlg As Boolean
Dim Czp As Integer
Private Sub CmdAdd_Click()
Select Case SSTab1.Tab
Case 0
Czp = 1
DataNull
RS0.AddNew
AddFlg = True
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
For Each ctl In Controls
If TypeOf ctl Is MaskEdBox Then
ctl.Enabled = True
End If
Next ctl
Case 1
Czp = 2
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text10.Enabled = True
Text11.Enabled = True
Text12.Enabled = True
Text13.Enabled = True
Text14.Enabled = True
Text15.Enabled = True
RS2.AddNew
AddFlg = True
Case 2
Czp = 3
Text21.Text = ""
Text20.Text = ""
Text19.Text = ""
Text18.Text = ""
Text17.Text = ""
Text16.Text = ""
Text21.Enabled = True
Text20.Enabled = True
Text19.Enabled = True
Text18.Enabled = True
Text17.Enabled = True
Text16.Enabled = True
RS3.AddNew
AddFlg = True
End Select
CmdAdd.Enabled = False
CmdMdi.Enabled = False
CmdDel.Enabled = False
CmdSave.Enabled = True
CmdCancel.Enabled = True
End Sub
Private Sub cmdCancel_Click()
On Error Resume Next
CmdAdd.Enabled = True
CmdMdi.Enabled = False
CmdDel.Enabled = False
CmdSave.Enabled = False
CmdCancel.Enabled = False
List1.Enabled = True
If AddFlg = True Then
Select Case Czp
Case 1
RS0.CancelUpdate
RS0.MoveNext
If RS0.EOF Then RS0.MoveLast
Case 2
RS2.CancelUpdate
RS2.MoveNext
If RS2.EOF Then RS2.MoveLast
Case 3
RS3.CancelUpdate
RS3.MoveNext
If RS3.EOF Then RS3.MoveLast
End Select
Else
Select Case Czp
Case 1
RS0.CancelBatch adAffectAllChapters
RS0.MoveNext
If RS0.EOF Then RS0.MoveLast
Case 2
RS2.CancelBatch adAffectAllChapters
RS2.MoveNext
If RS2.EOF Then RS2.MoveLast
Case 3
RS3.CancelBatch adAffectAllChapters
RS3.MoveNext
If RS3.EOF Then RS3.MoveLast
End Select
End If
CmdAdd.Enabled = True
CmdMdi.Enabled = False
CmdDel.Enabled = False
CmdSave.Enabled = False
CmdCancel.Enabled = False
For Each ctl In Controls
If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Or TypeOf ctl Is MaskEdBox Then
ctl.Enabled = False
End If
Next ctl
ComBm.Enabled = True
List1.Clear
ComBm_Click
List2.Clear
List3.Clear
ListAdd2
ListAdd3
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -