u_sms.dfm

利用手机短信信息实现充值的例子

object Form1: TForm1
  Left = 182
  Top = 112
  Width = 977
  Height = 557
  Caption = #32852#21019#36719#20214'-'#31354#20013#20805#20540#31995#32479' V2.0'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 484
    Width = 969
    Height = 19
    BiDiMode = bdLeftToRight
    Panels = <
      item
        Width = 50
      end
      item
        Width = 180
      end
      item
        Width = 80
      end
      item
        Width = 80
      end
      item
        Width = 80
      end
      item
        Width = 80
      end
      item
        Width = 100
      end
      item
        Width = 80
      end
      item
        Width = 50
      end
      item
        Width = 50
      end>
    ParentBiDiMode = False
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 969
    Height = 484
    Align = alClient
    TabOrder = 1
    object ListView1: TListView
      Left = 2
      Top = 15
      Width = 965
      Height = 65
      Hint = #35814#32454#35774#32622#35831#21452#20987
      Align = alClient
      Checkboxes = True
      Color = clMenu
      Columns = <
        item
          Caption = #24207#21495
          Width = 40
        end
        item
          Caption = 'COM'
          Width = 40
        end
        item
          Caption = #35774#22791#29366#24577
          Width = 70
        end
        item
          Caption = #21097#20313
        end
        item
          Caption = #25104#21151#26102#38388
          Width = 70
        end
        item
          Caption = #25104#21151#25968
          Width = 60
        end
        item
          Caption = #22833#36133#25968
          Width = 60
        end
        item
          Caption = #25509#25910#21495#30721
          Width = 100
        end
        item
          Caption = #25552#20132#29366#24577
          Width = 80
        end
        item
          Caption = #20449#24687#20869#23481
          Width = 200
        end
        item
          Caption = #23454#38469'/'#35774#23450'('#26465'/'#26102')'
          Width = 120
        end
        item
          AutoSize = True
        end>
      GridLines = True
      ReadOnly = True
      RowSelect = True
      ParentShowHint = False
      PopupMenu = PopupMenu1
      ShowHint = True
      TabOrder = 0
      ViewStyle = vsReport
      OnCustomDrawItem = ListView1CustomDrawItem
      OnDblClick = ListView1DblClick
    end
    object Memo1: TMemo
      Left = 2
      Top = 80
      Width = 965
      Height = 402
      Align = alBottom
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Lines.Strings = (
        'Memo1')
      ParentShowHint = False
      ReadOnly = True
      ScrollBars = ssVertical
      ShowHint = True
      TabOrder = 1
      OnMouseUp = Memo1MouseUp
    end
  end
  object MainMenu1: TMainMenu
    Left = 192
    Top = 96
    object N20: TMenuItem
      Caption = #31995#32479
      object N25: TMenuItem
        Caption = #36864#20986#31995#32479
        OnClick = N25Click
      end
      object N52: TMenuItem
        Caption = #20462#25913#37197#32622
        OnClick = N52Click
      end
      object N29: TMenuItem
        Caption = #20462#25913#20013#24515
        OnClick = N29Click
      end
      object N56: TMenuItem
        Caption = #35774#32622#31471#21475
        OnClick = N56Click
      end
    end
    object xitong1: TMenuItem
      AutoHotkeys = maManual
      Caption = #35774#22791#31649#29702
      object N4: TMenuItem
        AutoHotkeys = maManual
        Caption = #37325#26032#36830#25509
        OnClick = N4Click
      end
      object N44: TMenuItem
        Caption = #20840#37096#36830#25509
        OnClick = N44Click
      end
      object N6: TMenuItem
        Caption = '------------'
      end
      object N7: TMenuItem
        Caption = #36873#25321#36830#25509
        OnClick = N7Click
      end
      object N8: TMenuItem
        Caption = #20840#37096#26029#24320
        OnClick = N8Click
      end
    end
    object N13: TMenuItem
      Caption = #25968#25454#31649#29702
      object N14: TMenuItem
        Caption = #23548#20837#25968#25454
        OnClick = N14Click
      end
      object N39: TMenuItem
        Caption = #22686#21152#25968#25454
        OnClick = N39Click
      end
      object N45: TMenuItem
        Caption = #23548#20986#25968#25454
        OnClick = N45Click
      end
      object N15: TMenuItem
        Caption = '------------'
      end
      object N32: TMenuItem
        Caption = #28165#31354#25968#25454
        OnClick = N32Click
      end
      object N34: TMenuItem
        Caption = '-----------'
      end
      object N36: TMenuItem
        Caption = #25968#25454#26597#25214
        OnClick = N36Click
      end
    end
    object N47: TMenuItem
      Caption = #20449#24687#31649#29702
      object N17: TMenuItem
        Caption = #25351#23450#36335#24452
        OnClick = N17Click
      end
      object N18: TMenuItem
        Caption = #25509#25910#20449#24687
        OnClick = N18Click
      end
      object N11: TMenuItem
        Caption = #33258#21160#25509#25910
        Checked = True
        OnClick = N11Click
      end
    end
    object N10: TMenuItem
      Caption = #21442#25968#31649#29702
      object N21: TMenuItem
        Caption = #35774#32622#23494#30721
        OnClick = N21Click
      end
      object N22: TMenuItem
        Caption = #35774#32622#36895#24230
        OnClick = N22Click
      end
      object N33: TMenuItem
        Caption = #35774#32622#20013#24515
        OnClick = N33Click
      end
      object N53: TMenuItem
        Caption = #35774#32622#36229#26102
        OnClick = N53Click
      end
    end
    object N1: TMenuItem
      Caption = #24110#21161
      object N2: TMenuItem
        Caption = #19968#38190#21161#25163
        Visible = False
        OnClick = N2Click
      end
      object N24: TMenuItem
        Caption = #25105#35201#27880#20876
        OnClick = N24Click
      end
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '*.txt'
    Filter = '*.txt|*.txt|*.*|*.*'
    Left = 112
    Top = 96
  end
  object PopupMenu1: TPopupMenu
    Left = 232
    Top = 96
    object N23: TMenuItem
      Caption = #21551#21160'/'#20572#27490
      OnClick = N23Click
    end
    object N3: TMenuItem
      Caption = #28165#38500#27492#34892
      OnClick = N3Click
    end
    object N31: TMenuItem
      Caption = #25554#20837#25968#25454
      OnClick = N31Click
    end
    object N19: TMenuItem
      Caption = #21097#20313#32622#38646
    end
    object N40: TMenuItem
      Caption = #31471#21475#35774#32622
      OnClick = N40Click
    end
    object N43: TMenuItem
      Caption = #28165#31354#22833#36133
    end
    object N16: TMenuItem
      Caption = #35814#32454#35774#32622
      OnClick = N16Click
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*.txt'
    Filter = '*.txt|*.txt|'#25152#26377#25991#20214'|*.*'
    Left = 152
    Top = 96
  end
  object Timer1: TTimer
    Interval = 50
    OnTimer = Timer1Timer
    Left = 272
    Top = 40
  end
  object Timer11: TTimer
    Interval = 200
    OnTimer = Timer11Timer
    Left = 416
    Top = 40
  end
end