📄 frmcadrecard.frm
字号:
g_oSheet4Export.Range("F" & CStr(j)) = CheckVariant(m_oRs4Cadre(1).Fields("DUTY_NAME").Value)
g_oSheet4Export.Range("H" & CStr(j)) = CheckVariant(m_oRs4Cadre(1).Fields("TECHNICAL_NAME").Value)
m_oRs4Cadre(1).MoveNext
Next
Else
g_oBook4Export.Close 1
Exit Sub
End If
Else
j = 11
Do While m_oRs4Cadre(1).EOF = False
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Cadre(1).Fields("START_TIME").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Cadre(1).Fields("WORK_STATION").Value)
g_oSheet4Export.Range("F" & CStr(j)) = CheckVariant(m_oRs4Cadre(1).Fields("DUTY_NAME").Value)
g_oSheet4Export.Range("H" & CStr(j)) = CheckVariant(m_oRs4Cadre(1).Fields("TECHNICAL_NAME").Value)
j = j + 1
m_oRs4Cadre(1).MoveNext
Loop
End If
If m_oRs4Cadre(2).EOF = False Then
i = m_oRs4Cadre(2).RecordCount
If i > 7 Then
j = i - 7
If vbYes = MsgBox("社会关系记录数超出卡片可容纳范围，将有" & j & "条记录被省略!是否继续?", vbYesNo, "提示") Then
For j = 26 To 32
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Cadre(2).Fields("SOCIATY_RELATION_NAME").Value)
g_oSheet4Export.Range("C" & CStr(j)) = CheckVariant(m_oRs4Cadre(2).Fields("NAME").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Cadre(2).Fields("POLITICS_NAME").Value)
g_oSheet4Export.Range("F" & CStr(j)) = CheckVariant(m_oRs4Cadre(2).Fields("WORK_STATION").Value)
g_oSheet4Export.Range("I" & CStr(j)) = CheckVariant(m_oRs4Cadre(2).Fields("DUTY").Value)
m_oRs4Cadre(2).MoveNext
Next
Else
g_oBook4Export.Close 1
Exit Sub
End If
Else
j = 26
Do While m_oRs4Cadre(2).EOF = False
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Cadre(2).Fields("SOCIATY_RELATION_NAME").Value)
g_oSheet4Export.Range("C" & CStr(j)) = CheckVariant(m_oRs4Cadre(2).Fields("NAME").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Cadre(2).Fields("POLITICS_NAME").Value)
g_oSheet4Export.Range("F" & CStr(j)) = CheckVariant(m_oRs4Cadre(2).Fields("WORK_STATION").Value)
g_oSheet4Export.Range("I" & CStr(j)) = CheckVariant(m_oRs4Cadre(2).Fields("DUTY").Value)
j = j + 1
m_oRs4Cadre(2).MoveNext
Loop
End If
End If
End If
End If
Case C_CADRE_APPOINT
'杂项'
m_strsql4Cadre = "select t_emp_basic.emp_no,t_health.health_name,born_place,t_education_level.education_name" _
& " ,t_degree.degree_name,TECHNICAL_DUTY_Name,WAGE_RATE_NAME,SKILL_WAGE,STATION_DUTY_WAGE,TECHNICAL_APTITUDE_name " _
& " from t_emp_basic left join t_health on t_emp_basic.health_no=t_health.health_no " _
& " left join t_education_level on now_education_level=t_education_level.education_no " _
& " left join t_degree on t_degree.degree_no=t_emp_basic.now_degree " _
& " left join t_cadre on t_cadre.emp_no=t_emp_basic.emp_no " _
& " left join t_TECHNICAL_DUTY on t_cadre.TECHNICAL_DUTY_NO=t_TECHNICAL_DUTY.TECHNICAL_DUTY_NO " _
& " left join T_WAGE_STANDARD on T_WAGE_STANDARD.emp_no=t_emp_basic.emp_no and T_WAGE_STANDARD.organ_no=t_emp_basic.organ_no " _
& " left join T_OLD_WAGE_RATE on T_OLD_WAGE_RATE.WAGE_RATE_NO = T_WAGE_STANDARD.WAGE_RATE_NO " _
& " left join T_AREA_SORT on T_AREA_SORT.AREA_SORT_NO=t_wage_standard.AREA_SORT_NO " _
& " left join T_OLD_SKILL on T_OLD_WAGE_RATE.WAGE_RATE_NO=T_OLD_SKILL.WAGE_RATE_NO and t_old_skill.area_sort_no=T_AREA_SORT.AREA_SORT_NO " _
& " left join T_TECHNICAL_APTITUDE on T_TECHNICAL_APTITUDE.TECHNICAL_APTITUDE_NO=t_emp_basic.TECHNICAL_APTITUDE_NO " _
& " where T_EMP_BASIC.EMP_NO=" & g_array4WorkerType(1, 1) & " and T_EMP_BASIC.ORGAN_NO='" & g_array4WorkerType(2, 1) & "'" & HaveEmpMark
If m_oRs4Cadre(1).State = adStateOpen Then m_oRs4Cadre(1).Close
m_oRs4Cadre(1).Open m_strsql4Cadre, g_oConnection4This, adOpenKeyset, adLockOptimistic
'奖励情况'
m_strsql4Cadre = "select (cast(REWARD_DATE/10000 as varchar(4))+'年'+cast(REWARD_DATE%10000/100 as varchar(2))+'月'" _
& " +cast(REWARD_DATE%100 as varchar(2))+'日') reward,reward_name,reward_level_name " _
& " from t_reward left join t_reward_level on t_reward.reward_level_no=t_reward_level.reward_level_no " _
& " where T_reward.emp_no=" & g_array4WorkerType(1, 1) & " and T_reward.ORGAN_NO='" & g_array4WorkerType(2, 1) & "'"
If m_oRs4Cadre(2).State = adStateOpen Then m_oRs4Cadre(2).Close
m_oRs4Cadre(2).Open m_strsql4Cadre, g_oConnection4This, adOpenKeyset, adLockOptimistic
'惩戒情况'
m_strsql4Cadre = "select (cast(PUNISH_TIME/10000 as varchar(4))+'年'+cast(PUNISH_TIME%10000/100 as varchar(2))+'月'" _
& " +cast(PUNISH_TIME%100 as varchar(2))+'日') PUNISH_TIME,PUNISH_TYPE_name,PUNISH_STATION " _
& " from T_PUNISH left join T_PUNISH_type on T_PUNISH_type.punish_type_no=T_PUNISH.punish_type_no " _
& " where T_PUNISH.emp_no=" & g_array4WorkerType(1, 1) & " and T_PUNISH.ORGAN_NO='" & g_array4WorkerType(2, 1) & "'"
If m_oRs4Cadre(3).State = adStateOpen Then m_oRs4Cadre(3).Close
m_oRs4Cadre(3).Open m_strsql4Cadre, g_oConnection4This, adOpenKeyset, adLockOptimistic
'年度考核结果'
m_strsql4Cadre = "select (cast(T_CADRE_CHECK_YEAR.year/10000 as varchar(4))+'年'+cast(T_CADRE_CHECK_YEAR.year%10000/100 as varchar(2))+'月' " _
& " +cast(T_CADRE_CHECK_YEAR.year%100 as varchar(2))+'日') TIME,CHECK_RESULT " _
& " From T_CADRE_CHECK_YEAR " _
& " where T_CADRE_CHECK_YEAR.emp_no=" & g_array4WorkerType(1, 1) & " and T_CADRE_CHECK_YEAR.ORGAN_NO='" & g_array4WorkerType(2, 1) & "'"
If m_oRs4Cadre(4).State = adStateOpen Then m_oRs4Cadre(4).Close
m_oRs4Cadre(4).Open m_strsql4Cadre, g_oConnection4This, adOpenKeyset, adLockOptimistic
'家庭成员'
m_strsql4Cadre = "select SOCIATY_RELATION_name,t_SOCIETY_RELATION.name," _
& " (cast(t_SOCIETY_RELATION.birthday/10000 as varchar(4))+'年'+cast(t_SOCIETY_RELATION.birthday%10000/100 as varchar(2))+'月')birthday,POLITICS_name,WORK_STATION , 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_POLITICS on t_POLITICS.POLITICS_no = t_SOCIETY_RELATION.POLITICS_no left join T_SOCIATY_RELATION_CODE on T_SOCIATY_RELATION_CODE.SOCIATY_RELATION_no=t_SOCIETY_RELATION.SOCIATY_RELATION_no " _
& " where t_emp_basic.EMP_NO=" & g_array4WorkerType(1, 1) & " and t_emp_basic.ORGAN_NO='" & g_array4WorkerType(2, 1) & "'" & HaveEmpMark & " order by T_SOCIATY_RELATION_CODE.SOCIATY_RELATION_no "
If m_oRs4Cadre(5).State = adStateOpen Then m_oRs4Cadre(5).Close
m_oRs4Cadre(5).Open m_strsql4Cadre, g_oConnection4This, adOpenKeyset, adLockOptimistic
'工作简历'
m_strsql4Cadre = "select (cast(START_TIME/10000 as varchar(4))+'年'+cast(START_TIME%10000/100 as varchar(2))+'月'" _
& "+cast(START_TIME%100 as varchar(2))+'日') START_TIME ,WORK_STATION " _
& ",DUTY_NAME,TECHNICAL_NAME" _
& " From t_work_vita,t_emp_basic" _
& " where T_EMP_BASIC.EMP_NO = t_work_vita.EMP_NO and T_EMP_BASIC.ORGAN_NO = t_work_vita.ORGAN_NO and T_EMP_BASIC.EMP_NO=" & g_array4WorkerType(1, 1) & " and T_EMP_BASIC.ORGAN_NO='" & g_array4WorkerType(2, 1) & "'" & HaveEmpMark
If m_oRs4Cadre(6).State = adStateOpen Then m_oRs4Cadre(6).Close
m_oRs4Cadre(6).Open m_strsql4Cadre, g_oConnection4This, adOpenKeyset, adLockOptimistic
If ExportExcel(, , "CadreCard\干部任免审批表", App.Path & "\报表结果") = False Then
MsgBox "生成人员卡片错误!", vbCritical, "错误"
Exit Sub
Else
g_oSheet4Export.Range("B" & CStr(2)) = CheckVariant(Text4Name.text)
g_oSheet4Export.Range("D" & CStr(2)) = CheckVariant(Text4Sex.text)
g_oSheet4Export.Range("F" & CStr(2)) = CheckVariant(Text4Birthday.text)
g_oSheet4Export.Range("I" & CStr(2)) = CheckVariant(Text4Native.text)
g_oSheet4Export.Range("B" & CStr(4)) = CheckVariant(Text4Nation.text)
g_oSheet4Export.Range("F" & CStr(4)) = CheckVariant(Text4PartyTime.text)
If m_oRs4Cadre(1).EOF = False Then
g_oSheet4Export.Range("I" & CStr(4)) = CheckVariant(m_oRs4Cadre(1).Fields("health_name").Value)
g_oSheet4Export.Range("B" & CStr(5)) = CheckVariant(m_oRs4Cadre(1).Fields("born_place").Value)
g_oSheet4Export.Range("B" & CStr(6)) = CheckVariant(m_oRs4Cadre(1).Fields("education_name").Value) & "--" & CheckVariant(m_oRs4Cadre(1).Fields("degree_name").Value)
g_oSheet4Export.Range("B" & CStr(7)) = CheckVariant(m_oRs4Cadre(1).Fields("TECHNICAL_DUTY_Name").Value)
g_oSheet4Export.Range("H" & CStr(6)) = CheckVariant(m_oRs4Cadre(1).Fields("WAGE_RATE_NAME").Value)
g_oSheet4Export.Range("I" & CStr(6)) = CheckVariant(m_oRs4Cadre(1).Fields("SKILL_WAGE").Value)
g_oSheet4Export.Range("I" & CStr(8)) = CheckVariant(m_oRs4Cadre(1).Fields("STATION_DUTY_WAGE").Value)
g_oSheet4Export.Range("C" & CStr(9)) = CheckVariant(m_oRs4Cadre(1).Fields("TECHNICAL_APTITUDE_name").Value)
Else
g_oSheet4Export.Range("I" & CStr(4)) = ""
g_oSheet4Export.Range("B" & CStr(5)) = ""
g_oSheet4Export.Range("B" & CStr(6)) = ""
g_oSheet4Export.Range("B" & CStr(7)) = ""
g_oSheet4Export.Range("H" & CStr(6)) = ""
g_oSheet4Export.Range("I" & CStr(6)) = ""
g_oSheet4Export.Range("I" & CStr(8)) = ""
g_oSheet4Export.Range("C" & CStr(9)) = ""
End If
g_oSheet4Export.Range("D" & CStr(6)) = CheckVariant(Text4School.text)
g_oSheet4Export.Range("D" & CStr(5)) = CheckVariant(Text4WorkTime.text)
g_oSheet4Export.Range("C" & CStr(10)) = CheckVariant(Text4NowDuty.text)
g_oSheet4Export.Range("C" & CStr(11)) = CheckVariant(Text4NirenDuty.text)
g_oSheet4Export.Range("C" & CStr(12)) = CheckVariant(Text4NimianDuty.text)
g_oSheet4Export.Range("B" & CStr(72)) = CheckVariant(Text4UpOrgan.text)
g_oSheet4Export.Range("B" & CStr(75)) = CheckVariant(Text4OrganMaid.text)
If m_oRs4Cadre(6).EOF = False Then
i = m_oRs4Cadre(6).RecordCount
If i > 24 Then
j = i - 24
If vbYes = MsgBox("工作简历记录数超出卡片可容纳范围，将有" & j & "条记录被省略!是否继续?", vbYesNo, "提示") Then
For j = 13 To 36
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Cadre(6).Fields("START_TIME").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Cadre(6).Fields("WORK_STATION").Value)
g_oSheet4Export.Range("H" & CStr(j)) = CheckVariant(m_oRs4Cadre(6).Fields("DUTY_NAME").Value)
g_oSheet4Export.Range("I" & CStr(j)) = CheckVariant(m_oRs4Cadre(6).Fields("TECHNICAL_NAME").Value)
m_oRs4Cadre(6).MoveNext
Next
Else
g_oBook4Export.Close 1
Exit Sub
End If
Else
j = 13
Do While m_oRs4Cadre(6).EOF = False
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Cadre(6).Fields("START_TIME").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Cadre(6).Fields("WORK_STATION").Value)
g_oSheet4Export.Range("H" & CStr(j)) = CheckVariant(m_oRs4Cadre(6).Fields("DUTY_NAME").Value)
g_oSheet4Export.Range("I" & CStr(j)) = CheckVariant(m_oRs4Cadre(6).Fields("TECHNICAL_NAME").Value)
j = j + 1
m_oRs4Cadre(6).MoveNext
Loop
End If
End If
If m_oRs4Cadre(2).EOF = False Then
i = m_oRs4Cadre(2).RecordCount
If i > 9 Then
j = i - 9
If vbYes = MsgBox("奖励情况录数超出卡片可容纳范围，将有" & j & "条记录被省略!是否继续?", vbYesNo, "提示") Then
For j = 39 To 47
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Cadre(2).Fields("reward").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Cadre(2).Fields("reward_name").Value)
g_oSheet4Export.Range("H" & CStr(j)) = CheckVariant(m_oRs4Cadre(2).Fields("reward_level_name").Value)
m_oRs4Cadre(2).MoveNext
Next
Else
g_oBook4Export.Close 1
Exit Sub
End If
Else
j = 39
Do While m_oRs4Cadre(2).EOF = False
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Cadre(2).Fields("reward").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Cadre(2).Fields("reward_name").Value)
g_oSheet4Export.Range("H" & CStr(j)) = CheckVariant(m_oRs4Cadre(2).Fields("reward_level_name").Value)
j = j + 1
m_oRs4Cadre(2).MoveNext
Loop
End If
End If
If m_oRs4Cadre(3).EOF = False Then
i = m_oRs4Cadre(3).RecordCount
If i > 3 Then
j = i - 3
If vbYes = MsgBox("惩戒情况记录数超出卡片可容纳范围，将有" & j & "条记录被省略!是否继续?", vbYesNo, "提示") Then
For j = 48 To 50
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Cadre(3).Fields("PUNISH_TIME").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Cadre(3).Fields("PUNISH_TYPE_name").Value)
g_oSheet4Export.Range("H" & CStr(j)) = CheckVariant(m_oRs4Cadre(3).Fields("PUNISH_STATION").Value)
m_oRs4Cadre(3).MoveNext
Next
Else
g_oBook4Export.Close 1
Exit Sub
End If
Else
j = 48
Do While m_oRs4Cadre(3).EOF = False
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Cadre(3).Fields("PUNISH_TIME").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Cadre(3).Fields("PUNISH_TYPE_name").Value)
g_oSheet4Export.Range("H" & CStr(j)) = CheckVariant(m_oRs4Cadre(3).Fields("PUNISH_STATION").Value)
j = j + 1
m_oRs4Cadre(3).MoveNext
Loop
End If
End If
If m_oRs4Cadre(4).EOF = False Then
i = m_oRs4Cadre(4).RecordCount
If i > 5 Then
j = i - 5
If vbYes = MsgBox("年度考核结果记录数超出卡片可容纳范围，将有" & j & "条记录被省略!是否继续?", vbYesNo, "提示") Then
For j = 51 To 55
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Cadre(4).Fields("TIME").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Cadre(4).Fields("CHECK_RESULT").Value)
m_oRs4Cadre(4).MoveNext
Next
Else
g_oBook4Export.Close 1
Exit Sub
End If
Else
j = 51
Do While m_oRs4Cadre(4).EOF = False
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Cadre(4).Fields("TIME").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Cadre(4).Fields("CHECK_RESULT").Value)
j = j + 1
m_oRs4Cadre(4).MoveNext
Loop
End If
End If
If m_oRs4Cadre(5).EOF = False Then
i = m_oRs4Cadre(5).RecordCount
If i > 13 Then
j = i - 13
If vbYes = MsgBox("家庭成员记录数超出卡片可容纳范围，将有" & j & "条记录被省略!是否继续?", vbYesNo, "提示") Then
For j = 59 To 71
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Cadre(5).Fields("SOCIATY_RELATION_name").Value)
g_oSheet4Export.Range("C" & CStr(j)) = CheckVariant(m_oRs4Cadre(5).Fields("name").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Cadre(5).Fields("birthday").Value)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -