⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 add_user_pas.dfm

📁 delphi6.0电子寻更源程序,用来计算保安有无查抄
💻 DFM
字号:
object add_user: Tadd_user
  Left = 197
  Top = 153
  Width = 558
  Height = 257
  BorderIcons = [biSystemMenu]
  Caption = 'add_user'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 550
    Height = 230
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 0
    object Label4: TLabel
      Left = 376
      Top = -16
      Width = 32
      Height = 13
      Caption = 'Label4'
    end
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 232
      Height = 230
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      object Label1: TLabel
        Left = 20
        Top = 36
        Width = 52
        Height = 13
        Caption = '用戶名:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 20
        Top = 76
        Width = 39
        Height = 13
        Caption = '口令:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 20
        Top = 116
        Width = 65
        Height = 13
        Caption = '確認口令:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object BitBtn2: TBitBtn
        Left = 125
        Top = 170
        Width = 84
        Height = 26
        Cursor = crHandPoint
        Cancel = True
        Caption = '取消(&X)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = BitBtn2Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333FFFFF333333000033333388888833333333333F888888FFF333
          000033338811111188333333338833FFF388FF33000033381119999111833333
          38F338888F338FF30000339119933331111833338F388333383338F300003391
          13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
          33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
          33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
          000039183811193333918338F8F833F83333838F000039118111933339118338
          F3833F83333833830000339111193333391833338F33F8333FF838F300003391
          11833338111833338F338FFFF883F83300003339111888811183333338FF3888
          83FF83330000333399111111993333333388FFFFFF8833330000333333999999
          3333333333338888883333330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
        Spacing = 0
      end
      object BitBtn5: TBitBtn
        Left = 20
        Top = 170
        Width = 84
        Height = 26
        Cursor = crHandPoint
        Caption = '確認(&Y)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = BitBtn5Click
        Glyph.Data = {
          F2010000424DF201000000000000760000002800000024000000130000000100
          0400000000007C01000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333334433333
          3333333333388F3333333333000033334224333333333333338338F333333333
          0000333422224333333333333833338F33333333000033422222243333333333
          83333338F3333333000034222A22224333333338F33F33338F33333300003222
          A2A2224333333338F383F3338F33333300003A2A222A222433333338F8333F33
          38F33333000034A22222A22243333338833333F3338F333300004222A2222A22
          2433338F338F333F3338F3330000222A3A2224A22243338F3838F338F3338F33
          0000A2A333A2224A2224338F83338F338F3338F300003A33333A2224A2224338
          333338F338F3338F000033333333A2224A2243333333338F338F338F00003333
          33333A2224A2233333333338F338F83300003333333333A2224A333333333333
          8F338F33000033333333333A222433333333333338F338F30000333333333333
          A224333333333333338F38F300003333333333333A223333333333333338F8F3
          000033333333333333A3333333333333333383330000}
        NumGlyphs = 2
        Spacing = 0
      end
      object Edit3: TEdit
        Left = 86
        Top = 107
        Width = 130
        Height = 21
        Font.Charset = GB2312_CHARSET
        Font.Color = clActiveCaption
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        MaxLength = 11
        ParentFont = False
        PasswordChar = '*'
        TabOrder = 2
        OnKeyDown = Edit3KeyDown
      end
      object Edit2: TEdit
        Left = 86
        Top = 70
        Width = 130
        Height = 21
        Font.Charset = GB2312_CHARSET
        Font.Color = clActiveCaption
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        MaxLength = 11
        ParentFont = False
        PasswordChar = '*'
        TabOrder = 1
        OnKeyDown = Edit2KeyDown
      end
      object Edit1: TEdit
        Left = 86
        Top = 32
        Width = 130
        Height = 21
        Font.Charset = GB2312_CHARSET
        Font.Color = clActiveCaption
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ImeName = '中文 (简体) - 智能 ABC'
        MaxLength = 20
        ParentFont = False
        TabOrder = 0
        OnKeyDown = Edit1KeyDown
      end
    end
    object GroupBox1: TGroupBox
      Left = 232
      Top = 0
      Width = 318
      Height = 230
      Align = alRight
      Caption = '許可權'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object CheckBox1: TCheckBox
        Left = 27
        Top = 18
        Width = 87
        Height = 16
        Caption = '系統管理'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnClick = CheckBox1Click
      end
      object CheckBox2: TCheckBox
        Left = 60
        Top = 40
        Width = 72
        Height = 16
        Caption = '用戶維護'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = CheckBox2Click
      end
      object CheckBox3: TCheckBox
        Left = 60
        Top = 59
        Width = 78
        Height = 16
        Caption = '修改口令'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = CheckBox3Click
      end
      object CheckBox4: TCheckBox
        Left = 60
        Top = 78
        Width = 78
        Height = 16
        Caption = '資料備份'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = CheckBox4Click
      end
      object CheckBox5: TCheckBox
        Left = 60
        Top = 97
        Width = 72
        Height = 16
        Caption = '資料恢復'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = CheckBox5Click
      end
      object CheckBox6: TCheckBox
        Left = 164
        Top = 18
        Width = 82
        Height = 16
        Caption = '基本資訊'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 5
        OnClick = CheckBox6Click
      end
      object CheckBox7: TCheckBox
        Left = 199
        Top = 40
        Width = 89
        Height = 16
        Caption = '巡更點資訊'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        OnClick = CheckBox7Click
      end
      object CheckBox8: TCheckBox
        Left = 199
        Top = 59
        Width = 91
        Height = 16
        Caption = '巡更員資訊'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnClick = CheckBox8Click
      end
      object CheckBox9: TCheckBox
        Left = 199
        Top = 78
        Width = 101
        Height = 16
        Caption = '巡更班次資訊'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 8
        OnClick = CheckBox9Click
      end
      object CheckBox10: TCheckBox
        Left = 199
        Top = 97
        Width = 100
        Height = 16
        Caption = '分配線路資訊'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 9
        OnClick = CheckBox10Click
      end
      object CheckBox19: TCheckBox
        Left = 199
        Top = 118
        Width = 105
        Height = 16
        Caption = '设置重复时间'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 10
        OnClick = CheckBox19Click
      end
      object CheckBox18: TCheckBox
        Left = 27
        Top = 144
        Width = 96
        Height = 16
        Caption = '資料通訊'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 11
        OnClick = CheckBox18Click
      end
      object CheckBox17: TCheckBox
        Left = 60
        Top = 164
        Width = 101
        Height = 16
        Caption = '設置巡更棒'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 12
        OnClick = CheckBox17Click
      end
      object CheckBox16: TCheckBox
        Left = 60
        Top = 184
        Width = 91
        Height = 16
        Caption = '測試巡更棒'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 13
        OnClick = CheckBox16Click
      end
      object CheckBox20: TCheckBox
        Left = 60
        Top = 204
        Width = 79
        Height = 16
        Caption = '收取資料'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 14
        OnClick = CheckBox20Click
      end
      object CheckBox21: TCheckBox
        Left = 164
        Top = 144
        Width = 97
        Height = 16
        Caption = '資訊查詢'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 15
        OnClick = CheckBox21Click
      end
      object CheckBox22: TCheckBox
        Left = 199
        Top = 164
        Width = 97
        Height = 16
        Caption = '原始資訊查詢'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 16
        OnClick = CheckBox22Click
      end
      object CheckBox23: TCheckBox
        Left = 199
        Top = 184
        Width = 98
        Height = 16
        Caption = '有效資訊查詢'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 17
        OnClick = CheckBox23Click
      end
      object CheckBox11: TCheckBox
        Left = 199
        Top = 204
        Width = 99
        Height = 16
        Caption = '歷史資訊查詢'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 18
        OnClick = CheckBox11Click
      end
    end
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -