📄 frmpreparecadre.frm
字号:
_ExtentY = 741
_Version = 65536
BorderStyle = 0
SpinOrientation = 1
SpinButtonWidth = 40
End
Begin VB.Label Label14
Caption = "备注"
Height = 345
Left = 90
TabIndex = 35
Top = 3330
Width = 1440
End
Begin VB.Label Label13
Caption = "证书名称"
Height = 345
Left = 3180
TabIndex = 33
Top = 2925
Width = 1485
End
Begin VB.Label Label12
Caption = "举办单位"
Height = 345
Left = 3180
TabIndex = 32
Top = 1305
Width = 1485
End
Begin VB.Label Label11
Caption = "毕业时间"
Height = 345
Left = 3180
TabIndex = 30
Top = 2520
Width = 1485
End
Begin VB.Label Label10
Caption = "培训类别"
Height = 345
Left = 90
TabIndex = 27
Top = 2520
Width = 1440
End
Begin VB.Label Label4Unit
Caption = "工作单位"
Height = 345
Left = 90
TabIndex = 26
Top = 90
Width = 1440
End
Begin VB.Label Label4EmpName
Caption = "本人姓名"
Height = 345
Left = 90
TabIndex = 25
Top = 495
Width = 1440
End
Begin VB.Label Label1
Caption = "学历培训层次"
Height = 345
Left = 90
TabIndex = 24
Top = 900
Width = 1440
End
Begin VB.Label Label2
Caption = "学历培训方式"
Height = 345
Left = 90
TabIndex = 23
Top = 1305
Width = 1440
End
Begin VB.Label Label3
Caption = "培训内容代码"
Height = 345
Left = 90
TabIndex = 22
Top = 1710
Width = 1440
End
Begin VB.Label Label4
Caption = "培训级别"
Height = 345
Left = 90
TabIndex = 21
Top = 2115
Width = 1440
End
Begin VB.Label Label5
Caption = "培训班编号"
Height = 345
Left = 3180
TabIndex = 20
Top = 495
Width = 1485
End
Begin VB.Label Label6
Caption = "培训班名称"
Height = 345
Left = 3180
TabIndex = 19
Top = 900
Width = 1485
End
Begin VB.Label Label7
Caption = "培训天数"
Height = 345
Left = 90
TabIndex = 18
Top = 2925
Width = 1440
End
Begin VB.Label Label4StartTime
Caption = "起始时间"
Height = 345
Left = 3180
TabIndex = 17
Top = 2115
Width = 1485
End
Begin VB.Label Label9
Caption = "培训地点"
Height = 345
Left = 3180
TabIndex = 16
Top = 1710
Width = 1485
End
End
End
Attribute VB_Name = "frmOETrain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_oRs4This As New ADODB.Recordset
Private m_strSQL As String
Private Sub Command4Close_Click()
Unload Me
End Sub
Private Sub Command4Save_Click()
Dim strNewOrgan As String
Me.SSComboBoxEx4Content.CheckList = True
Me.SSComboBoxEx4Education.CheckList = True
Me.SSComboBoxEx4Level.CheckList = True
Me.SSComboBoxEx4Name.CheckList = True
Me.SSComboBoxEx4Sort.CheckList = True
Me.SSComboBoxEx4Way.CheckList = True
If Trim(Me.SSComboBoxEx4Company.text) = "" And Trim(Me.SSComboBoxEx4Large.text) = "" And Trim(Me.SSComboBoxEx4Small.text) = "" Then
MsgBox "必须选择一个工作单位", vbOKOnly, "提示"
Exit Sub
End If
If Trim(Me.SSComboBoxEx4Name.text) = "" Then
MsgBox "必须选择一个人员", vbOKOnly, "提示"
Exit Sub
End If
If IsNull(Me.DTPicker4Start.Value) Then
MsgBox "必须选择一个起始时间", vbOKOnly, "提示"
Exit Sub
End If
strNewOrgan = HaveOrganNo(Me.SSComboBoxEx4Small, Me.SSComboBoxEx4Large, Me.SSComboBoxEx4Company, Me.SSComboBoxEx4Organ)
If g_int4statuse = 0 Then
m_strSQL = "insert into T_TRAIN(EMP_NO,organ_no,START_TIME,EDUCATION_NO,EDUCATION_LEVEL_WAY_NO,TRAIN_CONTENT_NO,TRAIN_LEVEL_NO,TRAIN_SORT_NO,TRAIN_CLASS_NO,TRAIN_CLASS_NAME,TRAIN_DAYS," _
& "TRAIN_PLACE,GRADUCATION_TIME,CONDUCT_UNITS,GAIN_CERTIFICATE,CERTIFICATE_NAME,NOTE,TRAIN_NO) values(" _
& Me.SSComboBoxEx4Name.ItemData(Me.SSComboBoxEx4Name.ListIndex) & ",'" & HaveOrganNo(Me.SSComboBoxEx4Small, Me.SSComboBoxEx4Large, Me.SSComboBoxEx4Company, Me.SSComboBoxEx4Organ) & "'," _
& ConvertDate2Int(Me.DTPicker4Start.Value) & ","
If Trim(SSComboBoxEx4Education.text) <> "" Then
m_strSQL = m_strSQL & SSComboBoxEx4Education.ItemData(SSComboBoxEx4Education.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
If Trim(SSComboBoxEx4Way.text) <> "" Then
m_strSQL = m_strSQL & SSComboBoxEx4Way.ItemData(SSComboBoxEx4Way.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
If Trim(SSComboBoxEx4Content.text) <> "" Then
m_strSQL = m_strSQL & SSComboBoxEx4Content.ItemData(SSComboBoxEx4Content.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
If Trim(SSComboBoxEx4Level.text) <> "" Then
m_strSQL = m_strSQL & SSComboBoxEx4Level.ItemData(SSComboBoxEx4Level.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
If Trim(SSComboBoxEx4Sort.text) <> "" Then
m_strSQL = m_strSQL & SSComboBoxEx4Sort.ItemData(SSComboBoxEx4Sort.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "'" & Text4Code.text & "','" & Text4ClassName.text & "'," & CSQL(Me.Text4Days.text, 0) & ",'" & Text4Place.text & "',"
If Me.DTPicker4Graducation.Value <> "" Then
m_strSQL = m_strSQL & ConvertDate2Int(Me.DTPicker4Graducation.Value) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "'" & SSComboBoxEx4ImportOrgan.text & "'," & Me.Check4Ok.Value & ",'" & Me.Text4Name.text & "','" & Text4Note.text & "'," & GetMaxNo("T_TRAIN", "TRAIN_NO") & ")"
Else
m_strSQL = "update T_TRAIN set START_TIME=" & ConvertDate2Int(Me.DTPicker4Start.Value) & ",EDUCATION_NO="
If Trim(SSComboBoxEx4Education.text) <> "" Then
m_strSQL = m_strSQL & SSComboBoxEx4Education.ItemData(SSComboBoxEx4Education.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "EDUCATION_LEVEL_WAY_NO="
If Trim(SSComboBoxEx4Way.text) <> "" Then
m_strSQL = m_strSQL & SSComboBoxEx4Way.ItemData(SSComboBoxEx4Way.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "TRAIN_CONTENT_NO="
If Trim(SSComboBoxEx4Content.text) <> "" Then
m_strSQL = m_strSQL & SSComboBoxEx4Content.ItemData(SSComboBoxEx4Content.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "TRAIN_LEVEL_NO="
If Trim(SSComboBoxEx4Level.text) <> "" Then
m_strSQL = m_strSQL & SSComboBoxEx4Level.ItemData(SSComboBoxEx4Level.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "TRAIN_SORT_NO="
If Trim(SSComboBoxEx4Sort.text) <> "" Then
m_strSQL = m_strSQL & SSComboBoxEx4Sort.ItemData(SSComboBoxEx4Sort.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "TRAIN_CLASS_NO='" & Text4Code.text & "',TRAIN_CLASS_NAME='" & Text4ClassName.text & "',TRAIN_DAYS=" & Me.Text4Days.text & ",TRAIN_PLACE='" & Text4Place.text & "',GRADUCATION_TIME="
If Me.DTPicker4Graducation.Value <> "" Then
m_strSQL = m_strSQL & ConvertDate2Int(Me.DTPicker4Graducation.Value) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "CONDUCT_UNITS='" & SSComboBoxEx4ImportOrgan.text & "',GAIN_CERTIFICATE=" & Me.Check4Ok.Value _
& ",CERTIFICATE_NAME='" & Me.Text4Name.text & "',NOTE='" & Text4Note.text & "',organ_no='" & strNewOrgan & "',emp_no=" & Me.SSComboBoxEx4Name.ItemData(Me.SSComboBoxEx4Name.ListIndex) _
& " where TRAIN_NO=" & g_array4WorkerType(2, SSSpin4CadreCount.text) & " and organ_no='" & g_array4WorkerType(1, SSSpin4CadreCount.text) & "'"
End If
If ExcuteSQL(m_strSQL) = 0 Then
MsgBox "保存完毕!", vbOKOnly, "成功"
If g_int4statuse = 0 Then
ClearText
Else
If g_int4rowstate = 1 Then
Unload Me
Else
g_array4WorkerType(1, SSSpin4CadreCount.text) = strNewOrgan
End If
End If
End If
End Sub
Private Sub ClearText()
Me.Command4Close.Enabled = False
SSComboBoxEx4Company.text = ""
SSComboBoxEx4Large.text = ""
SSComboBoxEx4Small.text = ""
SSComboBoxEx4Name.text = ""
SSComboBoxEx4Education.text = ""
SSComboBoxEx4Way.text = ""
SSComboBoxEx4Content.text = ""
SSComboBoxEx4Level.text = ""
SSComboBoxEx4Sort.text = ""
Text4Days.text = ""
Text4Code.text = ""
Text4ClassName.text = ""
SSComboBoxEx4ImportOrgan.text = ""
Text4Place.text = ""
DTPicker4Graducation.Value = ""
Text4Name.text = ""
Text4Note.text = ""
Me.Check4Ok.Value = Unchecked
Me.Command4Close.Enabled = True
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then SendKeys "{tab}"
End Sub
Private Sub Form_Load()
Me.Height = 4545
Me.Width = 7950
Me.Command4Close.Enabled = False
Me.Label4Unit.ForeColor = g_ForeColor4NotNullFields
Me.Label4EmpName.ForeColor = g_ForeColor4NotNullFields
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -