logon.dfm

我自己用的Delphi函数单元 具体说明见打包文件的HELP目录下面

object LogonForm: TLogonForm
  Left = 125
  Top = 138
  ActiveControl = txtUserID
  BorderStyle = bsDialog
  Caption = '登录'
  ClientHeight = 238
  ClientWidth = 372
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object lblUserID: TLabel
    Left = 84
    Top = 23
    Width = 36
    Height = 12
    Caption = '工号：'
  end
  object lblPassword: TLabel
    Left = 84
    Top = 63
    Width = 36
    Height = 12
    Caption = '口令：'
  end
  object imgLog: TImage
    Left = 24
    Top = 17
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {
      055449636F6E0000010001002020040000000000E80200001600000028000000
      2000000040000000010004000000000000020000000000000000000000000000
      0000000000000000000080000080000000808000800000008000800080800000
      C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
      FFFFFF0000000000000000000000000000000000000000033000000000000000
      0000000000000037330000000000000000000000000008B73B00000000000000
      00000000000007B73B0000000000000000000000000000073B00000000000000
      00000000000003373B0000000000000000000000000008B73B00000000000000
      00000000000037B73B0000000000000000000000000008773B00000088000000
      00000000000000073B000007FF70000000000000000000373B00007FFFF70000
      00000000000003B73B0007F8877F70000000000000003BB73B007FFF788FF700
      00000000000008B73B07F877F888FF7000000000000003F73B0FFF78CF7877F7
      00000000000007BB7318777877F708FF7000000000007BBBBBB3789F787000FF
      F70000000007BBBBBBBB3877F700408FFF700000007BBB7777BBB378700CC00F
      FFF7000007BBBBBBBBBBB307000CC4007FFF700007BBBBBBBBBBB300000C4000
      008FF80007BB7808887BB301910403BB000F780007BB788FF87BB30999100BBB
      00F7800007BBB30888BBB301910003300F78000003FBB38880BB3880102A2000
      F78000000037BB3330B38F7000AAA00F780000000003FFFFF838FFF0002200F7
      8000000000003333307FFFFF80000F780000000000080000887FFFFFFF80F780
      0000000000008888008777777777780000000000000000000007777777777000
      00000000FC3FFFFFFC3FFFFFF01FFFFFF01FFFFFF01FFFFFFC1FFFFFF01FFFFF
      F01FFFFFF01F1FFFF01E1FFFF81C07FFF81807FFF01001FFF00001FFF000007F
      F800007FF000001FE000001FC000000780000007000000010000000100000001
      00000007000000078000001FC000001FC000007FD000007FCF0001FFE04001FF
      FFE007FF}
    Stretch = True
    Transparent = True
  end
  object bvlLine: TBevel
    Left = 0
    Top = 112
    Width = 373
    Height = 2
    Shape = bsTopLine
  end
  object lblServer: TLabel
    Left = 60
    Top = 135
    Width = 60
    Height = 12
    Caption = '服务器名：'
  end
  object lblLoginUser: TLabel
    Left = 60
    Top = 167
    Width = 60
    Height = 12
    Caption = '登录帐号：'
  end
  object lblLoginPassword: TLabel
    Left = 60
    Top = 197
    Width = 60
    Height = 12
    Caption = '登录口令：'
  end
  object txtUserID: TEdit
    Left = 128
    Top = 20
    Width = 121
    Height = 20
    TabOrder = 0
    OnKeyPress = txtDigitalValid
  end
  object txtPassword: TEdit
    Left = 128
    Top = 60
    Width = 121
    Height = 20
    MaxLength = 8
    PasswordChar = '*'
    TabOrder = 1
    OnKeyPress = txtDigitalValid
  end
  object cmdOK: TButton
    Left = 264
    Top = 8
    Width = 75
    Height = 25
    Caption = '确定(&O)'
    Default = True
    ModalResult = 1
    TabOrder = 2
    OnClick = cmdOKClick
  end
  object cmdCancel: TButton
    Left = 264
    Top = 40
    Width = 75
    Height = 25
    Cancel = True
    Caption = '取消(&C)'
    ModalResult = 2
    TabOrder = 3
  end
  object txtServer: TEdit
    Left = 128
    Top = 131
    Width = 121
    Height = 20
    Enabled = False
    TabOrder = 5
  end
  object txtLoginUser: TEdit
    Left = 128
    Top = 163
    Width = 121
    Height = 20
    Enabled = False
    TabOrder = 6
  end
  object txtLoginPassword: TEdit
    Left = 128
    Top = 193
    Width = 121
    Height = 20
    Enabled = False
    PasswordChar = '*'
    TabOrder = 7
  end
  object cmdMore: TButton
    Left = 264
    Top = 72
    Width = 75
    Height = 25
    Caption = '详细(&E)>>'
    TabOrder = 4
    OnClick = cmdMoreClick
  end
end