callerdm.dfm

东进D160A板卡自动外呼程序代码

    end
    object qryDunlogResult: TStringField
      DisplayLabel = #32467#26524
      FieldName = 'Result'
      Size = 30
    end
    object qryDunlogLogDatetime: TDateTimeField
      DisplayLabel = #21457#29983#26102#38388
      FieldName = 'LogDatetime'
    end
  end
  object dsDunlog: TDataSource
    DataSet = qryDunlog
    Left = 152
    Top = 72
  end
  object qryDundetails: TADOQuery
    Connection = conCaller
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select W.IndexNumber, D.Sbbh, W.Yhmc, W.Yhdz, D.PhoneNumber, D.C' +
        'allCount, D.CallDatetime, D.CallStatus,'
      
        '       W.Sf + W.Fjf as Waterfee, W.Wsclf as Sewage, W.Sf + W.Fjf' +
        ' + W.Wsclf as Totalsum, '
      '       W.Cbrq, Datediff(day, W.Cbrq, Getdate()) - 30 Latedays'
      '  from Dun D left join VWaterRecords W'
      '    on W.Sbbh = D.Sbbh and W.IndexNumber = D.IndexNumber'
      '  where D.CallDatetime > DateAdd(day, -7, D.CallDatetime)'
      '    and W.Zzbz = '#39#39' and W.Kprq is null'
      '  order by D.CallDatetime desc')
    Left = 248
    Top = 64
    object qryDundetailsIndexNumber: TStringField
      FieldName = 'IndexNumber'
    end
    object qryDundetailsSbbh: TStringField
      Alignment = taCenter
      DisplayLabel = #27700#34920#32534#21495
      DisplayWidth = 10
      FieldName = 'Sbbh'
      Size = 50
    end
    object qryDundetailsYhmc: TStringField
      DisplayLabel = #23458#25143#21517#31216
      DisplayWidth = 96
      FieldName = 'Yhmc'
      Size = 50
    end
    object qryDundetailsYhdz: TStringField
      DisplayLabel = #32852#31995#22320#22336
      DisplayWidth = 72
      FieldName = 'Yhdz'
      Size = 40
    end
    object qryDundetailsPhoneNumber: TStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldName = 'PhoneNumber'
      Size = 30
    end
    object qryDundetailsCallCount: TIntegerField
      DisplayLabel = #20652#32564#27425#25968
      FieldName = 'CallCount'
    end
    object qryDundetailsCallDatetime: TDateTimeField
      DisplayLabel = #20652#32564#26085#26399
      FieldName = 'CallDatetime'
    end
    object qryDundetailsCallStatus: TStringField
      DisplayLabel = #20652#32564#29366#24577
      FieldName = 'CallStatus'
      Size = 60
    end
    object qryDundetailsWaterfee: TBCDField
      DisplayLabel = #27700#36153#37329#39069
      FieldName = 'Waterfee'
      ReadOnly = True
      Precision = 19
      Size = 2
    end
    object qryDundetailsSewage: TBCDField
      DisplayLabel = #27745#27700#36153
      FieldName = 'Sewage'
      Precision = 18
      Size = 2
    end
    object qryDundetailsTotalsum: TBCDField
      DisplayLabel = #24635#37329#39069
      FieldName = 'Totalsum'
      ReadOnly = True
      Precision = 20
      Size = 2
    end
    object qryDundetailsCbrq: TDateTimeField
      DisplayLabel = #25220#34920#26085#26399
      FieldName = 'Cbrq'
    end
    object qryDundetailsLatedays: TIntegerField
      DisplayLabel = #36831#32564#22825#25968
      FieldName = 'Latedays'
      ReadOnly = True
    end
  end
  object dsDundetails: TDataSource
    DataSet = qryDundetails
    Left = 256
    Top = 72
  end
  object actlstCaller: TActionList
    Left = 432
    Top = 8
    object actStartDun: TAction
      Caption = #24320#22987#20652#32564'(&S)'
      ShortCut = 116
      OnExecute = actStartDunExecute
    end
    object actRefreshTellist: TAction
      Caption = #21047#26032#20219#21153#21015#34920'(&R)'
      OnExecute = actRefreshTellistExecute
    end
  end
  object qryWaterfeedun: TADOQuery
    Connection = conCaller
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'exec uspDunWaterfeelist')
    Left = 40
    Top = 120
  end
  object spDunlog: TADOStoredProc
    Connection = conCaller
    ProcedureName = 'uspDunlog_Insert;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@Channel'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Channeltype'
        Attributes = [paNullable]
        DataType = ftString
        Size = 30
        Value = Null
      end
      item
        Name = '@Action'
        Attributes = [paNullable]
        DataType = ftString
        Size = 30
        Value = Null
      end
      item
        Name = '@Description'
        Attributes = [paNullable]
        DataType = ftString
        Size = 255
        Value = Null
      end
      item
        Name = '@Result'
        Attributes = [paNullable]
        DataType = ftString
        Size = 30
        Value = Null
      end>
    Left = 40
    Top = 320
  end
  object spDun_Insert: TADOStoredProc
    Connection = conCaller
    ProcedureName = 'uspDun_Insert;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@Asbbh'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@Adhhm'
        Attributes = [paNullable]
        DataType = ftString
        Size = 30
        Value = Null
      end
      item
        Name = '@ADunCount'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@ADunStatus'
        Attributes = [paNullable]
        DataType = ftString
        Size = 60
        Value = Null
      end>
    Left = 144
    Top = 320
  end
  object tmrRefresh: TTimer
    Interval = 300000
    OnTimer = tmrRefreshTimer
    Left = 556
    Top = 7
  end
end