📄 frmempadd.frm
字号:
EndProperty
Height = 315
Left = 3600
MaxLength = 18
TabIndex = 11
Top = 1200
Width = 2055
End
Begin VB.TextBox txtEmpAddr
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 720
TabIndex = 13
Top = 1680
Width = 7575
End
Begin VB.TextBox txtEmpChr
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 6720
TabIndex = 12
Top = 1200
Width = 1575
End
Begin VB.TextBox txtEmpMobil
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 720
TabIndex = 10
Top = 1200
Width = 1695
End
Begin VB.TextBox txtEmpTel
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 720
TabIndex = 7
Top = 720
Width = 1695
End
Begin VB.ComboBox cmbEmpEdu
Height = 300
Left = 6720
Style = 2 'Dropdown List
TabIndex = 9
Top = 720
Width = 1575
End
Begin VB.ComboBox cmbEmpPs
Height = 300
Left = 3600
Style = 2 'Dropdown List
TabIndex = 8
Top = 720
Width = 2055
End
Begin MSMask.MaskEdBox mskEmpBirth
Height = 255
Left = 6720
TabIndex = 6
Top = 240
Width = 1575
_ExtentX = 2778
_ExtentY = 450
_Version = 393216
BackColor = 12640511
MaxLength = 10
Format = "dddddd"
Mask = "####-##-##"
PromptChar = " "
End
Begin VB.ComboBox cmbEmpMs
Height = 300
Left = 3600
Style = 2 'Dropdown List
TabIndex = 5
Top = 240
Width = 2055
End
Begin VB.ComboBox cmbEmpSex
Height = 300
ItemData = "frmEmpAdd.frx":0008
Left = 720
List = "frmEmpAdd.frx":000A
Style = 2 'Dropdown List
TabIndex = 4
Top = 240
Width = 1695
End
Begin VB.Label lblEmp_id_cord
AutoSize = -1 'True
Caption = "身份证号："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 2640
TabIndex = 45
Top = 1320
Width = 1050
End
Begin VB.Label lblEmpAddr
AutoSize = -1 'True
Caption = "地址："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 34
Top = 1800
Width = 630
End
Begin VB.Label lblEmpChr
AutoSize = -1 'True
Caption = "拼音字首："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 5760
TabIndex = 33
Top = 1320
Width = 1050
End
Begin VB.Label lblEmpMobil
AutoSize = -1 'True
Caption = "手机："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 28
Top = 1320
Width = 630
End
Begin VB.Label lblEmpTel
AutoSize = -1 'True
Caption = "电话："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 27
Top = 840
Width = 630
End
Begin VB.Label lblEmpEdu
AutoSize = -1 'True
Caption = "文化程度："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 5760
TabIndex = 26
Top = 840
Width = 1050
End
Begin VB.Label lblEmpPs
AutoSize = -1 'True
Caption = "政治面貌："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 2640
TabIndex = 25
Top = 840
Width = 1050
End
Begin VB.Label lblEmpBirth
AutoSize = -1 'True
Caption = "出生日期："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 5760
TabIndex = 24
Top = 360
Width = 1050
End
Begin VB.Label lblEmpMs
AutoSize = -1 'True
Caption = "婚姻状况："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 2640
TabIndex = 23
Top = 360
Width = 1050
End
Begin VB.Label lblEmpSex
AutoSize = -1 'True
Caption = "性别："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 22
Top = 360
Width = 630
End
End
End
End
Attribute VB_Name = "frmEmpAdd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub IniCmbwithRecordset(ByVal cmbdest As ComboBox, ByVal strSql As String)
Dim rctCmb As New ADODB.Recordset
cmbdest.Clear
cmbdest.AddItem " "
If ExcuteSql(rctCmb, strSql) = True Then
If rctCmb.RecordCount > 0 Then
rctCmb.MoveFirst
While Not rctCmb.EOF
cmbdest.AddItem Trim(rctCmb.Fields(0))
rctCmb.MoveNext
Wend
End If
End If
If rctCmb.State <> adStateClosed Then
rctCmb.Close
Set rctCmb = Nothing
End If
End Sub
Private Function SaveEmployeesRecords(ByVal rctSource As ADODB.Recordset, ByVal Emp_ID As Variant, ByVal Emp_Name As Variant, ByVal Emp_Sex As Variant, ByVal Depart_ID As Variant, ByVal Job_ID As Variant, ByVal Titel_ID As Variant, ByVal E_ID As Variant, ByVal P_ID As Variant, MS_ID As Variant, ByVal Emp_ID_cord As Variant, ByVal Emp_birthday As Variant, ByVal Emp_Attend_time As Variant, ByVal Emp_Join_time As Variant, ByVal Emp_mobile_num As Variant, ByVal Emp_Tel_num As Variant, ByVal Emp_Address As Variant, ByVal Emp_Memo As Variant, ByVal Emp_name_char As Variant) As Boolean
With rctSource
On Error GoTo Error_On_Save
If Emp_ID <> Empty Then
.Fields("Emp_ID").Value = Emp_ID
End If
If Emp_Name <> Empty Then
.Fields("Emp_Name").Value = Emp_Name
End If
.Fields("Emp_Sex").Value = Emp_Sex
If Depart_ID <> Empty Then
.Fields("Depart_ID").Value = Depart_ID
End If
If Job_ID <> Empty Then
.Fields("Job_ID").Value = Job_ID
End If
If Titel_ID <> Empty Then
.Fields("Titel_ID").Value = Titel_ID
End If
If E_ID <> Empty Then
.Fields("E_ID").Value = E_ID
End If
If P_ID <> Empty Then
.Fields("P_ID").Value = P_ID
End If
.Fields("MS_ID").Value = MS_ID
If Emp_ID_cord <> Empty Then
.Fields("Emp_ID_cord").Value = Emp_ID_cord
End If
If Emp_birthday <> Empty Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -