帐户余额日报表.frm

财务信息管理系统,适合做毕业论文的人使用

         .ColAlignment(9) = UG_ALIGNRIGHT
         
         .TextMatrix(0, 10) = "贷方"
         .TextMatrix(1, 10) = "贷方"
         .JoinCells 0, 10, 1, 10, True
         .ColAlignment(10) = UG_ALIGNRIGHT
         
         .TextMatrix(0, 11) = "方向"
         .TextMatrix(1, 11) = "方向"
         .JoinCells 0, 11, 1, 1, True
         .ColAlignment(11) = UG_ALIGNCENTER
         
         .TextMatrix(0, 12) = "余额"
         .TextMatrix(1, 12) = "余额"
         .JoinCells 0, 12, 1, 12, True
         .ColAlignment(12) = UG_ALIGNRIGHT
      Else
         '设置UFGRID，将其作为数据显示区(0)
         .LargeVirtualGrid = False
         .Rows = 0
         .Cols = 0
         .Rows = nFixRows
         .FixedRows = nFixRows
         .Cols = 6
         .FixedCols = 0
         
         .ColWidth(0) = 2000
         .ColWidth(1) = 0
         .ColWidth(2) = 2000
         .ColWidth(3) = 1600
         .ColWidth(4) = 1600
         .ColWidth(5) = 1600
         
         '初始化表头及对齐方式
         .TextMatrix(0, 0) = "业务编号"
         .TextMatrix(1, 0) = "业务编号"
         .JoinCells 0, 0, 1, 0, True
         .ColAlignment(0) = UG_ALIGNCENTER
         
         .TextMatrix(0, 1) = "业务ID"
         .TextMatrix(1, 1) = "业务ID"
         .JoinCells 0, 1, 1, 1, True
         .ColAlignment(1) = UG_ALIGNLEFT
         
         .TextMatrix(0, 2) = "摘   要"
         .TextMatrix(1, 2) = "摘   要"
         .JoinCells 0, 2, 1, 2, True
         .ColAlignment(2) = UG_ALIGNLEFT
         
         .TextMatrix(0, 3) = "收入额"
         .TextMatrix(1, 3) = "收入额"
         .JoinCells 0, 3, 1, 3, True
         .ColAlignment(3) = UG_ALIGNRIGHT
         
         .TextMatrix(0, 4) = "支出额"
         .TextMatrix(1, 4) = "支出额"
         .JoinCells 0, 4, 1, 4, True
         .ColAlignment(4) = UG_ALIGNRIGHT
         
         .TextMatrix(0, 5) = "余额"
         .TextMatrix(1, 5) = "余额"
         .JoinCells 0, 5, 1, 5, True
         .ColAlignment(5) = UG_ALIGNRIGHT
      End If
      
      .HeadFont.Name = "宋体"
      .HeadFont.Size = 9
      .HeadBackColor = &HFFFFFFFF
      .HeadFont.Bold = True
      .Redraw = True
   End With

End Sub

'********************************************************************
'*函数说明: 填充显示Grid                                             *
'*参    数:                                                          *
'*                                                                   *
'*返回值  :                                                          *
'*********************************************************************
Private Sub FillDisplayGrid()
   Dim i As Long, j As Long, blnPrpty As Boolean
   Dim sqlClass As String, rsClass As New UfRecordset, strClass As String
   Dim curMb As Double
   
   If iDataSource = 1 Then blnPrpty = IIf(ZhDir = 1, True, False)
   With rsDisplay
   If .RecordCount = 0 Then
      If iDataSource = 0 Then
        UfGridADO1.AddItem Chr(9) & "" & Chr(9) & "上日余额:"
      Else
        UfGridADO1.AddItem Chr(9) & "上日余额:"
      End If
      UfGridADO1.TextMatrix(2, IIf(iDataSource = 0, 5, 12)) = IIf(dzdMb = 0, "", IIf(iDataSource = 0, FormatCur(dzdMb), FormatCur(Abs(dzdMb))))
      If iDataSource = 0 Then
        UfGridADO1.AddItem Chr(9) & "" & Chr(9) & "本日合计:"
      Else
        UfGridADO1.AddItem Chr(9) & "本日合计:"
      End If
      UfGridADO1.TextMatrix(3, IIf(iDataSource = 0, 5, 12)) = IIf(dzdMb = 0, "", IIf(iDataSource = 0, FormatCur(dzdMb), FormatCur(Abs(dzdMb))))
      If iDataSource = 1 Then
         UfGridADO1.TextMatrix(2, 11) = ExcJd(IIf(blnPrpty, "借", "贷"), dzdMb)
         UfGridADO1.TextMatrix(3, 11) = ExcJd(IIf(blnPrpty, "借", "贷"), dzdMb)
      End If
      UfGridADO1.row = 2
      UfGridADO1.col = 0
      Exit Sub
   End If
   .MoveFirst
   i = 0: j = 0
   If iDataSource = 1 Then
      With pzZhye
         ReDim .iBook(nMaxRows - nFixRows)
         ReDim .iPeriod(nMaxRows - nFixRows)
         ReDim .cSign(nMaxRows - nFixRows)
         ReDim .iNo_id(nMaxRows - nFixRows)
      End With
      ReDim cItemClass(nMaxRows)
   End If
   While Not .EOF
      If iDataSource = 0 Then
         If i = 0 Then
'            UfGridADO1.AddItem "" & Chr(9) & "上日余额:" & Chr(9) & "" & _
             Chr(9) & "" & Chr(9) & Format(dzdMb, "#,##0.00")                    'Cuidong 2000/08/04
            UfGridADO1.AddItem Chr(9) & "" & Chr(9) & "上日余额:" & Chr(9) & "" & _
            Chr(9) & "" & Chr(9) & IIf(dzdMb = 0, "", Format(dzdMb, "#,##0.00")) 'Cuidong 2000/08/04
            j = j + 1
            curMb = dzdMb + IIf(IsNull(!Field2), 0, !Field2) - IIf(IsNull(!Field3), 0, !Field3)
         Else
            curMb = curMb + IIf(IsNull(!Field2), 0, !Field2) - IIf(IsNull(!Field3), 0, !Field3)
         End If
         sqlClass = "SELECT * FROM FD_Class WHERE csign='" & left(!Field0, 2) & "'"
         Set rsClass = dbsZJ.OpenRecordset(sqlClass, dbOpenSnapshot)
         UfGridADO1.AddItem rsClass!ctext & "-" & _
            right(!Field0, Len(!Field0) - 2) & Chr(9) & !transactions_id & Chr(9) & _
            !Field1 & Chr(9) & _
            IIf(!Field2 = 0, "", FormatCur(!Field2)) & Chr(9) & _
            IIf(!Field3 = 0, "", FormatCur(!Field3))
         UfGridADO1.TextMatrix(nFixRows + j, 5) = FormatCur(curMb)
         j = j + 1
      Else
         If i = 0 Then
            UfGridADO1.AddItem Chr(9) & "上日余额:" & Chr(9) & "" & _
               Chr(9) & "" & Chr(9) & "" & Chr(9) & "" & Chr(9) & "" & Chr(9) & "" & _
               Chr(9) & "" & Chr(9) & "" & Chr(9) & "" & Chr(9) & "" & Chr(9) & "" & _
               Chr(9) & IIf(dzdMb = 0, "", FormatCur(Abs(dzdMb)))
            j = j + 1
            UfGridADO1.TextMatrix(2, 11) = ExcJd(IIf(blnPrpty, "借", "贷"), dzdMb)
            curMb = dzdMb + IIf(blnPrpty, !Field8 - !Field9, !Field9 - !Field8)
         Else
            curMb = curMb + IIf(blnPrpty, !Field8 - !Field9, !Field9 - !Field8)
         End If
         UfGridADO1.AddItem !Fieldx & "-" & right("000" & !Field0, 4) & Chr(9) & _
            !Field1 & Chr(9) & _
            !Field2 & Chr(9) & _
            "" & Chr(9) & _
            !Field3 & Chr(9) & _
            !Field4 & Chr(9) & _
            !Field5 & Chr(9) & _
            !Field6 & Chr(9) & _
            !Field11 & Chr(9) & _
            IIf(!Field8 = 0, "", FormatCur(!Field8)) & Chr(9) & _
            IIf(!Field9 = 0, "", FormatCur(!Field9)) & Chr(9)
            
         UfGridADO1.TextMatrix(nFixRows + j, 11) = ExcJd(IIf(blnPrpty, "借", "贷"), curMb)
         UfGridADO1.TextMatrix(nFixRows + j, 12) = IIf(curMb = 0, "", FormatCur(Abs(curMb)))
         cItemClass(nFixRows + j) = IIf(IsNull(!Field7), "", !Field7)
         j = j + 1
         With pzZhye
            .cSign(i) = rsDisplay!Fieldx
            .iBook(i) = rsDisplay!fColor
            .iNo_id(i) = rsDisplay!Field0
            .iPeriod(i) = rsDisplay!Fieldy
         End With
      End If
      .MoveNext
      i = i + 1
   Wend
   Dim Ax As Double, Bx As Double, Cx As Double
   Ax = 0: Bx = 0: Cx = 0
   If iDataSource = 0 Then
      For i = 1 To j - 1
         Ax = Ax + IIf(UfGridADO1.TextMatrix(nFixRows + i, 3) = "", 0, UfGridADO1.TextMatrix(nFixRows + i, 3))
         Bx = Bx + IIf(UfGridADO1.TextMatrix(nFixRows + i, 4) = "", 0, UfGridADO1.TextMatrix(nFixRows + i, 4))
      Next i
      UfGridADO1.AddItem Chr(9) & "" & Chr(9) & "本日合计:" & Chr(9) & _
         IIf(Ax = 0, "", FormatCur(Ax)) & _
         Chr(9) & IIf(Bx = 0, "", FormatCur(Bx)) & _
         Chr(9) & UfGridADO1.TextMatrix(nFixRows + j - 1, 5)
   Else
      For i = 1 To j - 1
         Ax = Ax + IIf(UfGridADO1.TextMatrix(nFixRows + i, 8) = "", 0, UfGridADO1.TextMatrix(nFixRows + i, 8))
         Bx = Bx + IIf(UfGridADO1.TextMatrix(nFixRows + i, 9) = "", 0, UfGridADO1.TextMatrix(nFixRows + i, 9))
      Next i
   
      UfGridADO1.AddItem Chr(9) & "本日合计:" & Chr(9) & "" & _
         Chr(9) & "" & Chr(9) & "" & Chr(9) & "" & Chr(9) & "" & _
         Chr(9) & "" & Chr(9) & IIf(Ax = 0, "", FormatCur(Ax)) & _
         Chr(9) & IIf(Bx = 0, "", FormatCur(Bx)) & Chr(9) & _
         UfGridADO1.TextMatrix(nFixRows + j - 1, 10) & _
         Chr(9) & UfGridADO1.TextMatrix(nFixRows + j - 1, 11)
   End If
   End With
   UfGridADO1.row = 3
   UfGridADO1.col = 0
   If iDataSource = 1 And UfGridADO1.Rows > 3 Then SwitchCodeToName
   
End Sub

'********************************************************************
'*函数说明: 转换编码到名称                                            *
'*参    数:                                                          *
'*                                                                   *
'*返回值  :                                                          *
'*********************************************************************
Private Sub SwitchCodeToName()
   Dim i As Integer
   Dim j As Integer
   
   With UfGridADO1
      For i = 3 To .Rows - 2
         For j = 2 To 7
            Select Case j
               Case 2
                  'If .TextMatrix(i, j) <> "" Then .TextMatrix(i, j) = KmCodeToName(.TextMatrix(i, j))
               Case 3
                  If .TextMatrix(i, j) <> "" Then .TextMatrix(i, j) = PersonCodeToName(.TextMatrix(i, j))
               Case 4
                  If .TextMatrix(i, j) <> "" Then .TextMatrix(i, j) = DeptCodeToName(.TextMatrix(i, j))
               Case 5
                  If .TextMatrix(i, j) <> "" Then .TextMatrix(i, j) = CusCodeToName(.TextMatrix(i, j))
               Case 6
                  If .TextMatrix(i, j) <> "" Then .TextMatrix(i, j) = SupCodeToName(.TextMatrix(i, j))
               Case 7
                  If .TextMatrix(i, j) <> "" Then .TextMatrix(i, j) = ItemCodeToName(.TextMatrix(i, j), cItemClass(i))
            End Select
         Next j
      Next i
   End With
End Sub

Private Sub Form_Resize()
   Dim i As Integer
   On Error Resume Next
   If Me.WindowState <> 1 Then
      If Me.width < 3500 Then Me.width = 3500
      If Me.Height < 3500 Then Me.Height = 3500
      Picture1.left = Me.width - Picture1.width
      Label1(0).left = Me.width / 2 - Label1(0).width / 2 + (Picture1.width - Me.width)
      Label1(1).left = Me.width - Label1(1).width - 200 + (Picture1.width - Me.width)
      Label1(2).left = 200 + (Picture1.width - Me.width)
      Label1(3).left = 200 + (Picture1.width - Me.width)
      Label2(0).left = Label1(2).left + Label1(2).width
      Label2(1).left = Label1(3).left + Label1(3).width
      UfGridADO1.width = Me.width - 100
      UfGridADO1.Height = Me.Height - Toolbar1.Height - Picture1.Height - 400
      UfGridADO1.top = Toolbar1.Height + Picture1.Height
      UfGridADO1.left = 0
   End If
   On Error GoTo 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
    zjLogInfo.TaskExec "FD0707", 0, zjLogInfo.cIYear
    zjLogInfo.ClearError
    zjGen_arr.FD0707 = True
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
   Gen_Key Button.key
End Sub

Private Sub Recx()
   With frmRzhyeXz
      .Quitfs = False
      .Show vbModal
   End With
End Sub

Private Sub Gen_Key(TLB_Key As String)
   Dim sqlTemp As String
   Dim rsTemp As New UfRecordset
   Select Case TLB_Key
        Case Is = "Print", "Preview", "Dataout"
            If TLB_Key = "Dataout" Then InitDataOut
            zjbPrnViewOut Me, "zhyerb", TLB_Key, True, Label1(0).Caption, Label1(2).Caption & Label2(0).Caption, Label1(3).Caption & Label2(1).Caption, Label1(1).Caption
      Case "Recx"
         Recx
      Case "UnionFind"
         UfGridado1_DBClick UfGridADO1.row, UfGridADO1.col
      Case "Help"
         SendKeys "{F1}"
      Case "Exit"
         Unload Me
   End Select
End Sub

Private Sub UfGridado1_DBClick(ByVal nRow As Long, ByVal nCol As Long)
   Dim xTemp As String, yTemp As String
   Dim cClass As String, rsClass As New UfRecordset
   Dim sqlID As String
   Dim i As Integer
   Dim fndCred As clsCred, fndLend As clsLend, fndCad As clsCadBill
   Dim fndCredRet As clsCredRet, fndLendRet As clsLendRet

   GetDataSource (strAccID)
   If iDataSource = 1 Then
      i = UfGridADO1.row - 3
      If i < 0 Or i > nMaxRows - 3 Then Exit Sub
      Screen.MousePointer = vbHourglass
      
      Dim aClsPz As clsPZ
      
      Set aClsPz = New clsPZ
      Set aClsPz.zzLogin = zjLogInfo
      Set aClsPz.zzSys = aClsPub

      With pzZhye
         aClsPz.StartUpPz "GL", "GL0205", Pz_LC, "CN", _
            .iBook(i), .iPeriod(i), .cSign(i), .iNo_id(i)
      End With
      Screen.MousePointer = vbDefault
      Exit Sub
   End If
   
   yTemp = UfGridADO1.TextMatrix(UfGridADO1.row, UfGridADO1.col)
   UfGridADO1.TextMatrix(UfGridADO1.row, UfGridADO1.col) = yTemp

   xTemp = UfGridADO1.TextMatrix(UfGridADO1.row, 0)
   UfGridADO1.TextMatrix(UfGridADO1.row, 0) = xTemp
   
 If Me.UfGridADO1.Rows > 4 And Me.UfGridADO1.row > 2 And Me.UfGridADO1.row < Me.UfGridADO1.Rows - 1 Then
     Dim OID           As New U8FDEso.OIDObject
     Dim objVchInputUI As New clsVchInputUI
     
     If iDataSource = 0 Then
        OID = Me.UfGridADO1.TextMatrix(Me.UfGridADO1.row, 1)
     'Else
        'OID = Me.UfGridADO1.TextMatrix(Me.UfGridADO1.row, 3)
     End If
     objVchInputUI.Show g_sDataSourceName, smView, OID, mID(OID.id, 1, 2)
     Set OID = Nothing
     Set objVchInputUI = Nothing
 End If
'sqlID = right(xTemp, 8)
'If Not IsNumeric(sqlID) Then Exit Sub
'oUniFind.ShowBill "FD", oV.Name2Code(left(xTemp, InStr(xTemp, "-") - 1)) + sqlID
End Sub