mgrloginu.dfm

源代码竟供大家参考

object FrmLogin: TFrmLogin
  Left = 490
  Top = 396
  BorderStyle = bsDialog
  Caption = #31649#29702#21592#30331#24405
  ClientHeight = 116
  ClientWidth = 359
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object LabeledEdit1: TLabeledEdit
    Left = 32
    Top = 48
    Width = 193
    Height = 20
    EditLabel.Width = 96
    EditLabel.Height = 12
    EditLabel.Caption = #35831#36755#20837#31649#29702#21592#23494#30721
    LabelPosition = lpAbove
    LabelSpacing = 3
    PasswordChar = '*'
    TabOrder = 0
  end
  object BitBtn1: TBitBtn
    Left = 256
    Top = 24
    Width = 94
    Height = 25
    Caption = #30830#23450'(&Y)'
    TabOrder = 1
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 256
    Top = 56
    Width = 94
    Height = 25
    Caption = #21462#28040'(ESC)'
    TabOrder = 2
    Kind = bkClose
  end
  object dbsystem: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Se' +
      'curity Info=False;Jet OLEDB:Database Password=kaoshi'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 168
    Top = 8
  end
  object Query_Exec: TADOQuery
    Connection = dbsystem
    Parameters = <>
    Left = 216
    Top = 16
  end
end