login.~dfm

这是《Delphi程序设计基础》由李文池写的书的示例代码

object frmLogin: TfrmLogin
  Left = 484
  Top = 261
  BorderStyle = bsDialog
  Caption = #31649#29702#21592#30331#24405
  ClientHeight = 181
  ClientWidth = 279
  Color = clMenuBar
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 40
    Top = 136
    Width = 75
    Height = 25
    Caption = #30331'  '#24405
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 176
    Top = 136
    Width = 75
    Height = 25
    Caption = #36864'  '#20986
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button2Click
  end
  object Panel1: TPanel
    Left = 40
    Top = 8
    Width = 209
    Height = 121
    TabOrder = 0
    object Label2: TLabel
      Left = 24
      Top = 74
      Width = 33
      Height = 17
      AutoSize = False
      Caption = #23494#30721
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 16
      Top = 34
      Width = 41
      Height = 17
      Alignment = taRightJustify
      AutoSize = False
      Caption = #22995#21517
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object edtPass: TEdit
      Left = 64
      Top = 72
      Width = 129
      Height = 21
      AutoSize = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      PasswordChar = '*'
      TabOrder = 1
    end
    object edtName: TEdit
      Left = 64
      Top = 32
      Width = 129
      Height = 21
      AutoSize = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
  end
  object ADODataSet1: TADODataSet
    Connection = frmAdmin.ADOCon
    Parameters = <>
    Left = 8
    Top = 16
  end
end