login.dfm

来自「这是一个DELPHI7应用案例开发篇有配套程序种子光盘」· DFM 代码 · 共 106 行

object frmLogin: TfrmLogin
  Left = 0
  Top = 0
  Width = 244
  Height = 157
  TabOrder = 0
  object edUserName: TIWEdit
    Left = 100
    Top = 20
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'edUserName'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    PasswordPrompt = False
  end
  object IWLabel1: TIWLabel
    Left = 12
    Top = 20
    Width = 70
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #29992#25143#21517#65306
  end
  object IWLabel2: TIWLabel
    Left = 12
    Top = 64
    Width = 52
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #23494#30721#65306
  end
  object edPassword: TIWEdit
    Left = 100
    Top = 60
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'edPassword'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    PasswordPrompt = True
  end
  object btnLogin: TIWButton
    Left = 32
    Top = 108
    Width = 75
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = #30331#24405
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    OnClick = btnLoginClick
  end
  object btnRegister: TIWButton
    Left = 128
    Top = 108
    Width = 75
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = #27880#20876
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    OnClick = btnRegisterClick
  end
end