frmunit.frm

一套比较完整的VB开发的员工请假管理系统

         Width           =   6495
         _ExtentX        =   11456
         _ExtentY        =   3625
         _Version        =   393216
         BackColorBkg    =   -2147483643
         _NumberOfBands  =   1
         _Band(0).Cols   =   2
      End
      Begin MSHierarchicalFlexGridLib.MSHFlexGrid flexDepart 
         Height          =   2055
         Left            =   120
         TabIndex        =   17
         Top             =   1320
         Width           =   6495
         _ExtentX        =   11456
         _ExtentY        =   3625
         _Version        =   393216
         BackColor       =   -2147483634
         Cols            =   3
         FixedCols       =   0
         BackColorSel    =   -2147483646
         ForeColorSel    =   -2147483628
         BackColorBkg    =   -2147483628
         GridLinesFixed  =   0
         ScrollBars      =   2
         AllowUserResizing=   3
         Appearance      =   0
         BeginProperty FontFixed {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         _NumberOfBands  =   1
         _Band(0).Cols   =   3
         _Band(0).GridLinesBand=   0
         _Band(0).TextStyleBand=   0
         _Band(0).TextStyleHeader=   0
      End
   End
End
Attribute VB_Name = "frmUnit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private lngDepartID As Variant
Private lngEduId As Variant
Private lngJobId As Variant
Private lngTitelID As Variant
Private lngPliticsID As Variant
Private lngLtID As Variant
Private lngLSID As Variant
Private lngMsID As Variant
Private strDepartName As String
Private strEduName As String
Private strJobName As String
Private strTitelName As String
Private strPliticsName As String
Private strLtName As String
Private strLSName As String
Private strMsName As String

Private intPreviousTab As Integer

Private Sub IniGrid(ByVal flexGrid As MSHFlexGrid)
   
    flexGrid.Clear
    With flexGrid
        .Cols = 3
        .Rows = 2
        .FixedCols = 0
        .FixedRows = 1
        .SelectionMode = flexSelectionByRow
        .TextMatrix(0, 1) = "编号"
        Select Case .Name
            Case "flexDepart"
               .TextMatrix(0, 2) = "部门名称"
            Case "flexEdu"
                .TextMatrix(0, 2) = "学历名称"
            Case "flexJob"
                .TextMatrix(0, 2) = "职务名称"
            Case "flexTitel"
                .TextMatrix(0, 2) = "职称名称"
            Case "flexPli"
                .TextMatrix(0, 2) = "政治面貌"
            Case "flexLt"
                .TextMatrix(0, 2) = "请假类型"
            Case "flexLs"
                .TextMatrix(0, 2) = "销假标志"
            Case "flexMs"
                .TextMatrix(0, 2) = "婚姻状况"

        End Select
        
        .ScrollBars = flexScrollBarVertical
        .GridLines = flexGridNone
        .GridLinesFixed = flexGridNone
        '.AllowBigSelection = True
        .AllowUserResizing = flexResizeNone
        
        
        .ColWidth(0) = 1
        .ColWidth(1) = 1000
        .ColWidth(2) = 5410
        .ColAlignment(1) = 3
        .ColAlignment(2) = 0
        .ColAlignmentFixed(1) = 3
        
        .FillStyle = flexFillSingle
        .ScrollTrack = True
        .Row = 1
        .Col = 0
        .RowSel = 1
        .ColSel = .Cols - 1
        
        
    End With
End Sub
Private Sub showdata(ByVal Recordset As ADODB.Recordset, ByVal flexGrid As MSHFlexGrid)
   Dim i As Integer
   Dim j As Integer
   
   
   If Recordset.RecordCount > 0 Then
        Recordset.MoveFirst
        With flexGrid
            .Row = 1
            While Not Recordset.EOF
                .Rows = .Rows + 1
                For i = 1 To Recordset.Fields.Count
                    .Col = i
                   If (.Row Mod 2) = 0 Then
                        .CellBackColor = &HF4D3A6
                        
                    Else
                        .CellBackColor = vbWhite
                    End If
                    .Text = Recordset.Fields(i - 1)
                    
                Next i
                .Row = .Row + 1
                Recordset.MoveNext
            Wend
             '.Col = 1
            
             .Row = 1
             .Col = 0
             .RowSel = 1
             .ColSel = .Cols - 1
             '.Row = 1
        End With
        
   End If
End Sub

Private Sub IniGridstyle()
    
End Sub
Private Sub GetRecordIdName(ByVal flex As MSHFlexGrid, lngRecordId As Variant, strRecordName As String)
    If flex.Row <> 0 Then
        If flex.TextMatrix(flex.Row, 1) <> Empty Then
            lngRecordId = flex.TextMatrix(flex.Row, 1)
            strRecordName = flex.TextMatrix(flex.Row, 2)
           
          
        Else
            lngRecordId = -1
            strRecordName = Empty
        End If
    End If
End Sub


Private Sub Picture1_Click()

End Sub

Private Function SavetoRecords(ByVal rctSave As ADODB.Recordset, ByVal firstField_value As Variant, ByVal secondField_value As String) As Boolean
    On Error GoTo Save_Error
        rctSave.Fields(0).Value = firstField_value
        rctSave.Fields(1).Value = secondField_value
        rctSave.Update
        SavetoRecords = True
        Exit Function
Save_Error:
        If Err.Number <> 0 Then
            rctSave.CancelUpdate
            SavetoRecords = False
            MsgBox "错误代码:" & Err.Number & vbCrLf & _
                    "错误描述:" & Err.Description, vbCritical + vbOKOnly, "保存记录失败"
        Else
            SavetoRecords = True
        End If
            
End Function
Public Function RecordDelete(ByVal rstDelete As ADODB.Recordset, ByVal strOption As Long) As Boolean
    If (rstDelete.EOF = True) Or (rstDelete.BOF = True) Then
        RecordDelete = False
        Exit Function
    End If
    On Error GoTo Delete_error
        rstDelete.Delete strOption
        rstDelete.Update
        RecordDelete = True
        rstDelete.Update
Delete_error:
        If Err.Number <> 0 Then
        rstDelete.CancelUpdate
        RecordDelete = False
        MsgBox "错误代码:" & Err.Number & vbCrLf & _
                "错误描述:" & Err.Description, vbCritical + vbOKOnly, "删除错误"
        Else
          RecordDelete = True
          rstDelete.Update
        End If
    
End Function

Private Sub Command1_Click()

MsgBox rctTitelList.BOF & rctTitelList.EOF
End Sub

Private Sub flexDepart_SelChange()

  Call GetRecordIdName(flexDepart, lngDepartID, strDepartName)

    If lngDepartID <> -1 Then
        txtDepartId.Text = lngDepartID
        txtDepartName.Text = strDepartName
       
        rctDepartList.MoveFirst
        rctDepartList.Find ("Depart_ID = " & CStr(lngDepartID))
       
        
       
        
    Else
        txtDepartId.Text = Empty
        txtDepartName.Text = Empty
    End If
   
End Sub

Private Sub flexEdu_SelChange()
     Call GetRecordIdName(flexEdu, lngEduId, strEduName)

    If lngEduId <> -1 Then
        txtEduId.Text = lngEduId
        txtEduName.Text = strEduName
       
        rctEdulevel.MoveFirst
        rctEdulevel.Find ("E_ID = " & (lngEduId))
       
        
       
        
    Else
        txtEduId.Text = Empty
        txtEduName.Text = Empty
    End If
End Sub

Private Sub flexJob_SelChange()
    Call GetRecordIdName(flexJob, lngJobId, strJobName)

    If lngJobId <> -1 Then
        txtJobId.Text = lngJobId
        txtJobName.Text = strJobName
       
        rctJobList.MoveFirst
        rctJobList.Find ("Job_ID = " & (lngJobId))
       
        
       
        
    Else
        txtJobId.Text = Empty
        txtJobName.Text = Empty
    End If

End Sub

Private Sub flexLs_SelChange()
    Call GetRecordIdName(flexLs, lngLSID, strLSName)

    If lngLSID <> -1 Then
        txtLsID.Text = lngLSID
        txtLsName.Text = strLSName
       
        rctLeavelStatus.MoveFirst
        rctLeavelStatus.Find ("LS_ID = " & (lngLSID))
       
        
       
        
    Else
        txtLsID.Text = Empty
        txtLsName.Text = Empty
    End If

End Sub

Private Sub flexLt_SelChange()
    Call GetRecordIdName(flexLt, lngLtID, strLtName)

    If lngLtID <> -1 Then
        txtLtID.Text = lngLtID
        txtLtName.Text = strLtName
       
        rctLeavelType.MoveFirst
        rctLeavelType.Find ("Leavel_ID = " & (lngLtID))
       
        
       
        
    Else
        txtLtID.Text = Empty
        txtLtName.Text = Empty
    End If

End Sub

Private Sub flexMs_SelChange()
 Call GetRecordIdName(flexMs, lngMsID, strMsName)

    If lngMsID <> -1 Then
        txtMsID.Text = lngMsID
        txtMsName.Text = strMsName
       
        rctMarriageStatus.MoveFirst
        rctMarriageStatus.Find ("Ms_ID = " & (lngMsID))
       
        
       
        
    Else
        txtMsID.Text = Empty
        txtMsName.Text = Empty
    End If
End Sub

Private Sub flexPli_SelChange()