ufrminterrest.dfm

小银行系统

      ' B ON A.Acc_no = B.Acc_no '#13#10'  INNER JOIN factory  C ON B.fac_no ' +
      '= C.fac_no '#13#10'  INNER JOIN Sec  D ON B.sec_no = D.Sec_no '#13#10'ORDER ' +
      ' BY  A.Acc_no'#13#10
    Parameters = <>
    Left = 32
    Top = 87
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = ADODataSet1
    Constraints = True
    Left = 72
    Top = 87
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 112
    Top = 87
    object ClientDataSet1Start_yymm: TStringField
      DisplayLabel = #36215#22987#24180#26376
      FieldName = 'Start_yymm'
      Size = 7
    end
    object ClientDataSet1End_yymm: TStringField
      DisplayLabel = #32456#27490#24180#26376
      FieldName = 'End_yymm'
      Size = 7
    end
    object ClientDataSet1Acc_no: TStringField
      DisplayLabel = #24080#21495
      FieldName = 'Acc_no'
      Size = 16
    end
    object ClientDataSet1Interest_Money: TBCDField
      DisplayLabel = #21033#24687
      FieldName = 'Interest_Money'
      DisplayFormat = '##,###,##0.00'
      Precision = 10
      Size = 2
    end
    object ClientDataSet1Not_Mature: TStringField
      DisplayLabel = #26159#21542#19981#36275#26376
      FieldName = 'Not_Mature'
      Size = 1
    end
    object ClientDataSet1Per_na: TStringField
      DisplayLabel = #22995#21517
      FieldName = 'Per_na'
      Size = 16
    end
    object ClientDataSet1Per_no: TStringField
      DisplayLabel = #24037#21495
      FieldName = 'Per_no'
      Size = 8
    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
      DisplayLabel = #21378#21035
      FieldName = 'fac_nm'
      Size = 12
    end
    object ClientDataSet1sec_nm: TStringField
      DisplayLabel = #32452#21035
      FieldName = 'sec_nm'
      Size = 16
    end
    object ClientDataSet1Pre_rest_Money: TBCDField
      FieldName = 'Pre_rest_Money'
      Precision = 10
      Size = 2
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 32
    Top = 127
  end
  object ADODataSet2: TADODataSet
    Connection = DM.ADOConnection1
    CursorType = ctStatic
    CommandText = 
      'SELECT TOP 0   * '#13#10'FROM InterestDetail'#13#10'ORDER  BY  Cdate, serial' +
      '_no'#13#10
    Parameters = <>
    Left = 40
    Top = 271
  end
  object DataSetProvider2: TDataSetProvider
    DataSet = ADODataSet2
    Constraints = True
    Left = 80
    Top = 271
  end
  object ClientDataSet2: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider2'
    OnCalcFields = ClientDataSet2CalcFields
    Left = 120
    Top = 271
    object ClientDataSet2INT_1: TStringField
      FieldKind = fkCalculated
      FieldName = 'INT_1'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2INT_2: TStringField
      FieldKind = fkCalculated
      FieldName = 'INT_2'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2INT_3: TStringField
      FieldKind = fkCalculated
      FieldName = 'INT_3'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2INT_4: TStringField
      FieldKind = fkCalculated
      FieldName = 'INT_4'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2INT_5: TStringField
      FieldKind = fkCalculated
      FieldName = 'INT_5'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2INT_6: TStringField
      FieldKind = fkCalculated
      FieldName = 'INT_6'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2INT_7: TStringField
      FieldKind = fkCalculated
      FieldName = 'INT_7'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2INT_8: TStringField
      FieldKind = fkCalculated
      FieldName = 'INT_8'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2In_Money: TBCDField
      FieldName = 'In_Money'
      Precision = 10
      Size = 2
    end
    object ClientDataSet2Out_Money: TBCDField
      FieldName = 'Out_Money'
      Precision = 10
      Size = 2
    end
    object ClientDataSet2Rem_Money: TBCDField
      FieldName = 'Rem_Money'
      Precision = 10
      Size = 2
    end
    object ClientDataSet2TotBase_Money: TBCDField
      FieldName = 'TotBase_Money'
      Precision = 10
      Size = 2
    end
    object ClientDataSet2Interest_Money: TBCDField
      FieldName = 'Interest_Money'
      Precision = 10
      Size = 2
    end
    object ClientDataSet2Start_yymm: TStringField
      FieldName = 'Start_yymm'
      Size = 7
    end
    object ClientDataSet2End_yymm: TStringField
      FieldName = 'End_yymm'
      Size = 7
    end
    object ClientDataSet2Acc_no: TStringField
      FieldName = 'Acc_no'
      Size = 16
    end
    object ClientDataSet2Cdate: TStringField
      FieldName = 'Cdate'
      Size = 10
    end
    object ClientDataSet2serial_no: TStringField
      FieldName = 'serial_no'
      Size = 10
    end
    object ClientDataSet2Days: TIntegerField
      FieldName = 'Days'
      DisplayFormat = '###'
    end
    object ClientDataSet2Base_Money: TBCDField
      FieldName = 'Base_Money'
      Precision = 10
      Size = 2
    end
    object ClientDataSet2IN_1: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_1'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2IN_2: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_2'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2IN_3: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_3'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2IN_4: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_4'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2IN_5: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_5'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2IN_6: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_6'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2IN_7: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_7'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2IN_8: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_8'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2OUT_1: TStringField
      FieldKind = fkCalculated
      FieldName = 'OUT_1'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2OUT_2: TStringField
      FieldKind = fkCalculated
      FieldName = 'OUT_2'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2OUT_3: TStringField
      FieldKind = fkCalculated
      FieldName = 'OUT_3'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2OUT_4: TStringField
      FieldKind = fkCalculated
      FieldName = 'OUT_4'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2OUT_5: TStringField
      FieldKind = fkCalculated
      FieldName = 'OUT_5'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2OUT_6: TStringField
      FieldKind = fkCalculated
      FieldName = 'OUT_6'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2OUT_7: TStringField
      FieldKind = fkCalculated
      FieldName = 'OUT_7'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2OUT_8: TStringField
      FieldKind = fkCalculated
      FieldName = 'OUT_8'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2R_1: TStringField
      FieldKind = fkCalculated
      FieldName = 'R_1'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2R_2: TStringField
      FieldKind = fkCalculated
      FieldName = 'R_2'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2R_3: TStringField
      FieldKind = fkCalculated
      FieldName = 'R_3'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2R_4: TStringField
      FieldKind = fkCalculated
      FieldName = 'R_4'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2R_5: TStringField
      FieldKind = fkCalculated
      FieldName = 'R_5'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2R_6: TStringField
      FieldKind = fkCalculated
      FieldName = 'R_6'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2R_7: TStringField
      FieldKind = fkCalculated
      FieldName = 'R_7'
      Size = 1
      Calculated = True
    end
    object ClientDataSet2R_8: TStringField
      FieldKind = fkCalculated
      FieldName = 'R_8'
      Size = 1
      Calculated = True
    end
  end
  object DataSource2: TDataSource
    DataSet = ClientDataSet2
    Left = 40
    Top = 311
  end
  object ADOStoredProc1: TADOStoredProc
    Connection = DM.ADOConnection1
    ProcedureName = 'InterestCal;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@start_yymm'
        Attributes = [paNullable]
        DataType = ftString
        Size = 7
        Value = Null
      end
      item
        Name = '@end_yymm'
        Attributes = [paNullable]
        DataType = ftString
        Size = 7
        Value = Null
      end
      item
        Name = '@acc_no1'
        Attributes = [paNullable]
        DataType = ftString
        Size = 16
        Value = Null
      end
      item
        Name = '@acc_no2'
        Attributes = [paNullable]
        DataType = ftString
        Size = 16
        Value = Null
      end
      item
        Name = '@Last_date'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end>
    Left = 208
    Top = 80
  end
  object DosMove1: TDosMove
    Active = True
    TabGrid = False
    Left = 432
  end
end