untlogin.~dfm

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

object FrmLogin: TFrmLogin
  Left = 288
  Top = 251
  Width = 371
  Height = 293
  Caption = #30331#24405
  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
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 112
    Top = 24
    Width = 128
    Height = 21
    Caption = #29992' '#25143' '#30331' '#24405
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object SpdBtnOK: TSpeedButton
    Left = 80
    Top = 184
    Width = 65
    Height = 33
    Cursor = crHandPoint
    Caption = #30830#23450
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    NumGlyphs = 4
    ParentFont = False
    OnClick = SpdBtnOKClick
  end
  object SpdBtnCancel: TSpeedButton
    Left = 224
    Top = 184
    Width = 65
    Height = 33
    Cursor = crHandPoint
    Caption = #21462#28040
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    NumGlyphs = 4
    ParentFont = False
    OnClick = SpdBtnCancelClick
  end
  object lblConnect: TLabel
    Left = 40
    Top = 224
    Width = 3
    Height = 13
  end
  object Panel2: TPanel
    Left = 40
    Top = 56
    Width = 289
    Height = 113
    BevelOuter = bvLowered
    BevelWidth = 2
    TabOrder = 0
    object Label2: TLabel
      Left = 41
      Top = 29
      Width = 68
      Height = 16
      Caption = #29992#25143#21517#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 40
      Top = 68
      Width = 69
      Height = 16
      Caption = #21475'  '#20196#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Edit_username: TEdit
      Left = 129
      Top = 29
      Width = 121
      Height = 21
      BevelInner = bvLowered
      CharCase = ecUpperCase
      Ctl3D = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imDisable
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      OnEnter = Edit_usernameEnter
      OnKeyDown = Edit_usernameKeyDown
    end
    object edit_password: TEdit
      Left = 129
      Top = 68
      Width = 121
      Height = 21
      BevelInner = bvLowered
      Ctl3D = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imDisable
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ParentCtl3D = False
      ParentFont = False
      PasswordChar = '*'
      TabOrder = 1
      OnKeyDown = edit_passwordKeyDown
    end
  end
end