login.dfm

Delphi开发的人事管理系统

object LoginForm: TLoginForm
  Left = 288
  Top = 247
  ActiveControl = edtPassword
  BorderStyle = bsDialog
  Caption = #30331#24405
  ClientHeight = 166
  ClientWidth = 312
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 27
    Top = 33
    Width = 54
    Height = 12
    Caption = #24080' '#21495'(&U):'
  end
  object Label2: TLabel
    Left = 27
    Top = 74
    Width = 54
    Height = 12
    Caption = #23494' '#30721'(&P):'
  end
  object bbtnOk: TBitBtn
    Left = 128
    Top = 115
    Width = 69
    Height = 25
    Caption = #30830#23450
    Default = True
    TabOrder = 0
    OnClick = bbtnOkClick
    NumGlyphs = 2
  end
  object bbtnCancel: TBitBtn
    Left = 214
    Top = 115
    Width = 69
    Height = 25
    Cancel = True
    Caption = #21462#28040
    ModalResult = 2
    TabOrder = 1
    OnClick = bbtnCancelClick
    NumGlyphs = 2
  end
  object edtPassword: TEdit
    Left = 88
    Top = 70
    Width = 193
    Height = 20
    ImeName = #33258#28982#30721#30721#34920#36755#20837#27861
    MaxLength = 8
    PasswordChar = '*'
    TabOrder = 3
  end
  object cbUserName: TComboBox
    Left = 88
    Top = 29
    Width = 193
    Height = 20
    ImeName = #33258#28982#30721#30721#34920#36755#20837#27861
    ItemHeight = 12
    TabOrder = 2
    OnExit = cbUserNameExit
    Items.Strings = (
      'Guess')
  end
  object adoq: TADOQuery
    Connection = adocLogin
    Parameters = <>
    Left = 184
  end
  object adocLogin: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\'#23398#20064#25991 +
      #26723'\Books\Delphi'#36890#29992#27169#22359#21450#20856#22411#31995#32479#24320#21457#23454#20363#23548#33322'\'#20195#30721#31034#20363'\'#31532'6'#31456'\Data\RSGL.mdb;Persist Sec' +
      'urity Info=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 152
  end
end