unit1.dfm

利用delphi编写的手机短信发送程序

object Form1: TForm1
  Left = 160
  Top = 127
  BorderStyle = bsSingle
  Caption = #24658#22825#30410#36798#30701#20449#29579' Ver 1.05'
  ClientHeight = 461
  ClientWidth = 508
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 128
    Width = 44
    Height = 13
    Caption = #25163#26426#21495#65306
  end
  object Label2: TLabel
    Left = 288
    Top = 128
    Width = 33
    Height = 13
    Caption = #36895#29575#65306
  end
  object Label3: TLabel
    Left = 216
    Top = 128
    Width = 33
    Height = 13
    Caption = #31471#21475#65306
  end
  object Label4: TLabel
    Left = 384
    Top = 280
    Width = 32
    Height = 13
    Caption = 'Label4'
  end
  object Label5: TLabel
    Left = 88
    Top = 456
    Width = 32
    Height = 13
    Caption = 'Label5'
  end
  object Button1: TButton
    Left = 296
    Top = 224
    Width = 75
    Height = 25
    Caption = #21457#36865
    TabOrder = 0
    OnClick = Button1Click
  end
  object AdTerminal1: TAdTerminal
    Left = 16
    Top = 256
    Width = 361
    Height = 105
    CaptureFile = 'APROTERM.CAP'
    ComPort = ApdComPort1
    Scrollback = False
    Color = clBlack
    Emulator = AdTTYEmulator1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clSilver
    Font.Height = -12
    Font.Name = 'Terminal'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 1
  end
  object Memo1: TMemo
    Left = 16
    Top = 168
    Width = 233
    Height = 73
    Lines.Strings = (
      #25163#26426#21457#36865#27979#35797#31243#24207#65292
      'THIS IS ONLY A TEST'#12290)
    TabOrder = 2
  end
  object Memo2: TMemo
    Left = 80
    Top = 272
    Width = 361
    Height = 57
    TabOrder = 3
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 442
    Width = 508
    Height = 19
    BiDiMode = bdLeftToRight
    Panels = <
      item
        Alignment = taRightJustify
        Text = #29366#24577#65306
        Width = 50
      end
      item
        Alignment = taCenter
        Width = 50
      end
      item
        Width = 50
      end>
    ParentBiDiMode = False
    ParentShowHint = False
    ShowHint = True
    SimplePanel = False
    SimpleText = '                   '#25163#26426#21457#36865#27979#35797#31243#24207'   '#38472#24310#36745' 2002/11/9'
  end
  object Button2: TButton
    Left = 304
    Top = 176
    Width = 57
    Height = 25
    Caption = #36830#25509
    TabOrder = 4
    OnClick = Button2Click
  end
  object ComboBox1: TComboBox
    Left = 24
    Top = 144
    Width = 177
    Height = 21
    ItemHeight = 13
    TabOrder = 5
    Text = '8613691010960'
    Items.Strings = (
      '8613691010960')
  end
  object ComboBox2: TComboBox
    Left = 288
    Top = 144
    Width = 97
    Height = 21
    ItemHeight = 13
    TabOrder = 6
    Text = '19200'
    Items.Strings = (
      '300'
      '1200'
      '2400'
      '4800'
      '9600'
      '19200'
      '38400')
  end
  object ComboBox3: TComboBox
    Left = 216
    Top = 144
    Width = 65
    Height = 21
    ItemHeight = 13
    TabOrder = 7
    Text = '1'
    Items.Strings = (
      '1'
      '2'
      '3'
      '4')
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 508
    Height = 49
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 9
    object Button3: TButton
      Left = 48
      Top = 8
      Width = 81
      Height = 33
      Caption = #35774#32622#21442#25968
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 154
      Top = 8
      Width = 81
      Height = 33
      Caption = #27979#35797#36830#25509
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 261
      Top = 8
      Width = 81
      Height = 33
      Caption = #21457#36865#30701#20449
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 368
      Top = 8
      Width = 81
      Height = 33
      Caption = #20572#27490#21457#36865
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = Button6Click
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 49
    Width = 508
    Height = 393
    ActivePage = TabSheet1
    Align = alClient
    DockSite = True
    TabIndex = 0
    TabOrder = 10
    TabPosition = tpBottom
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = #21457#36865#35760#24405
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 500
        Height = 367
        Align = alClient
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnMouseUp = DBGrid1MouseUp
        Columns = <
          item
            Expanded = False
            FieldName = 'ID'
            Width = 19
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NUM'
            Title.Caption = #25163#26426#21495#30721
            Width = 85
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MSG'
            Title.Caption = #30701#20449#20869#23481
            Width = 181
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'STATUS'
            PickList.Strings = (
              #26410#21457
              #24050#21457
              #22833#36133)
            Title.Caption = #21457#36865#29366#24577
            Width = 54
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TIME'
            Title.Caption = #21457#36865#26102#38388
            Width = 124
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = #38169#35823#35760#24405
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ImageIndex = 1
      ParentFont = False
      object DBGrid2: TDBGrid
        Left = 0
        Top = 0
        Width = 500
        Height = 367
        Align = alClient
        DataSource = DataSource2
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnMouseUp = DBGrid2MouseUp
        Columns = <
          item
            Expanded = False
            FieldName = 'ID'
            Width = 18
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NUM'
            Title.Caption = #25163#26426#21495#30721
            Width = 84
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MSG'
            Title.Caption = #30701#20449#20869#23481
            Width = 180
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'STATUS'
            Title.Caption = #21457#36865#29366#24577
            Width = 61
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TIME'
            Title.Caption = #21457#36865#26102#38388
            Width = 120
            Visible = True
          end>
      end
    end
  end
  object ApdComPort1: TApdComPort
    ComNumber = 1
    Open = True
    TraceName = 'APRO.TRC'
    LogName = 'APRO.LOG'
    OnTriggerAvail = ApdComPort1TriggerAvail
    OnTriggerData = ApdComPort1TriggerData
    Left = 392
    Top = 216
  end
  object AdTTYEmulator1: TAdTTYEmulator
    Terminal = AdTerminal1
    Left = 392
    Top = 216
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 392
    Top = 248
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 424
    Top = 216
  end
  object ADODataSet1: TADODataSet
    LockType = ltBatchOptimistic
    CommandText = 'select * from T_SEND'
    Parameters = <>
    Prepared = True
    Left = 392
    Top = 216
  end
  object ADODataSet2: TADODataSet
    CursorType = ctStatic
    CommandText = 'SELECT  *  from T_SEND where STATUS = '#39#22833#36133#39
    Parameters = <>
    Left = 392
    Top = 184
  end
  object DataSource2: TDataSource
    DataSet = ADODataSet2
    Left = 424
    Top = 184
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 3000
    OnTimer = Timer2Timer
    Left = 392
    Top = 248
  end
  object PopupMenu1: TPopupMenu
    Left = 361
    Top = 216
    object N1: TMenuItem
      Caption = #28165#38500#24050#21457#35760#24405
      OnClick = N1Click
    end
  end
  object ADOQuery1: TADOQuery
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'delete  *  from T_SEND where STATUS = '#39#24050#21457#39)
    Left = 424
    Top = 248
  end
  object PopupMenu2: TPopupMenu
    Left = 360
    Top = 248
    object N2: TMenuItem
      Caption = #28165#38500#22833#36133#35760#24405
      OnClick = N2Click
    end
  end
end