📄 frmygxxgl.frm
字号:
TabIndex = 25
Top = 2700
Width = 2070
_ExtentX = 3651
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 21168129
CurrentDate = 38920
End
Begin VB.TextBox HJSZ
Height = 300
Left = 4920
TabIndex = 10
Top = 3270
Width = 2070
End
Begin VB.TextBox SJ
Height = 300
Left = 1110
TabIndex = 26
Top = 4365
Width = 2070
End
Begin VB.TextBox GDDH
Height = 300
Left = 4920
TabIndex = 12
Top = 4365
Width = 2085
End
Begin VB.TextBox ADDRESS
Height = 300
Left = 1110
TabIndex = 11
Top = 3885
Width = 3825
End
Begin VB.TextBox SFZH
Height = 300
Left = 1110
TabIndex = 9
Top = 2745
Width = 2070
End
Begin VB.TextBox XM
Height = 300
Left = 3750
TabIndex = 2
Top = 585
Width = 1590
End
Begin VB.TextBox GH
Height = 300
Left = 1110
TabIndex = 1
Top = 585
Width = 1590
End
Begin VB.PictureBox Picture1
Height = 2010
Left = 5730
ScaleHeight = 1950
ScaleWidth = 1575
TabIndex = 57
Top = 495
Width = 1635
Begin VB.Image Image1
Height = 1875
Left = 0
Stretch = -1 'True
Top = 15
Width = 1530
End
Begin VB.Label Label20
Caption = "没有照片"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 1260
Left = 615
TabIndex = 58
Top = 195
Width = 375
End
End
Begin VB.Label Label8
Caption = "邮 编"
Height = 315
Left = 5130
TabIndex = 110
Top = 3960
Width = 1680
End
Begin VB.Label Label43
Caption = "电子邮箱"
Height = 315
Left = 225
TabIndex = 108
Top = 4950
Width = 1680
End
Begin VB.Label Label19
Caption = "代理证号"
Height = 315
Left = 225
TabIndex = 107
Top = 2287
Width = 1680
End
Begin VB.Label Label1
Caption = "展业证号"
Height = 315
Index = 2
Left = 2865
TabIndex = 106
Top = 2287
Width = 1680
End
Begin VB.Label Label41
Caption = "所属团队"
Height = 315
Left = 2865
TabIndex = 96
Top = 1755
Width = 1680
End
Begin VB.Label Label40
Caption = "业务职级"
Height = 315
Left = 225
TabIndex = 95
Top = 1755
Width = 1680
End
Begin VB.Label Label15
Caption = "户籍所在"
Height = 315
Left = 3585
TabIndex = 60
Top = 3360
Width = 1680
End
Begin VB.Label Label24
Caption = "身份证号"
Height = 315
Left = 225
TabIndex = 59
Top = 2820
Width = 1680
End
Begin VB.Label Label1
Caption = "工 号"
Height = 315
Index = 0
Left = 225
TabIndex = 56
Top = 660
Width = 1680
End
Begin VB.Label Label2
Caption = "性 别"
Height = 315
Left = 240
TabIndex = 55
Top = 3360
Width = 1680
End
Begin VB.Label Label4
Caption = "职 称"
Height = 315
Left = 2865
TabIndex = 54
Top = 1185
Width = 1680
End
Begin VB.Label Label5
Caption = "部 门"
Height = 315
Left = 225
TabIndex = 53
Top = 1200
Width = 1680
End
Begin VB.Label Label6
Caption = "手 机"
Height = 315
Left = 225
TabIndex = 52
Top = 4440
Width = 1680
End
Begin VB.Label Label7
Caption = "固定电话"
Height = 315
Left = 3885
TabIndex = 51
Top = 4440
Width = 1680
End
Begin VB.Label Label9
Caption = "家庭住址"
Height = 315
Left = 225
TabIndex = 50
Top = 3960
Width = 1680
End
Begin VB.Label Label10
Caption = "出生年月"
Height = 315
Left = 3585
TabIndex = 49
Top = 2820
Width = 1680
End
Begin VB.Label Label11
Caption = "姓 名"
Height = 315
Left = 2880
TabIndex = 48
Top = 660
Width = 1680
End
End
End
End
End
Attribute VB_Name = "frmYGXXGL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim xb1 As Boolean
Dim dbrxb1 As Boolean
Dim pic() As Byte
Dim Filename As String
Dim pic1() As Byte
Dim Filename1 As String
Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
If GH = "" Then
MsgBox "工号不能为空!!", vbCritical, "系统提示"
Exit Sub
End If
If XM = "" Then
MsgBox "姓名不能为空!!", vbCritical, "系统提示"
Exit Sub
End If
If SFZH = "" Then
MsgBox "身份证号不能为空!!", vbCritical, "系统提示"
Exit Sub
End If
If DBRXH = "" Then
MsgBox "担保人序号不能为空!!", vbCritical, "系统提示"
Exit Sub
End If
If DBRXM = "" Then
MsgBox "担保人姓名不能为空!!", vbCritical, "系统提示"
Exit Sub
End If
If DBRSFZH = "" Then
MsgBox "担保人身份证号不能为空!!", vbCritical, "系统提示"
Exit Sub
End If
If YWZJ = "" Then
MsgBox "业务职级不能为空！！", vbCritical, "系统提示"
Exit Sub
End If
rs.Open "select * from YGJBZL where gh='" & Trim(GH) & "'", gCnn, adOpenStatic, adLockPessimistic
If Not rs.EOF Then
If MsgBox("工号为：" & GH & " 的记录已经存在，确定修改？", vbYesNo, "系统提问") = vbNo Then
Exit Sub
End If
Else
rs.AddNew
End If
rs.Fields("GH") = Trim(GH)
rs.Fields("XM") = Trim(XM)
rs.Fields("BM") = Trim(BM)
rs.Fields("ZC") = Trim(ZC)
rs.Fields("CSNY") = Trim(CSNY)
If Option1.Value = True Then
rs.Fields("XB") = "男"
Else
rs.Fields("xb") = "女"
End If
rs.Fields("HYZK") = Trim(HYZK)
rs.Fields("YB") = Trim(YB)
rs.Fields("SFZH") = Trim(SFZH)
rs.Fields("YWZJ") = Trim(YWZJ)
rs.Fields("SSTDID") = SSTD.ItemData(SSTD.ListIndex)
rs.Fields("sstd") = Trim(SSTD)
rs.Fields("ADDRESS") = Trim(ADDRESS)
rs.Fields("GDDH") = Trim(GDDH)
rs.Fields("SJ") = Trim(SJ)
rs.Fields("HJSZ") = Trim(HJSZ)
rs.Fields("MZ") = Trim(MZ)
rs.Fields("WHCD") = Trim(WHCD)
rs.Fields("RSRQ") = Trim(RSRQ)
rs.Fields("ZZMM") = Trim(ZZMM)
rs.Fields("DLZH") = Trim(DLZH)
rs.Fields("ZYZH") = Trim(ZYZH)
rs.Fields("JYJL") = Trim(JYJL)
rs.Fields("GZJL") = Trim(GZJL)
rs.Fields("JCJL") = Trim(JCJL)
rs.Fields("PXJL") = Trim(PXJL)
rs.Fields("LDDLHTRQ") = Trim(LDDLRQ)
rs.Fields("MEMO") = Trim(MEMO)
rs.Fields("DBRXH") = Trim(DBRXH)
rs.Fields("DBRXM") = Trim(DBRXM)
rs.Fields("DBRGZDW") = Trim(DBRGZDW)
rs.Fields("DBRZW") = Trim(DBRZW)
rs.Fields("DBRCSNY") = Trim(DBRCSNY)
If Option3.Value = True Then
rs.Fields("DBRXB") = "男"
Else
rs.Fields("DBRXB") = "女"
End If
rs.Fields("DBRBGDH") = Trim(DBRBGDH)
rs.Fields("DBRYB") = Trim(DBRYB)
rs.Fields("DBRZZDH") = Trim(DBRZZDH)
rs.Fields("DBRADDRESS") = Trim(DBRADDRESS)
rs.Fields("DBRSFZH") = Trim(DBRSFZH)
rs.Fields("DBRSJ") = Trim(DBRSJ)
rs.Fields("DBRHJDZ") = Trim(DBRHJDZ)
rs.Fields("DBRMQDZ") = Trim(DBRMQDZ)
rs.Fields("YBDBRGX") = Trim(YBDBRGX)
rs.Fields("BZ") = Trim(BZ)
rs.Fields("EMAIL") = Trim(EMAIL)
If Filename = "" Then
Else
rs.Fields("ygzp") = pic
End If
If Filename1 = "" Then
Else
rs.Fields("DBRSFZSM") = pic1
End If
rs.Update
MsgBox "保存成功", vbOKOnly, "系统提示"
Call Form_Load
ClearText
KL.Tab = 0
End Sub
Private Sub Command2_Click()
If GH = "" Then
MsgBox "没有要删除的记录！！", vbInformation, "系统提示"
Exit Sub
Else
If MsgBox("确定要删除工号为：" & GH & " 的记录吗？", vbYesNo, "系统提问") = vbNo Then
Exit Sub
Else
gCnn.Execute "delete from ygjbzl where gh='" & GH & "'"
End If
End If
Call Form_Load
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command4_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -