uusers.dfm

delphi 源码 小型企业管理软件

object FrmUsers: TFrmUsers
  Left = 78
  Top = 76
  BorderStyle = bsSingle
  Caption = #29992#25143#31649#29702
  ClientHeight = 516
  ClientWidth = 873
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #26032#23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object Splitter1: TSplitter
    Left = 321
    Top = 0
    Height = 475
  end
  object Panel1: TPanel
    Left = 0
    Top = 475
    Width = 873
    Height = 41
    Align = alBottom
    TabOrder = 0
    object DBNavigator1: TDBNavigator
      Left = 8
      Top = 0
      Width = 240
      Height = 41
      Hint = #29992#25143
      DataSource = DM.D_users
      VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
      TabOrder = 0
      Visible = False
      OnClick = DBNavigator1Click
    end
    object SeSkinButton7: TSeSkinButton
      Left = 264
      Top = 7
      Width = 75
      Height = 26
      Performance = kspDoubleBuffer
      Transparent = False
      OnClick = SeSkinButton7Click
      BlackAndWhiteGlyph = False
      Caption = #22686#21152'(&A)'
      State = kbsNormal
      TabOrder = 1
      WordWrap = False
      ShowCaption = True
      ShowGlyph = True
      SkinObject = 'Button'
    end
    object SeSkinButton8: TSeSkinButton
      Left = 424
      Top = 8
      Width = 75
      Height = 25
      Performance = kspDoubleBuffer
      Transparent = False
      BlackAndWhiteGlyph = False
      Caption = #21024#38500'(&D)'
      State = kbsNormal
      TabOrder = 2
      WordWrap = False
      ShowCaption = True
      ShowGlyph = True
      SkinObject = 'Button'
    end
    object SeSkinButton1: TSeSkinButton
      Left = 344
      Top = 8
      Width = 75
      Height = 25
      Performance = kspDoubleBuffer
      Transparent = False
      OnClick = SeSkinButton1Click
      BlackAndWhiteGlyph = False
      Caption = #20462#25913'(&E)'
      State = kbsNormal
      TabOrder = 3
      WordWrap = False
      ShowCaption = True
      ShowGlyph = True
      SkinObject = 'Button'
    end
    object SeSkinButton2: TSeSkinButton
      Left = 512
      Top = 8
      Width = 75
      Height = 25
      Performance = kspDoubleBuffer
      Transparent = False
      OnClick = SeSkinButton2Click
      BlackAndWhiteGlyph = False
      Caption = #20445#23384'(&S)'
      State = kbsNormal
      TabOrder = 4
      WordWrap = False
      ShowCaption = True
      ShowGlyph = True
      SkinObject = 'Button'
    end
    object SeSkinButton3: TSeSkinButton
      Left = 600
      Top = 8
      Width = 75
      Height = 25
      Performance = kspDoubleBuffer
      Transparent = False
      OnClick = SeSkinButton3Click
      BlackAndWhiteGlyph = False
      Caption = #21462#28040'(&C)'
      State = kbsNormal
      TabOrder = 5
      WordWrap = False
      ShowCaption = True
      ShowGlyph = True
      SkinObject = 'Button'
    end
  end
  object panEdArea0: TPanel
    Left = 0
    Top = 0
    Width = 321
    Height = 475
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 0
      Top = 0
      Width = 321
      Height = 378
      Align = alClient
      DataSource = DM.D_users
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -15
      TitleFont.Name = #26032#23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'uid'
          Title.Alignment = taCenter
          Title.Caption = #24080#21495
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -15
          Title.Font.Name = #26032#23435#20307
          Title.Font.Style = []
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'uname'
          Title.Alignment = taCenter
          Title.Caption = #35828#26126
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -15
          Title.Font.Name = #26032#23435#20307
          Title.Font.Style = []
          Width = 110
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pass'
          Title.Alignment = taCenter
          Title.Caption = #23494#30721
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -15
          Title.Font.Name = #26032#23435#20307
          Title.Font.Style = []
          Width = 110
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'csum'
          Title.Alignment = taCenter
          Title.Caption = #26657#39564#21644
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -15
          Title.Font.Name = #26032#23435#20307
          Title.Font.Style = []
          Width = 108
          Visible = True
        end>
    end
    object panEdArea: TPanel
      Left = 0
      Top = 378
      Width = 321
      Height = 97
      Align = alBottom
      TabOrder = 1
      object Label3: TLabel
        Left = 8
        Top = 5
        Width = 48
        Height = 15
        Caption = #24080#21495#65306
      end
      object Label1: TLabel
        Left = 8
        Top = 53
        Width = 48
        Height = 15
        Caption = #23494#30721#65306
      end
      object Label2: TLabel
        Left = 200
        Top = 53
        Width = 80
        Height = 15
        Caption = #37325#36755#23494#30721#65306
      end
      object Label4: TLabel
        Left = 200
        Top = 5
        Width = 48
        Height = 15
        Caption = #35828#26126#65306
      end
      object edUPass: TMaskEdit
        Left = 8
        Top = 70
        Width = 180
        Height = 23
        PasswordChar = '*'
        TabOrder = 0
      end
      object edUPass2: TMaskEdit
        Left = 200
        Top = 70
        Width = 180
        Height = 23
        PasswordChar = '*'
        TabOrder = 1
      end
      object edUID: TDBEdit
        Left = 8
        Top = 25
        Width = 180
        Height = 23
        DataField = 'uid'
        DataSource = DM.D_users
        TabOrder = 2
      end
      object edUName: TDBEdit
        Left = 200
        Top = 25
        Width = 180
        Height = 23
        DataField = 'uname'
        DataSource = DM.D_users
        TabOrder = 3
      end
    end
  end
  object Memo1: TMemo
    Left = 69
    Top = 182
    Width = 101
    Height = 20
    Lines.Strings = (
      '--'#23545#29992#25143#34920#35745#31639#26657#39564#21644
      'update users'
      'set csum=Binary_Checksum(pass+'#39'nba'#39'),'
      '  pass='#39'******'#39
      'where pass<>'#39'******'#39
      ''
      '')
    TabOrder = 2
    Visible = False
    WordWrap = False
  end
  object Panel2: TPanel
    Left = 324
    Top = 0
    Width = 549
    Height = 475
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 549
      Height = 41
      Align = alTop
      BevelOuter = bvNone
      Caption = #21487#25480#26435#27169#22359
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = #26032#23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object DBGridEh2: TDBGridEh
      Left = 0
      Top = 41
      Width = 549
      Height = 335
      Align = alClient
      AllowedOperations = [alopUpdateEh]
      DataSource = DM.D_Power
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      
      ParentFont = False
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clNavy
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'Caption'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #27169#22359#21517#31216
          Width = 245
        end
        item
          Checkboxes = True
          EditButtons = <>
          FieldName = 'RPow'
          Footers = <>
          KeyList.Strings = (
            'Y'
            'N')
          Title.Alignment = taCenter
          Title.Caption = #26597#30475
          Width = 50
        end
        item
          Checkboxes = True
          EditButtons = <>
          FieldName = 'CPow'
          Footers = <>
          KeyList.Strings = (
            'Y'
            'N')
          Title.Alignment = taCenter
          Title.Caption = #26032#22686
          Width = 50
        end
        item
          Checkboxes = True
          EditButtons = <>
          FieldName = 'UPow'
          Footers = <>
          KeyList.Strings = (
            'Y'
            'N')
          Title.Alignment = taCenter
          Title.Caption = #20462#25913
          Width = 50
        end
        item
          Checkboxes = True
          EditButtons = <>
          FieldName = 'DPow'
          Footers = <>
          KeyList.Strings = (
            'Y'
            'N')
          Title.Alignment = taCenter
          Title.Caption = #21024#38500
          Width = 50
        end
        item
          Checkboxes = True
          EditButtons = <>
          FieldName = 'EPow'
          Footers = <>
          KeyList.Strings = (
            'Y'
            'N')
          Title.Alignment = taCenter
          Title.Caption = #29983#25928'/'#21462#28040#29983#25928
          Visible = False
          Width = 84
        end
        item
          Checkboxes = True
          EditButtons = <>
          FieldName = 'ALLPow'
          Footers = <>
          KeyList.Strings = (
            'Y'
            'N')
          Title.Alignment = taCenter
          Title.Caption = #20840#37096#39033#30446
          Width = 58
        end>
    end
    object Panel4: TPanel
      Left = 0
      Top = 376
      Width = 549
      Height = 99
      Align = alBottom
      TabOrder = 2
      object ExplainForm: TMemo
        Left = 1
        Top = 44
        Width = 345
        Height = 54
        BorderStyle = bsNone
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        
        Lines.Strings = (
          '       1'#12289#22312#24038#20391#36873#25321#35201#21521#20854#25480#26435#30340#29992#25143#65292#22312#21491#20391#21246#36873#25480#26435#39033#30446
          '       2'#12289#20462#25913#21518#25353#12304#26356#25913#26435#38480#12305#25353#38062#12290
          '       3'#12289#31995#32479#31649#29702#21592#32423#21035#30340#29992#25143#19981#29992#25480#26435#65292#30452#25509#25317#26377#25152#26377#26435#38480)
        ParentColor = True
        ParentFont = False
        TabOrder = 0
      end
      object btnChangePower: TBitBtn
        Left = 20
        Top = 9
        Width = 102
        Height = 25
        Caption = #26356#25913#26435#38480
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = #26032#23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = btnChangePowerClick
      end
    end
  end
end