📄 frmcadrecard.frm
字号:
ResizeFonts = 0 'False
GridRows = 7
GridCols = 4
_GridInfo = $"frmCadreCard.frx":032F
Begin VB.TextBox Text4Competence
Height = 345
Left = 5070
TabIndex = 55
Top = 2220
Width = 2280
End
Begin VB.TextBox Text4School
Height = 300
Left = 5070
TabIndex = 54
Top = 1860
Width = 2280
End
Begin VB.TextBox Text4CheckTime
Height = 345
Left = 1395
TabIndex = 53
Top = 2220
Width = 2295
End
Begin VB.TextBox Text4Master
Height = 300
Left = 5070
TabIndex = 52
Top = 1500
Width = 2280
End
Begin VB.TextBox Text4CadreTime
Height = 300
Left = 1395
TabIndex = 51
Top = 1860
Width = 2295
End
Begin VB.TextBox Text4PartyTime
Height = 300
Left = 1395
TabIndex = 50
Top = 1500
Width = 2295
End
Begin VB.TextBox Text4WorkTime
Height = 330
Left = 1395
TabIndex = 49
Top = 1110
Width = 2295
End
Begin VB.TextBox Text4Nation
Height = 330
Left = 5070
TabIndex = 48
Top = 1110
Width = 2280
End
Begin VB.TextBox Text4EducationLevel
Height = 300
Left = 5070
TabIndex = 47
Top = 750
Width = 2280
End
Begin VB.TextBox Text4Birthday
Height = 300
Left = 1395
TabIndex = 46
Top = 750
Width = 2295
End
Begin VB.TextBox Text4Sex
Height = 315
Left = 5070
TabIndex = 45
Top = 375
Width = 2280
End
Begin VB.TextBox Text4Name
Height = 315
Left = 1395
TabIndex = 44
Top = 375
Width = 2295
End
Begin VB.Label Label4Competence
Caption = "资格名称"
Height = 345
Left = 3750
TabIndex = 67
Top = 2220
Width = 1260
End
Begin VB.Label Label4School
Caption = "毕业学校及专业"
Height = 300
Left = 3750
TabIndex = 66
Top = 1860
Width = 1260
End
Begin VB.Label Label4CheckTime
Caption = "考评时间"
Height = 345
Left = 90
TabIndex = 65
Top = 2220
Width = 1245
End
Begin VB.Label Label4Master
Caption = "外语及掌握程度"
Height = 300
Left = 3750
TabIndex = 64
Top = 1500
Width = 1260
End
Begin VB.Label Label4CadreTime
Caption = "任干时间"
Height = 300
Left = 90
TabIndex = 63
Top = 1860
Width = 1245
End
Begin VB.Label Label4PartyTime
Caption = "入党时间"
Height = 300
Left = 90
TabIndex = 62
Top = 1500
Width = 1245
End
Begin VB.Label Label4WorkTime
Caption = "工作时间"
Height = 330
Left = 90
TabIndex = 61
Top = 1110
Width = 1245
End
Begin VB.Label Label4Nation
Caption = "籍贯"
Height = 330
Left = 3750
TabIndex = 60
Top = 1110
Width = 1260
End
Begin VB.Label Label4EducationLevel
Caption = "学历"
Height = 300
Left = 3750
TabIndex = 59
Top = 750
Width = 1260
End
Begin VB.Label Label4Birthday
Caption = "出生日期"
Height = 300
Left = 90
TabIndex = 58
Top = 750
Width = 1245
End
Begin VB.Label Label4Sex
Caption = "性别"
Height = 315
Left = 3750
TabIndex = 57
Top = 375
Width = 1260
End
Begin VB.Label Label4Name
Caption = "姓名"
Height = 315
Left = 90
TabIndex = 56
Top = 375
Width = 1245
End
End
End
End
End
End
Attribute VB_Name = "frmCadreCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_oRs4CadreCard As New ADODB.Recordset
Private m_oRs4Cadre(1 To 7) As New ADODB.Recordset
Private m_strsql4Cadre As String
Private m_strSQL As String
Const C_CADRE_RESUME = 0
Const C_CADRE_APPOINT = 1
Const C_SUPPORT_CADRE = 2
Private Sub Command4Close_Click()
Unload Me
End Sub
Private Sub Command4MakeCard_Click()
Dim i As Long
Dim j As Long
Select Case vsIndexTab4CadreCard.CurrTab
Case C_CADRE_RESUME
'工作简历'
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(1).State = adStateOpen Then m_oRs4Cadre(1).Close
m_oRs4Cadre(1).Open m_strsql4Cadre, g_oConnection4This, adOpenKeyset, adLockOptimistic
'社会关系'
m_strsql4Cadre = "select T_SOCIATY_RELATION_CODE.SOCIATY_RELATION_name,t_SOCIETY_RELATION.name,t_POLITICS.POLITICS_name," _
& " t_SOCIETY_RELATION.WORK_STATION , t_SOCIETY_RELATION.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(2).State = adStateOpen Then m_oRs4Cadre(2).Close
m_oRs4Cadre(2).Open m_strsql4Cadre, g_oConnection4This, adOpenKeyset, adLockOptimistic
If ExportExcel(, , "CadreCard\干部情况简表", App.Path & "\报表结果") = False Then
MsgBox "生成人员卡片错误!", vbCritical, "错误"
Exit Sub
Else
g_oSheet4Export.Range("C" & CStr(2)) = CheckVariant(Text4Name.text)
g_oSheet4Export.Range("E" & CStr(2)) = CheckVariant(Text4Sex.text)
g_oSheet4Export.Range("G" & CStr(2)) = CheckVariant(Text4Birthday.text)
g_oSheet4Export.Range("C" & CStr(3)) = CheckVariant(Text4EducationLevel.text)
g_oSheet4Export.Range("E" & CStr(3)) = CheckVariant(Text4Native.text)
g_oSheet4Export.Range("G" & CStr(3)) = CheckVariant(Text4Nation.text)
g_oSheet4Export.Range("C" & CStr(4)) = CheckVariant(Text4WorkTime.text)
g_oSheet4Export.Range("E" & CStr(4)) = CheckVariant(Text4PartyTime.text)
g_oSheet4Export.Range("G" & CStr(4)) = CheckVariant(Text4CadreTime.text)
g_oSheet4Export.Range("C" & CStr(5)) = CheckVariant(Text4School.text)
g_oSheet4Export.Range("H" & CStr(5)) = CheckVariant(Text4Master.text)
g_oSheet4Export.Range("C" & CStr(6)) = CheckVariant(Text4Competence.text)
g_oSheet4Export.Range("H" & CStr(6)) = CheckVariant(Text4CheckTime.text)
g_oSheet4Export.Range("B" & CStr(7)) = CheckVariant(Text4GraduateTime.text)
g_oSheet4Export.Range("D" & CStr(7)) = CheckVariant(Text4EducationLevel.text)
If m_oRs4CadreCard.EOF = False Then
g_oSheet4Export.Range("F" & CStr(7)) = CheckVariant(m_oRs4CadreCard.Fields("GRADUATE_SCHOOL").Value)
g_oSheet4Export.Range("H" & CStr(7)) = CheckVariant(m_oRs4CadreCard.Fields("GRADUATE_SPECIALTY").Value)
Else
g_oSheet4Export.Range("F" & CStr(7)) = ""
g_oSheet4Export.Range("H" & CStr(7)) = ""
End If
If m_oRs4Cadre(1).EOF = False Then
i = m_oRs4Cadre(1).RecordCount
If i > 15 Then
j = i - 15
If vbYes = MsgBox("工作简历记录数超出卡片可容纳范围，将有" & j & "条记录被省略!是否继续?", vbYesNo, "提示") Then
For j = 11 To 25
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)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -