📄 u_ipyhdj.dfm

📁 语音坐席,支持录音及语音回访,和自动催款
💻 DFM
📖 第 1 页 / 共 2 页
字号:
上一页 12
        Width = 56
        Height = 14
        Caption = #25152#22312#20809#26426
      end
      object Label19: TLabel
        Left = 44
        Top = 112
        Width = 28
        Height = 14
        Caption = #22791#27880
      end
      object DBComboBox3: TDBComboBox
        Left = 76
        Top = 12
        Width = 117
        Height = 22
        DataField = 'CM'#31867#22411
        DataSource = DataSource1
        ItemHeight = 14
        TabOrder = 0
      end
      object DBEdit7: TDBEdit
        Left = 328
        Top = 12
        Width = 117
        Height = 22
        DataField = 'IP'#22320#22336
        DataSource = DataSource1
        TabOrder = 1
      end
      object DBEdit8: TDBEdit
        Left = 76
        Top = 36
        Width = 117
        Height = 22
        DataField = 'CM'#21457#23556#30005#24179
        DataSource = DataSource1
        TabOrder = 2
      end
      object DBEdit9: TDBEdit
        Left = 328
        Top = 36
        Width = 117
        Height = 22
        DataField = 'CM'#25509#25910#30005#24179
        DataSource = DataSource1
        TabOrder = 3
      end
      object DBEdit10: TDBEdit
        Left = 76
        Top = 60
        Width = 117
        Height = 22
        DataField = #19979#34892'CN'
        DataSource = DataSource1
        TabOrder = 4
      end
      object DBEdit11: TDBEdit
        Left = 328
        Top = 60
        Width = 117
        Height = 22
        DataField = #19978#34892'CN'
        DataSource = DataSource1
        TabOrder = 5
      end
      object DBEdit12: TDBEdit
        Left = 76
        Top = 84
        Width = 117
        Height = 22
        DataField = #25152#22312#20809#26426
        DataSource = DataSource1
        TabOrder = 6
      end
      object DBEdit13: TDBEdit
        Left = 76
        Top = 108
        Width = 369
        Height = 22
        DataField = #22791#27880
        DataSource = DataSource1
        TabOrder = 7
      end
    end
    object TabSheet3: TTabSheet
      Caption = #26448#26009#20449#24687
      ImageIndex = 2
      object DBGridEh1: TDBGridEh
        Left = 0
        Top = 0
        Width = 457
        Height = 240
        Align = alClient
        AutoFitColWidths = True
        DataSource = DataSource2
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = ANSI_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -14
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        UseMultiTitle = True
        DefaultColumnState = False
        lineColor = clGreen
        SelectedColor = clHighlight
        SelectedFontColor = clWhite
        activerowcolor = True
        rowsinglecolor = clMoneyGreen
        rowdoublecolor = clCream
        Columns = <
          item
            EditButtons = <>
            FieldName = #39033#30446
            Footers = <>
            drawcurrency = False
          end
          item
            EditButtons = <>
            FieldName = #25968#37327
            Footers = <>
            drawcurrency = False
          end>
      end
    end
  end
  object Memo1: TMemo
    Left = 8
    Top = 380
    Width = 185
    Height = 89
    TabOrder = 3
    Visible = False
    WordWrap = False
  end
  object BitBtn2: TBitBtn
    Left = 212
    Top = 284
    Width = 117
    Height = 25
    Hint = #22320#22336#20449#24687#31561
    Caption = #22797#21046#19994#21153#20449#24687
    TabOrder = 4
    OnClick = BitBtn2Click
  end
  object DSIPYH: TDataSource
    DataSet = QIPYHXX
    Left = 156
    Top = 212
  end
  object QIPYHXX: TQuery
    CachedUpdates = True
    BeforeEdit = QIPYHXXBeforeEdit
    BeforePost = QIPYHXXBeforePost
    AfterPost = QIPYHXXAfterPost
    OnNewRecord = QIPYHXXNewRecord
    DatabaseName = 'CTIC'
    SQL.Strings = (
      'Select * From CATVIP.'#29992#25143#20449#24687
      'Where 1<0')
    UpdateObject = UpdateSQL1
    Left = 92
    Top = 212
  end
  object QIPPub: TQuery
    DatabaseName = 'CTIC'
    Left = 92
    Top = 244
  end
  object QIPSBXX: TQuery
    CachedUpdates = True
    AfterPost = QIPYHXXAfterPost
    OnNewRecord = QIPSBXXNewRecord
    DatabaseName = 'CTIC'
    SQL.Strings = (
      'Select * From CATVIP.'#35774#22791#20449#24687)
    UpdateObject = UpdateSQL2
    Left = 208
    Top = 213
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update CATVIP.'#29992#25143#20449#24687
      'set'
      '  ID = :ID,'
      '  MAC'#22320#22336' = :MAC'#22320#22336','
      '  IP'#22320#22336' = :IP'#22320#22336','
      '  '#29992#25143#20195#30721' = :'#29992#25143#20195#30721','
      '  '#29992#25143#22995#21517' = :'#29992#25143#22995#21517','
      '  '#36523#20221#35777#21495' = :'#36523#20221#35777#21495','
      '  '#21333#20301' = :'#21333#20301','
      '  '#22320#22336' = :'#22320#22336','
      '  '#32852#31995#26041#24335' = :'#32852#31995#26041#24335','
      '  '#26376#31199#26631#20934' = :'#26376#31199#26631#20934','
      '  '#23433#35013#26085#26399' = :'#23433#35013#26085#26399','
      '  '#23433#35013#20154#21592' = :'#23433#35013#20154#21592','
      '  '#25253#35013#26469#28304' = :'#25253#35013#26469#28304','
      '  '#35745#36153#26085#26399' = :'#35745#36153#26085#26399','
      '  '#29992#25143#29366#24577' = :'#29992#25143#29366#24577','
      '  '#22791#27880' = :'#22791#27880','
      '  '#21150#29702#26085#26399' = :'#21150#29702#26085#26399','
      '  '#25805#20316#21592' = :'#25805#20316#21592','
      '  '#23485#24102#29992#25143#31867#22411' = :'#23485#24102#29992#25143#31867#22411
      'where'
      '  ID = :OLD_ID')
    InsertSQL.Strings = (
      'insert into CATVIP.'#29992#25143#20449#24687
      '  (ID, MAC'#22320#22336', IP'#22320#22336', '#29992#25143#20195#30721', '#29992#25143#22995#21517', '#36523#20221#35777#21495', '#21333#20301', '#22320#22336', '#32852#31995#26041#24335', '
      '   '#26376#31199#26631#20934', '#23433#35013#26085#26399', '#23433#35013#20154#21592', '#25253#35013#26469#28304', '#35745#36153#26085#26399', '#29992#25143#29366#24577', '#22791#27880', '#21150#29702#26085#26399', '
      '   '#25805#20316#21592', '#23485#24102#29992#25143#31867#22411')'
      'values'
      '  (:ID, :MAC'#22320#22336', :IP'#22320#22336', :'#29992#25143#20195#30721', :'#29992#25143#22995#21517', :'#36523#20221#35777#21495', :'#21333#20301', :'#22320#22336', '
      '   :'#32852#31995#26041#24335', :'#26376#31199#26631#20934', :'#23433#35013#26085#26399', :'#23433#35013#20154#21592', :'#25253#35013#26469#28304', :'#35745#36153#26085#26399', :'#29992#25143#29366#24577', '
      '   :'#22791#27880', :'#21150#29702#26085#26399', :'#25805#20316#21592', :'#23485#24102#29992#25143#31867#22411')')
    DeleteSQL.Strings = (
      'delete from CATVIP.'#29992#25143#20449#24687
      'where'
      '  ID = :OLD_ID')
    Left = 124
    Top = 212
  end
  object UpdateSQL2: TUpdateSQL
    ModifySQL.Strings = (
      'update CATVIP.'#35774#22791#20449#24687
      'set'
      '  ID = :ID,'
      '  CM'#31867#22411' = :CM'#31867#22411','
      '  IP'#22320#22336' = :IP'#22320#22336','
      '  CM'#21457#23556#30005#24179' = :CM'#21457#23556#30005#24179','
      '  CM'#25509#25910#30005#24179' = :CM'#25509#25910#30005#24179','
      '  '#19979#34892'CN = :'#19979#34892'CN,'
      '  '#19978#34892'CN = :'#19978#34892'CN,'
      '  '#25152#22312#20809#26426' = :'#25152#22312#20809#26426','
      '  '#22791#27880' = :'#22791#27880
      'where'
      '  ID = :OLD_ID')
    InsertSQL.Strings = (
      'insert into CATVIP.'#35774#22791#20449#24687
      '  (ID, CM'#31867#22411', IP'#22320#22336', CM'#21457#23556#30005#24179', CM'#25509#25910#30005#24179', '#19979#34892'CN, '#19978#34892'CN, '#25152#22312#20809#26426', '
      '   '#22791#27880')'
      'values'
      '  (:ID, :CM'#31867#22411', :IP'#22320#22336', :CM'#21457#23556#30005#24179', :CM'#25509#25910#30005#24179', :'#19979#34892'CN, :'#19978#34892'CN, :'#25152#22312#20809#26426', '
      '   :'#22791#27880')')
    DeleteSQL.Strings = (
      'delete from CATVIP.'#35774#22791#20449#24687
      'where'
      '  ID = :OLD_ID')
    Left = 240
    Top = 213
  end
  object DataSource1: TDataSource
    DataSet = QIPSBXX
    Left = 272
    Top = 213
  end
  object QIPCLXX: TQuery
    CachedUpdates = True
    BeforePost = QIPCLXXBeforePost
    AfterPost = QIPYHXXAfterPost
    AfterDelete = QIPYHXXAfterPost
    DatabaseName = 'CTIC'
    SQL.Strings = (
      'Select * From CATVIP.'#26448#26009#20449#24687)
    UpdateObject = UpdateSQL3
    Left = 324
    Top = 213
  end
  object UpdateSQL3: TUpdateSQL
    ModifySQL.Strings = (
      'update CATVIP.'#26448#26009#20449#24687
      'set'
      '  ID = :ID,'
      '  SN = :SN,'
      '  '#39033#30446' = :'#39033#30446','
      '  '#25968#37327' = :'#25968#37327
      'where'
      '  ID = :OLD_ID and'
      '  SN = :OLD_SN')
    InsertSQL.Strings = (
      'insert into CATVIP.'#26448#26009#20449#24687
      '  (ID, SN, '#39033#30446', '#25968#37327')'
      'values'
      '  (:ID, :SN, :'#39033#30446', :'#25968#37327')')
    DeleteSQL.Strings = (
      'delete from CATVIP.'#26448#26009#20449#24687
      'where'
      '  ID = :OLD_ID and'
      '  SN = :OLD_SN')
    Left = 356
    Top = 213
  end
  object DataSource2: TDataSource
    DataSet = QIPCLXX
    Left = 388
    Top = 213
  end
end
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -