main.~dfm

cmpp协议的delphi解析cmpp协议的点歌系统

object FrmMain: TFrmMain
  Left = 391
  Top = 204
  BorderStyle = bsSingle
  Caption = #28857#27468#31995#32479#25805#20316#24179#21488
  ClientHeight = 418
  ClientWidth = 532
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 568
    Top = 48
    Width = 96
    Height = 13
    Caption = #25968#25454#24211#20013#30340#39640'32'#20301
  end
  object Label2: TLabel
    Left = 568
    Top = 88
    Width = 96
    Height = 13
    Caption = #25968#25454#24211#20013#30340#20302'32'#20301
  end
  object Label3: TLabel
    Left = 568
    Top = 135
    Width = 108
    Height = 13
    Caption = #27491#24120#39034#24207#30340#20108#36827#20195#30721
  end
  object Label4: TLabel
    Left = 568
    Top = 240
    Width = 125
    Height = 13
    Caption = 'MSG_ID'#35299#26512#21518#21508#23383#27573#20540
  end
  object Memo1: TMemo
    Left = 16
    Top = 24
    Width = 505
    Height = 353
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 16
    Top = 0
    Width = 505
    Height = 25
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = '     '
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 1
    object bInit: TButton
      Left = 16
      Top = -3
      Width = 81
      Height = 24
      Caption = #21021' '#22987' '#21270
      TabOrder = 0
      Visible = False
      OnClick = bInitClick
    end
    object bTerminate: TButton
      Left = 120
      Top = -3
      Width = 81
      Height = 24
      Caption = #32467'  '#26463
      TabOrder = 1
      Visible = False
      OnClick = bTerminateClick
    end
    object bSubmit: TButton
      Left = 224
      Top = -2
      Width = 81
      Height = 23
      Caption = #30701#20449#21457#36865
      TabOrder = 2
      Visible = False
      OnClick = bSubmitClick
    end
    object bActiveTest: TButton
      Left = 328
      Top = -3
      Width = 81
      Height = 24
      Caption = #21457#36865#27979#35797#21253'  '
      TabOrder = 3
      Visible = False
      OnClick = bActiveTestClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 392
    Width = 532
    Height = 26
    Panels = <
      item
        Text = #28857#27468#31995#32479#25805#20316#24179#21488'('#35797#29992#29256')'
        Width = 50
      end>
    SimplePanel = False
  end
  object Bt_msg_id: TButton
    Left = 576
    Top = 8
    Width = 97
    Height = 25
    Caption = #35299#26512'msg_id'#20540
    TabOrder = 3
    OnClick = Bt_msg_idClick
  end
  object Ed_high: TEdit
    Left = 558
    Top = 64
    Width = 186
    Height = 21
    TabOrder = 4
  end
  object Ed_low: TEdit
    Left = 558
    Top = 104
    Width = 186
    Height = 21
    TabOrder = 5
  end
  object Memo_bit: TMemo
    Left = 558
    Top = 152
    Width = 186
    Height = 81
    TabOrder = 6
  end
  object Memo_msg_id: TMemo
    Left = 558
    Top = 256
    Width = 186
    Height = 129
    TabOrder = 7
  end
  object ServerSocket1: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnClientConnect = ServerSocket1ClientConnect
    OnClientDisconnect = ServerSocket1ClientDisconnect
    OnClientRead = ServerSocket1ClientRead
    OnClientError = ServerSocket1ClientError
    Left = 416
    Top = 72
  end
  object DB_main: TDatabase
    AliasName = 'playsong1'
    DatabaseName = 'playsong'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME=playsong'
      'SERVER NAME=ts-srv'
      'USER NAME=sa'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'BLOB EDIT LOGGING='
      'LANGDRIVER='
      'SQLQRYMODE='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'DATE MODE=0'
      'SCHEMA CACHE TIME=-1'
      'MAX QUERY TIME=300'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'HOST NAME='
      'APPLICATION NAME='
      'NATIONAL LANG NAME='
      'ENABLE BCD=FALSE'
      'TDS PACKET SIZE=4096'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=32'
      'PASSWORD=')
    SessionName = 'Default'
    Left = 416
    Top = 104
  end
  object Qry_source_data: TQuery
    DatabaseName = 'playsong'
    Left = 480
    Top = 40
  end
  object Qry_waiting_data: TQuery
    DatabaseName = 'playsong'
    Left = 448
    Top = 72
  end
  object Qry_now_data: TQuery
    DatabaseName = 'playsong'
    Left = 384
    Top = 40
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 5000
    OnTimer = Timer1Timer
    Left = 384
    Top = 72
  end
  object Qry_ivr_tmp_data: TQuery
    DatabaseName = 'playsong'
    Left = 448
    Top = 40
  end
  object Qry_ivr_tmp_data_upt: TQuery
    DatabaseName = 'playsong'
    Left = 416
    Top = 40
  end
  object TNowData: TTable
    DatabaseName = 'playsong'
    TableName = 'dbo.Dg_now_data'
    Left = 32
    Top = 40
  end
  object QWating: TQuery
    DatabaseName = 'playsong'
    SQL.Strings = (
      
        '--ANSI== SELECT Src_terminal_id, Dest_terminal_id, send_name, Pl' +
        'ay_time, Star_id, Bless_id, Song_id, Star_txt, Bless_txt, Song_t' +
        'xt, Play_order, Sequence_id, Flow_id, Play_num, Source_addr, Dbo' +
        '_dg_waiting_data."Password"'
      '--ANSI== FROM dbo.Dg_waiting_data Dbo_dg_waiting_data'
      ''
      
        'SELECT Src_terminal_id, Dest_terminal_id, send_name, Play_time, ' +
        'Star_id, Bless_id, Song_id, Star_txt, Bless_txt, Song_txt, Play_' +
        'order, Sequence_id, Flow_id, Play_num, Source_addr, Password'
      'FROM dbo.Dg_waiting_data Dbo_dg_waiting_data')
    Left = 64
    Top = 40
  end
  object BatchMove1: TBatchMove
    Destination = TNowData
    Mappings.Strings = (
      'Src_terminal_id=Src_terminal_id'
      'Dest_terminal_id=Dest_terminal_id'
      'send_name=send_name'
      'Play_time=Play_time'
      'Star_id=Star_id'
      'Bless_id=Bless_id'
      'Song_id=Song_id'
      'Star_txt=Star_txt'
      'Bless_txt=Bless_txt'
      'Song_txt=Song_txt'
      'Play_order=Play_order'
      'Sequence_id=Sequence_id'
      'Play_num=Play_num'
      'Source_addr=Source_addr'
      'Password=Password'
      'msg_id_high=msg_id_high'
      'msg_id_low=msg_id_low'
      'handle=handle')
    Source = QWating
    Left = 64
    Top = 72
  end
  object T_waittonow: TTimer
    Interval = 60000
    OnTimer = T_waittonowTimer
    Left = 96
    Top = 72
  end
  object Qdelewait: TQuery
    DatabaseName = 'playsong'
    Left = 32
    Top = 72
  end
  object UpdateSQL1: TUpdateSQL
    Left = 96
    Top = 40
  end
  object Timer_active_test: TTimer
    Interval = 15000
    OnTimer = Timer_act_test
    Left = 384
    Top = 104
  end
  object Qry_sp_login: TQuery
    DatabaseName = 'playsong'
    Left = 480
    Top = 72
  end
end