📄 humaninfo.frm
字号:
Width = 975
End
Begin VB.Label lblRegisterDate
Caption = "登记日期："
Height = 255
Left = 6720
TabIndex = 17
Top = 1440
Width = 1095
End
Begin VB.Label lblResume
Caption = "简历："
Height = 375
Left = 120
TabIndex = 15
Top = 1320
Width = 975
End
Begin VB.Label Label5
Caption = "年"
Height = 375
Left = 8880
TabIndex = 14
Top = 960
Width = 255
End
Begin VB.Label lblMyWorkAge
Caption = "本单位工龄："
Height = 255
Left = 6720
TabIndex = 12
Top = 960
Width = 1095
End
Begin VB.Label lblCDate
Caption = "调入时间："
Height = 375
Left = 3480
TabIndex = 11
Top = 960
Width = 1215
End
Begin VB.Label Label4
Caption = "元"
Height = 375
Left = 2880
TabIndex = 10
Top = 960
Width = 375
End
Begin VB.Label lblOSalary
Caption = "其它工资："
Height = 255
Left = 120
TabIndex = 8
Top = 960
Width = 1095
End
Begin VB.Label lblBSalary
Caption = "基本工资："
Height = 375
Left = 6720
TabIndex = 6
Top = 600
Width = 1095
End
Begin VB.Label lblTitle
Caption = "职称："
Height = 255
Left = 3480
TabIndex = 5
Top = 600
Width = 1215
End
Begin VB.Label lblJob
Caption = "职务："
Height = 375
Left = 120
TabIndex = 4
Top = 600
Width = 975
End
Begin VB.Label lblGrow
Caption = "工种："
Height = 255
Left = 6720
TabIndex = 3
Top = 240
Width = 1215
End
Begin VB.Label lblSection
Caption = "部门："
Height = 375
Left = 120
TabIndex = 1
Top = 240
Width = 975
End
End
End
Attribute VB_Name = "frmHumanInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Newnumber() '生成编号
Dim adors As New Recordset
Dim strSQL As String
'与数据库连接
Set adors.ActiveConnection = ADOcn
'查找最大的编号
'先查找全部的编号
strSQL = "Select distinct 编号 from 人事档案 order by 编号"
adors.Open strSQL
If adors.EOF Then
txtNum.Text = "00001"
Else
Do While Not adors.EOF
'查找最大的编号
txtNum.Text = adors.Fields("编号") + 1 '结果加1成功
adors.MoveNext
Loop
If txtNum > 1 And txtNum < 10 Then
txtNum.Text = "0000" + txtNum.Text
ElseIf txtNum >= 10 And txtNum < 100 Then
txtNum.Text = "000" + txtNum.Text
ElseIf txtNum >= 100 And txtNum < 10 Then
txtNum.Text = "00" + txtNum.Text
ElseIf txtNum >= 1000 And txtNum < 1 Then
txtNum.Text = "0" + txtNum.Text
End If
End If
adors.Close
End Sub
Private Sub cmbBirthday_Change()
MonthView1.Visible = True
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
If Flag = 1 Then
Update
Unload Me
Else
Add_PersonInfo
Add_PersonToDefaultWage
Add_PersonToWageFile
Unload Me
End If
MyRefresh_frmHumanManage
End Sub
Private Sub Form_Activate()
If txtNum = "" Then
Newnumber
Flag = 0 '标记为添加新成员
Else
fuzhi
txtNum.Locked = True
End If
End Sub
Private Sub Add_PersonInfo()
Dim adors As New Recordset
Dim strSQL As String
adors.ActiveConnection = ADOcn
strSQL = "Select 编号 From 人事档案"
strSQL = strSQL + " Where 编号='" + txtNum + "'"
adors.Open strSQL
If Not adors.EOF Then
MsgBox "编号已存在，请重新输入！", vbCritical + vbOKOnly, "信息提示"
txtNum.SetFocus
ElseIf txtNum = "" Or txtName = "" Or txtIDCardNum = "" Or cmbRace.Text = "" Or cmbMarrige.Text = "" Or cmbZhengzhi.Text = "" Or txtNative = "" Or txtAddress = "" Or txtTel = "" Or txtMobileTel = "" Or txtEmail = "" Or txtContactWay = "" Or txtWorkAge = "" Or Text1 = "" Or Text2 = "" Or txtSection = "" Or cmbgongzhong.Text = "" Or cmbPosition.Text = "" Or cmbPost.Text = "" Or txtMyWorkAge = "" Or txtBSalary = "" Or txtOSalary = "" Or txtSchool = "" Or txtProfession = "" Or cmbEducation.Text = "" Or txtSpecial = "" Or txtResume = "" Or txtRegister = "" Then
MsgBox "请输入完整信息，没有请填“无”！", vbCritical + vbOKOnly, "信息提示"
Else '如果不存在这条记录，那么做以下工作
If Option1.Value = True Then
strSQL = "Insert Into 人事档案(编号,姓名,性别,身份证号,出生年月,民族,婚姻状况,政治面貌,入党团时间,籍贯,家庭地址,联系电话,手机号码,电子邮箱,其它联系方式,参加工作时间,总工龄,自定义项目1,自定义项目2,部门,工种,职务,职称,调入时间,本单位工龄,基本工资,其它工资,毕业院校,专业,文化程度,特长,简历,登记日期,登记人) "
strSQL = strSQL + " Values('" + txtNum + "','" + txtName + "','" + Option1.Caption + "','" + txtIDCardNum + "','" + CStr(DTPBirthday.Value) + "','" + cmbRace.Text + "','" + cmbMarrige.Text + "','" + cmbZhengzhi.Text + "','" + CStr(DTPPartyDate.Value) + "','" + txtNative + "','" + txtAddress + "','" + txtTel + "','" + txtMobileTel + "','" + txtEmail + "','" + txtContactWay + "','" + CStr(DTPWorkDate.Value) + "'," + txtWorkAge + ",'" + Text1 + "','" + Text2 + "','" + txtSection + "','" + cmbgongzhong.Text + "','" + cmbPosition.Text + "','" + cmbPost.Text + "','" + CStr(DTPDate.Value) + "'," + txtMyWorkAge + ",'" + txtBSalary + "','" + txtOSalary + "','" + txtSchool + "','" + txtProfession + "','" + cmbEducation.Text + "','" + txtSpecial + "','" + txtResume + "','" + CStr(DTPRegistDate.Value) + "','" + txtRegister + "')"
Else
strSQL = "Insert Into 人事档案(编号,姓名,性别,身份证号,出生年月,民族,婚姻状况,政治面貌,入党团时间,籍贯,家庭地址,联系电话,手机号码,电子邮箱,其它联系方式,参加工作时间,总工龄,自定义项目1,自定义项目2,部门,工种,职务,职称,调入时间,本单位工龄,基本工资,其它工资,毕业院校,专业,文化程度,特长,简历,登记日期,登记人) "
strSQL = strSQL + " Values('" + txtNum + "','" + txtName + "','" + Option2.Caption + "','" + txtIDCardNum + "','" + CStr(DTPBirthday.Value) + "','" + cmbRace.Text + "','" + cmbMarrige.Text + "','" + cmbZhengzhi.Text + "','" + CStr(DTPPartyDate.Value) + "','" + txtNative + "','" + txtAddress + "','" + txtTel + "','" + txtMobileTel + "','" + txtEmail + "','" + txtContactWay + "','" + CStr(DTPWorkDate.Value) + "'," + txtWorkAge + ",'" + Text1 + "','" + Text2 + "','" + txtSection + "','" + cmbgongzhong.Text + "','" + cmbPosition.Text + "','" + cmbPost.Text + "','" + CStr(DTPDate.Value) + "'," + txtMyWorkAge + ",'" + txtBSalary + "','" + txtOSalary + "','" + txtSchool + "','" + txtProfession + "','" + cmbEducation.Text + "','" + txtSpecial + "','" + txtResume + "','" + CStr(DTPRegistDate.Value) + "','" + txtRegister + "')"
End If
ADOcn.Execute strSQL
End If
End Sub
Private Sub Add_PersonToDefaultWage()
Dim adors As New Recordset
Dim strSQL As String
adors.ActiveConnection = ADOcn
strSQL = "Insert Into 默认工资项目表(员工编号,员工姓名,基本工资,技能工资,津贴费,交通费,水电费,生活费,高温贴,房租费,其它保险费,养老保险费,失业保险费,医疗保险费,其它金额,其它扣额)"
strSQL = strSQL + " Values('" + txtNum + "','" + txtName + "'," + txtBSalary + ",0,0,0,0,0,0,0,0,0,0,0,0,0)"
ADOcn.Execute strSQL
End Sub
Private Sub Add_PersonToWageFile()
Dim adors As New Recordset
Dim strSQL As String
adors.ActiveConnection = ADOcn
strSQL = "Insert Into 工资档案表(所属工资月份,员工编号,员工姓名,基本工资,计件工资,计时工资,提成工资,加班费,旷工费,技能工资,工龄工资,全勤奖,奖励总额,惩罚总额,津贴费,交通费,水电费,生活费,高温贴,房租费,其它保险费,养老保险费,失业保险费,医疗保险费,其它金额,应发工资,个人所得税,税后工资,其它扣额,实发工资)"
strSQL = strSQL + " Values('" + CurMonth + "','" + txtNum + "','" + txtName + "'," + txtBSalary + ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)"
ADOcn.Execute strSQL
End Sub
Private Sub fuzhi()
Flag = 1 '标记为更新
Dim adors As New Recordset
Dim strSQL As String
Set adors.ActiveConnection = ADOcn
strSQL = "Select * From 人事档案 Where 编号='" + txtNum + "'"
adors.Open strSQL
If Not adors.EOF Then
txtName = adors("姓名")
If adors("性别") = "男" Then
Option1.Value = True
ElseIf adors("性别") = "女" Then
Option2.Value = True
End If
txtIDCardNum = adors("身份证号")
DTPBirthday.Value = LTrim(adors("出生年月"))
cmbRace.Text = adors("民族")
cmbMarrige.Text = adors("婚姻状况")
cmbZhengzhi.Text = adors("政治面貌")
DTPPartyDate.Value = LTrim(adors("入党团时间"))
txtNative = adors("籍贯")
txtAddress = adors("家庭地址")
txtTel = adors("联系电话")
txtMobileTel = adors("手机号码")
txtEmail = adors("电子邮箱")
txtContactWay = adors("其它联系方式")
DTPWorkDate.Value = LTrim(adors("参加工作时间"))
txtWorkAge = LTrim(adors("总工龄"))
Text1 = adors("自定义项目1")
Text2 = adors("自定义项目2")
txtSection = adors("部门")
cmbgongzhong.Text = adors("工种")
cmbPosition.Text = adors("职务")
cmbPost.Text = adors("职称")
DTPDate.Value = LTrim(adors("调入时间"))
txtMyWorkAge = LTrim(adors("本单位工龄"))
txtBSalary = adors("基本工资")
txtOSalary = adors("其它工资")
txtSchool = adors("毕业院校")
txtProfession = adors("专业")
cmbEducation.Text = adors("文化程度")
txtSpecial = adors("特长")
txtResume = adors("简历")
DTPRegistDate.Value = LTrim(adors("登记日期"))
txtRegister = adors("登记人")
End If
End Sub
Private Sub Update()
txtNum.Locked = True
If txtName = "" Or Option2.Caption = "" Or txtIDCardNum = "" Or cmbRace.Text = "" Or cmbMarrige.Text = "" Or cmbZhengzhi.Text = "" Or txtNative = "" Or txtAddress = "" Or txtTel = "" Or txtMobileTel = "" Or txtEmail = "" Or txtContactWay = "" Or txtWorkAge = "" Or Text1 = "" Or Text2 = "" Or txtSection = "" Or cmbgongzhong.Text = "" Or cmbPosition.Text = "" Or cmbPost.Text = "" Or txtMyWorkAge = "" Or txtBSalary = "" Or txtOSalary = "" Or txtSchool = "" Or txtProfession = "" Or cmbEducation.Text = "" Or txtSpecial = "" Or txtResume = "" Or txtRegister = "" Then
MsgBox "请输入完整信息，没有请填“无”！", vbCritical + vbOKOnly, "信息提示"
Else '否则将界面上输入的数据增加到数据库中去
Dim strSQL As String
If Option1.Value = True Then
strSQL = "Update 人事档案 Set 姓名= '" + txtName + "',性别='" + Option1.Caption + "',身份证号='" + txtIDCardNum + "',出生年月='" + CStr(DTPBirthday.Value) + "',民族='" + cmbRace.Text + "',婚姻状况='" + cmbMarrige.Text + "',政治面貌='" + cmbZhengzhi.Text + "',入党团时间='" + CStr(DTPPartyDate.Value) + "',籍贯='"
strSQL = strSQL + txtNative + "',家庭地址='" + txtAddress + "',联系电话='" + txtTel + "',手机号码='" + txtMobileTel + "',电子邮箱='" + txtEmail + "',其它联系方式='" + txtContactWay + "',参加工作时间='" + CStr(DTPWorkDate.Value) + "',总工龄=" + txtWorkAge + ",自定义项目1='" + Text1
strSQL = strSQL + "',自定义项目2='" + Text2 + "',部门='" + txtSection + "',工种='" + cmbgongzhong.Text + "',职务='" + cmbPosition.Text + "',职称='" + cmbPost.Text + "',调入时间='" + CStr(DTPDate.Value) + "',本单位工龄=" + txtMyWorkAge + ",基本工资='" + txtBSalary + "',其它工资='" + txtOSalary + "',毕业院校='" + txtSchool + "',专业='" + txtProfession + "',文化程度='"
strSQL = strSQL + cmbEducation.Text + "',特长='" + txtSpecial + "',简历='" + txtResume + "',登记日期='" + CStr(DTPRegistDate.Value) + "',登记人='" + txtRegister + "'" + " Where 编号='" + txtNum + "'"
Else
strSQL = "Update 人事档案 Set 姓名= '" + txtName + "',性别='" + Option2.Caption + "',身份证号='" + txtIDCardNum + "',出生年月='" + CStr(DTPBirthday.Value) + "',民族='" + cmbRace.Text + "',婚姻状况='" + cmbMarrige.Text + "',政治面貌='" + cmbZhengzhi.Text + "',入党团时间='" + CStr(DTPPartyDate.Value) + "',籍贯='"
strSQL = strSQL + txtNative + "',家庭地址='" + txtAddress + "',联系电话='" + txtTel + "',手机号码='" + txtMobileTel + "',电子邮箱='" + txtEmail + "',其它联系方式='" + txtContactWay + "',参加工作时间='" + CStr(DTPWorkDate.Value) + "',总工龄=" + txtWorkAge + ",自定义项目1='" + Text1
strSQL = strSQL + "',自定义项目2='" + Text2 + "',部门='" + txtSection + "',工种='" + cmbgongzhong.Text + "',职务='" + cmbPosition.Text + "',职称='" + cmbPost.Text + "',调入时间='" + CStr(DTPDate.Value) + "',本单位工龄=" + txtMyWorkAge + ",基本工资='" + txtBSalary + "',其它工资='" + txtOSalary + "',毕业院校='" + txtSchool + "',专业='" + txtProfession + "',文化程度='"
strSQL = strSQL + cmbEducation.Text + "',特长='" + txtSpecial + "',简历='" + txtResume + "',登记日期='" + CStr(DTPRegistDate.Value) + "',登记人='" + txtRegister + "'" + " Where 编号='" + txtNum + "'"
End If
ADOcn.Execute strSQL
End If
MyRefresh_frmHumanManage
End Sub
Private Sub Form_Load()
RaceAdd
ZhengzhiAdd
PositionAdd
PostAdd
EducationAdd
WorkTypeAdd
End Sub
Private Sub RaceAdd()
Dim adors As New Recordset
Dim strSQL As String
adors.ActiveConnection = ADOcn
strSQL = "Select * From 民族"
adors.Open strSQL
i = 1
Do While Not adors.EOF
frmHumanInfo.cmbRace.AddItem (adors("民族"))
adors.MoveNext
i = i + 1
Loop
End Sub
Private Sub ZhengzhiAdd()
Dim adors As New Recordset
Dim strSQL As String
adors.ActiveConnection = ADOcn
strSQL = "Select * From 政治面貌"
adors.Open strSQL
i = 1
Do While Not adors.EOF
frmHumanInfo.cmbZhengzhi.AddItem (adors("政治面貌"))
adors.MoveNext
i = i + 1
Loop
End Sub
Private Sub PositionAdd()
Dim adors As New Recordset
Dim strSQL As String
adors.ActiveConnection = ADOcn
strSQL = "Select * From 职务"
adors.Open strSQL
i = 1
Do While Not adors.EOF
frmHumanInfo.cmbPosition.AddItem (adors("职务"))
adors.MoveNext
i = i + 1
Loop
End Sub
Private Sub PostAdd()
Dim adors As New Recordset
Dim strSQL As String
adors.ActiveConnection = ADOcn
strSQL = "Select * From 职称"
adors.Open strSQL
i = 1
Do While Not adors.EOF
frmHumanInfo.cmbPost.AddItem (adors("职称"))
adors.MoveNext
i = i + 1
Loop
End Sub
Private Sub EducationAdd()
Dim adors As New Recordset
Dim strSQL As String
adors.ActiveConnection = ADOcn
strSQL = "Select * From 文化程度"
adors.Open strSQL
i = 1
Do While Not adors.EOF
frmHumanInfo.cmbEducation.AddItem (adors("文化程度"))
adors.MoveNext
i = i + 1
Loop
End Sub
Private Sub WorkTypeAdd()
Dim adors As New Recordset
Dim strSQL As String
adors.ActiveConnection = ADOcn
strSQL = "Select * From 工种"
adors.Open strSQL
i = 1
Do While Not adors.EOF
frmHumanInfo.cmbgongzhong.AddItem (adors("工种"))
adors.MoveNext
i = i + 1
Loop
End Sub
Private Sub Picture1_Click()
frmPartmentL.Show
Part = 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -