login.dfm

Delphi写的权限管理源代码

object FrmLogin: TFrmLogin
  Left = 264
  Top = 310
  BorderStyle = bsToolWindow
  Caption = #26435#38480#31649#29702
  ClientHeight = 181
  ClientWidth = 318
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object RzLabel1: TRzLabel
    Left = 58
    Top = 51
    Width = 93
    Height = 19
    Caption = #32534'   '#21495#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = 4227327
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object RzLabel2: TRzLabel
    Left = 59
    Top = 92
    Width = 93
    Height = 19
    Caption = #23494'   '#30721#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = 4227327
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object EdtBH: TRzEdit
    Left = 151
    Top = 49
    Width = 121
    Height = 23
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    FrameVisible = True
    ImeName = #26497#21697#20116#31508#36755#20837#27861
    MaxLength = 8
    ParentFont = False
    TabOrder = 0
  end
  object EdtPwd: TRzEdit
    Left = 151
    Top = 90
    Width = 121
    Height = 23
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    FrameVisible = True
    ImeMode = imClose
    ImeName = #26497#21697#20116#31508#36755#20837#27861
    ParentFont = False
    PasswordChar = '*'
    TabOrder = 1
    OnKeyPress = EdtPwdKeyPress
  end
  object BtLogin: TRzButton
    Left = 72
    Top = 128
    Caption = #30331' '#24405
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BtLoginClick
  end
  object BtExit: TRzButton
    Left = 191
    Top = 128
    ModalResult = 3
    Caption = #36864' '#20986
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BtExitClick
  end
end