main.dfm

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

object Form1: TForm1
  Left = 202
  Top = 108
  Width = 696
  Height = 480
  Caption = #28857#23545#28857#30701#20449#35805#21333#25552#21462#31243#24207
  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 RzPanel1: TRzPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 41
    Align = alTop
    BorderOuter = fsFlat
    TabOrder = 0
    object RzButton1: TRzButton
      Left = 8
      Top = 8
      Width = 81
      Caption = #21551#21160
      HotTrack = True
      TabOrder = 0
      OnClick = RzButton1Click
    end
    object RzButton2: TRzButton
      Left = 104
      Top = 8
      Width = 81
      Caption = #20572#27490
      HotTrack = True
      TabOrder = 1
      OnClick = RzButton2Click
    end
  end
  object RzPageControl1: TRzPageControl
    Left = 0
    Top = 41
    Width = 688
    Height = 412
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 1
    FixedDimension = 19
    object TabSheet1: TRzTabSheet
      Caption = #31995#32479#20449#24687
      object Splitter1: TSplitter
        Left = 0
        Top = 262
        Width = 684
        Height = 10
        Cursor = crVSplit
        Align = alBottom
      end
      object RzMemo1: TRzMemo
        Left = 0
        Top = 0
        Width = 684
        Height = 262
        Align = alClient
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object RzGroupBox1: TRzGroupBox
        Left = 0
        Top = 272
        Width = 684
        Height = 117
        Align = alBottom
        Caption = #22788#29702#25991#20214#21015#34920
        TabOrder = 1
        object DBGrid1: TDBGrid
          Left = 1
          Top = 14
          Width = 682
          Height = 86
          Align = alClient
          DataSource = DS_FILELOAD
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'FILENAME'
              Width = 119
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'LINENUM'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FILESIZE'
              Width = 83
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DEALDATE'
              Width = 81
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FILEID'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SMSCENTER'
              Width = 144
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FILEDATE'
              Visible = True
            end>
        end
        object ProgressBar1: TProgressBar
          Left = 1
          Top = 100
          Width = 682
          Height = 16
          Align = alBottom
          TabOrder = 1
        end
      end
    end
    object TabSheet2: TRzTabSheet
      Caption = #21442#25968#35774#32622
      object RzCheckBox1: TRzCheckBox
        Left = 16
        Top = 264
        Width = 115
        Height = 17
        Caption = #24320#21551#21518#33258#21160#36816#34892
        State = cbUnchecked
        TabOrder = 0
      end
      object LEdit1: TLabeledEdit
        Left = 152
        Top = 16
        Width = 121
        Height = 21
        EditLabel.Width = 96
        EditLabel.Height = 13
        EditLabel.Caption = 'GSM'#35805#21333#21516#27493#26102#38388
        TabOrder = 1
        Visible = False
      end
      object LEdit2: TLabeledEdit
        Left = 152
        Top = 56
        Width = 121
        Height = 21
        EditLabel.Width = 139
        EditLabel.Height = 13
        EditLabel.Caption = 'CDMA'#25991#20214#26816#26597#38388#38548#65288#31186#65289
        TabOrder = 2
      end
      object CheckBox2: TCheckBox
        Left = 16
        Top = 56
        Width = 97
        Height = 17
        Caption = #21516#27493'CDMA'#35805#21333
        TabOrder = 3
        OnClick = CheckBox2Click
      end
      object CheckBox1: TCheckBox
        Left = 16
        Top = 16
        Width = 97
        Height = 17
        Caption = #21516#27493'GSM'#35805#21333
        TabOrder = 4
        Visible = False
      end
      object Edit1: TEdit
        Left = 16
        Top = 120
        Width = 217
        Height = 21
        TabOrder = 5
      end
      object Button1: TButton
        Left = 240
        Top = 120
        Width = 33
        Height = 25
        Caption = '...'
        TabOrder = 6
        OnClick = Button1Click
      end
      object RzButton3: TRzButton
        Left = 16
        Top = 320
        Caption = #20445#23384#35774#32622
        HotTrack = True
        TabOrder = 7
        OnClick = RzButton3Click
      end
      object LEdit3: TLabeledEdit
        Left = 152
        Top = 96
        Width = 121
        Height = 21
        EditLabel.Width = 92
        EditLabel.Height = 13
        EditLabel.Caption = #25991#20214#25193#23637#21517'(*.DAT'
        TabOrder = 8
      end
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 272
    Top = 72
  end
  object Conn: TOraSession
    Options.NeverConnect = True
    Username = 'jgdm'
    Password = 'jgdmuser'
    Server = 'csdbs'
    Connected = True
    Left = 297
    Top = 5
  end
  object RzSelectFolderDialog1: TRzSelectFolderDialog
    Left = 65
    Top = 149
  end
  object Timer2: TTimer
    Enabled = False
    OnTimer = Timer2Timer
    Left = 273
    Top = 117
  end
  object SQ1: TSmartQuery
    Session = Conn
    Left = 256
    Top = 8
  end
  object ins_cdma: TOraSQL
    Session = Conn
    SQL.Strings = (
      'insert into t_c_cdr('
      'RecNo,'
      'CallType,'
      'CallingNumber,'
      'CalledNumber,'
      'RegisterTime,'
      'SendTime,'
      'TextLength,'
      'LastStatus,'
      'ServiceType,'
      'ServiceType_Ext,'
      'LangType,'
      'Priority,'
      'ChargedParty) values ('
      ':RecNo,'
      ':CallType,'
      ':CallingNumber,'
      ':CalledNumber,'
      ':RegisterTime,'
      ':SendTime,'
      ':TextLength,'
      ':LastStatus,'
      ':ServiceType,'
      ':ServiceType_Ext,'
      ':LangType,'
      ':Priority,'
      ':ChargedParty)')
    Left = 193
    Top = 85
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'RecNo'
      end
      item
        DataType = ftUnknown
        Name = 'CallType'
      end
      item
        DataType = ftUnknown
        Name = 'CallingNumber'
      end
      item
        DataType = ftUnknown
        Name = 'CalledNumber'
      end
      item
        DataType = ftUnknown
        Name = 'RegisterTime'
      end
      item
        DataType = ftUnknown
        Name = 'SendTime'
      end
      item
        DataType = ftUnknown
        Name = 'TextLength'
      end
      item
        DataType = ftUnknown
        Name = 'LastStatus'
      end
      item
        DataType = ftUnknown
        Name = 'ServiceType'
      end
      item
        DataType = ftUnknown
        Name = 'ServiceType_Ext'
      end
      item
        DataType = ftUnknown
        Name = 'LangType'
      end
      item
        DataType = ftUnknown
        Name = 'Priority'
      end
      item
        DataType = ftUnknown
        Name = 'ChargedParty'
      end>
  end
  object DS_FILELOAD: TOraDataSource
    DataSet = t_c_fileload
    Left = 169
    Top = 389
  end
  object t_c_fileload: TSmartQuery
    Session = Conn
    SQL.Strings = (
      'select * from t_c_fileload')
    Left = 121
    Top = 389
    object t_c_fileloadFILENAME: TStringField
      DisplayLabel = #25991#20214#21517
      FieldName = 'FILENAME'
      Size = 255
    end
    object t_c_fileloadFILESIZE: TFloatField
      DisplayLabel = #23454#38469#23548#20837#34892#25968
      FieldName = 'FILESIZE'
    end
    object t_c_fileloadDEALDATE: TDateTimeField
      DisplayLabel = #22788#29702#26085#26399
      FieldName = 'DEALDATE'
    end
    object t_c_fileloadFILEID: TStringField
      DisplayLabel = #25991#20214#32534#21495
      FieldName = 'FILEID'
      Size = 4
    end
    object t_c_fileloadSMSCENTER: TStringField
      DisplayLabel = #30701#20449#20013#24515#21495
      FieldName = 'SMSCENTER'
      Size = 24
    end
    object t_c_fileloadLINENUM: TFloatField
      DisplayLabel = #25991#20214#34892#25968
      FieldName = 'LINENUM'
    end
    object t_c_fileloadFILEDATE: TStringField
      DisplayLabel = #25991#20214#29983#25104#26085#26399
      FieldName = 'FILEDATE'
      Size = 14
    end
  end
end