📄 fmzg.frm
字号:
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adcbm"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.TextBox txtbmname
Height = 285
Left = 2640
TabIndex = 2
Top = 960
Width = 1545
End
Begin VB.TextBox txtsfid
Height = 270
Left = 2880
TabIndex = 10
Top = 1455
Width = 1740
End
Begin VB.TextBox txtsexid
Height = 285
Left = 8280
TabIndex = 28
Top = 5520
Visible = 0 'False
Width = 765
End
Begin VB.TextBox txtjobj
Height = 285
Left = 1200
TabIndex = 8
Top = 1508
Width = 690
End
Begin VB.TextBox txtjobcid
Height = 285
Left = 7440
TabIndex = 7
Top = 1275
Width = 975
End
Begin VB.TextBox txtjobid
Height = 285
Left = 8280
TabIndex = 26
Top = 5760
Visible = 0 'False
Width = 855
End
Begin VB.TextBox txtwritedate
Height = 285
Left = 5280
TabIndex = 3
Top = 960
Width = 1440
End
Begin VB.TextBox txtzgname
Height = 285
Left = 1200
TabIndex = 5
Top = 1200
Width = 960
End
Begin VB.TextBox txtzgid
Height = 285
Left = 1200
TabIndex = 1
Top = 960
Width = 990
End
Begin VB.TextBox txtstudyid
Height = 285
Left = 8280
TabIndex = 22
Top = 6000
Visible = 0 'False
Width = 885
End
Begin VB.TextBox txtlxtel
Height = 285
Left = 3960
TabIndex = 15
Top = 2468
Width = 1440
End
Begin VB.TextBox txtlxname
Height = 285
Left = 1500
TabIndex = 14
Top = 2468
Width = 1320
End
Begin VB.TextBox txtmarry
Height = 285
Left = 3960
TabIndex = 12
Top = 2160
Width = 660
End
Begin VB.TextBox txtjaddress
Height = 285
Left = 1500
TabIndex = 16
Top = 2760
Width = 3975
End
Begin VB.TextBox txtborth
Height = 285
Left = 1500
TabIndex = 11
Top = 2145
Width = 1320
End
Begin VB.Image Image1
Height = 1455
Left = 9000
Top = 1200
Width = 1335
End
Begin VB.Label Label7
Caption = "记录"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 255
Left = 2520
TabIndex = 52
Top = 6480
Width = 495
End
Begin VB.Label Label6
Caption = "合计"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 255
Left = 600
TabIndex = 50
Top = 6480
Width = 495
End
Begin VB.Label Label5
Caption = "合同日期"
Height = 255
Left = 4800
TabIndex = 47
Top = 1560
Width = 735
End
Begin VB.Label Label3
Caption = "班别"
Height = 255
Left = 7200
TabIndex = 42
Top = 960
Width = 375
End
Begin VB.Label Label2
Caption = "个人资料"
Height = 255
Left = 0
TabIndex = 36
Top = 1920
Width = 1095
End
Begin VB.Label Label1
Caption = "基本资料"
Height = 255
Left = 0
TabIndex = 35
Top = 840
Width = 735
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "性别"
Height = 180
Index = 7
Left = 5520
TabIndex = 34
Top = 2520
Width = 360
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "职等"
Height = 180
Index = 5
Left = 7080
TabIndex = 33
Top = 1320
Width = 360
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "姓名"
Height = 180
Index = 1
Left = 840
TabIndex = 32
Top = 1252
Width = 360
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "工号"
Height = 180
Index = 0
Left = 840
TabIndex = 31
Top = 997
Width = 360
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "部门"
Height = 180
Index = 15
Left = 2280
TabIndex = 30
Top = 997
Width = 360
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "身份号码"
Height = 180
Index = 13
Left = 2040
TabIndex = 29
Top = 1530
Width = 720
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "级别"
Height = 180
Index = 6
Left = 840
TabIndex = 27
Top = 1560
Width = 360
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "职务"
Height = 180
Index = 4
Left = 2280
TabIndex = 25
Top = 1252
Width = 360
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "入厂日期"
Height = 180
Index = 3
Left = 4590
TabIndex = 24
Top = 1245
Width = 720
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "转正日期"
Height = 180
Index = 2
Left = 4590
TabIndex = 23
Top = 990
Width = 720
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "学历"
Height = 180
Index = 14
Left = 5160
TabIndex = 21
Top = 2190
Width = 360
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "联系电话"
Height = 180
Index = 12
Left = 3240
TabIndex = 20
Top = 2520
Width = 720
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "联系人姓名"
Height = 180
Index = 11
Left = 600
TabIndex = 19
Top = 2520
Width = 900
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "婚姻"
Height = 180
Index = 10
Left = 3600
TabIndex = 18
Top = 2160
Width = 360
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "联系地址"
Height = 180
Index = 9
Left = 750
TabIndex = 17
Top = 2760
Width = 720
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "出生日期"
Height = 180
Index = 8
Left = 750
TabIndex = 0
Top = 2197
Width = 720
End
End
Attribute VB_Name = "fmzg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim baddnewflag As Boolean
Dim vbookmark
Dim WithEvents adors As Recordset
Attribute adors.VB_VarHelpID = -1
Private Sub TabStrip2_Click()
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Adczg_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Dim vbmid, vsex
Dim bmid, zgid As String
bmid = 0
If (Not Adczg.Recordset.EOF) And (Not Adczg.Recordset.BOF) Then
If IsNull(Adczg.Recordset.Fields("zgid").Value) Then
txtzgid.Text = ""
Else
txtzgid.Text = Adczg.Recordset.Fields("zgid").Value
End If
If IsNull(Adczg.Recordset.Fields("zgname").Value) Then
txtzgname.Text = ""
Else
txtzgname.Text = Adczg.Recordset.Fields("zgname").Value
End If
If IsNull(Adczg.Recordset.Fields("bmid").Value) Then
txtbmname.Text = ""
Else
txtbmname.Text = Adczg.Recordset.Fields("bmid").Value
End If
If IsNull(Adczg.Recordset.Fields("writedate").Value) Then
txtwritedate.Text = ""
Else
txtwritedate.Text = Adczg.Recordset.Fields("writedate").Value
End If
If IsNull(Adczg.Recordset.Fields("banlid").Value) Then
Textbid.Text = ""
Else
Textbid.Text = Adczg.Recordset.Fields("banlid").Value
End If
If IsNull(Adczg.Recordset.Fields("jobid").Value) Then
txtjobname.Text = ""
Else
txtjobname.Text = Adczg.Recordset.Fields("jobid").Value
End If
If IsNull(Adczg.Recordset.Fields("workdate").Value) Then
txtworkdate.Text = ""
Else
txtworkdate.Text = Adczg.Recordset.Fields("workdate").Value
End If
If IsNull(Adczg.Recordset.Fields("jobcid").Value) Then
txtjobcid.Text = ""
Else
txtjobcid.Text = Adczg.Recordset.Fields("jobcid").Value
End If
If IsNull(Adczg.Recordset.Fields("jobj").Value) Then
txtjobj.Text = ""
Else
txtjobj.Text = Adczg.Recordset.Fields("jobj").Value
End If
If IsNull(Adczg.Recordset.Fields("sex").Value) Then
Txtsexname.Text = ""
Else
Txtsexname.Text = Adczg.Recordset.Fields("sex").Value
End If
If IsNull(Adczg.Recordset.Fields("sfid").Value) Then
txtsfid.Text = ""
Else
txtsfid.Text = Adczg.Recordset.Fields("sfid").Value
End If
If IsNull(Adczg.Recordset.Fields("borth").Value) Then
txtborth.Text = ""
Else
txtborth.Text = Adczg.Recordset.Fields("borth").Value
End If
If IsNull(Adczg.Recordset.Fields("marry").Value) Then
txtmarry.Text = ""
Else
txtmarry.Text = Adczg.Recordset.Fields("marry").Value
End If
If IsNull(Adczg.Recordset.Fields("lxname").Value) Then
txtlxname.Text = ""
Else
txtlxname.Text = Adczg.Recordset.Fields("lxname").Value
End If
If IsNull(Adczg.Recordset.Fields("lxtel").Value) Then
txtlxtel.Text = ""
Else
txtlxtel.Text = Adczg.Recordset.Fields("lxtel").Value
End If
If IsNull(Adczg.Recordset.Fields("jaddress").Value) Then
txtjaddress.Text = ""
Else
txtjaddress.Text = Adczg.Recordset.Fields("jaddress").Value
End If
If IsNull(Adczg.Recordset.Fields("studyid").Value) Then
txtstudyname.Text = ""
Else
txtstudyname.Text = Adczg.Recordset.Fields("studyid").Value
End If
If IsNull(Adczg.Recordset.Fields("htdate").Value) Then
Textht.Text = ""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -