frmempbasic.frm

本公司开发得大请油田人事管理系统c/s结构

            Begin VB.Label Label1 
               Caption         =   "出生日期"
               Height          =   330
               Left            =   2850
               TabIndex        =   22
               Top             =   1545
               Width           =   1605
            End
            Begin VB.Label Label4 
               Caption         =   "参加工作时间"
               Height          =   315
               Left            =   2850
               TabIndex        =   21
               Top             =   1170
               Width           =   1605
            End
            Begin VB.Label Label4WorkerSort 
               Caption         =   "职工类别"
               Height          =   300
               Left            =   6270
               TabIndex        =   15
               Top             =   810
               Width           =   1575
            End
            Begin VB.Label Label4UesWorker 
               Caption         =   "用工形式"
               Height          =   315
               Left            =   60
               TabIndex        =   14
               Top             =   1170
               Width           =   1140
            End
            Begin VB.Label LabelEmpName4Basic 
               Caption         =   "姓名"
               Height          =   315
               Left            =   60
               TabIndex        =   13
               Top             =   435
               Width           =   1140
            End
            Begin VB.Label LabelEmpID4Basic 
               Caption         =   "身份证号"
               Height          =   315
               Left            =   2850
               TabIndex        =   10
               Top             =   435
               Width           =   1605
            End
            Begin VB.Label LabelFactoryOrgan4Basic 
               Caption         =   "工作单位"
               Height          =   315
               Left            =   60
               TabIndex        =   5
               Top             =   60
               Width           =   1140
            End
         End
      End
   End
End
Attribute VB_Name = "frmEmpBasic"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Const COL_POS_ID_CODE As Long = 7
Const COL_POS_EDUCTION As Long = COL_POS_ID_CODE + 8
Const COL_POS_ORGAN As Long = COL_POS_EDUCTION + 12
Const COL_POS_MARK As Long = 46

Public m_oRs4EmpBasic As New ADODB.Recordset
Public m_oRs4TypeofWork As New ADODB.Recordset
Public m_oRs4CadreBasic As New ADODB.Recordset
Private m_strSQL As String
Private m_str As String
Private m_l4SplashStatus As Long   '0:frmSplash.show 1:Unload frmSplash
Private m_l4DataRefresh As Long  '0: 无数据更新 1：查询
Dim VSFlexGrid4Group As VSFlex7Ctl.VSFlexGrid
Public m_bIsSave As Boolean

Private Sub Form_Load()
    Me.Height = 5460
    Me.Width = 9540
     '1位查询，2位增加，3位修改，4位删除，5位导出到excel，6位打印,7位其他
'    If g_lOprroleNo = 0 Then
'        With Me.SSListBar4This
'            .Groups(C_FIRST_GROUP).ListItems(C_SELECT_MEMBER).ForeColor = C_UNUSE_COLOR
'            .Groups(C_SECOND_GROUP).ListItems(C_INSERT_MEMBER).ForeColor = C_USE_COLOR
'            .Groups(C_SECOND_GROUP).ListItems(C_UPDATE_MEMBER).ForeColor = C_UNUSE_COLOR
'            .Groups(C_SECOND_GROUP).ListItems(C_DELETE_MEMBER).ForeColor = C_UNUSE_COLOR
'            .Groups(C_FIRST_GROUP).ListItems(C_TO_EXCEL_MEMBER).ForeColor = C_UNUSE_COLOR
'            .Groups(C_FIRST_GROUP).ListItems(C_TO_PRN_MEMBER).ForeColor = C_UNUSE_COLOR
'            .Groups(C_FIRST_GROUP).ListItems(C_OTHER_MEMBER).ForeColor = C_UNUSE_COLOR
'        End With
'    End If
    
    Set VSFlexGrid4Group = VSFlexGroup1.FlexGrid
    
    m_l4DataRefresh = 0
    '行选择状态
    g_int4rowstate = 0
    
    '填充SSComboBoxEx
    PrcessSSComboxExFormLoad SSComboBoxExOrgan4Basic, SSComboBoxExCompany4Basic, SSComboBoxExLarge4Basic, SSComboBoxExSmall4Basic, g_str4LoginUnit, g_str4LoginUnitLevel
    PrcessSSComboxExFormLoad SSComboBoxExOrgan4Worker, SSComboBoxExCompany4Worker, SSComboBoxExLarge4Worker, SSComboBoxExSmall4Worker, g_str4LoginUnit, g_str4LoginUnitLevel
    PrcessSSComboxExFormLoad SSComboBoxExOrgan4Cadre, SSComboBoxExCompany4Cadre, SSComboBoxExLarge4Cadre, SSComboBoxExSmall4Cadre, g_str4LoginUnit, g_str4LoginUnitLevel
    If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
        SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_UPDATE_MEMBER).text = "查看"
        SSListBar4This.Groups(C_SECOND_GROUP).ListItems.Remove C_INSERT_MEMBER
        SSListBar4This.Groups(C_SECOND_GROUP).ListItems.Remove C_INSERT_MEMBER
    End If
    SSComboBoxEx4EmpSex.AddItem "男", 0
    SSComboBoxEx4EmpSex.ItemData(0) = 1
    SSComboBoxEx4EmpSex.AddItem "女", 1
    SSComboBoxEx4EmpSex.ItemData(1) = 2
    SSComboBoxEx4EmpSex.AddItem " "
    
    SSComboBoxExSex4Cadre.AddItem "男", 0
    SSComboBoxExSex4Cadre.ItemData(0) = 1
    SSComboBoxExSex4Cadre.AddItem "女", 1
    SSComboBoxExSex4Cadre.ItemData(1) = 2
    SSComboBoxExSex4Cadre.AddItem " "
    
    SSComboBoxExSex4Worker.AddItem "男", 0
    SSComboBoxExSex4Worker.ItemData(0) = 1
    SSComboBoxExSex4Worker.AddItem "女", 1
    SSComboBoxExSex4Worker.ItemData(1) = 2
    SSComboBoxExSex4Worker.AddItem " "
    FillComboBox SSComboBoxEx4WorkerSort, "T_WORKER_SORT", "WORKER_SORT_NO", "WORKER_SORT_NAME", 0
    FillComboBox SSComboBoxEx4EmpType, "T_EMP_TYPE", "EMP_TYPE_NO", "EMP_TYPE_NAME", 0
    FillComboBoxTwoFields SSComboBoxEx4EmpSort, "T_EMP_SORT", "EMP_SORT_NO", "EMP_SORT_NAME", "EMP_SORT_LEVEL_NAME", 0, , True
    FillComboBox SSComboBoxEx4CompactLimit, "T_COMPACT_LIMIT", "COMPACT_LIMIT_NO", "COMPACT_LIMIT_NAME", 0
    FillComboBox SSComboBoxEx4WorkerType, "T_WORKER_TYPE", "WORKER_TYPE_NO", "WORKER_TYPE_NAME", 0
    FillComboBox SSComboBoxEx4TechnicalGrade, "T_TECHNICAL_GRADE", "TECHNICAL_GRADE_NO", "TECHNICAL_GRADE_NAME", 0
    FillComboBox SSComboBoxEx4UseWorker, "T_USEWORK_TYPE", "USEWORKE_TYPE_NO", "USEWORK_TYPE_NAME", 0
    FillComboBox SSComboBoxExlUserWork4Worker, "T_USEWORK_TYPE", "USEWORKE_TYPE_NO", "USEWORK_TYPE_NAME", 0
    FillComboBox SSComboBoxExUserWork4Cadre, "T_USEWORK_TYPE", "USEWORKE_TYPE_NO", "USEWORK_TYPE_NAME", 0
    
    SSComboBoxEx4WorkSortProperty.AddItem "技术", 0
    SSComboBoxEx4WorkSortProperty.ItemData(0) = 1
    SSComboBoxEx4WorkSortProperty.AddItem "非技术", 1
    SSComboBoxEx4WorkSortProperty.ItemData(1) = 2
    
    SSComboBoxEx4Employ.AddItem "是", 0
    SSComboBoxEx4Employ.ItemData(0) = 1
    SSComboBoxEx4Employ.AddItem "否", 1
    SSComboBoxEx4Employ.ItemData(1) = 2
    
    FillComboBox SSComboBoxEx4CadreSort, "T_CADRE_SORT", "CADRE_SORT_NO", "CADRE_SORT_NAME", 0
    FillComboBox SSComboBoxEx4WorkProperty, "T_WORK_PROPERTY", "WORK_PROPERTY_NO", "WORK_PROPERTY_NAME", 0
    FillComboBox SSComboBoxEx4AppointedType, "T_APPOINTED_TYPE", "APPOINTED_TYPE_NO", "APPOINTED_TYPE_NAME", 0
    FillComboBox SSComboBoxEx4Duty, "T_DUTY", "DUTY_NO", "DUTY_NAME", 0
    FillComboBox SSComboBoxEx4DutyLevel, "T_DUTY_LEVEL", "DUTY_LEVEL_NO", "DUTY_LEVEL_NAME", 0
    FillComboBox SSComboBoxEx4TechnicalDuty, "T_TECHNICAL_DUTY", "TECHNICAL_DUTY_NO", "TECHNICAL_DUTY_NAME", 0
    FillComboBox SSComboBoxEx4DutySpecialty, "T_DUTY_SPECIALTY", "DUTY_SPECIALTY_NO", "DUTY_SPECIALTY_NAME", 0
    '设置DTPicker
    DTPicker4WorkTimeEnd.Format = dtpCustom
    DTPicker4WorkTimeEnd.CustomFormat = "yyyy年MM月"
    DTPicker4WorkTimeStart.Format = dtpCustom
    DTPicker4WorkTimeStart.CustomFormat = "yyyy年MM月"
    DTPicker4StartWorkTime.Format = dtpCustom
    DTPicker4StartWorkTime.CustomFormat = "yyyy年MM月"
    DTPicker4EndWorkTime.Format = dtpCustom
    DTPicker4EndWorkTime.CustomFormat = "yyyy年MM月"
    DTPicker4WorkTimeStart.Value = ""
    DTPicker4WorkTimeEnd.Value = ""
    DTPicker4BrithdayEnd.Value = ""
    DTPicker4BrithdayStart.Value = ""
    DTPicker4StartWorkTime = ""
    DTPicker4EndWorkTime = ""
    '设置VSGrid
    With VSFlexGrid4EmpBasic
        .Editable = flexEDNone
        .ColWidth(0) = .RowHeight(0)
        .FixedCols = 1
        .FixedRows = 1
        .AllowUserResizing = flexResizeColumns
        .AllowBigSelection = False
        .AllowSelection = False
        .ExplorerBar = flexExSortShow
        .SelectionMode = flexSelectionByRow
'        .ForeColorSel = vbBlue
'        .BackColorSel = vbGreen
        .ExtendLastCol = True
    End With
    '设置vsIndexTab
    vsIndexTab4This.CurrTab = 0
    Call VSFlexGrid4EmpBasic_AfterDataRefresh
    Unload frmSplash
End Sub

Private Sub InitForm()
    '1位查询，2位增加，3位修改，4位删除，5位导出到excel，6位打印,7位其他
    Dim str4CheckPermission As String
    str4CheckPermission = CheckPermission("职工基本信息")
    With SSListBar4This
        If Mid(str4CheckPermission, 1, 1) = 0 Then .Groups(C_FIRST_GROUP).ListItems(C_SELECT_MEMBER).ForeColor = C_UNUSE_COLOR
        '用于新增单位人员的录入
        If g_lOprroleNo = 0 Then
            .Groups(C_SECOND_GROUP).ListItems(C_INSERT_MEMBER).ForeColor = C_USE_COLOR
        Else
            If Mid(str4CheckPermission, 2, 1) = 0 Then .Groups(C_SECOND_GROUP).ListItems(C_INSERT_MEMBER).ForeColor = C_UNUSE_COLOR
        End If
        If Mid(str4CheckPermission, 3, 1) = 0 Then .Groups(C_SECOND_GROUP).ListItems(C_UPDATE_MEMBER).ForeColor = C_UNUSE_COLOR
        If Mid(str4CheckPermission, 4, 1) = 0 Then .Groups(C_SECOND_GROUP).ListItems(C_DELETE_MEMBER).ForeColor = C_UNUSE_COLOR
        If Mid(str4CheckPermission, 5, 1) = 0 Then .Groups(C_FIRST_GROUP).ListItems(C_TO_EXCEL_MEMBER).ForeColor = C_UNUSE_COLOR
        If Mid(str4CheckPermission, 6, 1) = 0 Then .Groups(C_FIRST_GROUP).ListItems(C_TO_PRN_MEMBER).ForeColor = C_UNUSE_COLOR
        If Mid(str4CheckPermission, 7, 1) = 0 Then .Groups(C_FIRST_GROUP).ListItems(C_OTHER_MEMBER).ForeColor = C_UNUSE_COLOR
    End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If m_oRs4EmpBasic.State = adStateOpen Then Set m_oRs4EmpBasic = Nothing
    If m_oRs4TypeofWork.State = adStateOpen Then Set m_oRs4TypeofWork = Nothing
    If m_oRs4CadreBasic.State = adStateOpen Then Set m_oRs4CadreBasic = Nothing
    MDIfrmMain.SSActiveToolBarsMain.Tools("ID_职工基本信息").Enabled = True
End Sub

Private Sub SSComboBoxEx4AppointedType_Change()
    DisplayRelateItems SSComboBoxEx4AppointedType
End Sub

Private Sub SSComboBoxEx4AppointedType_LostFocus()
    CheckValidate SSComboBoxEx4AppointedType
End Sub

Private Sub SSComboBoxEx4CadreSort_Change()
    DisplayRelateItems SSComboBoxEx4CadreSort
End Sub

Private Sub SSComboBoxEx4CadreSort_LostFocus()
    CheckValidate SSComboBoxEx4CadreSort
End Sub

Private Sub SSComboBoxEx4CompactLimit_Change()
    DisplayRelateItems SSComboBoxEx4CompactLimit
End Sub

Private Sub SSComboBoxEx4CompactLimit_LostFocus()
    CheckValidate SSComboBoxEx4CompactLimit
End Sub

Private Sub SSComboBoxEx4Duty_Change()
    DisplayRelateItems SSComboBoxEx4Duty
End Sub

Private Sub SSComboBoxEx4Duty_LostFocus()
    CheckValidate SSComboBoxEx4Duty
End Sub

Private Sub SSComboBoxEx4DutyLevel_Change()
    DisplayRelateItems SSComboBoxEx4DutyLevel
End Sub

Private Sub SSComboBoxEx4DutyLevel_LostFocus()
    CheckValidate SSComboBoxEx4DutyLevel
End Sub

Private Sub SSComboBoxEx4DutySpecialty_Change()
    DisplayRelateItems SSComboBoxEx4DutySpecialty
End Sub

Private Sub SSComboBoxEx4DutySpecialty_LostFocus()
    CheckValidate SSComboBoxEx4DutySpecialty
End Sub

Private Sub SSComboBoxEx4employ_Change()
    DisplayRelateItems SSComboBoxEx4Employ
End Sub

Private Sub SSComboBoxEx4employ_LostFocus()
    CheckValidate SSComboBoxEx4Employ
End Sub

Private Sub SSComboBoxEx4EmpSort_Change()
    DisplayRelateItems SSComboBoxEx4EmpSort
End Sub

Private Sub SSComboBoxEx4EmpSort_LostFocus()
    CheckValidate SSComboBoxEx4EmpSort
End Sub

Private Sub SSComboBoxEx4EmpType_Change()
    DisplayRelateItems SSComboBoxEx4EmpType
End Sub

Private Sub SSComboBoxEx4EmpType_LostFocus()
    CheckValidate SSComboBoxEx4EmpType
End Sub

Private Sub SSComboBoxEx4TechnicalDuty_Change()
    DisplayRelateItems SSComboBoxEx4TechnicalDuty
End Sub

Private Sub SSComboBoxEx4TechnicalDuty_LostFocus()
    CheckValidate SSComboBoxEx4TechnicalDuty
End Sub

Private Sub SSComboBoxEx4technicalGrade_Change()
    DisplayRelateItems SSComboBoxEx4TechnicalGrade
End Sub

Private Sub SSComboBoxEx4technicalGrade_LostFocus()
    CheckValidate SSComboBoxEx4TechnicalGrade
End Sub

Private Sub SSComboBoxEx4UseWorker_Change()
    DisplayRelateItems SSComboBoxEx4UseWorker
End Sub

Private Sub SSComboBoxEx4UseWorker_LostFocus()
    CheckValidate SSComboBoxEx4UseWorker
End Sub

Private Sub SSComboBoxEx4WorkerSort_Change()
    DisplayRelateItems SSComboBoxEx4WorkerSort
End Sub

Private Sub SSComboBoxEx4WorkerSort_LostFocus()
    CheckValidate SSComboBoxEx4WorkerSort
End Sub

Private Sub SSComboBoxEx4workertype_Change()