frmbudgetanalize.frm

金算盘软件代码

    lstSelectedItem.RemoveItem intTempIndex1
    lstSelectedItem.AddItem strTempText, intTempIndex2
    lstSelectedItem.ListIndex = lstSelectedItem.NewIndex
    If lstSelectedItem.ListIndex = lstSelectedItem.ListCount - 1 Then
        cmdDownWard.Enabled = False
    End If
End Sub

Private Sub cmdNextStep_Click()
    If mlngStepNum = 0 Then
        mlngStepNum = mlngStepNum + 1
    End If
    If mlngStepNum < mintTempMaxStep Then
       mlngStepNum = mlngStepNum + 1
    End If
    ShowStep
    ComEnabled
End Sub

Private Sub cmdPriorStep_Click()
    If mlngStepNum > 1 Then
       mlngStepNum = mlngStepNum - 1
    End If
    ShowStep
    ComEnabled
End Sub

Private Sub cmdToLeft_Click()
    Dim strRemoveString As String
    Dim lstIndex As Integer
    lstIndex = lstSelectedItem.ListIndex
    strRemoveString = Trim(GetNoXString(lstSelectedItem.Text, 1, " "))
    If lstSelectedItem.Text <> "" Then
        lstAll.AddItem lstSelectedItem.Text
        lstSelectedItem.RemoveItem lstSelectedItem.ListIndex
        cmdToRight.Enabled = False
        cmdToLeft.Enabled = False
        cmdAllToRight.Enabled = True
        cmdUpWard.Enabled = False
        cmdDownWard.Enabled = False
    End If
    If lstSelectedItem.ListCount > 0 Then
        If lstIndex <= lstSelectedItem.ListCount - 1 Then
            lstSelectedItem.ListIndex = lstIndex
        ElseIf lstIndex > lstSelectedItem.ListCount - 1 Then
             lstSelectedItem.ListIndex = lstIndex - 1
        End If
    End If
    If lstSelectedItem.ListCount <= 0 Then
        cmdToLeft.Enabled = False
        cmdAllToLeft.Enabled = False
        cmdUpWard.Enabled = False
        cmdDownWard.Enabled = False
        cmdComplete.Enabled = False
    End If
    If comBudgetYear.Text = "" Then
        cmdComplete.Enabled = False
    End If
End Sub

Private Sub cmdToRight_Click()
    Dim lstIndex As Integer
    lstIndex = lstAll.ListIndex
    If lstAll.Text <> "" Then
        lstSelectedItem.AddItem lstAll.Text
        lstAll.RemoveItem lstAll.ListIndex
        cmdToRight.Enabled = False
        cmdToLeft.Enabled = False
        cmdAllToLeft.Enabled = True
    End If
    If lstAll.ListCount > 0 Then
        If lstIndex <= lstAll.ListCount - 1 Then
            lstAll.ListIndex = lstIndex
        ElseIf lstIndex > lstAll.ListCount - 1 Then
            lstAll.ListIndex = lstIndex - 1
        End If
    End If
    If lstAll.ListCount <= 0 Then
        cmdToRight.Enabled = False
        cmdAllToRight.Enabled = False
    End If
    ComEnabled
    If mblnIsComplete = True Then
        cmdComplete.Enabled = True
    Else
        cmdComplete.Enabled = False
    End If
    If CountDatatype = 0 Then
        cmdComplete.Enabled = False
    Else
        cmdComplete.Enabled = True
    End If
End Sub
'设置栏目顺序(向上)
Private Sub cmdUpWard_Click()
    Dim intTempIndex1 As Integer
    Dim intTempIndex2 As Integer
    Dim strTempText As String
    intTempIndex1 = lstSelectedItem.ListIndex                       '当前所选项目的ListIndex
    strTempText = lstSelectedItem.Text                              '当前项目的Text值
    intTempIndex2 = lstSelectedItem.ListIndex - 1                   '当前项目的前一个项目
    lstSelectedItem.RemoveItem intTempIndex1
    lstSelectedItem.AddItem strTempText, intTempIndex2
    lstSelectedItem.ListIndex = lstSelectedItem.NewIndex
    If lstSelectedItem.ListIndex = 0 Then
        cmdUpWard.Enabled = False
    End If
End Sub

Private Sub comBudgetYear_Change()
    If comBudgetYear.Text <> "" Then
        mclsFinanceRptWiz.BudgetYear = CInt(comBudgetYear.Text)
    End If
End Sub

Private Sub Form_Activate()
    If tabWizardPages.Tab = 0 Then
        txtReportName.SetFocus
        txtReportName.SelStart = 0
        txtReportName.SelLength = Len(txtReportName.Text)
    End If
    Utility.SetHelpID 70009
End Sub

Private Sub Form_Load()
    On Error GoTo ErrHandler
    
    Set mclsGrid = New Grid
    Set mclsGrid.Grid = grdChooseBudget
    
    Set mclsHook = New Hook
    mclsHook.SetHook MsgFilter.hwnd
    
    mintTempMaxStep = mintMaxStep
    tabWizardPages.Tab = 0              '初始化页面 Tab = 0
    loadResPic                          '装载按钮图片
    Set Me.Icon = Utility.GetFormResPicture(139, vbResIcon)
    Set grdChooseBudget.MouseIcon = GetFormResPicture(2001, vbResCursor)
    Exit Sub
    Dim edtErrReturn As ErrDealType
ErrHandler:
    edtErrReturn = Errors.ErrorsDeal
    If edtErrReturn = edtResume Then
         Resume
    Else
         On Error Resume Next
         Unload MsgForm
         Unload Me
    End If
End Sub
'初始化列表标题。
Private Sub InitListText()
    Dim intCols As Integer
    Dim intColIndex As Integer
    mclsGrid.ColOfs = 0
    mclsGrid.ListSetToGrid
    mclsGrid.SetupStyle
    grdChooseBudget.TextMatrix(0, 1) = "选择"
    grdChooseBudget.TextMatrix(0, 2) = "预算名称"
    grdChooseBudget.TextMatrix(0, 3) = "预算对象"
    grdChooseBudget.TextMatrix(0, 4) = "预算项目"
    If mclsFinanceRptWiz.AccountTypeID = 13 Then
        grdChooseBudget.TextMatrix(0, 5) = "数据类型"
    Else
        grdChooseBudget.TextMatrix(0, 5) = "税金"
    End If
    For intColIndex = 0 To grdChooseBudget.Cols - 1
        grdChooseBudget.ColAlignment(intColIndex) = 0
    Next
End Sub
Private Sub Form_Resize()
    If Me.Height <> mlngFormHeight Then
        Me.Height = mlngFormHeight
    End If
    If Me.width <> mlngFormWidth Then
        Me.width = mlngFormWidth
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set mclsFinanceRptWiz = Nothing
    Set mclsGrid = Nothing
    Set mclsHook = Nothing
    Set mclsFilter = Nothing
    Set clsFset = Nothing
    Erase mstrSelected
    Erase mbytBudgetObjectID()
    Erase mstrBudgetObjectName()
    Erase mblnBudgetIsTax()
    mblnIsload = False
    UnloadResPic                        '卸载按钮图片
End Sub

Private Sub grdChooseBudget_Click()
    Dim intCount As Integer
    Dim intCurRow As Integer
    Dim strCurRowItems As String '当前行的预算项目
    '是否在第一列
    If mlngCurMousePositionX < grdChooseBudget.ColWidth(0) Or mlngCurMousePositionX > grdChooseBudget.ColWidth(1) Or grdChooseBudget.Row < 1 Or mlngCurMousePositionY > grdChooseBudget.Rows * grdChooseBudget.RowHeight(0) Then
        If mblnIsKeyPress = False Then
            Exit Sub
        End If
    End If
    '当前行是否有数据
    If Trim(grdChooseBudget.TextMatrix(grdChooseBudget.Row, 2)) = "" Then
        Exit Sub
    Else
        '当前行的预算名称
        mstrBudgetNameOfCurRow = Trim(grdChooseBudget.TextMatrix(grdChooseBudget.Row, 2))
        comBudgetName.Text = mstrBudgetNameOfCurRow
        If mblnTriggerChoose = False Then
             comBudgetName_Choose
             mblnTriggerChoose = False
        End If
             comBudgetName_Choose
        '当前行的数据类型
        If mclsFinanceRptWiz.ViewId = 321 Then
            mstrBudgetDataTypeOfCurRow = Trim(grdChooseBudget.TextMatrix(grdChooseBudget.Row, 5))
        Else
            mstrBudgetDataTypeOfCurRow = Trim(grdChooseBudget.TextMatrix(grdChooseBudget.Row, 3))
        End If
    End If
    '置当前位置的Text为“√”
    If Trim(grdChooseBudget.TextMatrix(grdChooseBudget.Row, 1)) = "" Then
        grdChooseBudget.TextMatrix(grdChooseBudget.Row, 1) = "√"
        mbytSelectedBudgetObjectID = mbytBudgetObjectID(grdChooseBudget.Row)
        mstrSelectedBudgetObjectName = grdChooseBudget.TextMatrix(grdChooseBudget.Row, 3)
        mstrSelectedBudgetIsTax = mblnBudgetIsTax(grdChooseBudget.Row)
        strCurRowItems = grdChooseBudget.TextMatrix(grdChooseBudget.Row, 4)
    Else
        grdChooseBudget.TextMatrix(grdChooseBudget.Row, 1) = ""
        mstrBudgetDataTypeOfCurRow = ""
        mbytSelectedBudgetObjectID = 0
        mstrSelectedBudgetObjectName = ""
        mstrSelectedBudgetIsTax = False
        strCurRowItems = ""
        lstAll.Clear
        lstSelectedItem.Clear
        comBudgetName.Text = ""
    End If
    intCurRow = grdChooseBudget.Row
    '清除其它行的“√”
    If Trim(grdChooseBudget.TextMatrix(grdChooseBudget.Row, 1)) <> "" Then
        '相应的预算ID
        If grdChooseBudget.TextMatrix(grdChooseBudget.Row, 0) <> "" Then
            mlngBudgetID = CLng(grdChooseBudget.TextMatrix(grdChooseBudget.Row, 0))
        End If
        For intCount = 1 To grdChooseBudget.Rows - 1
            If intCount <> intCurRow Then
                grdChooseBudget.TextMatrix(intCount, 1) = ""
            End If
        Next
    End If
    '恢复当前行
    If mblnIsGetDataSource = False Then
        SetCheckTypeEnable mstrBudgetDataTypeOfCurRow
        SetViewField strCurRowItems
    End If
    If mblnIsGetDataSource = True Then
        mblnIsGetDataSource = False
    End If
    mblnHasChooseBudget = True
    If mblnIsload = True Then
        grdChooseBudget.SetFocus
    End If
End Sub
Private Sub SetCheckTypeEnable(ByVal strString1 As String)
    Dim intIndex As Integer
    Dim intCount As Integer
    Dim strTempString1 As String
    For intIndex = 0 To 4
        chkType(intIndex).Value = 0
    Next
    chkIncludeUnPosted.Value = 0
    If mstrBudgetDataTypeOfCurRow <> "" Then
        chkIncludeUnPosted.Enabled = True
    Else
        chkIncludeUnPosted.Enabled = False
    End If
    If mclsFinanceRptWiz.ViewId = 321 Then
        If InStr(1, mstrBudgetDataTypeOfCurRow, "本位币") > 0 Then
            chkType(0).Enabled = True
            chkType(0).Value = 1
        Else
            chkType(0).Enabled = False
            chkType(0).Value = 0
        End If
        If InStr(1, mstrBudgetDataTypeOfCurRow, "数量") > 0 Then
            chkType(1).Enabled = True
            chkType(1).Value = 1
        Else
            chkType(1).Enabled = False
            chkType(1).Value = 0
        End If
        If InStr(1, mstrBudgetDataTypeOfCurRow, "原币") > 0 Then
            chkType(2).Enabled = True
            chkType(2).Value = 1
        Else
            chkType(2).Enabled = False
            chkType(2).Value = 0
        End If
    Else
        For intIndex = 0 To 4
            chkType(intIndex).Enabled = False
            chkType(intIndex).Value = 0
        Next
        intCount = 1
        strTempString1 = GetNoXString(strString1, intCount, ",")
        Do While strTempString1 <> ""
            chkType(intCount - 1).Caption = strTempString1
            chkType(intCount - 1).Enabled = True
            chkType(intCount - 1).Value = 1
            intCount = intCount + 1
            strTempString1 = GetNoXString(strString1, intCount, ",")
        Loop
    End If
    cmdComplete.Enabled = False
End Sub

Private Sub grdChooseBudget_GotFocus()
    If grdChooseBudget.Row = grdChooseBudget.Rows - 1 Then
        grdChooseBudget.Row = 1
    End If
End Sub

Private Sub grdChooseBudget_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeySpace Or KeyAscii = vbKeyReturn Then
        mblnIsKeyPress = True
        grdChooseBudget_Click
    End If
End Sub

Private Sub grdChooseBudget_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    With grdChooseBudget
        If x > .ColWidth(0) And x < .ColWidth(1) And y < .Rows * .RowHeight(0) And y > .RowHeight(0) Then
            .MousePointer = vbCustom
        Else
            .MousePointer = vbDefault
        End If
    End With
    mlngCurMousePositionY = y
    mlngCurMousePositionX = x
    mblnIsKeyPress = False
End Sub

Private Sub lstAll_Click()
    '设置按钮 ToRight 的 Enabled 属性:只有选择一项后,才能有效
    cmdToRight.Enabled = True
    If lstAll.ListCount <= 0 Then
        cmdToRight.Enabled = False
    End If
End Sub