ufrmtrybalance.dfm

小银行系统

        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRDBText6: TQRDBText
        Left = 653
        Top = 3
        Width = 56
        Height = 16
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          42.3333333333333
          1727.72916666667
          7.9375
          148.166666666667)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        DataSet = ClientDataSet1
        DataField = 'Check_man'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRShape12: TQRShape
        Left = 2
        Top = 21
        Width = 712
        Height = 1
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          2.64583333333333
          5.29166666666667
          55.5625
          1883.83333333333)
        Shape = qrsRectangle
      end
      object QRShape13: TQRShape
        Left = 171
        Top = -1
        Width = 1
        Height = 22
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          58.2083333333333
          452.4375
          -2.64583333333333
          2.64583333333333)
        Shape = qrsRectangle
      end
      object QRShape14: TQRShape
        Left = 298
        Top = -1
        Width = 1
        Height = 22
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          58.2083333333333
          788.458333333333
          -2.64583333333333
          2.64583333333333)
        Shape = qrsRectangle
      end
      object QRDBText7: TQRDBText
        Left = 175
        Top = 3
        Width = 43
        Height = 16
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          42.3333333333333
          463.020833333333
          7.9375
          113.770833333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = ClientDataSet1
        DataField = 'remark'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRLabelOUT_money: TQRLabel
        Left = 303
        Top = 3
        Width = 79
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          801.6875
          7.9375
          209.020833333333)
        Alignment = taRightJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = 'QRLabelOUT_money'
        Color = clWhite
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRLabelIN_money: TQRLabel
        Left = 391
        Top = 2
        Width = 84
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1034.52083333333
          5.29166666666667
          222.25)
        Alignment = taRightJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = 'QRLabel18'
        Color = clWhite
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRLabelrem_money: TQRLabel
        Left = 486
        Top = 2
        Width = 79
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          1285.875
          5.29166666666667
          209.020833333333)
        Alignment = taRightJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = 'QRLabelrem_money'
        Color = clWhite
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
    end
    object QRGroup1: TQRGroup
      Left = 38
      Top = 142
      Width = 718
      Height = 0
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = True
      Size.Values = (
        0
        1899.70833333333)
      Expression = 'ClientDataSet1.ACC_NO'
      Master = QuickRep1
      ReprintOnNewPage = False
    end
    object QRBand3: TQRBand
      Left = 38
      Top = 166
      Width = 718
      Height = 31
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        82.0208333333333
        1899.70833333333)
      BandType = rbPageFooter
      object QRLabel4: TQRLabel
        Left = 523
        Top = 5
        Width = 54
        Height = 16
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          42.3333333333333
          1383.77083333333
          13.2291666666667
          142.875)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #21046' '#34920#65306
        Color = clWhite
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 11
      end
      object QRLabel15: TQRLabel
        Left = 163
        Top = 5
        Width = 54
        Height = 16
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          42.3333333333333
          431.270833333333
          13.2291666666667
          142.875)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #23457' '#26680#65306
        Color = clWhite
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 11
      end
    end
  end
  object ADODataSet1: TADODataSet
    Connection = DM.ADOConnection1
    CursorType = ctStatic
    CommandText = 
      'SELECT A.*, B.Per_na, B.fac_no, B.sec_no, B.Cre_date,'#13#10'C.fac_nm,' +
      ' D.sec_nm'#13#10'FROM dbo.Deposit A INNER JOIN'#13#10'      dbo.Account B ON' +
      ' A.ACC_NO = B.ACC_NO INNER JOIN'#13#10'      dbo.factory C ON B.fac_no' +
      ' = C.fac_no INNER JOIN'#13#10'      dbo.Sec D ON B.sec_no = D.SEC_NO'#13#10 +
      'ORDER  BY A.Acc_no,  A.Cdate,  A.serial_no'#13#10#13#10
    Parameters = <>
    Left = 16
    Top = 159
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = ADODataSet1
    Constraints = True
    Left = 56
    Top = 159
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 96
    Top = 159
    object ClientDataSet1ACC_NO: TStringField
      FieldName = 'ACC_NO'
      Size = 16
    end
    object ClientDataSet1Cdate: TStringField
      FieldName = 'Cdate'
      Size = 10
    end
    object ClientDataSet1serial_no: TStringField
      FieldName = 'serial_no'
      Size = 10
    end
    object ClientDataSet1IN_OR_OUT: TStringField
      FieldName = 'IN_OR_OUT'
      Size = 1
    end
    object ClientDataSet1IN_money: TBCDField
      FieldName = 'IN_money'
      DisplayFormat = '#####0.00'
      Precision = 10
      Size = 2
    end
    object ClientDataSet1OUT_money: TBCDField
      FieldName = 'OUT_money'
      DisplayFormat = '#####0.00'
      Precision = 10
      Size = 2
    end
    object ClientDataSet1add_date: TStringField
      FieldName = 'add_date'
      Size = 10
    end
    object ClientDataSet1add_user: TStringField
      FieldName = 'add_user'
    end
    object ClientDataSet1edit_date: TStringField
      FieldName = 'edit_date'
      Size = 10
    end
    object ClientDataSet1edit_user: TStringField
      FieldName = 'edit_user'
    end
    object ClientDataSet1rem_money: TBCDField
      FieldName = 'rem_money'
      DisplayFormat = '#####0.00'
      Precision = 10
      Size = 2
    end
    object ClientDataSet1Cre_man: TStringField
      FieldName = 'Cre_man'
    end
    object ClientDataSet1Check_mk: TStringField
      FieldName = 'Check_mk'
      Size = 1
    end
    object ClientDataSet1Check_man: TStringField
      FieldName = 'Check_man'
    end
    object ClientDataSet1remark: TStringField
      FieldName = 'remark'
      Size = 50
    end
    object ClientDataSet1Per_na: TStringField
      FieldName = 'Per_na'
      Size = 16
    end
    object ClientDataSet1fac_no: TStringField
      FieldName = 'fac_no'
      Size = 3
    end
    object ClientDataSet1sec_no: TStringField
      FieldName = 'sec_no'
      Size = 5
    end
    object ClientDataSet1fac_nm: TStringField
      FieldName = 'fac_nm'
      Size = 12
    end
    object ClientDataSet1sec_nm: TStringField
      FieldName = 'sec_nm'
      Size = 16
    end
    object ClientDataSet1Cre_date: TStringField
      FieldName = 'Cre_date'
      Size = 10
    end
  end
end