查询结果表.frm

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

            .JoinCells 0, 5, 1, 5, True
            
            .TextMatrix(0, 6) = "付款账号"
            .JoinCells 0, 6, 1, 6, True
            
            .TextMatrix(0, 7) = "业务编号"
            .JoinCells 0, 7, 1, 7, True
            
            .TextMatrix(0, 8) = "摘要"
            .JoinCells 0, 8, 1, 8, True
            
            .TextMatrix(0, 9) = "拆借金额"
            .JoinCells 0, 9, 1, 9, True
            .ColAlignment(9) = UG_ALIGNRIGHT
      
            .TextMatrix(0, 10) = "币别"
            .JoinCells 0, 10, 1, 10, True
            
            .TextMatrix(0, 11) = "汇率"
            .JoinCells 0, 11, 1, 11, True
            .ColAlignment(11) = UG_ALIGNRIGHT
            
            .TextMatrix(0, 12) = "本位币金额"
            .JoinCells 0, 12, 1, 12, True
            .ColAlignment(12) = UG_ALIGNRIGHT
            
            .TextMatrix(0, 13) = "利率代码"
            .JoinCells 0, 13, 1, 13, True
            
            .TextMatrix(0, 14) = "还款日期"
            .JoinCells 0, 14, 1, 14, True
            
            .TextMatrix(0, 15) = "收款经办"
            .JoinCells 0, 15, 1, 15, True
            
            .TextMatrix(0, 16) = "付款经办"
            .JoinCells 0, 16, 1, 16, True
            
            .TextMatrix(0, 17) = "中心经办"
            .JoinCells 0, 17, 1, 17, True
            
            .TextMatrix(0, 18) = "制单"
            .JoinCells 0, 18, 1, 18, True
            
            .TextMatrix(0, 19) = "审核"
            .JoinCells 0, 19, 1, 19, True
            
            .TextMatrix(0, 20) = "记账"
            .JoinCells 0, 20, 1, 20, True
            
            .HeadFont.Name = "宋体"
            .HeadBackColor = &H8000000E
            .HeadFont.Size = 9
            .HeadFont.Bold = True
            For i = 0 To 20
               frmItem.mCollectColWidth.Add UfGridADO1.ColWidth(i), CStr(i)
            Next i
         Case 7, 8      '拆借还款，拆借还息
            Label1 = IIf(iFindtype = 7, "拆借还款单", "拆借还息单")
            Me.HelpContextID = IIf(iFindtype = 7, 88000041, 88000043)
            '设置UFGRID，将其作为数据显示区(0)
            .LargeVirtualGrid = True
            .Rows = nFixRows
            .Cols = 24
            .FixedCols = 3
            .ColWidth(0) = 600
            For i = 1 To 2
              .ColWidth(i) = 300
            Next i
            .ColWidth(3) = 2600
            .ColWidth(4) = 1500
            .ColWidth(5) = 2600
            .ColWidth(6) = 1500
            .ColWidth(7) = 2100
            .ColWidth(8) = 2400
            .ColWidth(9) = 1200
            .ColWidth(12) = 1200
            .ColWidth(13) = 1200
            .ColWidth(14) = 2400
            .ColWidth(15) = 1200
            .ColWidth(16) = 1200
            .ColWidth(17) = 1200
            .ColWidth(18) = 1200
            .ColWidth(19) = 1200
            .ColWidth(20) = 1200
            
            .FixedRows = nFixRows
               
            '初始化表头及对齐方式
            .TextMatrix(0, 0) = "业务日期"
            .TextMatrix(0, 1) = "业务日期"
            .TextMatrix(0, 2) = "业务日期"
            .JoinCells 0, 0, 0, 2, True
            
            .ColAlignment(0) = UG_ALIGNCENTER
            .ColAlignment(1) = UG_ALIGNRIGHT
            .ColAlignment(2) = UG_ALIGNRIGHT
            
            .TextMatrix(1, 0) = "年"
            .TextMatrix(1, 1) = "月"
            .TextMatrix(1, 2) = "日"
            
            .TextMatrix(0, 3) = "收款单位"
            .JoinCells 0, 3, 1, 3, True
            
            .TextMatrix(0, 4) = "收款账号"
            .JoinCells 0, 4, 1, 4, True
            
            .TextMatrix(0, 5) = "付款单位"
            .JoinCells 0, 5, 1, 5, True
            
            .TextMatrix(0, 6) = "付款账号"
            .JoinCells 0, 6, 1, 6, True
            
            .TextMatrix(0, 7) = "业务编号"
            .JoinCells 0, 7, 1, 7, True
            
            .TextMatrix(0, 8) = "摘要"
            .JoinCells 0, 8, 1, 8, True
            
            .TextMatrix(0, 9) = "还款金额"
            .JoinCells 0, 9, 1, 9, True
            .ColAlignment(9) = UG_ALIGNRIGHT
      
            .TextMatrix(0, 10) = "币别"
            .JoinCells 0, 10, 1, 10, True
            
            .TextMatrix(0, 11) = "汇率"
            .JoinCells 0, 11, 1, 11, True
            .ColAlignment(11) = UG_ALIGNRIGHT
            
            .TextMatrix(0, 12) = "本位币金额"
            .JoinCells 0, 12, 1, 12, True
            .ColAlignment(12) = UG_ALIGNRIGHT
            
            .TextMatrix(0, 13) = "已还金额"
            .JoinCells 0, 13, 1, 13, True
            .ColAlignment(13) = UG_ALIGNRIGHT
            
            .TextMatrix(0, 14) = "联接拆借项"
            .JoinCells 0, 14, 1, 14, True
            
            .TextMatrix(0, 15) = "借款日期"
            .JoinCells 0, 15, 1, 15, True
            
            .TextMatrix(0, 16) = "还款日期"
            .JoinCells 0, 16, 1, 16, True
            
            .TextMatrix(0, 17) = "利率代码"
            .JoinCells 0, 17, 1, 17, True
            
            .TextMatrix(0, 18) = "收款经办"
            .JoinCells 0, 18, 1, 18, True
            
            .TextMatrix(0, 19) = "付款经办"
            .JoinCells 0, 19, 1, 19, True
            
            .TextMatrix(0, 20) = "中心经办"
            .JoinCells 0, 20, 1, 20, True
            
            .TextMatrix(0, 21) = "制单"
            .JoinCells 0, 21, 1, 21, True
            
            .TextMatrix(0, 22) = "审核"
            .JoinCells 0, 22, 1, 22, True
            
            .TextMatrix(0, 23) = "记账"
            .JoinCells 0, 23, 1, 23, True
            
            .HeadFont.Name = "宋体"
            .HeadBackColor = &H8000000E
            .HeadFont.Size = 9
            .HeadFont.Bold = True
            For i = 0 To 23
               frmItem.mCollectColWidth.Add UfGridADO1.ColWidth(i), CStr(i)
            Next i
         Case 9         '利息单
            Label1 = "利息单"
            Me.HelpContextID = 88000049
            '设置UFGRID，将其作为数据显示区(0)
            .LargeVirtualGrid = True
            .Rows = nFixRows
            .Cols = 22
            .FixedCols = 3
            .ColWidth(0) = 600
            For i = 1 To 2
              .ColWidth(i) = 300
            Next i
            .ColWidth(3) = 2600
            .ColWidth(4) = 1500
            .ColWidth(5) = 2600
            .ColWidth(6) = 1500
            .ColWidth(7) = 2100
            .ColWidth(8) = 2400
            .ColWidth(9) = 1200
            .ColWidth(12) = 1200
            .ColWidth(13) = 2100
            .ColWidth(14) = 1200
            .ColWidth(15) = 1200
            .ColWidth(16) = 1200
            .ColWidth(17) = 1200
            .ColWidth(18) = 7000
            
            .FixedRows = nFixRows
               
            '初始化表头及对齐方式
            .TextMatrix(0, 0) = "业务日期"
            .TextMatrix(0, 1) = "业务日期"
            .TextMatrix(0, 2) = "业务日期"
            .JoinCells 0, 0, 0, 2, True
            
            .ColAlignment(0) = UG_ALIGNCENTER
            .ColAlignment(1) = UG_ALIGNRIGHT
            .ColAlignment(2) = UG_ALIGNRIGHT
            
            .TextMatrix(1, 0) = "年"
            .TextMatrix(1, 1) = "月"
            .TextMatrix(1, 2) = "日"
            
            .TextMatrix(0, 3) = "收息单位"
            .JoinCells 0, 3, 1, 3, True
            
            .TextMatrix(0, 4) = "收息账号"
            .JoinCells 0, 4, 1, 4, True
            
            .TextMatrix(0, 5) = "付息单位"
            .JoinCells 0, 5, 1, 5, True
            
            .TextMatrix(0, 6) = "付息账号"
            .JoinCells 0, 6, 1, 6, True
            
            .TextMatrix(0, 7) = "业务编号"
            .JoinCells 0, 7, 1, 7, True
            
            .TextMatrix(0, 8) = "摘要"
            .JoinCells 0, 8, 1, 8, True
            
            .TextMatrix(0, 9) = "利息金额"
            .JoinCells 0, 9, 1, 9, True
            .ColAlignment(9) = UG_ALIGNRIGHT
      
            .TextMatrix(0, 10) = "币别"
            .JoinCells 0, 10, 1, 10, True
            
            .TextMatrix(0, 11) = "汇率"
            .JoinCells 0, 11, 1, 11, True
            .ColAlignment(11) = UG_ALIGNRIGHT
            
            .TextMatrix(0, 12) = "本位币金额"
            .JoinCells 0, 12, 1, 12, True
            .ColAlignment(12) = UG_ALIGNRIGHT
            
            .TextMatrix(0, 13) = "联接单据项"
            .JoinCells 0, 13, 1, 13, True
            
            .TextMatrix(0, 14) = "计息起始时间"
            .JoinCells 0, 14, 1, 14, True
            
            .TextMatrix(0, 15) = "结束时间"
            .JoinCells 0, 15, 1, 15, True
            
            .TextMatrix(0, 16) = "利率代码"
            .JoinCells 0, 16, 1, 16, True
            
            .TextMatrix(0, 17) = "结息日代码"
            .JoinCells 0, 17, 1, 17, True
            
            .TextMatrix(0, 18) = "逾期计息方式"
            .JoinCells 0, 18, 1, 18, True
            
            .TextMatrix(0, 19) = "制单"
            .JoinCells 0, 19, 1, 19, True
            
            .TextMatrix(0, 20) = "审核"
            .JoinCells 0, 20, 1, 20, True
            
            .TextMatrix(0, 21) = "记账"
            .JoinCells 0, 21, 1, 21, True
            
            .HeadFont.Name = "宋体"
            .HeadBackColor = &H8000000E
            .HeadFont.Size = 9
            .HeadFont.Bold = True
            For i = 0 To 21
               frmItem.mCollectColWidth.Add UfGridADO1.ColWidth(i), CStr(i)
            Next i
      End Select
   End With

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   With DoUnloadInfo
      Select Case iFindtype
         Case 0
            If .blnYhdk Then Cancel = True
         Case 1
            If .blnNbdk Then Cancel = True
         Case 2
            If .blnYhdk_hk Then Cancel = True
         Case 3
            If .blnNbdk_hk Then Cancel = True
         Case 4
            If .blnYhdk_hx Then Cancel = True
         Case 5
            If .blnNbdk_hx Then Cancel = True
         Case 6
            If .blnNbcj Then Cancel = True
         Case 7
            If .blnNbcj_hk Then Cancel = True
         Case 8
            If .blnNbcj_hx Then Cancel = True
         Case 9
            If .blnLxd Then Cancel = True