untmaintainvs.~dfm

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

object FrmMaintainVS: TFrmMaintainVS
  Left = 142
  Top = 107
  Width = 800
  Height = 600
  Caption = #23383#20856#32500#25252
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  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}
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 792
    Height = 41
    ButtonHeight = 31
    Caption = 'ToolBar1'
    TabOrder = 0
    object SpeedButton3: TSpeedButton
      Left = 0
      Top = 2
      Width = 49
      Height = 31
      Caption = #21047#26032
      OnClick = SpeedButton3Click
    end
    object SpeedButton2: TSpeedButton
      Left = 49
      Top = 2
      Width = 49
      Height = 31
      Caption = #26680#26597
    end
    object SpeedButton1: TSpeedButton
      Left = 98
      Top = 2
      Width = 49
      Height = 31
      Caption = #36864#20986
      OnClick = SpeedButton1Click
    end
  end
  object GroupBoxVS: TGroupBox
    Left = 0
    Top = 48
    Width = 786
    Height = 521
    Caption = #32852#31995#20154#20998#32452#34920
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object lbSelected: TLabel
      Left = 160
      Top = 24
      Width = 72
      Height = 12
      Caption = #24050#36873#23545#24212#32452#21035
    end
    object lbForSelect: TLabel
      Left = 278
      Top = 24
      Width = 72
      Height = 12
      Caption = #22791#36873#23545#24212#32452#21035
    end
    object Label2: TLabel
      Left = 400
      Top = 25
      Width = 72
      Height = 12
      Caption = #23545#24212#20851#31995#19968#35272
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object GroupBox2: TGroupBox
      Left = 8
      Top = 25
      Width = 145
      Height = 488
      Caption = #36873#25321#23545#24212#26041#24335
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 88
        Width = 60
        Height = 12
        Caption = #36873#23450#32852#31995#20154
      end
      object Label3: TLabel
        Left = 8
        Top = 160
        Width = 132
        Height = 12
        Caption = #22914#20309#28155#21152#21024#38500#23545#24212#20851#31995#65306
      end
      object Label4: TLabel
        Left = 8
        Top = 176
        Width = 132
        Height = 12
        Caption = #28155#21152#65293#22312#22791#36873#26639#20013#21452#20987#65281
      end
      object Label5: TLabel
        Left = 8
        Top = 192
        Width = 132
        Height = 12
        Caption = #21024#38500#65293#22312#24050#36873#26639#20013#21452#20987#65281
      end
      object RadioButton1: TRadioButton
        Left = 8
        Top = 24
        Width = 121
        Height = 17
        Caption = #30001#32852#31995#20154#23545#24212#32452#21035
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = RadioButton1Click
      end
      object RadioButton2: TRadioButton
        Left = 8
        Top = 48
        Width = 121
        Height = 17
        Caption = #30001#32452#21035#23545#24212#32852#31995#20154
        TabOrder = 1
        OnClick = RadioButton2Click
      end
      object ComboBox1: TComboBox
        Left = 8
        Top = 104
        Width = 129
        Height = 20
        ItemHeight = 12
        TabOrder = 2
        OnSelect = ComboBox1Select
      end
    end
    object StringGrid1: TStringGrid
      Left = 160
      Top = 40
      Width = 113
      Height = 473
      ColCount = 2
      DefaultColWidth = 70
      DefaultRowHeight = 18
      FixedCols = 0
      RowCount = 2
      TabOrder = 1
      OnDblClick = StringGrid1DblClick
      ColWidths = (
        102
        2)
    end
    object StringGrid2: TStringGrid
      Left = 280
      Top = 40
      Width = 113
      Height = 473
      ColCount = 2
      DefaultColWidth = 70
      DefaultRowHeight = 18
      FixedCols = 0
      RowCount = 2
      TabOrder = 2
      OnDblClick = StringGrid2DblClick
      ColWidths = (
        101
        2)
    end
    object DBGrid1: TDBGrid
      Left = 400
      Top = 40
      Width = 377
      Height = 473
      Ctl3D = True
      DataSource = DataSource1
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 3
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
  end
  object DataSource1: TDataSource
    DataSet = DM1.QryHumanVG
    Left = 648
    Top = 72
  end
end