unit1.~dfm

一个短信发送程序,先提供一个业务平台

object Form1: TForm1
  Left = 2
  Top = -4
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #30701#20449#19994#21153#24179#21488
  ClientHeight = 721
  ClientWidth = 1020
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Icon.Data = {
    0000010001001010000001000800680500001600000028000000100000002000
    0000010008000000000040010000000000000000000000010000000000000000
    0000FFFFFF00CE6500009F9C500077BB80004BDCB60020FAEB0010FFFE0001FF
    FF002EF1DA00A6A051003DD5B80000FFFF0003FEFC0059BF9500C76D0E00839F
    5E0018EFE3008D975300D95D000067B4820014F1E700A785330070AE770050C4
    9E00CF640000889A570057BF9300CE640000A188390002FDFC003ED2B400B17C
    250007F9F60016EFE500BC741800B07D270007FAF70093944B009F8A3D0002FE
    FD0067B4810072AC740055C09600D85D0000CF650000D5600000BF7216001DEC
    DE0063B58400D85E0000D65F0000D562020054C39A0031DCC400B8751E00D262
    0000B97E29004DD1AB0013FBF20033E4CB0058C89E00919C5600D46A03000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000002393A0C3B3C3D3E3F0202020202000002
    3334350C0C0C0C363738020202000002022E2F300C0C0C0C31322D0202000002
    0202022A0C0C0C0C2B2C2D020200000202020227280C0C0C2913020200000002
    02020224250C0C0C260202000000000202020220210C0C222302000000000002
    0202021D1E0C0C1F02020200000000020202021A0C0C0C1B021C020200000002
    020202170C0C0C180219020202000002020202140C0C0C151602020202000002
    020202100C0C0C0C1112130202000002020202020B0C0C0C0C0D0E0F02000002
    0202020202030405060708090A00000000000000000000000000000000000000
    0000000000000000000000000000000000000001000000030000000700000003
    000000010000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 16
    Top = 184
    Width = 84
    Height = 13
    Caption = #22686#21152#32676#21457#21495#30721#65306
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 696
    Width = 1020
    Height = 25
    Panels = <
      item
        Text = #20029#27700#34067#24310#31185#25216#26377#38480#20844#21496
        Width = 180
      end
      item
        Width = 50
      end>
    ParentColor = True
    SimplePanel = False
  end
  object Memo1: TMemo
    Left = 8
    Top = 208
    Width = 169
    Height = 483
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 1
  end
  object DBGrid1: TDBGrid
    Left = 192
    Top = 208
    Width = 817
    Height = 483
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 1001
    Height = 65
    Caption = #26597#35810
    TabOrder = 3
    object Label1: TLabel
      Left = 16
      Top = 28
      Width = 48
      Height = 13
      Caption = #29992#25143#32452#65306
    end
    object Label5: TLabel
      Left = 176
      Top = 32
      Width = 60
      Height = 13
      Caption = #27880#20876#26102#38388#65306
    end
    object Label6: TLabel
      Left = 456
      Top = 32
      Width = 60
      Height = 13
      Caption = #25163#26426#21495#30721#65306
    end
    object Label7: TLabel
      Left = 696
      Top = 32
      Width = 36
      Height = 13
      Caption = #21345#21495#65306
    end
    object ComboBoxEx1: TComboBoxEx
      Left = 72
      Top = 27
      Width = 81
      Height = 22
      ItemsEx.CaseSensitive = False
      ItemsEx.SortType = stNone
      ItemsEx = <
        item
          Caption = #20840#37096
        end
        item
          Caption = #33714#37117
        end
        item
          Caption = #38738#30000
        end
        item
          Caption = #40857#27849
        end
        item
          Caption = #32537#20113
        end
        item
          Caption = #24198#20803
        end
        item
          Caption = #20113#21644
        end
        item
          Caption = #26223#23425
        end
        item
          Caption = #26494#38451
        end
        item
          Caption = #36930#26124
        end
        item
          Caption = #23398#26657
        end>
      StyleEx = []
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 16
      ParentFont = False
      TabOrder = 0
      Text = '---'#35831#36873#25321'---'
      OnClick = Button6Click
      DropDownCount = 8
    end
    object DateTimePicker1: TDateTimePicker
      Left = 239
      Top = 28
      Width = 186
      Height = 21
      CalAlignment = dtaLeft
      Date = 38889.3725120602
      Time = 38889.3725120602
      DateFormat = dfShort
      DateMode = dmComboBox
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object Button2: TButton
      Left = 887
      Top = 26
      Width = 74
      Height = 25
      Caption = #26597#35810
      TabOrder = 2
      OnClick = Button2Click
    end
    object Edit1: TEdit
      Left = 528
      Top = 29
      Width = 121
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 3
    end
    object Edit2: TEdit
      Left = 736
      Top = 28
      Width = 105
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 4
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 80
    Width = 1001
    Height = 97
    Caption = #32676#21457
    TabOrder = 4
    object Label3: TLabel
      Left = 16
      Top = 67
      Width = 60
      Height = 13
      Caption = #30701#20449#20869#23481#65306
    end
    object Label4: TLabel
      Left = 671
      Top = 28
      Width = 60
      Height = 13
      Caption = #21457#36865#26102#38388#65306
    end
    object Label8: TLabel
      Left = 16
      Top = 29
      Width = 48
      Height = 13
      Caption = #29992#25143#32452#65306
    end
    object Label9: TLabel
      Left = 247
      Top = 29
      Width = 35
      Height = 13
      Caption = 'ID'#21495#65306
    end
    object Label10: TLabel
      Left = 349
      Top = 29
      Width = 12
      Height = 13
      Caption = #21040
    end
    object Label11: TLabel
      Left = 446
      Top = 28
      Width = 36
      Height = 13
      Caption = #24615#21035#65306
    end
    object Button3: TButton
      Left = 885
      Top = 40
      Width = 73
      Height = 25
      Caption = #21457#36865
      TabOrder = 0
      OnClick = Button3Click
    end
    object Edit3: TEdit
      Left = 88
      Top = 64
      Width = 753
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 1
    end
    object CheckBox1: TCheckBox
      Left = 590
      Top = 27
      Width = 73
      Height = 17
      Caption = #23450#26102#21457#36865
      TabOrder = 2
      OnClick = Button7Click
    end
    object Edit4: TEdit
      Left = 737
      Top = 24
      Width = 107
      Height = 21
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 3
    end
    object ComboBoxEx2: TComboBoxEx
      Left = 72
      Top = 24
      Width = 81
      Height = 22
      ItemsEx.CaseSensitive = False
      ItemsEx.SortType = stNone
      ItemsEx = <
        item
          Caption = #20840#37096
        end
        item
          Caption = #33714#37117
        end
        item
          Caption = #38738#30000
        end
        item
          Caption = #40857#27849
        end
        item
          Caption = #32537#20113
        end
        item
          Caption = #24198#20803
        end
        item
          Caption = #20113#21644
        end
        item
          Caption = #26223#23425
        end
        item
          Caption = #26494#38451
        end
        item
          Caption = #36930#26124
        end
        item
          Caption = #23398#26657
        end
        item
          Caption = #21333#21457
        end>
      StyleEx = []
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 16
      TabOrder = 4
      Text = '---'#35831#36873#25321'---'
      OnClick = Button4Click
      DropDownCount = 8
    end
    object Edit5: TEdit
      Left = 279
      Top = 24
      Width = 65
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 5
    end
    object Edit6: TEdit
      Left = 364
      Top = 24
      Width = 71
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 6
    end
    object CheckBox2: TCheckBox
      Left = 173
      Top = 24
      Width = 73
      Height = 25
      Caption = #38480#23450#21457#36865
      TabOrder = 7
    end
    object ComboBox1: TComboBox
      Left = 481
      Top = 24
      Width = 73
      Height = 21
      ItemHeight = 13
      TabOrder = 8
      Text = #19981#38480
      Items.Strings = (
        #19981#38480
        #30007
        #22899)
    end
  end
  object Button6: TButton
    Left = 944
    Top = 184
    Width = 57
    Height = 17
    Caption = #28155#21152
    TabOrder = 5
    Visible = False
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 941
    Top = 184
    Width = 57
    Height = 17
    Caption = 'Button7'
    Enabled = False
    TabOrder = 6
    Visible = False
    OnClick = Button7Click
  end
  object Button5: TButton
    Left = 125
    Top = 184
    Width = 52
    Height = 20
    Caption = #28165#23631
    TabOrder = 7
    OnClick = Button5Click
  end
  object Button1: TButton
    Left = 189
    Top = 184
    Width = 65
    Height = 20
    Caption = #25351#20196#31995#32479
    TabOrder = 8
    OnClick = Button1Click
  end
  object Button4: TButton
    Left = 944
    Top = 184
    Width = 49
    Height = 17
    Caption = 'Button4'
    TabOrder = 9
    Visible = False
    OnClick = Button4Click
  end
  object Database1: TDatabase
    AliasName = 'CMPP3'
    Connected = True
    DatabaseName = 'LS'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=09166'
      'PASSWORD=09166')
    SessionName = 'Default'
    Left = 321
    Top = 261
  end
  object Query1: TQuery
    DatabaseName = 'LS'
    Left = 417
    Top = 269
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 360
    Top = 256
  end
  object Query2: TQuery
    DatabaseName = 'LS'
    Left = 456
    Top = 272
  end
  object Query3: TQuery
    DatabaseName = 'LS'
    Left = 536
    Top = 304
  end
end