📄 frmempcard.frm
字号:
End
Begin VB.Label Label4Techalspeciality
Caption = "技术专长"
Height = 375
Left = 3165
TabIndex = 18
Top = 2265
Width = 1470
End
Begin VB.Label Label4Postname
Caption = "岗位名称"
Height = 375
Left = 3165
TabIndex = 17
Top = 1830
Width = 1470
End
Begin VB.Label Label4Emppolitystate
Caption = "政治面貌"
Height = 375
Left = 3165
TabIndex = 16
Top = 1395
Width = 1470
End
Begin VB.Label Label4Education
Caption = "学历"
Height = 375
Left = 3165
TabIndex = 15
Top = 960
Width = 1470
End
Begin VB.Label Label4Area
Caption = "地区"
Height = 375
Left = 3165
TabIndex = 14
Top = 525
Width = 1470
End
Begin VB.Label Label4Healthstatus
Caption = "健康状况"
Height = 375
Left = 3165
TabIndex = 13
Top = 90
Width = 1470
End
Begin VB.Label Label4Rankkand
Caption = "队伍分类"
Height = 375
Left = 90
TabIndex = 12
Top = 2265
Width = 1470
End
Begin VB.Label Label4Nation
Caption = "民族"
Height = 375
Left = 90
TabIndex = 11
Top = 1830
Width = 1470
End
Begin VB.Label Label4unit
Caption = "单位"
Height = 375
Left = 90
TabIndex = 10
Top = 1395
Width = 1470
End
Begin VB.Label Label4Idcode
Caption = "身份证号"
Height = 375
Left = 90
TabIndex = 9
Top = 960
Width = 1470
End
Begin VB.Label Label4Sex
Caption = "性别"
Height = 375
Left = 90
TabIndex = 8
Top = 525
Width = 1470
End
Begin VB.Label Label4Name
Caption = "姓名"
Height = 375
Left = 90
TabIndex = 7
Top = 90
Width = 1470
End
End
End
End
End
Attribute VB_Name = "frmEmpCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_oRs4EmpCard As New ADODB.Recordset
Private m_oRs4Emp(1 To 6) As New ADODB.Recordset
Private m_strSQL As String
Const C_EMP_CARD = 0
Const C_EMP_BASIC_MESSAGE = 1
Const C_EMP_OTHER_MESSAGE = 2
Private Sub Command4Close_Click()
Unload Me
End Sub
Private Sub Command4Malecard_Click()
Dim i As Long
Dim j As Long
Select Case vsIndexTab4Empcard.CurrTab
Case C_EMP_CARD
If ExportExcel(, , "EmpCard\人员卡片", App.Path & "\报表结果") = False Then
MsgBox "生成人员卡片错误!", vbCritical, "错误"
Exit Sub
Else
g_oSheet4Export.Range("C" & CStr(3)) = CheckVariant(m_oRs4EmpCard.Fields("emp_name").Value)
g_oSheet4Export.Range("G" & CStr(3)) = CheckVariant(m_oRs4EmpCard.Fields("id_code").Value)
g_oSheet4Export.Range("C" & CStr(4)) = CheckVariant(m_oRs4EmpCard.Fields("factory_organ_name").Value)
g_oSheet4Export.Range("G" & CStr(4)) = CheckVariant(m_oRs4EmpCard.Fields("company_organ_name").Value)
g_oSheet4Export.Range("C" & CStr(5)) = CheckVariant(m_oRs4EmpCard.Fields("large_organ_name").Value)
g_oSheet4Export.Range("G" & CStr(5)) = CheckVariant(m_oRs4EmpCard.Fields("samall_organ_name").Value)
g_oSheet4Export.Range("C" & CStr(6)) = CheckVariant(m_oRs4EmpCard.Fields("usework_type_name").Value)
g_oSheet4Export.Range("G" & CStr(6)) = CheckVariant(m_oRs4EmpCard.Fields("native_place").Value)
g_oSheet4Export.Range("C" & CStr(7)) = CheckVariant(m_oRs4EmpCard.Fields("worker_sort_name").Value)
g_oSheet4Export.Range("G" & CStr(7)) = CheckVariant(m_oRs4EmpCard.Fields("born_place").Value)
g_oSheet4Export.Range("C" & CStr(8)) = CheckVariant(m_oRs4EmpCard.Fields("birthday").Value)
g_oSheet4Export.Range("G" & CStr(8)) = CheckVariant(m_oRs4EmpCard.Fields("sex").Value)
g_oSheet4Export.Range("C" & CStr(9)) = CheckVariant(m_oRs4EmpCard.Fields("nation_name").Value)
g_oSheet4Export.Range("G" & CStr(9)) = CheckVariant(m_oRs4EmpCard.Fields("small_type_name").Value)
g_oSheet4Export.Range("C" & CStr(10)) = CheckVariant(m_oRs4EmpCard.Fields("health_name").Value)
g_oSheet4Export.Range("G" & CStr(10)) = CheckVariant(m_oRs4EmpCard.Fields("area_name").Value)
g_oSheet4Export.Range("J" & CStr(10)) = CheckVariant(m_oRs4EmpCard.Fields("TECHNICAL_APTITUDE_name").Value)
g_oSheet4Export.Range("D" & CStr(11)) = CheckVariant(m_oRs4EmpCard.Fields("now_education_name").Value)
g_oSheet4Export.Range("H" & CStr(11)) = CheckVariant(m_oRs4EmpCard.Fields("past_education_name").Value)
g_oSheet4Export.Range("D" & CStr(12)) = CheckVariant(m_oRs4EmpCard.Fields("now_degree").Value)
g_oSheet4Export.Range("H" & CStr(12)) = CheckVariant(m_oRs4EmpCard.Fields("past_degree").Value)
g_oSheet4Export.Range("K" & CStr(11)) = CheckVariant(m_oRs4EmpCard.Fields("NOW_GRADUCATED_TIME").Value)
g_oSheet4Export.Range("K" & CStr(12)) = CheckVariant(m_oRs4EmpCard.Fields("past_GRADUCATED_TIME").Value)
g_oSheet4Export.Range("C" & CStr(13)) = CheckVariant(m_oRs4EmpCard.Fields("POLITICS_Name").Value)
g_oSheet4Export.Range("C" & CStr(14)) = CheckVariant(m_oRs4EmpCard.Fields("join_time").Value)
g_oSheet4Export.Range("H" & CStr(13)) = CheckVariant(m_oRs4EmpCard.Fields("foreign_language_name").Value)
g_oSheet4Export.Range("H" & CStr(14)) = CheckVariant(m_oRs4EmpCard.Fields("master_degree_name").Value)
g_oSheet4Export.Range("J" & CStr(13)) = CheckVariant(m_oRs4EmpCard.Fields("GRADUATE_SCHOOL").Value)
g_oSheet4Export.Range("J" & CStr(14)) = CheckVariant(m_oRs4EmpCard.Fields("GRADUATE_SPECIALTY").Value)
g_oSheet4Export.Range("C" & CStr(15)) = CheckVariant(m_oRs4EmpCard.Fields("WORKER_SOURCE_Name").Value)
g_oSheet4Export.Range("G" & CStr(15)) = CheckVariant(m_oRs4EmpCard.Fields("emp_type_name").Value)
g_oSheet4Export.Range("J" & CStr(15)) = CheckVariant(m_oRs4EmpCard.Fields("emp_STATION_NAME").Value)
g_oSheet4Export.Range("C" & CStr(16)) = CheckVariant(m_oRs4EmpCard.Fields("FROM_UNIT").Value)
g_oSheet4Export.Range("G" & CStr(16)) = CheckVariant(m_oRs4EmpCard.Fields("emp_sort_name").Value)
g_oSheet4Export.Range("J" & CStr(16)) = CheckVariant(m_oRs4EmpCard.Fields("ON_STATION_TIME").Value)
g_oSheet4Export.Range("C" & CStr(17)) = CheckVariant(m_oRs4EmpCard.Fields("work_time").Value)
g_oSheet4Export.Range("G" & CStr(17)) = CheckVariant(m_oRs4EmpCard.Fields("IN_OILFIELD_TIME").Value)
g_oSheet4Export.Range("J" & CStr(17)) = CheckVariant(m_oRs4EmpCard.Fields("IN_UNITS_TIME").Value)
g_oSheet4Export.Range("C" & CStr(18)) = CheckVariant(m_oRs4EmpCard.Fields("SENIORITY_NAME").Value)
g_oSheet4Export.Range("G" & CStr(18)) = CheckVariant(m_oRs4EmpCard.Fields("SENIORITY_SPECIALTY_Name").Value)
g_oSheet4Export.Range("J" & CStr(18)) = CheckVariant(m_oRs4EmpCard.Fields("OBTAIN_SENIORITY_TIME").Value)
g_oSheet4Export.Range("C" & CStr(19)) = CheckVariant(m_oRs4EmpCard.Fields("ENROLL_TIME").Value)
g_oSheet4Export.Range("G" & CStr(19)) = CheckVariant(m_oRs4EmpCard.Fields("SPECIALTY_SORT_Name").Value)
g_oSheet4Export.Range("J" & CStr(19)) = CheckVariant(m_oRs4EmpCard.Fields("FILE_CODE").Value)
g_oSheet4Export.Range("C" & CStr(20)) = CheckVariant(m_oRs4EmpCard.Fields("APPOINTED_TYPE_Name").Value)
g_oSheet4Export.Range("G" & CStr(20)) = CheckVariant(m_oRs4EmpCard.Fields("CADRE_SORT_Name").Value)
g_oSheet4Export.Range("J" & CStr(20)) = CheckVariant(m_oRs4EmpCard.Fields("APPOINTED_TIME").Value)
g_oSheet4Export.Range("C" & CStr(21)) = CheckVariant(m_oRs4EmpCard.Fields("WORK_PROPERTY_name").Value)
g_oSheet4Export.Range("G" & CStr(21)) = CheckVariant(m_oRs4EmpCard.Fields("DUTY_Name").Value)
g_oSheet4Export.Range("J" & CStr(21)) = CheckVariant(m_oRs4EmpCard.Fields("DUTY_LEVEL_Name").Value)
g_oSheet4Export.Range("C" & CStr(22)) = CheckVariant(m_oRs4EmpCard.Fields("TECHNICAL_DUTY_Name").Value)
g_oSheet4Export.Range("G" & CStr(22)) = CheckVariant(m_oRs4EmpCard.Fields("APPOINTER_INSTANCE").Value)
g_oSheet4Export.Range("J" & CStr(22)) = CheckVariant(m_oRs4EmpCard.Fields("DUTY_SPECIALTY_Name").Value)
g_oSheet4Export.Range("C" & CStr(23)) = CheckVariant(m_oRs4EmpCard.Fields("EMPLOYED_TIME").Value)
g_oSheet4Export.Range("G" & CStr(23)) = CheckVariant(m_oRs4EmpCard.Fields("OCCUPATION_SORT_Name").Value)
g_oSheet4Export.Range("J" & CStr(23)) = CheckVariant(m_oRs4EmpCard.Fields("ENGAGE_SPECIALTY_Name").Value)
g_oSheet4Export.Range("C" & CStr(24)) = CheckVariant(m_oRs4EmpCard.Fields("PLURALITY").Value)
g_oSheet4Export.Range("G" & CStr(24)) = CheckVariant(m_oRs4EmpCard.Fields("cadre_STATION_NAME").Value)
g_oSheet4Export.Range("J" & CStr(24)) = CheckVariant(m_oRs4EmpCard.Fields("TECHNICAL_SPECIALTY").Value)
g_oSheet4Export.Range("C" & CStr(25)) = CheckVariant(m_oRs4EmpCard.Fields("TECHNICAL_GRADE_NAME").Value)
g_oSheet4Export.Range("C" & CStr(26)) = CheckVariant(m_oRs4EmpCard.Fields("worker_time").Value)
g_oSheet4Export.Range("C" & CStr(27)) = CheckVariant(m_oRs4EmpCard.Fields("CERTIFICATE_CODE").Value)
g_oSheet4Export.Range("G" & CStr(27)) = CheckVariant(m_oRs4EmpCard.Fields("WORKER_TYPE_Name").Value)
If CheckVariant(m_oRs4EmpCard.Fields("EMPLOY").Value) = "是" Then
g_oSheet4Export.Range("H" & CStr(25)) = "√"
Else
g_oSheet4Export.Range("H" & CStr(26)) = "√"
End If
If CheckVariant(m_oRs4EmpCard.Fields("WORK_SORT_PROPERTY").Value) = "技术" Then
g_oSheet4Export.Range("k" & CStr(25)) = "√"
Else
g_oSheet4Export.Range("k" & CStr(26)) = "√"
End If
' /*社会关系*/
m_strSQL = " select T_SOCIETY_RELATION.name,SOCIATY_RELATION_Name,WORKER_TYPE_Name,EDUCATION_Name,POLITICS_Name,WORK_STATION,case t_society_relation.sex when 1 then '男' when 2 then '女' end sex," _
& " TECHNICAL_NAME,(cast(t_society_relation.birthday/10000 as varchar(4))+'年'+cast(t_society_relation.birthday%10000/100 as varchar(2))+'月') birthday, " _
& " (cast(t_society_relation.work_time/10000 as varchar(4))+'年'+cast(t_society_relation.work_time%10000/100 as varchar(2))+'月') work_time,DUTY " _
& " from t_emp_basic left join T_SOCIETY_RELATION on T_SOCIETY_RELATION.emp_no=t_emp_basic.emp_no and T_SOCIETY_RELATION.organ_no=t_emp_basic.organ_no " _
& " left join t_sociaty_relation_code on t_sociaty_relation_code.sociaty_relation_no=t_society_relation.sociaty_relation_no " _
& " left join t_WORKER_TYPE on t_WORKER_TYPE.WORKER_TYPE_NO=t_society_relation.WORKER_TYPE_NO " _
& " left join t_EDUCATION_level on t_EDUCATION_level.EDUCATION_no=t_society_relation.education_no " _
& " left join t_POLITICS on t_POLITICS.POLITICS_NO=t_society_relation.POLITICS_NO " _
& " Where T_EMP_BASIC.EMP_NO=" & g_array4WorkerType(1, 1) & " and T_EMP_BASIC.ORGAN_NO='" & g_array4WorkerType(2, 1) & "'"
If m_oRs4Emp(1).State = adStateOpen Then m_oRs4Emp(1).Close
m_oRs4Emp(1).Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
' /*论文论著*/
m_strSQL = " select ARTICLE_LABLE,ARTICLE_NAME,ARTICLE_PLACE,ARTICLE_GAIN,(cast(PUBLISH_TIME/10000 as varchar(4))+'年'+cast(PUBLISH_TIME%10000/100 as varchar(2))+'月') PUBLISH_TIME,BOOK_CODE " _
& " from t_emp_basic left join T_ARTICLE on T_ARTICLE.emp_no=t_emp_basic.emp_no and T_ARTICLE.organ_no=t_emp_basic.organ_no " _
& " Where T_EMP_BASIC.EMP_NO=" & g_array4WorkerType(1, 1) & " and T_EMP_BASIC.ORGAN_NO='" & g_array4WorkerType(2, 1) & "'"
If m_oRs4Emp(2).State = adStateOpen Then m_oRs4Emp(2).Close
m_oRs4Emp(2).Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
' /*学历简历*/
m_strSQL = " select (cast(GRADUCATE_TIME/10000 as varchar(4))+'年'+cast(GRADUCATE_TIME%10000/100 as varchar(2))+'月') GRADUCATE_TIME, " _
& " DEGREE_Name,EDUCATION_Name,case GRADUCATE_MARK when 1 then '毕业' when 2 then '肄业' else null end GRADUCATE_MARK, " _
& " GRADUCATE_SCHOOL , STUDY_SPECIALTY, EDU_LEVEL_CERTIFICATE_CODE, EDU_SYSTEM, EDU_DEGREE_CERTIFICATE_CODE " _
& " from t_emp_basic left join T_EDUCATION_VITA on T_EDUCATION_VITA.emp_no=t_emp_basic.emp_no and T_EDUCATION_VITA.organ_no=t_emp_basic.organ_no " _
& " left join t_DEGREE on t_DEGREE.DEGREE_NO=t_education_vita.DEGREE_NO " _
& " left join t_EDUCATION_level on t_EDUCATION_level.EDUCATION_NO=t_education_vita.EDUCATION_NO " _
& " Where T_EMP_BASIC.EMP_NO=" & g_array4WorkerType(1, 1) & " and T_EMP_BASIC.ORGAN_NO='" & g_array4WorkerType(2, 1) & "'"
If m_oRs4Emp(3).State = adStateOpen Then m_oRs4Emp(3).Close
m_oRs4Emp(3).Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
' /*行政处罚*/
m_strSQL = " select (cast(PUNISH_TIME/10000 as varchar(4))+'年'+cast(PUNISH_TIME%10000/100 as varchar(2))+'月') PUNISH_TIME, " _
& " PUNISH_REASON_Name , PUNISH_TYPE_Name, PUNISH_SORT_Name, PUNISH_STATION, t_punish.FILE_CODE " _
& " from t_emp_basic left join T_PUNISH on T_PUNISH.emp_no=t_emp_basic.emp_no and T_PUNISH.organ_no=t_emp_basic.organ_no " _
& " left join t_PUNISH_REASON on t_PUNISH_REASON.PUNISH_REASON_NO=t_punish.PUNISH_REASON_NO " _
& " left join t_PUNISH_TYPE on t_PUNISH_TYPE.PUNISH_TYPE_NO=t_punish.PUNISH_TYPE_NO " _
& " left join t_PUNISH_SORT on t_PUNISH_SORT.PUNISH_SORT_NO=t_punish.PUNISH_SORT_NO " _
& " Where T_EMP_BASIC.EMP_NO=" & g_array4WorkerType(1, 1) & " and T_EMP_BASIC.ORGAN_NO='" & g_array4WorkerType(2, 1) & "'"
If m_oRs4Emp(4).State = adStateOpen Then m_oRs4Emp(4).Close
m_oRs4Emp(4).Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
' /*行政奖励*/
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -