loginfrm.dfm

供水营销打印程序源码

inherited frmPropertyLogin: TfrmPropertyLogin
  Left = 320
  Top = 252
  ActiveControl = edtUser
  Caption = #31995#32479#30331#24405
  ClientHeight = 160
  ClientWidth = 364
  PixelsPerInch = 96
  TextHeight = 12
  inherited Bevel1: TBevel
    Left = 1
    Top = 120
    Width = 372
  end
  object Label1: TLabel [1]
    Left = 71
    Top = 60
    Width = 54
    Height = 12
    Caption = #29992#25143#21517'(&U)'
    FocusControl = edtUser
  end
  object Label2: TLabel [2]
    Left = 71
    Top = 93
    Width = 42
    Height = 12
    Caption = #23494#30721'(&P)'
    FocusControl = edtPassword
  end
  object labHint: TfcLabel [3]
    Left = 130
    Top = 77
    Width = 2
    Height = 1
    TextOptions.Alignment = taLeftJustify
    TextOptions.ExtrudeEffects.Depth = 1
    TextOptions.ExtrudeEffects.Enabled = True
    TextOptions.ExtrudeEffects.FarColor = clWhite
    TextOptions.ExtrudeEffects.NearColor = clGreen
    TextOptions.Shadow.Color = clBtnHighlight
    TextOptions.Shadow.Enabled = True
    TextOptions.Shadow.XOffset = 2
    TextOptions.Shadow.YOffset = 1
    TextOptions.VAlignment = vaTop
  end
  inherited TitlePanel: TPanel
    Width = 364
    object Image1: TImage
      Left = 12
      Top = 9
      Width = 33
      Height = 33
      Picture.Data = {
        055449636F6E0000010001002020100000000000E80200001600000028000000
        2000000040000000010004000000000080020000000000000000000000000000
        0000000000000000000080000080000000808000800000008000800080800000
        C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
        FFFFFF0000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000777777000000000000000000000000777777777777777700000000
        00000000000000000077777777700000000000000000DDDDD000000777777000
        00000000DDDDDDDDDDDDDD0000777770000000000000000007DDDDDDD0000777
        7000000000000000000007DDDDDDD0077700000000000000000000007DCCCDD0
        777000000000000000000000000CCCC407770000007770000000000000000CCC
        C477700007111700000000000000000CCC477700099917000000000000000000
        CCC477700099917000000000000000000CCC4770000099700000000000000000
        07CCC47770000977000000000000000002CCC477170000017000000000000000
        72ACCC4791707079177000000000000072AAAC47009717199117770000000007
        2AAAAC47000999919991111777777772AAAAAAC700011999999999911111332A
        AAAAAAC00001999999999999999BBBAAAAAAAAC0771999999999999999BBBBBB
        BAAAAC0099999999999999999999BBBBBBBAAC000099999999999999999BBBBB
        BBBBA000000099999999999999BBBBBBBBBA00000000009999999999999BBBBB
        BAA0000000000000999999999999BB9900000000000000000009999999999900
        00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC0FFFFFF0000FFFFFFC01FFF
        F07E07FF0003C1FFFF80787FFFF8063FFFFF011FFFFFE08FC7FFF80783FFFE03
        83FFFF01C1FFFF81F1FFFF8078FFFF803E7FFF00141FFF00C003FE00E0000000
        E0000001E00000010000000300000003C0000007F000000FFC00001FFF0000FF
        FFE003FF}
    end
    object fcLabel39: TfcLabel
      Left = 66
      Top = 6
      Width = 241
      Height = 33
      Caption = #20379#27700#33829#38144#25171#21360#31243#24207' 1.0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -24
      Font.Name = 'Arial Black'
      Font.Style = []
      ParentFont = False
      TextOptions.Alignment = taLeftJustify
      TextOptions.OutlineColor = clMaroon
      TextOptions.Shadow.Color = clMaroon
      TextOptions.Shadow.XOffset = 4
      TextOptions.Shadow.YOffset = 4
      TextOptions.Style = fclsLowered
      TextOptions.VAlignment = vaTop
      Transparent = True
    end
  end
  inherited btnOK: TcxButton
    Left = 214
    Top = 130
    ModalResult = 0
    TabOrder = 3
    OnClick = btnOKClick
  end
  inherited btnCancel: TcxButton
    Left = 288
    Top = 130
    TabOrder = 4
  end
  object edtUser: TcxLookupComboBox [7]
    Left = 128
    Top = 55
    Width = 145
    Height = 23
    Properties.DropDownListStyle = lsFixedList
    Properties.ImmediatePost = True
    Properties.KeyFieldNames = 'UserID'
    Properties.ListColumns = <
      item
        FieldName = 'Name'
      end
      item
        FieldName = 'Fullname'
      end>
    Properties.ListOptions.GridLines = glVertical
    Properties.ListOptions.ShowHeader = False
    Properties.ListSource = dmInvPrint.dsUsers
    Properties.OnEditValueChanged = edtUserPropertiesEditValueChanged
    EditValue = ''
    Style.Shadow = True
    TabOrder = 1
  end
  object edtPassword: TcxMaskEdit [8]
    Left = 128
    Top = 88
    Width = 145
    Height = 23
    Properties.EchoMode = eemPassword
    Style.Shadow = True
    TabOrder = 2
  end
  object btnChangePassword: TcxButton [9]
    Left = 8
    Top = 130
    Width = 97
    Height = 23
    Caption = #20462#25913#23494#30721'(&C)...'
    TabOrder = 5
    OnClick = btnChangePasswordClick
  end
  inherited PropStorage: TPropStorageEh
    Left = 48
    Top = 80
  end
  inherited RegPropManager: TRegPropStorageManEh
    Left = 16
    Top = 80
  end
  object Timer: TTimer
    Enabled = False
    OnTimer = TimerTimer
    Left = 16
    Top = 48
  end
end