untmain.~dfm

1、通过串口连接手机或短信终端发送短信； 2、内置Access数据库

object FrmMain: TFrmMain
  Left = 145
  Top = 108
  Width = 800
  Height = 600
  Caption = #20613#27946#36890#35759#24405
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000777777000000000000000000000078888888887700000000000000
    0007788880000088887000000000000007888800088888000077700000000007
    7800000FF00000FFFF0000000000000880000FF00FC040FFFFFF000000000000
    000FFF0FFC44444FFFFFF00000000000000FF0FFC4444440FFFFFF0000000000
    000F00FC444444440FFFFF0000000000000F0FFC444444444FFFF00000000000
    000F0FC444444FF44FFF00000000000000000FC4444440F40FF0007700000000
    000000C4444444FF000007700000000000000004444444F00000770000000000
    0000000044444400000770000000000000000000000000000887000000000000
    0000000000000008887000000000000000000888888888887700000000000000
    0000000877777777000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000FFF0FFFFFFC03FFFFF803FFFFF000FFFFE00
    03FFF80000FFE000003FC000001F0000000F80000007C0000003E00000012000
    00000000000080000003C0000005C0000003E0000007F000000FF800001FEC00
    003FB600007FD90000FFE68003FF39200FFF0DCFFFF9863FFFC7C1C7FF0FE03F
    F81FF800007FFE0001FFFF800FFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    00000080800080000000800080008080000080808000C0C0C0000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
    0000000000000000000000000000000007888870000000088000800770000080
    0FFC4FFF00000000FFC444FFF000000FFC44444FF0000000FC444F4F07000000
    00444F0070000000800000080000000008888870000000000000000000000007
    00000000000000000007007000000000000000007000F8FF0000F03F0000C00F
    0000800700000003000080010000400000008001000080010000C0030000A007
    0000D00F0000683F00008FF90000C0C30000F0070000}
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 337
    Top = 0
    Width = 0
    Height = 524
    ResizeStyle = rsLine
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 524
    Width = 792
    Height = 30
    Panels = <
      item
        Width = 335
      end
      item
        Width = 50
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 337
    Height = 524
    Align = alLeft
    BevelOuter = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 11
      Width = 39
      Height = 13
      Caption = #21517#31216#65306
    end
    object Label2: TLabel
      Left = 8
      Top = 35
      Width = 39
      Height = 13
      Caption = #22478#24066#65306
    end
    object Label3: TLabel
      Left = 8
      Top = 59
      Width = 39
      Height = 13
      Caption = #20851#38190#35789
    end
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 120
      Width = 337
      Height = 401
      DataSource = DM1.dsCorp
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGridEh1CellClick
      Columns = <
        item
          EditButtons = <>
          FieldName = #21517#31216
          Footers = <>
          Width = 150
        end
        item
          EditButtons = <>
          FieldName = #22478#24066
          Footers = <>
          Width = 50
        end
        item
          EditButtons = <>
          FieldName = #32593#22336
          Footers = <>
          Width = 150
        end
        item
          EditButtons = <>
          FieldName = #30005#23376#37038#31665
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #30005#35805
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #20256#30495
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = #20851#38190#35789
          Footers = <>
        end>
    end
    object EdtCorpCity: TEdit
      Left = 48
      Top = 32
      Width = 281
      Height = 21
      TabOrder = 1
    end
    object EdtCorpKeywords: TEdit
      Left = 48
      Top = 56
      Width = 281
      Height = 21
      TabOrder = 2
    end
    object Button1: TButton
      Left = 72
      Top = 88
      Width = 99
      Height = 25
      Caption = #26597#25214#20844#21496'(&Q)'
      TabOrder = 3
      OnClick = Button1Click
    end
    object Button5: TButton
      Left = 224
      Top = 88
      Width = 97
      Height = 25
      Caption = #26597#25214#20010#20154'(&P)'
      TabOrder = 4
      OnClick = Button5Click
    end
  end
  object Panel2: TPanel
    Left = 337
    Top = 0
    Width = 455
    Height = 524
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 2
    object Label4: TLabel
      Left = 8
      Top = 179
      Width = 39
      Height = 13
      Caption = #22995#21517#65306
    end
    object Label5: TLabel
      Left = 168
      Top = 179
      Width = 39
      Height = 13
      Caption = #24615#21035#65306
    end
    object Label6: TLabel
      Left = 264
      Top = 179
      Width = 65
      Height = 13
      Caption = #20986#29983#26085#26399#65306
    end
    object Label7: TLabel
      Left = 8
      Top = 203
      Width = 39
      Height = 13
      Caption = #22478#24066#65306
    end
    object Label8: TLabel
      Left = 264
      Top = 203
      Width = 65
      Height = 13
      Caption = #37038#25919#32534#30721#65306
    end
    object Label9: TLabel
      Left = 8
      Top = 227
      Width = 39
      Height = 13
      Caption = #22320#22336#65306
    end
    object Label10: TLabel
      Left = 8
      Top = 251
      Width = 39
      Height = 13
      Caption = #20844#21496#65306
    end
    object Label11: TLabel
      Left = 264
      Top = 251
      Width = 39
      Height = 13
      Caption = #32844#21153#65306
    end
    object Label12: TLabel
      Left = 8
      Top = 275
      Width = 39
      Height = 13
      Caption = #30005#37038#65306
    end
    object Label13: TLabel
      Left = 8
      Top = 299
      Width = 39
      Height = 13
      Caption = #36890#35759#65306
    end
    object Label14: TLabel
      Left = 8
      Top = 323
      Width = 39
      Height = 13
      Caption = #30005#35805#65306
    end