usermanager.dfm

一个图书批发商的通用软件

object FrmUserManager: TFrmUserManager
  Left = 352
  Top = 88
  BorderStyle = bsDialog
  Caption = #29992#25143#31649#29702
  ClientHeight = 292
  ClientWidth = 398
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel2: TPanel
    Left = -12
    Top = 40
    Width = 193
    Height = 252
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 184
    Top = 40
    Width = 213
    Height = 253
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object Panel3: TPanel
      Left = 6
      Top = 6
      Width = 200
      Height = 240
      BevelOuter = bvLowered
      TabOrder = 0
      object Bevel1: TBevel
        Left = 8
        Top = 11
        Width = 179
        Height = 8
        Shape = bsTopLine
      end
      object Label10: TLabel
        Left = 20
        Top = 28
        Width = 36
        Height = 12
        Caption = #30331#24405#21517
      end
      object Label11: TLabel
        Left = 20
        Top = 77
        Width = 48
        Height = 12
        Caption = #29992#25143#21475#20196
      end
      object Label12: TLabel
        Left = 19
        Top = 5
        Width = 72
        Height = 12
        Caption = #31995#32479#29992#25143#20449#24687
      end
      object Label13: TLabel
        Left = 20
        Top = 102
        Width = 48
        Height = 12
        Caption = #30830#35748#21475#20196
      end
      object Label2: TLabel
        Left = 20
        Top = 52
        Width = 48
        Height = 12
        Caption = #29992#25143#22995#21517
      end
      object Bevel2: TBevel
        Left = 8
        Top = 149
        Width = 176
        Height = 9
        Shape = bsTopLine
      end
      object Label1: TLabel
        Left = 19
        Top = 143
        Width = 48
        Height = 12
        Caption = #29992#25143#26435#38480
      end
      object Panel4: TPanel
        Left = 1
        Top = 166
        Width = 198
        Height = 73
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 0
        object rbManager: TRadioButton
          Left = 8
          Top = 0
          Width = 74
          Height = 17
          Caption = #36229#32423#29992#25143
          TabOrder = 0
        end
        object rbMoney: TRadioButton
          Left = 8
          Top = 20
          Width = 67
          Height = 17
          Caption = #36130#21153#21592
          TabOrder = 1
        end
        object rbHouse: TRadioButton
          Left = 8
          Top = 44
          Width = 63
          Height = 17
          Caption = #24211#31649#21592
          TabOrder = 2
        end
      end
      object edtUserId: TDBEdit
        Left = 76
        Top = 24
        Width = 110
        Height = 20
        Color = clBtnFace
        DataField = 'UserId'
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 1
      end
      object edtUserName: TDBEdit
        Left = 76
        Top = 49
        Width = 110
        Height = 20
        DataField = 'UserName'
        DataSource = DataSource1
        TabOrder = 2
      end
      object edtPasswordbak: TEdit
        Left = 76
        Top = 100
        Width = 110
        Height = 20
        PasswordChar = '*'
        TabOrder = 3
      end
      object edtPassword: TEdit
        Left = 76
        Top = 74
        Width = 110
        Height = 20
        PasswordChar = '*'
        TabOrder = 4
      end
    end
  end
  object dxDBGrid1: TdxDBGrid
    Left = 4
    Top = 45
    Width = 170
    Height = 240
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'UserId'
    SummaryGroups = <>
    SummarySeparator = ', '
    TabOrder = 2
    DataSource = DataSource1
    Filter.Criteria = {00000000}
    OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
    OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
    ShowGrid = False
    object dxDBGrid1UserId: TdxDBGridColumn
      Caption = #30331#38470#21517
      HeaderAlignment = taCenter
      Sorted = csUp
      Width = 70
      BandIndex = 0
      RowIndex = 0
      FieldName = 'UserId'
    end
    object dxDBGrid1UserName: TdxDBGridColumn
      Caption = #29992#25143#21517
      HeaderAlignment = taCenter
      Width = 94
      BandIndex = 0
      RowIndex = 0
      FieldName = 'UserName'
    end
  end
  object DataSource1: TDataSource
    DataSet = qryUser
    Left = 240
    Top = 4
  end
  object qryUser: TADOQuery
    Active = True
    Connection = dmData.adcDatabase
    CursorType = ctStatic
    BeforePost = qryUserBeforePost
    AfterPost = qryUserAfterPost
    AfterScroll = qryUserAfterScroll
    Parameters = <>
    SQL.Strings = (
      'Select * from tbUsers')
    Left = 292
    Top = 8
    object qryUserUserId: TWideStringField
      FieldName = 'UserId'
      Size = 50
    end
    object qryUserUserName: TWideStringField
      FieldName = 'UserName'
      Size = 50
    end
    object qryUserUserPassword: TWideStringField
      FieldName = 'UserPassword'
      Size = 50
    end
    object qryUserUserPower: TWideStringField
      FieldName = 'UserPower'
      Size = 50
    end
  end
  object dxBarManager1: TdxBarManager
    Scaled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Bars = <
      item
        AllowClose = False
        AllowCustomizing = False
        AllowQuickCustomizing = False
        AllowReset = False
        Caption = #24037#20855#26639
        DockedDockingStyle = dsTop
        DockedLeft = 0
        DockedTop = 0
        DockingStyle = dsTop
        FloatLeft = 491
        FloatTop = 210
        FloatClientWidth = 40
        FloatClientHeight = 140
        ItemLinks = <
          item
            Item = dxBarLargeButton1
            Visible = True
          end
          item
            Item = dxBarLargeButton3
            Visible = True
          end
          item
            Item = dxBarLargeButton2
            Visible = True
          end
          item
            Item = dxBarLargeButton4
            Visible = True
          end>
        Name = #24037#20855#26639
        OneOnRow = True
        Row = 0
        UseOwnFont = False
        Visible = True
        WholeRow = False
      end>
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    LargeImages = dmData.ImageList
    PopupMenuLinks = <>
    UseSystemFont = True
    Left = 188
    Top = 8
    DockControlHeights = (
      0
      0
      39
      0)
    object dxBarLargeButton1: TdxBarLargeButton
      Caption = #22686#21152
      Category = 0
      Hint = #22686#21152
      Visible = ivAlways
      OnClick = dxBarLargeButton1Click
      AutoGrayScale = False
      LargeImageIndex = 0
    end
    object dxBarLargeButton2: TdxBarLargeButton
      Caption = #20445#23384
      Category = 0
      Hint = #20445#23384
      Visible = ivAlways
      OnClick = dxBarLargeButton2Click
      AutoGrayScale = False
      LargeImageIndex = 1
    end
    object dxBarLargeButton3: TdxBarLargeButton
      Caption = #21024#38500
      Category = 0
      Hint = #21024#38500
      Visible = ivAlways
      OnClick = dxBarLargeButton3Click
      AutoGrayScale = False
      LargeImageIndex = 2
    end
    object dxBarLargeButton4: TdxBarLargeButton
      Caption = #36864#20986
      Category = 0
      Hint = #36864#20986
      Visible = ivAlways
      OnClick = dxBarLargeButton4Click
      AutoGrayScale = False
      LargeImageIndex = 3
    end
  end
end