login.dfm

客户档案管理-delphi开发

object FormLogin: TFormLogin
  Left = 409
  Top = 192
  AutoScroll = False
  BorderIcons = []
  Caption = #31995#32479#30331#24405
  ClientHeight = 290
  ClientWidth = 457
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object bsSkinPanel1: TbsSkinPanel
    Left = 0
    Top = 0
    Width = 457
    Height = 105
    TabOrder = 0
    SkinData = dbs.bsSkinData1
    SkinDataName = 'panel'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = #23435#20307
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 0
    UseSkinFont = True
    RealHeight = -1
    AutoEnabledControls = True
    CheckedMode = False
    Checked = False
    DefaultAlignment = taLeftJustify
    DefaultCaptionHeight = 22
    BorderStyle = bvFrame
    CaptionMode = False
    RollUpMode = False
    RollUpState = False
    NumGlyphs = 1
    Spacing = 2
    Caption = 'bsSkinPanel1'
    Align = alTop
    object LabelCaption: TLabel
      Left = 64
      Top = 24
      Width = 353
      Height = 19
      Alignment = taCenter
      AutoSize = False
      Caption = #23458#25143#26723#26696#31649#29702#36719#20214
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #24188#22278
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object bsSkinStdLabelVer: TbsSkinStdLabel
      Left = 288
      Top = 68
      Width = 57
      Height = 18
      UseSkinFont = True
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = -11
      DefaultFont.Name = 'MS Sans Serif'
      DefaultFont.Style = []
      SkinData = dbs.bsSkinData1
      SkinDataName = 'stdlabel'
      Alignment = taCenter
      AutoSize = False
      Caption = 'V1.0'
    end
    object bsSkinButton13: TbsSkinButton
      Left = 376
      Top = 61
      Width = 55
      Height = 32
      TabOrder = 0
      SkinData = dbs.bsSkinData1
      SkinDataName = 'button'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = #23435#20307
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      RepeatMode = False
      RepeatInterval = 100
      AllowAllUp = False
      TabStop = True
      CanFocused = True
      Down = False
      GroupIndex = 0
      Caption = #20851#20110'(&A)'
      NumGlyphs = 1
      Spacing = 1
      OnClick = bsSkinButton13Click
    end
  end
  object bsSkinPanel2: TbsSkinPanel
    Left = 0
    Top = 105
    Width = 457
    Height = 185
    TabOrder = 1
    SkinData = dbs.bsSkinData1
    SkinDataName = 'panel'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = #23435#20307
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 0
    UseSkinFont = True
    RealHeight = -1
    AutoEnabledControls = True
    CheckedMode = False
    Checked = False
    DefaultAlignment = taLeftJustify
    DefaultCaptionHeight = 22
    BorderStyle = bvFrame
    CaptionMode = False
    RollUpMode = False
    RollUpState = False
    NumGlyphs = 1
    Spacing = 2
    Caption = 'bsSkinPanel1'
    Align = alClient
    object bsSkinStdLabel1: TbsSkinStdLabel
      Left = 88
      Top = 28
      Width = 81
      Height = 13
      UseSkinFont = True
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = -11
      DefaultFont.Name = 'MS Sans Serif'
      DefaultFont.Style = []
      SkinData = dbs.bsSkinData1
      SkinDataName = 'stdlabel'
      Alignment = taRightJustify
      AutoSize = False
      Caption = #19994#21153#21592#65306
    end
    object bsSkinStdLabel2: TbsSkinStdLabel
      Left = 96
      Top = 60
      Width = 73
      Height = 13
      UseSkinFont = True
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = -11
      DefaultFont.Name = 'MS Sans Serif'
      DefaultFont.Style = []
      SkinData = dbs.bsSkinData1
      SkinDataName = 'stdlabel'
      Alignment = taRightJustify
      AutoSize = False
      Caption = #23494#30721#65306
    end
    object LabelMsg: TLabel
      Left = 176
      Top = 88
      Width = 241
      Height = 33
      AutoSize = False
      Caption = #36755#20837#23494#30721','#19977#27425#38169#35823#33258#21160#36864#20986
      Font.Charset = GB2312_CHARSET
      Font.Color = clGray
      Font.Height = -14
      Font.Name = #26032#23435#20307
      Font.Style = [fsItalic]
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object bsSkinButtonLogin: TbsSkinButton
      Left = 159
      Top = 126
      Width = 80
      Height = 32
      TabOrder = 1
      SkinData = dbs.bsSkinData1
      SkinDataName = 'button'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = #23435#20307
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      RepeatMode = False
      RepeatInterval = 100
      AllowAllUp = False
      TabStop = True
      CanFocused = True
      Down = False
      GroupIndex = 0
      Caption = #30331#24405'(&L)'
      NumGlyphs = 1
      Spacing = 1
      Default = True
      OnClick = bsSkinButtonLoginClick
    end
    object bsSkinButtonClose: TbsSkinButton
      Left = 249
      Top = 126
      Width = 80
      Height = 32
      TabOrder = 2
      SkinData = dbs.bsSkinData1
      SkinDataName = 'button'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = #23435#20307
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      RepeatMode = False
      RepeatInterval = 100
      AllowAllUp = False
      TabStop = True
      CanFocused = True
      Down = False
      GroupIndex = 0
      Caption = #36864#20986#31995#32479'(&X)'
      NumGlyphs = 1
      Spacing = 1
      Cancel = True
      OnClick = bsSkinButtonCloseClick
    end
    object bsSkinPasswordEdit1: TbsSkinPasswordEdit
      Left = 176
      Top = 56
      Width = 150
      Height = 21
      Cursor = crIBeam
      TabOrder = 0
      SkinDataName = 'edit'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = #23435#20307
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      PasswordKind = pkRoundRect
    end
    object bsSkinComboBox1: TbsSkinComboBox
      Left = 176
      Top = 24
      Width = 150
      Height = 20
      TabOrder = 3
      SkinData = dbs.bsSkinData1
      SkinDataName = 'combobox'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = #23435#20307
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      UseSkinSize = True
      AlphaBlend = False
      AlphaBlendValue = 0
      AlphaBlendAnimation = False
      HideSelection = True
      AutoComplete = True
      ListBoxUseSkinFont = True
      ListBoxUseSkinItemHeight = True
      ListBoxWidth = 0
      ImageIndex = 0
      ListBoxCaptionMode = False
      ListBoxDefaultFont.Charset = DEFAULT_CHARSET
      ListBoxDefaultFont.Color = clWindowText
      ListBoxDefaultFont.Height = 14
      ListBoxDefaultFont.Name = #23435#20307
      ListBoxDefaultFont.Style = []
      ListBoxDefaultCaptionFont.Charset = DEFAULT_CHARSET
      ListBoxDefaultCaptionFont.Color = clWindowText
      ListBoxDefaultCaptionFont.Height = 14
      ListBoxDefaultCaptionFont.Name = #23435#20307
      ListBoxDefaultCaptionFont.Style = []
      ListBoxDefaultItemHeight = 20
      ListBoxCaptionAlignment = taLeftJustify
      ItemIndex = -1
      DropDownCount = 8
      HorizontalExtent = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = 14
      Font.Name = #23435#20307
      Font.Style = []
      Sorted = False
      Style = bscbEditStyle
    end
  end
  object bsBusinessSkinForm1: TbsBusinessSkinForm
    UseFormCursorInNCArea = False
    MaxMenuItemsInWindow = 0
    ClientWidth = 0
    ClientHeight = 0
    HideCaptionButtons = False
    AlwaysShowInTray = False
    LogoBitMapTransparent = False
    AlwaysMinimizeToTray = False
    UseSkinFontInMenu = True
    ShowIcon = False
    MaximizeOnFullScreen = False
    AlphaBlend = False
    AlphaBlendAnimation = False
    AlphaBlendValue = 200
    ShowObjectHint = False
    UseDefaultObjectHint = True
    MenusAlphaBlend = False
    MenusAlphaBlendAnimation = False
    MenusAlphaBlendValue = 200
    DefCaptionFont.Charset = DEFAULT_CHARSET
    DefCaptionFont.Color = clBtnText
    DefCaptionFont.Height = 14
    DefCaptionFont.Name = #23435#20307
    DefCaptionFont.Style = [fsBold]
    DefInActiveCaptionFont.Charset = DEFAULT_CHARSET
    DefInActiveCaptionFont.Color = clBtnShadow
    DefInActiveCaptionFont.Height = 14
    DefInActiveCaptionFont.Name = #23435#20307
    DefInActiveCaptionFont.Style = [fsBold]
    DefMenuItemHeight = 20
    DefMenuItemFont.Charset = DEFAULT_CHARSET
    DefMenuItemFont.Color = clWindowText
    DefMenuItemFont.Height = 14
    DefMenuItemFont.Name = #23435#20307
    DefMenuItemFont.Style = []
    UseDefaultSysMenu = True
    SkinData = dbs.bsSkinData1
    MinHeight = 0
    MinWidth = 0
    MaxHeight = 0
    MaxWidth = 0
    Magnetic = False
    MagneticSize = 5
    BorderIcons = [biSystemMenu, biMinimize, biMaximize, biRollUp]
    Left = 40
    Top = 16
  end
  object cdsYG: TADODataSet
    CacheSize = 10
    Connection = dbs.ADOConn
    CursorType = ctStatic
    CommandText = 'select  '#23494#30721', '#20154#21592#31867#21035'  from '#29992#25143' where '#29992#25143#21517'=:username'
    Parameters = <
      item
        Name = 'username'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    Left = 33
    Top = 64
  end
  object cdsUserList: TADODataSet
    CacheSize = 10
    Connection = dbs.ADOConn
    CursorType = ctStatic
    CommandText = 'select '#29992#25143#21517' from '#29992#25143' order by '#29992#25143#21517
    Parameters = <>
    Left = 401
    Top = 64
  end
end