loginform.dfm

这是一个DELPHI7应用案例开发篇有配套程序种子光盘

object frmUserLogin: TfrmUserLogin
  Left = 0
  Top = 0
  Width = 589
  Height = 451
  Background.Fixed = False
  HandleTabs = False
  Title = #27880#20876#26032#29992#25143
  JavaScript.Strings = (
    'function validatePrompt(Ctrl, PromptStr) {'
    #9'alert(PromptStr);'
    #9'Ctrl.focus();'
    #9'return;'
    '}'
    ''
    'function checkEmail(Ctrl) {'
    #9'ind = Ctrl.value.indexOf ('#39'@'#39', 0);'
    #9'if (Ctrl.value.length==0) {'
    #9#9'validatePrompt(Ctrl, "Please enter an email!");'
    #9#9'return (false);'
    #9'} else if (ind==-1) {'
    #9#9'validatePrompt(Ctrl, "No @ ==> Please enter a valid email!");'
    #9#9'return (false);'
    #9'} else if (ind==0) {'
    
      #9#9'validatePrompt(Ctrl, "Empty before @ ==> Please enter a valid ' +
      'email!");'
    #9#9'return (false);'
    #9'} else if (ind==Ctrl.value.length-1) {'
    
      #9#9'validatePrompt(Ctrl, "Empty after @ ==> Please enter a valid e' +
      'mail!");'
    #9#9'return (false);'
    #9'} else'
    #9#9'return (true);'
    '}')
  SupportedBrowsers = [brIE, brNetscape6]
  DesignLeft = 311
  DesignTop = 158
  object IWLabel1: TIWLabel
    Left = 36
    Top = 24
    Width = 88
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #36755#20837#20195#21495#65306
  end
  object edID: TIWEdit
    Left = 140
    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 = 'edID'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 0
    PasswordPrompt = False
  end
  object IWLabel2: TIWLabel
    Left = 36
    Top = 56
    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 = 140
    Top = 52
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 1
    PasswordPrompt = True
  end
  object IWLabel3: TIWLabel
    Left = 36
    Top = 88
    Width = 88
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #30495#23454#22995#21517#65306
  end
  object edName: TIWEdit
    Left = 140
    Top = 84
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 2
    PasswordPrompt = False
  end
  object IWLabel4: TIWLabel
    Left = 36
    Top = 120
    Width = 52
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #24180#40836#65306
  end
  object edAge: TIWEdit
    Left = 140
    Top = 116
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 3
    PasswordPrompt = False
  end
  object IWLabel5: TIWLabel
    Left = 331
    Top = 56
    Width = 52
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #30005#35805#65306
  end
  object edPhone: TIWEdit
    Left = 435
    Top = 52
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 4
    PasswordPrompt = False
  end
  object IWLabel6: TIWLabel
    Left = 331
    Top = 88
    Width = 55
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = 'EMail'#65306
  end
  object edEMail: TIWEdit
    Left = 435
    Top = 84
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <
      item
        EventCode.Strings = (
          'checkEmail(ASender)')
        Event = 'onBlur'
      end>
    TabOrder = 5
    PasswordPrompt = False
  end
  object IWLabel7: TIWLabel
    Left = 331
    Top = 120
    Width = 88
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #31227#21160#30005#35805#65306
  end
  object edMobile: TIWEdit
    Left = 435
    Top = 116
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 6
    PasswordPrompt = False
  end
  object IWLabel8: TIWLabel
    Left = 331
    Top = 152
    Width = 88
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #38134#34892#21345#21495#65306
  end
  object edCardNo: TIWEdit
    Left = 435
    Top = 148
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 7
    PasswordPrompt = False
  end
  object IWLabel9: TIWLabel
    Left = 36
    Top = 152
    Width = 52
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #24615#21035#65306
  end
  object IWLabel10: TIWLabel
    Left = 36
    Top = 184
    Width = 52
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #22320#22336#65306
  end
  object edAddress: TIWEdit
    Left = 140
    Top = 180
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 8
    PasswordPrompt = False
  end
  object IWLabel11: TIWLabel
    Left = 331
    Top = 184
    Width = 88
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #21457#21345#38134#34892#65306
  end
  object edCardType: TIWEdit
    Left = 435
    Top = 180
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 9
    PasswordPrompt = False
  end
  object IWLabel13: TIWLabel
    Left = 36
    Top = 216
    Width = 52
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #37038#32534#65306
  end
  object edZip: TIWEdit
    Left = 140
    Top = 212
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 10
    PasswordPrompt = False
  end
  object IWMemo1: TIWMemo
    Left = 36
    Top = 252
    Width = 521
    Height = 153
    ZIndex = 0
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    RawText = False
    ReadOnly = False
    Required = False
    TabOrder = 11
    WantReturns = False
    FriendlyName = 'IWMemo1'
  end
  object btnOK: TIWButton
    Left = 152
    Top = 416
    Width = 75
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = #30830#23450
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 12
    OnClick = btnOKClick
  end
  object btnCancel: TIWButton
    Left = 296
    Top = 416
    Width = 75
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = #21462#28040
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 13
  end
  object btnTestID: TIWButton
    Left = 331
    Top = 16
    Width = 75
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = #26816#27979#20195#21495
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 14
    OnClick = btnTestIDClick
  end
  object cbGender: TIWComboBox
    Left = 140
    Top = 148
    Width = 121
    Height = 21
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ItemsHaveValues = False
    NoSelectionText = '-- No Selection --'
    RequireSelection = True
    ScriptEvents = <>
    UseSize = False
    DoSubmitValidation = True
    Editable = True
    TabOrder = 15
    ItemIndex = -1
    Items.Strings = (
      #30007
      #22899)
    Sorted = False
  end
end