📄 frmabroad.frm
字号:
_ExtentX = 2461
_ExtentY = 556
_Version = 65536
End
Begin ActiveInput.SSComboBoxEx SSComboBoxEx4Large
Height = 315
Left = 4245
TabIndex = 7
Top = 90
Width = 1335
_ExtentX = 2355
_ExtentY = 556
_Version = 65536
End
Begin ActiveInput.SSComboBoxEx SSComboBoxEx4Small
Height = 315
Left = 5640
TabIndex = 8
Top = 90
Width = 1335
_ExtentX = 2355
_ExtentY = 556
_Version = 65536
End
Begin ActiveInput.SSSpin SSSpin4CadreCount
CausesValidation= 0 'False
Height = 420
Left = 90
TabIndex = 30
Top = 3270
Width = 1020
_ExtentX = 1799
_ExtentY = 741
_Version = 65536
BorderStyle = 0
SpinOrientation = 1
SpinButtonWidth = 40
End
Begin VB.Label Label4OtherName
Caption = "社会关系人姓名"
Height = 600
Left = 90
TabIndex = 31
Top = 2610
Width = 1020
End
Begin VB.Label Label9
Caption = "工作时间"
Height = 360
Left = 2790
TabIndex = 25
Top = 1770
Width = 1395
End
Begin VB.Label Label8
Caption = "出生日期"
Height = 360
Left = 2790
TabIndex = 23
Top = 2190
Width = 1395
End
Begin VB.Label Label7
Caption = "职务"
Height = 360
Left = 2790
TabIndex = 21
Top = 1350
Width = 1395
End
Begin VB.Label Label6
Caption = "职称"
Height = 360
Left = 2790
TabIndex = 19
Top = 930
Width = 1395
End
Begin VB.Label Label5
Caption = "工作单位"
Height = 360
Left = 2790
TabIndex = 17
Top = 510
Width = 1395
End
Begin VB.Label Label4
Caption = "政治面貌"
Height = 360
Left = 90
TabIndex = 15
Top = 2190
Width = 1020
End
Begin VB.Label Label3
Caption = "学历"
Height = 360
Left = 90
TabIndex = 13
Top = 1770
Width = 1020
End
Begin VB.Label Label2
Caption = "工种"
Height = 360
Left = 90
TabIndex = 11
Top = 1350
Width = 1020
End
Begin VB.Label Label1
Caption = "社会关系"
Height = 360
Left = 90
TabIndex = 9
Top = 930
Width = 1020
End
Begin VB.Label Label4EmpName
Caption = "本人姓名"
Height = 360
Left = 90
TabIndex = 4
Top = 510
Width = 1020
End
Begin VB.Label Label4Unit
Caption = "工作单位"
Height = 360
Left = 90
TabIndex = 3
Top = 90
Width = 1020
End
End
End
Attribute VB_Name = "frmOESoceityRelation"
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
SSComboBoxEx4Ducation.CheckList = True
Me.SSComboBoxEx4Name.CheckList = True
Me.SSComboBoxEx4Politcs.CheckList = True
Me.SSComboBoxEx4Socity.CheckList = True
Me.SSComboBoxEx4Type.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 Trim(Me.Text4Name.text) = "" Then
MsgBox "必须选择一个社会关系人姓名", vbOKOnly, "提示"
Exit Sub
End If
If Option4Man.Value = False And Option4Woman.Value = False 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_SOCIETY_RELATION(EMP_NO,organ_no,NAME,SOCIATY_RELATION_NO,WORKER_TYPE_NO," _
& "EDUCATION_NO,POLITICS_NO,WORK_STATION,SEX,TECHNICAL_NAME,BIRTHDAY,WORK_TIME,DUTY,SOCIETY_RELATION_NO) values(" _
& Me.SSComboBoxEx4Name.ItemData(Me.SSComboBoxEx4Name.ListIndex) & ",'" & HaveOrganNo(Me.SSComboBoxEx4Small, Me.SSComboBoxEx4Large, Me.SSComboBoxEx4Company, Me.SSComboBoxEx4Organ) & "','" _
& Me.Text4Name.text & "',"
If Trim(SSComboBoxEx4Socity.text) <> "" Then
m_strSQL = m_strSQL & SSComboBoxEx4Socity.ItemData(SSComboBoxEx4Socity.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
If Trim(SSComboBoxEx4Type.text) <> "" Then
m_strSQL = m_strSQL & SSComboBoxEx4Type.ItemData(SSComboBoxEx4Type.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
If Trim(SSComboBoxEx4Ducation.text) <> "" Then
m_strSQL = m_strSQL & SSComboBoxEx4Ducation.ItemData(SSComboBoxEx4Ducation.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
If Trim(SSComboBoxEx4Politcs.text) <> "" Then
m_strSQL = m_strSQL & SSComboBoxEx4Politcs.ItemData(SSComboBoxEx4Politcs.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "'" & Text4State.text & "',"
If Me.Option4Man.Value = True Then
m_strSQL = m_strSQL & "1,"
Else
m_strSQL = m_strSQL & "2,"
End If
m_strSQL = m_strSQL & "'" & Text4Technical.text & "',"
If Me.DTPicker4Birthday.Value <> "" Then
m_strSQL = m_strSQL & ConvertDate2Int(Me.DTPicker4Birthday.Value) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
If Me.DTPicker4Work.Value <> "" Then
m_strSQL = m_strSQL & ConvertDate2Int(Me.DTPicker4Work.Value) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "'" & Text4Duty.text & "'," & GetMaxNo("t_society_relation", "society_relation_no") & ")"
Else
m_strSQL = "update T_SOCIETY_RELATION set NAME='" & Me.Text4Name.text & "',SOCIATY_RELATION_NO="
If Trim(SSComboBoxEx4Socity.text) <> "" Then
m_strSQL = m_strSQL & SSComboBoxEx4Socity.ItemData(SSComboBoxEx4Socity.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "WORKER_TYPE_NO="
If Trim(SSComboBoxEx4Type.text) <> "" Then
m_strSQL = m_strSQL & SSComboBoxEx4Type.ItemData(SSComboBoxEx4Type.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "EDUCATION_NO="
If Trim(SSComboBoxEx4Ducation.text) <> "" Then
m_strSQL = m_strSQL & SSComboBoxEx4Ducation.ItemData(SSComboBoxEx4Ducation.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "POLITICS_NO="
If Trim(SSComboBoxEx4Politcs.text) <> "" Then
m_strSQL = m_strSQL & SSComboBoxEx4Politcs.ItemData(SSComboBoxEx4Politcs.ListIndex) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "WORK_STATION='" & Text4State.text & "',SEX="
If Me.Option4Man.Value = True Then
m_strSQL = m_strSQL & "1,"
Else
m_strSQL = m_strSQL & "2,"
End If
m_strSQL = m_strSQL & "TECHNICAL_NAME='" & Text4Technical.text & "',BIRTHDAY="
If Me.DTPicker4Birthday.Value <> "" Then
m_strSQL = m_strSQL & ConvertDate2Int(Me.DTPicker4Birthday.Value) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "WORK_TIME="
If Me.DTPicker4Work.Value <> "" Then
m_strSQL = m_strSQL & ConvertDate2Int(Me.DTPicker4Work.Value) & ","
Else
m_strSQL = m_strSQL & "null,"
End If
m_strSQL = m_strSQL & "DUTY='" & Text4Duty.text & "',organ_no='" & strNewOrgan & "',emp_no=" & Me.SSComboBoxEx4Name.ItemData(Me.SSComboBoxEx4Name.ListIndex) & " where SOCIETY_RELATION_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 = ""
SSComboBoxEx4Socity.text = ""
SSComboBoxEx4Type.text = ""
SSComboBoxEx4Ducation.text = ""
SSComboBoxEx4Politcs.text = ""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -