login.~dfm

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

object frmLogin: TfrmLogin
  Left = 419
  Top = 252
  BorderStyle = bsDialog
  Caption = #35835#32773#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
  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 = 48
      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 = 65
      Height = 17
      Alignment = taRightJustify
      AutoSize = False
      Caption = #20511#20070#35777#21495
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object edtPass: TEdit
      Left = 88
      Top = 72
      Width = 105
      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 = 88
      Top = 32
      Width = 105
      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 ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    RemoteServer = frmService.DCOMConnection1
    Left = 16
    Top = 64
  end
end