unitlog.dfm

社区服务系统

object frmLogin: TfrmLogin
  Left = 348
  Top = 216
  BorderStyle = bsDialog
  Caption = #30331#24405
  ClientHeight = 224
  ClientWidth = 357
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object StatusLogin: TStatusBar
    Left = 0
    Top = 199
    Width = 357
    Height = 25
    Panels = <
      item
        Width = 50
      end
      item
        Width = 50
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 357
    Height = 73
    Align = alTop
    Caption = #31038#21306#26381#21153#31649#29702#31995#32479
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
  end
  object Panel2: TPanel
    Left = 0
    Top = 73
    Width = 249
    Height = 126
    Align = alLeft
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 2
    object Label1: TLabel
      Left = 28
      Top = 17
      Width = 48
      Height = 13
      Caption = #29992#25143#21517#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 27
      Top = 70
      Width = 51
      Height = 13
      Caption = #23494'     '#30721#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object edtuser: TEdit
      Left = 86
      Top = 16
      Width = 145
      Height = 19
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnChange = edtuserChange
      OnKeyPress = edtuserKeyPress
    end
    object edtpsw: TEdit
      Left = 86
      Top = 69
      Width = 145
      Height = 19
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      PasswordChar = '*'
      TabOrder = 1
      OnKeyPress = edtpswKeyPress
    end
  end
  object Panel3: TPanel
    Left = 249
    Top = 73
    Width = 108
    Height = 126
    Align = alClient
    TabOrder = 3
    object bbtnLogin: TBitBtn
      Left = 16
      Top = 15
      Width = 75
      Height = 25
      Caption = #30331#24405
      Enabled = False
      TabOrder = 0
      OnClick = bbtnLoginClick
      NumGlyphs = 2
    end
    object bbtnExit: TBitBtn
      Left = 16
      Top = 67
      Width = 75
      Height = 25
      Caption = #36864#20986
      ModalResult = 2
      TabOrder = 1
      OnClick = bbtnExitClick
      NumGlyphs = 2
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 312
    Top = 24
  end
end