📄 frmcadreedit.frm
字号:
Begin ActiveInput.SSComboBoxEx SSComboBoxEx4Small
Height = 315
Left = 1485
TabIndex = 35
Top = 495
Width = 1635
_ExtentX = 2884
_ExtentY = 556
_Version = 65536
End
Begin VB.Label Label4TechnicalSpecialty
Caption = "技术专业"
Height = 345
Left = 3180
TabIndex = 33
Top = 1620
Width = 1530
End
Begin VB.Label Label4StationName
Caption = "岗位名称"
Height = 345
Left = 90
TabIndex = 32
Top = 1620
Width = 1335
End
Begin VB.Label Label4Name
Caption = "姓名"
Height = 315
Left = 3180
TabIndex = 31
Top = 495
Width = 1530
End
Begin VB.Label Label4FactoryOrgan
Caption = "厂(处)级单位"
Height = 345
Left = 90
TabIndex = 0
Top = 90
Width = 1335
End
Begin VB.Label Label4AppointedType
Caption = "任干形式"
Height = 315
Left = 90
TabIndex = 30
Top = 870
Width = 1335
End
Begin VB.Label Label4AppointedTime
Caption = "任干时间"
Height = 315
Left = 3180
TabIndex = 29
Top = 870
Width = 1530
End
Begin VB.Label Label4CadreSort
Caption = "干部类别"
Height = 315
Left = 90
TabIndex = 28
Top = 1245
Width = 1335
End
Begin VB.Label Label4OccupationSort
Caption = "行业分类"
Height = 315
Left = 3180
TabIndex = 27
Top = 3120
Width = 1530
End
Begin VB.Label Label4Duty
Caption = "岗位职务"
Height = 300
Left = 90
TabIndex = 26
Top = 2025
Width = 1335
End
Begin VB.Label Label4DutySpecialty
Caption = "职务专业"
Height = 300
Left = 3180
TabIndex = 25
Top = 2385
Width = 1530
End
Begin VB.Label Label4TechnicalDuty
Caption = "技术职务"
Height = 300
Left = 90
TabIndex = 24
Top = 2385
Width = 1335
End
Begin VB.Label Label4DutyLevel
Caption = "职务级别"
Height = 300
Left = 3180
TabIndex = 23
Top = 2025
Width = 1530
End
Begin VB.Label Label4AppointerInstance
Caption = "聘任情况"
Height = 315
Left = 90
TabIndex = 22
Top = 2745
Width = 1335
End
Begin VB.Label Label4WorkProperty
Caption = "工作性质"
Height = 315
Left = 3180
TabIndex = 21
Top = 1245
Width = 1530
End
Begin VB.Label Label4EngageSpecialty
Caption = "从事专业"
Height = 315
Left = 90
TabIndex = 20
Top = 3120
Width = 1335
End
Begin VB.Label Label4EmployedTime
Caption = "聘任时间"
Height = 315
Left = 3180
TabIndex = 19
Top = 2745
Width = 1530
End
Begin VB.Label Label4Pluralty
Caption = "兼职"
Height = 345
Left = 90
TabIndex = 18
Top = 3495
Width = 1335
End
End
End
Attribute VB_Name = "frmCadreEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_oRs4CadreEdit As New ADODB.Recordset
Private m_strSQL As String
Private Sub Command4Close_Click()
Unload Me
End Sub
Private Sub Command4Save_Click()
Dim strNewOrganNo As String
Dim lNewEmpNo As Long
If Trim(Me.SSComboBoxEx4Name.text) = "" Then
MsgBox "人员姓名不能为空，请输入人员姓名!", vbOKOnly, "警告"
SSComboBoxEx4Name.SetFocus
Exit Sub
End If
If Trim(Combo4CadreSort.text) = "" Then
MsgBox "干部类别不能为空，请输入干部类别!", vbOKOnly, "警告"
Combo4CadreSort.SetFocus
Exit Sub
End If
SSComboBoxEx4Name.CheckList = True
lNewEmpNo = Me.SSComboBoxEx4Name.ItemData(Me.SSComboBoxEx4Name.ListIndex)
strNewOrganNo = HaveOrganNo(Me.SSComboBoxEx4Small, Me.SSComboBoxEx4Large, Me.SSComboBoxEx4Company, Me.SSComboBoxEx4Organ)
If g_int4statuse = 0 Then
m_strSQL = "insert into T_CADRE(EMP_NO,ORGAN_no,ENGAGE_SPECIALTY_NO,DUTY_SPECIALTY_NO,APPOINTED_TYPE_NO,DUTY_NO,CADRE_SORT_NO," _
& " OCCUPATION_SORT_NO,WORK_PROPERTY_NO,DUTY_LEVEL_NO,TECHNICAL_DUTY_NO,STATION_NAME,TECHNICAL_SPECIALTY,APPOINTED_TIME,APPOINTER_INSTANCE,EMPLOYED_TIME,PLURALITY)" _
& "values(" & lNewEmpNo & ",'" & strNewOrganNo & "',"
If Trim(Me.Combo4EngageSpecialty.text) <> "" Then
m_strSQL = m_strSQL & Combo4EngageSpecialty.ItemData(Combo4EngageSpecialty.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
If Trim(Combo4DutySpecialty.text) <> "" Then
m_strSQL = m_strSQL & Combo4DutySpecialty.ItemData(Combo4DutySpecialty.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
If Trim(Combo4AppointedType.text) <> "" Then
m_strSQL = m_strSQL & Combo4AppointedType.ItemData(Combo4AppointedType.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
If Trim(Combo4Duty.text) <> "" Then
m_strSQL = m_strSQL & Combo4Duty.ItemData(Combo4Duty.ListIndex)
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & Me.Combo4CadreSort.ItemData(Me.Combo4CadreSort.ListIndex) & ","
If Trim(Combo4OccupationSort.text) <> "" Then
m_strSQL = m_strSQL & Combo4OccupationSort.ItemData(Combo4OccupationSort.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
If Trim(Combo4WorkProperty.text) <> "" Then
m_strSQL = m_strSQL & Combo4WorkProperty.ItemData(Combo4WorkProperty.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
If Trim(Combo4DutyLevel.text) <> "" Then
m_strSQL = m_strSQL & Combo4DutyLevel.ItemData(Combo4DutyLevel.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
If Trim(Combo4TechnicalDuty.text) <> "" Then
m_strSQL = m_strSQL & Combo4TechnicalDuty.ItemData(Combo4TechnicalDuty.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "'" & Text4StationName.text & "','" & Text4TechnicalSpecialty.text & "'," & ConvertDate2Int(DTPicker4AppointedTime.Value) & ",'" & Me.Text4AppointedInstance.text & "',"
If IsNull(Me.DTPicker4EmployedTime.Value) Then
m_strSQL = m_strSQL & "null"
Else
m_strSQL = m_strSQL & ConvertDate2Int(DTPicker4EmployedTime.Value)
End If
m_strSQL = m_strSQL & ",'" & Me.Text4Pluralty.text & "')"
If ExcuteSQL(m_strSQL) = 0 Then
MsgBox "保存完毕!", vbOKOnly, "提示"
Me.Command4Close.Enabled = False
ClearData
Me.Command4Close.Enabled = True
End If
Else
m_strSQL = "update T_CADRE set EMP_NO=" & lNewEmpNo & ",ORGAN_no='" & strNewOrganNo & "',ENGAGE_SPECIALTY_NO="
If Trim(Me.Combo4EngageSpecialty.text) <> "" Then
m_strSQL = m_strSQL & Combo4EngageSpecialty.ItemData(Combo4EngageSpecialty.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "DUTY_SPECIALTY_NO="
If Trim(Combo4DutySpecialty.text) <> "" Then
m_strSQL = m_strSQL & Combo4DutySpecialty.ItemData(Combo4DutySpecialty.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "APPOINTED_TYPE_NO="
If Trim(Combo4AppointedType.text) <> "" Then
m_strSQL = m_strSQL & Combo4AppointedType.ItemData(Combo4AppointedType.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "DUTY_NO="
If Trim(Combo4Duty.text) <> "" Then
m_strSQL = m_strSQL & Combo4Duty.ItemData(Combo4Duty.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "CADRE_SORT_NO=" & Combo4CadreSort.ItemData(Combo4CadreSort.ListIndex) & ",OCCUPATION_SORT_NO="
If Trim(Combo4OccupationSort.text) <> "" Then
m_strSQL = m_strSQL & Combo4OccupationSort.ItemData(Combo4OccupationSort.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "WORK_PROPERTY_NO="
If Trim(Combo4WorkProperty.text) <> "" Then
m_strSQL = m_strSQL & Combo4WorkProperty.ItemData(Combo4WorkProperty.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "DUTY_LEVEL_NO="
If Trim(Combo4DutyLevel.text) <> "" Then
m_strSQL = m_strSQL & Combo4DutyLevel.ItemData(Combo4DutyLevel.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "TECHNICAL_DUTY_NO="
If Trim(Combo4TechnicalDuty.text) <> "" Then
m_strSQL = m_strSQL & Combo4TechnicalDuty.ItemData(Combo4TechnicalDuty.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "STATION_NAME='" & Text4StationName.text & "',TECHNICAL_SPECIALTY='" & Text4TechnicalSpecialty.text _
& "',APPOINTED_TIME=" & ConvertDate2Int(DTPicker4AppointedTime.Value) & ",APPOINTER_INSTANCE='" & Text4AppointedInstance.text & "',EMPLOYED_TIME="
If IsNull(Me.DTPicker4EmployedTime.Value) Then
m_strSQL = m_strSQL & "null"
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -