📄 frmworkersortedit.frm
字号:
MinValue = 1
DisplaySpinBar = 0 'False
End
Begin MSComCtl2.DTPicker DTPicker4WorkTime
Height = 315
Left = 6060
TabIndex = 0
Top = 780
Width = 1455
_ExtentX = 2566
_ExtentY = 556
_Version = 393216
Format = 64225280
CurrentDate = 37102
End
Begin VB.Label Label4EmpName
Caption = "姓名"
Height = 285
Left = 90
TabIndex = 13
Top = 435
Width = 1095
End
Begin VB.Label Label4Organ
Caption = "工作单位"
Height = 285
Left = 90
TabIndex = 12
Top = 90
Width = 1095
End
Begin VB.Label Label4WorkerType
Caption = "工种名称"
Height = 285
Left = 4455
TabIndex = 11
Top = 435
Width = 1545
End
Begin VB.Label Label4WorkTime
Caption = "从事本工种时间"
Height = 315
Left = 4455
TabIndex = 10
Top = 780
Width = 1545
End
Begin VB.Label Label4TechnicalGrade
Caption = "技术等级"
Height = 315
Left = 90
TabIndex = 9
Top = 780
Width = 1095
End
Begin VB.Label Label4WorkSortProperty
Caption = "工种性质"
Height = 285
Left = 4455
TabIndex = 8
Top = 1155
Width = 1545
End
Begin VB.Label Label4CertificateCode
Caption = "资格证书编码"
Height = 360
Left = 90
TabIndex = 7
Top = 1500
Width = 1095
End
Begin VB.Label Label4Employ
Caption = "资格是否在聘"
Height = 285
Left = 90
TabIndex = 6
Top = 1155
Width = 1095
End
End
End
Attribute VB_Name = "frmWorkerSortEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_oRs4WorkerSortEdit As New ADODB.Recordset
Private m_strSQL As String
Private Sub Command4Save_Click()
Dim strNewOrganNo As String
Dim lNewEmpNo As Long
If Trim(Me.SSComboBoxEx4Name.text) = "" Then MsgBox "人员姓名不能为空，请输入人员姓名!", vbOKOnly, "警告": Exit Sub
If Trim(Me.SSComboBoxEx4Organ.text) = "" And Trim(Me.SSComboBoxEx4Company.text) = "" And Trim(Me.SSComboBoxEx4Large.text) = "" And Trim(Me.SSComboBoxEx4Small.text) = "" Then MsgBox "工作单位不能为空，请输入工作单位!", vbOKOnly, "警告": Exit Sub
If Trim(Me.SSComboBoxEx4Employ.text) = "" Then
MsgBox "必须选择资格是否在聘", vbOKOnly, "提示"
Exit Sub
Me.SSComboBoxEx4Employ.SetFocus
End If
Me.SSComboBoxEx4Company.CheckList = True
Me.SSComboBoxEx4Employ.CheckList = True
Me.SSComboBoxEx4Large.CheckList = True
Me.SSComboBoxEx4Name.CheckList = True
Me.SSComboBoxEx4Organ.CheckList = True
Me.SSComboBoxEx4Small.CheckList = True
Me.SSComboBoxEx4TechnicalGrade.CheckList = True
Me.SSComboBoxEx4workertype.CheckList = True
Me.SSComboBoxEx4WorkSortProperty.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_WORKER_SORT_MESSAGE(EMP_NO,organ_no,WORKER_TYPE_NO,TECHNICAL_GRADE_NO,WORK_SORT_PROPERTY,WORK_TIME,CERTIFICATE_CODE,EMPLOY) values(" _
& lNewEmpNo & ",'" & strNewOrganNo & "'"
If Trim(Me.SSComboBoxEx4workertype.text) <> "" Then
m_strSQL = m_strSQL & "," & Me.SSComboBoxEx4workertype.ItemData(Me.SSComboBoxEx4workertype.ListIndex)
Else
m_strSQL = m_strSQL & ",null"
End If
If Trim(Me.SSComboBoxEx4TechnicalGrade.text) <> "" Then
m_strSQL = m_strSQL & "," & Me.SSComboBoxEx4TechnicalGrade.ItemData(Me.SSComboBoxEx4TechnicalGrade.ListIndex)
Else
m_strSQL = m_strSQL & ",null"
End If
If Trim(Me.SSComboBoxEx4WorkSortProperty.text) <> "" Then
m_strSQL = m_strSQL & "," & Me.SSComboBoxEx4WorkSortProperty.ItemData(Me.SSComboBoxEx4WorkSortProperty.ListIndex)
Else
m_strSQL = m_strSQL & ",null"
End If
If Not IsNull(Me.DTPicker4WorkTime.Value) Then
m_strSQL = m_strSQL & "," & CSQL(ConvertDate2Int(Me.DTPicker4WorkTime.Value))
Else
m_strSQL = m_strSQL & ",null"
End If
If Trim(Me.Text4CertificateCode.text) <> "" Then
m_strSQL = m_strSQL & "," & CSQL(Me.Text4CertificateCode.text)
Else
m_strSQL = m_strSQL & ",null"
End If
If Trim(Me.SSComboBoxEx4Employ.text) <> "" Then
m_strSQL = m_strSQL & ",'" & Me.SSComboBoxEx4Employ.ItemData(Me.SSComboBoxEx4Employ.ListIndex) & "'"
Else
m_strSQL = m_strSQL & ",1"
End If
m_strSQL = m_strSQL & ")"
If ExcuteSQL(m_strSQL) = 0 Then
MsgBox "保存完毕！", vbOKOnly, "成功"
Me.Command4Close.Enabled = False
ClearText
Me.Command4Close.Enabled = True
End If
Else
m_strSQL = "update t_worker_sort_message set emp_no=" & lNewEmpNo & ","
If Trim(Me.SSComboBoxEx4workertype.text) <> "" Then
m_strSQL = m_strSQL & "worker_type_no=" & Me.SSComboBoxEx4workertype.ItemData(Me.SSComboBoxEx4workertype.ListIndex) & ","
Else
m_strSQL = m_strSQL & "worker_type_no=null,"
End If
If Trim(Me.SSComboBoxEx4TechnicalGrade.text) <> "" Then
m_strSQL = m_strSQL & "TECHNICAL_GRADE_NO=" & Me.SSComboBoxEx4TechnicalGrade.ItemData(Me.SSComboBoxEx4TechnicalGrade.ListIndex) & ","
Else
m_strSQL = m_strSQL & "TECHNICAL_GRADE_NO=null,"
End If
If Trim(Me.SSComboBoxEx4WorkSortProperty.text) <> "" Then
m_strSQL = m_strSQL & "WORK_SORT_PROPERTY=" & Me.SSComboBoxEx4WorkSortProperty.ItemData(Me.SSComboBoxEx4WorkSortProperty.ListIndex) & ","
Else
m_strSQL = m_strSQL & "WORK_SORT_PROPERTY=null,"
End If
If Not IsNull(Me.DTPicker4WorkTime.Value) Then
m_strSQL = m_strSQL & "WORK_TIME=" & CSQL(ConvertDate2Int(Me.DTPicker4WorkTime.Value)) & ","
Else
m_strSQL = m_strSQL & "WORK_TIME=null,"
End If
If Trim(Me.Text4CertificateCode.text) <> "" Then
m_strSQL = m_strSQL & "CERTIFICATE_CODE=" & CSQL(Trim(Me.Text4CertificateCode.text)) & ","
Else
m_strSQL = m_strSQL & "CERTIFICATE_CODE=null,"
End If
If Trim(Me.SSComboBoxEx4Employ.text) <> "" Then
m_strSQL = m_strSQL & "EMPLOY =" & Me.SSComboBoxEx4Employ.ItemData(Me.SSComboBoxEx4Employ.ListIndex) & ","
Else
m_strSQL = m_strSQL & "EMPLOY =null,"
End If
m_strSQL = m_strSQL & "organ_no = '" & strNewOrganNo & "' "
m_strSQL = m_strSQL & " where emp_no=" & lNewEmpNo & " and organ_no like '" & strNewOrganNo & "'"
If ExcuteSQL(m_strSQL) = 0 Then
MsgBox "保存完毕!", vbOKOnly, "成功"
If g_int4rowstate = 1 Then
Unload Me
Else
g_array4WorkerType(2, Me.SSSpin4WorkerCount.text) = strNewOrganNo
g_array4WorkerType(1, Me.SSSpin4WorkerCount.text) = lNewEmpNo
End If
End If
End If
End Sub
Private Sub SSComboBoxEx4Company_Change()
If Me.Command4Close.Enabled = False Then Exit Sub
DisplayRelateItems SSComboBoxEx4Company
End Sub
Private Sub SSComboBoxEx4Company_GotFocus()
If Me.Command4Close.Enabled = False Then Exit Sub
SSComboBoxEx4Organ.CheckList = True
FillComboBox SSComboBoxEx4Company, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and left(ORGAN_NO,6) like '" & SSComboBoxEx4Organ.ItemData(SSComboBoxEx4Organ.ListIndex) & "' and organ_level=2 " & HaveOrganMark
End Sub
Private Sub SSComboBoxEx4Company_LostFocus()
If Me.Command4Close.Enabled = False Then Exit Sub
CheckValidate Me.SSComboBoxEx4Company
Me.SSComboBoxEx4Large.text = ""
Me.SSComboBoxEx4Small.text = ""
Me.SSComboBoxEx4Name.text = ""
End Sub
Private Sub SSComboBoxEx4employ_Change()
DisplayRelateItems SSComboBoxEx4Employ
End Sub
Private Sub SSComboBoxEx4Employ_GotFocus()
CheckValidate Me.SSComboBoxEx4Employ
Me.SSComboBoxEx4Employ.CheckList = True
End Sub
Private Sub SSComboBoxEx4large_Change()
If Me.Command4Close.Enabled = False Then Exit Sub
DisplayRelateItems SSComboBoxEx4Large
End Sub
Private Sub SSComboBoxEx4large_LostFocus()
If Me.Command4Close.Enabled = False Then Exit Sub
CheckValidate SSComboBoxEx4Large
Me.SSComboBoxEx4Small.text = ""
Me.SSComboBoxEx4Name.text = ""
End Sub
Private Sub SSComboBoxEx4Large_GotFocus()
If Me.Command4Close.Enabled = False Then Exit Sub
If Trim(Me.SSComboBoxEx4Company.text) <> "" Then
SSComboBoxEx4Company.CheckList = True
FillComboBox SSComboBoxEx4Large, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=12 and left(ORGAN_NO,9) like '" & SSComboBoxEx4Company.ItemData(SSComboBoxEx4Company.ListIndex) & "' and organ_level=1 " & HaveOrganMark
Else
SSComboBoxEx4Organ.CheckList = True
FillComboBox SSComboBoxEx4Large, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and left(ORGAN_NO,6) like '" & SSComboBoxEx4Organ.ItemData(SSComboBoxEx4Organ.ListIndex) & "' and organ_level=1 " & HaveOrganMark
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -