📄 frmempcard.frm
字号:
m_strSQL = " select (cast(REWARD_DATE/10000 as varchar(4))+'年'+cast(REWARD_DATE%10000/100 as varchar(2))+'月') REWARD_DATE, " _
& " REWARD_LEVEL_name , REWARD_SORT_Name, REWARD_EMP_ORGAN, REWARD_NAME, REWARD_REASON, t_reward.FILE_CODE, CONTENT " _
& " from t_emp_basic left join T_REWARD on T_REWARD.emp_no=t_emp_basic.emp_no and T_REWARD.organ_no=t_emp_basic.organ_no " _
& " left join t_REWARD_LEVEL on t_REWARD_LEVEL.REWARD_LEVEL_NO=t_reward.REWARD_LEVEL_NO " _
& " left join t_REWARD_SORT on t_REWARD_SORT.REWARD_SORT_NO=t_reward.REWARD_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(5).State = adStateOpen Then m_oRs4Emp(5).Close
m_oRs4Emp(5).Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
' /*工作简历*/
m_strSQL = " select (cast(START_TIME/10000 as varchar(4))+'年'+cast(START_TIME%10000/100 as varchar(2))+'月') START_TIME,TECHNICAL_NAME_LEVEL_Name,DUTY_LEVEL_Name,WORKER_TYPE_Name,WORK_STATION, " _
& " case PLURALISM_MARK when 1 then '是' when 2 then '否' end PLURALISM_MARK,TECHNICAL_NAME,DUTY_NAME,t_work_vita.FILE_CODE from t_emp_basic left join T_WORK_VITA on T_WORK_VITA.emp_no=t_emp_basic.emp_no and T_WORK_VITA.organ_no=t_emp_basic.organ_NO " _
& " left join t_TECHNICAL_NAME_LEVEL on t_TECHNICAL_NAME_LEVEL.TECHNICAL_NAME_LEVEL_NO=t_work_vita.TECHNICAL_NAME_LEVEL_NO left join t_DUTY_LEVEL on t_DUTY_LEVEL.DUTY_LEVEL_NO=t_work_vita.DUTY_LEVEL_NO left join t_WORKER_TYPE on t_WORKER_TYPE.WORKER_TYPE_NO=t_work_vita.WORKER_TYPE_NO " _
& " Where T_EMP_BASIC.EMP_NO=" & g_array4WorkerType(1, 1) & " and T_EMP_BASIC.ORGAN_NO='" & g_array4WorkerType(2, 1) & "'"
If m_oRs4Emp(6).State = adStateOpen Then m_oRs4Emp(6).Close
m_oRs4Emp(6).Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
If m_oRs4Emp(1).EOF = False Then
i = m_oRs4Emp(1).RecordCount
If i > 4 Then
j = i - 4
If vbYes = MsgBox("社会关系记录数超出卡片可容纳范围，将有" & j & "条记录被省略!是否继续?", vbYesNo, "提示") Then
For j = 31 To 34
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("name").Value)
g_oSheet4Export.Range("C" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("SOCIATY_RELATION_Name").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("WORKER_TYPE_Name").Value)
g_oSheet4Export.Range("E" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("EDUCATION_Name").Value)
g_oSheet4Export.Range("F" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("POLITICS_Name").Value)
g_oSheet4Export.Range("G" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("WORK_STATION").Value)
g_oSheet4Export.Range("H" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("sex").Value)
g_oSheet4Export.Range("I" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("TECHNICAL_NAME").Value)
g_oSheet4Export.Range("J" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("birthday").Value)
g_oSheet4Export.Range("K" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("work_time").Value)
g_oSheet4Export.Range("L" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("DUTY").Value)
m_oRs4Emp(1).MoveNext
Next
Else
g_oBook4Export.Close 1
Exit Sub
End If
Else
j = 31
Do While m_oRs4Emp(1).EOF = False
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("name").Value)
g_oSheet4Export.Range("C" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("SOCIATY_RELATION_Name").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("WORKER_TYPE_Name").Value)
g_oSheet4Export.Range("E" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("EDUCATION_Name").Value)
g_oSheet4Export.Range("F" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("POLITICS_Name").Value)
g_oSheet4Export.Range("G" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("WORK_STATION").Value)
g_oSheet4Export.Range("H" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("sex").Value)
g_oSheet4Export.Range("I" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("TECHNICAL_NAME").Value)
g_oSheet4Export.Range("J" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("birthday").Value)
g_oSheet4Export.Range("K" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("work_time").Value)
g_oSheet4Export.Range("L" & CStr(j)) = CheckVariant(m_oRs4Emp(1).Fields("DUTY").Value)
j = j + 1
m_oRs4Emp(1).MoveNext
Loop
End If
End If
If m_oRs4Emp(2).EOF = False Then
i = m_oRs4Emp(2).RecordCount
If i > 4 Then
j = i - 4
If vbYes = MsgBox("论文论著记录数超出卡片可容纳范围，将有" & j & "条记录被省略!是否继续?", vbYesNo, "提示") Then
For j = 36 To 39
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Emp(2).Fields("ARTICLE_LABLE").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Emp(2).Fields("ARTICLE_NAME").Value)
g_oSheet4Export.Range("F" & CStr(j)) = CheckVariant(m_oRs4Emp(2).Fields("ARTICLE_PLACE").Value)
g_oSheet4Export.Range("G" & CStr(j)) = CheckVariant(m_oRs4Emp(2).Fields("ARTICLE_GAIN").Value)
g_oSheet4Export.Range("I" & CStr(j)) = CheckVariant(m_oRs4Emp(2).Fields("PUBLISH_TIME").Value)
g_oSheet4Export.Range("K" & CStr(j)) = CheckVariant(m_oRs4Emp(2).Fields("BOOK_CODE").Value)
m_oRs4Emp(2).MoveNext
Next
Else
g_oBook4Export.Close 1
Exit Sub
End If
Else
j = 36
Do While m_oRs4Emp(2).EOF = False
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Emp(2).Fields("ARTICLE_LABLE").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Emp(2).Fields("ARTICLE_NAME").Value)
g_oSheet4Export.Range("F" & CStr(j)) = CheckVariant(m_oRs4Emp(2).Fields("ARTICLE_PLACE").Value)
g_oSheet4Export.Range("G" & CStr(j)) = CheckVariant(m_oRs4Emp(2).Fields("ARTICLE_GAIN").Value)
g_oSheet4Export.Range("I" & CStr(j)) = CheckVariant(m_oRs4Emp(2).Fields("PUBLISH_TIME").Value)
g_oSheet4Export.Range("K" & CStr(j)) = CheckVariant(m_oRs4Emp(2).Fields("BOOK_CODE").Value)
j = j + 1
m_oRs4Emp(2).MoveNext
Loop
End If
End If
If m_oRs4Emp(3).EOF = False Then
i = m_oRs4Emp(3).RecordCount
If i > 4 Then
j = i - 4
If vbYes = MsgBox("学历简历记录数超出卡片可容纳范围，将有" & j & "条记录被省略!是否继续?", vbYesNo, "提示") Then
For j = 46 To 49
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Emp(3).Fields("GRADUCATE_TIME").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Emp(3).Fields("DEGREE_Name").Value)
g_oSheet4Export.Range("E" & CStr(j)) = CheckVariant(m_oRs4Emp(3).Fields("EDUCATION_Name").Value)
g_oSheet4Export.Range("F" & CStr(j)) = CheckVariant(m_oRs4Emp(3).Fields("GRADUCATE_MARK").Value)
g_oSheet4Export.Range("G" & CStr(j)) = CheckVariant(m_oRs4Emp(3).Fields("GRADUCATE_SCHOOL").Value)
g_oSheet4Export.Range("I" & CStr(j)) = CheckVariant(m_oRs4Emp(3).Fields("STUDY_SPECIALTY").Value)
g_oSheet4Export.Range("J" & CStr(j)) = CheckVariant(m_oRs4Emp(3).Fields("EDU_LEVEL_CERTIFICATE_CODE").Value)
g_oSheet4Export.Range("K" & CStr(j)) = CheckVariant(m_oRs4Emp(3).Fields("EDU_SYSTEM").Value)
g_oSheet4Export.Range("L" & CStr(j)) = CheckVariant(m_oRs4Emp(3).Fields("EDU_DEGREE_CERTIFICATE_CODE").Value)
m_oRs4Emp(3).MoveNext
Next
Else
g_oBook4Export.Close 1
Exit Sub
End If
Else
j = 46
Do While m_oRs4Emp(3).EOF = False
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Emp(3).Fields("GRADUCATE_TIME").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Emp(3).Fields("DEGREE_Name").Value)
g_oSheet4Export.Range("E" & CStr(j)) = CheckVariant(m_oRs4Emp(3).Fields("EDUCATION_Name").Value)
g_oSheet4Export.Range("F" & CStr(j)) = CheckVariant(m_oRs4Emp(3).Fields("GRADUCATE_MARK").Value)
g_oSheet4Export.Range("G" & CStr(j)) = CheckVariant(m_oRs4Emp(3).Fields("GRADUCATE_SCHOOL").Value)
g_oSheet4Export.Range("I" & CStr(j)) = CheckVariant(m_oRs4Emp(3).Fields("STUDY_SPECIALTY").Value)
g_oSheet4Export.Range("J" & CStr(j)) = CheckVariant(m_oRs4Emp(3).Fields("EDU_LEVEL_CERTIFICATE_CODE").Value)
g_oSheet4Export.Range("K" & CStr(j)) = CheckVariant(m_oRs4Emp(3).Fields("EDU_SYSTEM").Value)
g_oSheet4Export.Range("L" & CStr(j)) = CheckVariant(m_oRs4Emp(3).Fields("EDU_DEGREE_CERTIFICATE_CODE").Value)
j = j + 1
m_oRs4Emp(3).MoveNext
Loop
End If
End If
If m_oRs4Emp(4).EOF = False Then
i = m_oRs4Emp(4).RecordCount
If i > 4 Then
j = i - 4
If vbYes = MsgBox("行政处罚记录数超出卡片可容纳范围，将有" & j & "条记录被省略!是否继续?", vbYesNo, "提示") Then
For j = 51 To 54
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Emp(4).Fields("PUNISH_TIME").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Emp(4).Fields("PUNISH_REASON_Name").Value)
g_oSheet4Export.Range("F" & CStr(j)) = CheckVariant(m_oRs4Emp(4).Fields("PUNISH_TYPE_Name").Value)
g_oSheet4Export.Range("H" & CStr(j)) = CheckVariant(m_oRs4Emp(4).Fields("PUNISH_SORT_Name").Value)
g_oSheet4Export.Range("J" & CStr(j)) = CheckVariant(m_oRs4Emp(4).Fields("PUNISH_STATION").Value)
g_oSheet4Export.Range("L" & CStr(j)) = CheckVariant(m_oRs4Emp(4).Fields("FILE_CODE").Value)
m_oRs4Emp(4).MoveNext
Next
Else
g_oBook4Export.Close 1
Exit Sub
End If
Else
j = 51
Do While m_oRs4Emp(4).EOF = False
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Emp(4).Fields("PUNISH_TIME").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Emp(4).Fields("PUNISH_REASON_Name").Value)
g_oSheet4Export.Range("F" & CStr(j)) = CheckVariant(m_oRs4Emp(4).Fields("PUNISH_TYPE_Name").Value)
g_oSheet4Export.Range("H" & CStr(j)) = CheckVariant(m_oRs4Emp(4).Fields("PUNISH_SORT_Name").Value)
g_oSheet4Export.Range("J" & CStr(j)) = CheckVariant(m_oRs4Emp(4).Fields("PUNISH_STATION").Value)
g_oSheet4Export.Range("L" & CStr(j)) = CheckVariant(m_oRs4Emp(4).Fields("FILE_CODE").Value)
j = j + 1
m_oRs4Emp(4).MoveNext
Loop
End If
End If
If m_oRs4Emp(5).EOF = False Then
i = m_oRs4Emp(5).RecordCount
If i > 5 Then
j = i - 5
If vbYes = MsgBox("行政奖励记录数超出卡片可容纳范围，将有" & j & "条记录被省略!是否继续?", vbYesNo, "提示") Then
For j = 56 To 60
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Emp(5).Fields("REWARD_DATE").Value)
g_oSheet4Export.Range("C" & CStr(j)) = CheckVariant(m_oRs4Emp(5).Fields("REWARD_LEVEL_name").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Emp(5).Fields("REWARD_SORT_Name").Value)
g_oSheet4Export.Range("E" & CStr(j)) = CheckVariant(m_oRs4Emp(5).Fields("REWARD_EMP_ORGAN").Value)
g_oSheet4Export.Range("G" & CStr(j)) = CheckVariant(m_oRs4Emp(5).Fields("REWARD_NAME").Value)
g_oSheet4Export.Range("H" & CStr(j)) = CheckVariant(m_oRs4Emp(5).Fields("REWARD_REASON").Value)
g_oSheet4Export.Range("J" & CStr(j)) = CheckVariant(m_oRs4Emp(5).Fields("FILE_CODE").Value)
g_oSheet4Export.Range("K" & CStr(j)) = CheckVariant(m_oRs4Emp(5).Fields("CONTENT").Value)
m_oRs4Emp(5).MoveNext
Next
Else
g_oBook4Export.Close 1
Exit Sub
End If
Else
j = 56
Do While m_oRs4Emp(5).EOF = False
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Emp(5).Fields("REWARD_DATE").Value)
g_oSheet4Export.Range("C" & CStr(j)) = CheckVariant(m_oRs4Emp(5).Fields("REWARD_LEVEL_name").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Emp(5).Fields("REWARD_SORT_Name").Value)
g_oSheet4Export.Range("E" & CStr(j)) = CheckVariant(m_oRs4Emp(5).Fields("REWARD_EMP_ORGAN").Value)
g_oSheet4Export.Range("G" & CStr(j)) = CheckVariant(m_oRs4Emp(5).Fields("REWARD_NAME").Value)
g_oSheet4Export.Range("H" & CStr(j)) = CheckVariant(m_oRs4Emp(5).Fields("REWARD_REASON").Value)
g_oSheet4Export.Range("J" & CStr(j)) = CheckVariant(m_oRs4Emp(5).Fields("FILE_CODE").Value)
g_oSheet4Export.Range("K" & CStr(j)) = CheckVariant(m_oRs4Emp(5).Fields("CONTENT").Value)
j = j + 1
m_oRs4Emp(5).MoveNext
Loop
End If
End If
If m_oRs4Emp(6).EOF = False Then
i = m_oRs4Emp(6).RecordCount
If i > 4 Then
j = i - 4
If vbYes = MsgBox("工作简历记录数超出卡片可容纳范围，将有" & j & "条记录被省略!是否继续?", vbYesNo, "提示") Then
For j = 41 To 44
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Emp(6).Fields("START_TIME").Value)
g_oSheet4Export.Range("C" & CStr(j)) = CheckVariant(m_oRs4Emp(6).Fields("TECHNICAL_NAME_LEVEL_Name").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Emp(6).Fields("DUTY_LEVEL_Name").Value)
g_oSheet4Export.Range("E" & CStr(j)) = CheckVariant(m_oRs4Emp(6).Fields("WORKER_TYPE_Name").Value)
g_oSheet4Export.Range("F" & CStr(j)) = CheckVariant(m_oRs4Emp(6).Fields("WORK_STATION").Value)
g_oSheet4Export.Range("H" & CStr(j)) = CheckVariant(m_oRs4Emp(6).Fields("PLURALISM_MARK").Value)
g_oSheet4Export.Range("I" & CStr(j)) = CheckVariant(m_oRs4Emp(6).Fields("TECHNICAL_NAME").Value)
g_oSheet4Export.Range("J" & CStr(j)) = CheckVariant(m_oRs4Emp(6).Fields("DUTY_NAME").Value)
g_oSheet4Export.Range("L" & CStr(j)) = CheckVariant(m_oRs4Emp(6).Fields("FILE_CODE").Value)
m_oRs4Emp(6).MoveNext
Next
Else
g_oBook4Export.Close 1
Exit Sub
End If
Else
j = 41
Do While m_oRs4Emp(6).EOF = False
g_oSheet4Export.Range("B" & CStr(j)) = CheckVariant(m_oRs4Emp(6).Fields("START_TIME").Value)
g_oSheet4Export.Range("C" & CStr(j)) = CheckVariant(m_oRs4Emp(6).Fields("TECHNICAL_NAME_LEVEL_Name").Value)
g_oSheet4Export.Range("D" & CStr(j)) = CheckVariant(m_oRs4Emp(6).Fields("DUTY_LEVEL_Name").Value)
g_oSheet4Export.Range("E" & CStr(j)) = CheckVariant(m_oRs4Emp(6).Fields("WORKER_TYPE_Name").Value)
g_oSheet4Export.Range("F" & CStr(j)) = CheckVariant(m_oRs4Emp(6).Fields("WORK_STATION").Value)
g_oSheet4Export.Range("H" & CStr(j)) = CheckVariant(m_oRs4Emp(6).Fields("PLURALISM_MARK").Value)
g_oSheet4Export.Range("I" & CStr(j)) = CheckVariant(m_oRs4Emp(6).Fields("TECHNICAL_NAME").Value)
g_oSheet4Export.Range("J" & CStr(j)) = CheckVariant(m_oRs4Emp(6).Fields("DUTY_NAME").Value)
g_oSheet4Export.Range("L" & CStr(j)) = CheckVariant(m_oRs4Emp(6).Fields("FILE_CODE").Value)
j = j + 1
m_oRs4Emp(6).MoveNext
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -