📄 frmoperatorinput.frm
字号:
Begin VB.TextBox txt就业情况
DataField = "就业情况"
DataSource = "Adodc1"
Height = 285
Left = 1320
TabIndex = 18
Top = 2160
Width = 3855
End
Begin VB.TextBox txt健康状况
DataField = "健康状况"
DataSource = "Adodc1"
Height = 285
Left = 5445
TabIndex = 16
Top = 1560
Width = 1650
End
Begin VB.TextBox txt出生年月
DataField = "出生年月"
DataSource = "Adodc1"
Height = 285
Left = 1200
TabIndex = 14
Top = 1560
Width = 1560
End
Begin VB.TextBox txt电话号码
DataField = "电话号码"
DataSource = "Adodc1"
Height = 285
Left = 5520
TabIndex = 12
Top = 960
Width = 1395
End
Begin VB.TextBox txt家庭住址
DataField = "家庭住址"
DataSource = "Adodc1"
Height = 285
Left = 1125
TabIndex = 10
Top = 960
Width = 3255
End
Begin VB.TextBox txt籍贯
DataField = "籍贯"
DataSource = "Adodc1"
Height = 285
Left = 3885
TabIndex = 8
Top = 360
Width = 3375
End
Begin VB.TextBox txt姓名
DataField = "姓名"
DataSource = "Adodc1"
Height = 285
Left = 765
TabIndex = 5
Top = 360
Width = 1080
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "担保人业务工号："
Height = 180
Index = 9
Left = 120
TabIndex = 54
Top = 3405
Width = 1440
End
Begin VB.Label Label2
Caption = "(YYYY-MM-DD)"
ForeColor = &H0000FFFF&
Height = 255
Left = 2880
TabIndex = 35
Top = 1605
Width = 1335
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "担保人姓名："
Height = 180
Index = 10
Left = 3960
TabIndex = 21
Top = 3405
Width = 1080
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "身份证号码："
Height = 180
Index = 8
Left = 135
TabIndex = 19
Top = 2805
Width = 1080
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "就业情况："
Height = 180
Index = 7
Left = 195
TabIndex = 17
Top = 2160
Width = 900
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "健康状况："
Height = 180
Index = 6
Left = 4515
TabIndex = 15
Top = 1605
Width = 900
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "出生年月："
Height = 180
Index = 5
Left = 195
TabIndex = 13
Top = 1605
Width = 900
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "电话号码："
Height = 180
Index = 4
Left = 4395
TabIndex = 11
Top = 1005
Width = 900
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "家庭住址:"
Height = 255
Index = 3
Left = 240
TabIndex = 9
Top = 960
Width = 855
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "籍贯："
Height = 180
Index = 2
Left = 3315
TabIndex = 7
Top = 405
Width = 540
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "性别："
Height = 180
Index = 1
Left = 1995
TabIndex = 6
Top = 405
Width = 540
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "姓名："
Height = 180
Index = 0
Left = 195
TabIndex = 4
Top = 405
Width = 540
End
End
Begin VB.Frame Frame1
Height = 3975
Left = 240
TabIndex = 2
Top = 480
Width = 7455
Begin VB.TextBox txt消费概况
DataField = "消费概况"
DataSource = "Adodc1"
Height = 2925
Left = 1560
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 30
Top = 480
Width = 5415
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "消费概况:"
Height = 255
Index = 13
Left = 480
TabIndex = 29
Top = 480
Width = 855
End
End
End
Begin VB.Label Label3
Caption = "填表聘用日期"
Height = 255
Left = 6720
TabIndex = 48
Top = 795
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "业务员招聘登记表"
BeginProperty Font
Name = "方正舒体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 2520
TabIndex = 0
Top = 120
Width = 3975
End
End
Attribute VB_Name = "frmOperatorInput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim InputVar As Boolean
Sub LockedOrNO(InputVar As Boolean)
txt姓名.Locked = InputVar
cob性别.Locked = InputVar
txt籍贯.Locked = InputVar
txt家庭住址.Locked = InputVar
txt电话号码.Locked = InputVar
txt出生年月.Locked = InputVar
txt健康状况.Locked = InputVar
txt就业情况.Locked = InputVar
txt身份证号码.Locked = InputVar
'DataCombo担保人业务工号.Locked = InputVar
cob担保人业务工号.Locked = InputVar
txt担保人姓名.Locked = InputVar
txt银行名称.Locked = InputVar
txt户口帐号.Locked = InputVar
txt消费概况.Locked = InputVar
DTPickerTable.Enabled = Not InputVar
End Sub
Private Sub cmdAddNew_Click()
cmdFirst.Enabled = False
cmdNext.Enabled = False
cmdPrevious.Enabled = False
cmdLast.Enabled = False
cmdAddNew.Enabled = True
cmdModify.Enabled = False
cmdCancel.Enabled = True
cmdSave.Enabled = True
InputVar = False
LockedOrNO (InputVar)
Adodc1.Recordset.AddNew
DTPickerTable.Value = Date
End Sub
Private Sub cmdCancel_Click()
cmdFirst.Enabled = True
cmdNext.Enabled = True
cmdPrevious.Enabled = True
cmdLast.Enabled = True
cmdAddNew.Enabled = True
cmdModify.Enabled = True
cmdCancel.Enabled = False
cmdSave.Enabled = False
InputVar = True
LockedOrNO (InputVar)
Adodc1.Recordset.CancelUpdate
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdFirst_Click()
If Adodc1.Recordset.RecordCount = 0 Then Exit Sub
Adodc1.Recordset.MoveFirst
End Sub
Private Sub cmdLast_Click()
If Adodc1.Recordset.RecordCount = 0 Then Exit Sub
Adodc1.Recordset.MoveLast
End Sub
Private Sub cmdModify_Click()
cmdFirst.Enabled = False
cmdNext.Enabled = False
cmdPrevious.Enabled = False
cmdLast.Enabled = False
'
cmdAddNew.Enabled = False
cmdModify.Enabled = True
cmdCancel.Enabled = True
cmdSave.Enabled = True
InputVar = False
LockedOrNO (InputVar)
End Sub
Private Sub cmdNext_Click()
If Adodc1.Recordset.RecordCount = 0 Then Exit Sub
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveNext
Else
Adodc1.Recordset.MoveLast
End If
End Sub
Private Sub cmdPicModify_Click()
On Error Resume Next
With CommonDialog1
.DialogTitle = "载入图片"
.Filter = "(点阵图)*.bmp|*.bmp"
.CancelError = True
.ShowOpen
If Err.Number <> cdlCancel Then
Set imgPhoto.Picture = LoadPicture(.FileName)
SavePictureToAdodc Adodc1.Recordset, .FileName
End If
End With
End Sub
Private Sub cmdPrevious_Click()
If Adodc1.Recordset.RecordCount = 0 Then Exit Sub
If Not Adodc1.Recordset.BOF Then
Adodc1.Recordset.MovePrevious
Else
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub cmdSave_Click()
cmdFirst.Enabled = True
cmdNext.Enabled = True
cmdPrevious.Enabled = True
cmdLast.Enabled = True
cmdAddNew.Enabled = True
cmdModify.Enabled = True
cmdCancel.Enabled = False
cmdSave.Enabled = False
InputVar = True
LockedOrNO (InputVar)
Adodc1.Recordset.Update
End Sub
Private Sub cob担保人业务工号_Change()
With Adodc1.Recordset
If .RecordCount = 0 Then Exit Sub
Do While Not .EOF
cob担保人业务工号.AddItem Adodc1.Recordset("担保人业务工号")
.MoveNext
Loop
End With
End Sub
Private Sub Form_Load()
cmdCancel.Enabled = False
cmdSave.Enabled = False
InputVar = True
' 锁定文本框，在点击修改按钮之前不能修改
LockedOrNO (InputVar)
'With Adodc1.Recordset
' If .RecordCount = 0 Then Exit Sub
' Do While Not .EOF
' cob担保人业务工号.AddItem Adodc1.Recordset("工号")
' .MoveNext
' Loop
'End With
End Sub
Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblprotocol.FontBold = False
lblprotocol.ForeColor = vbBlack
End Sub
Private Sub lblprotocol_Click()
frmProtocol.Show
End Sub
Private Sub lblprotocol_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (X > 0 And X < lblprotocol.Width) And (Y > 0 And Y < lblprotocol.Height) Then
lblprotocol.FontBold = True
lblprotocol.ForeColor = vbRed
End If
End Sub
Private Sub Picture1_DblClick()
cmdPicModify_Click
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -