maing.dfm

中国联通 CDMA点对点短信话单分析入库的程序

object Form1: TForm1
  Left = 239
  Top = 144
  Width = 696
  Height = 480
  Caption = 'G'#32593#30701#20449#25253#34920#23548#20837
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object RzSplitter1: TRzSplitter
    Left = 0
    Top = 0
    Width = 688
    Height = 453
    FixedPane = fpLowerRight
    Orientation = orVertical
    Position = 389
    Percent = 86
    HotSpotVisible = True
    SplitterWidth = 7
    UseGradients = True
    Align = alClient
    TabOrder = 0
    BarSize = (
      0
      389
      688
      396)
    UpperLeftControls = (
      RzMemo1)
    LowerRightControls = (
      RzPanel1)
    object RzMemo1: TRzMemo
      Left = 0
      Top = 0
      Width = 688
      Height = 389
      Align = alClient
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object RzPanel1: TRzPanel
      Left = 0
      Top = 0
      Width = 688
      Height = 57
      Align = alClient
      TabOrder = 0
      object RzButton1: TRzButton
        Left = 16
        Top = 16
        Caption = #21551#21160
        HotTrack = True
        TabOrder = 0
        OnClick = RzButton1Click
      end
      object RzButton2: TRzButton
        Left = 104
        Top = 16
        Caption = #20572#27490
        Enabled = False
        HotTrack = True
        TabOrder = 1
        OnClick = RzButton2Click
      end
      object RzButton3: TRzButton
        Left = 192
        Top = 16
        Caption = #25163#21160#25191#34892
        HotTrack = True
        TabOrder = 2
        OnClick = RzButton3Click
      end
      object RzDateTimeEdit1: TRzDateTimeEdit
        Left = 288
        Top = 16
        Width = 121
        Height = 21
        EditType = etDate
        Format = 'yyyy-mm-dd'
        TabOrder = 3
      end
      object LEdit1: TLabeledEdit
        Left = 560
        Top = 14
        Width = 57
        Height = 21
        EditLabel.Width = 48
        EditLabel.Height = 13
        EditLabel.Caption = #24320#22987#26102#38388
        LabelPosition = lpLeft
        TabOrder = 4
      end
      object CheckBox1: TCheckBox
        Left = 416
        Top = 16
        Width = 81
        Height = 17
        Caption = #33258#21160#24320#22987
        TabOrder = 5
      end
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 80
    Top = 404
  end
  object Conn: TOraSession
    Options.NeverConnect = True
    Left = 48
    Top = 288
  end
  object ss_conn: TADOConnection
    CommandTimeout = 1000
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initia' +
      'l Catalog=mobile;Data Source=localhost'
    ConnectionTimeout = 300
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 96
    Top = 288
  end
  object CreateRpt: TADOCommand
    CommandText = 
      'select send_time as sendtime, orig_mp as callingnumber,count(*) ' +
      ' as sendcount from GSM20041119'
    CommandTimeout = 0
    Connection = ss_conn
    Parameters = <>
    Left = 152
    Top = 288
  end
  object queryrpt: TADOQuery
    Connection = ss_conn
    Parameters = <>
    SQL.Strings = (
      'select * from t_rpt_count')
    Left = 192
    Top = 288
    object queryrptsendtime: TDateTimeField
      FieldName = 'sendtime'
    end
    object queryrptcallingnumber: TStringField
      FieldName = 'callingnumber'
    end
    object queryrptsendcount: TIntegerField
      FieldName = 'sendcount'
    end
  end
  object insertora: TOraSQL
    Session = Conn
    SQL.Strings = (
      'insert into t_rpt_count (phonenum,sendtime,sendcount,nettype)'
      'values (:phonenum,:sendtime,:sendcount,'#39'G'#39')')
    Left = 248
    Top = 288
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'phonenum'
      end
      item
        DataType = ftUnknown
        Name = 'sendtime'
      end
      item
        DataType = ftUnknown
        Name = 'sendcount'
      end>
  end
  object DelOra: TOraSQL
    Session = Conn
    SQL.Strings = (
      
        'delete from t_rpt_count where sendtime=trunc(:rptdate) and netty' +
        'pe='#39'G'#39)
    Left = 288
    Top = 288
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'rptdate'
      end>
  end
end