useradmin.dfm

三層源碼,DELPHI寫的三層源碼,三層源碼,

object user_admin: Tuser_admin
  Left = 226
  Top = 153
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '帐号管理'
  ClientHeight = 269
  ClientWidth = 529
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnPaint = FormPaint
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 513
    Height = 228
    Shape = bsFrame
  end
  object Label1: TLabel
    Left = 416
    Top = 242
    Width = 26
    Height = 13
    Caption = '全选'
    Transparent = True
    OnClick = Label1Click
  end
  object xpButton1: TxpButton
    Left = 176
    Top = 240
    Width = 75
    Height = 25
    Caption = '修改密码'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    TabOrder = 0
    TabStop = True
    OnClick = xpButton1Click
  end
  object xpButton2: TxpButton
    Left = 448
    Top = 240
    Width = 75
    Height = 25
    Caption = '应用修改'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    TabOrder = 1
    TabStop = True
    OnClick = xpButton2Click
  end
  object xpButton3: TxpButton
    Left = 16
    Top = 240
    Width = 75
    Height = 25
    Caption = '新建帐号'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    TabOrder = 2
    TabStop = True
    OnClick = xpButton3Click
  end
  object xpButton4: TxpButton
    Left = 96
    Top = 240
    Width = 75
    Height = 25
    Caption = '删除帐号'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    TabOrder = 3
    TabStop = True
    OnClick = xpButton4Click
  end
  object ListBox1: TListBox
    Left = 16
    Top = 16
    Width = 153
    Height = 212
    ItemHeight = 13
    MultiSelect = True
    TabOrder = 4
    OnClick = ListBox1Click
  end
  object CheckListBox1: TCheckListBox
    Left = 176
    Top = 16
    Width = 337
    Height = 212
    Columns = 3
    IntegralHeight = True
    ItemHeight = 13
    Items.Strings = (
      '部门工种-新建'
      '部门工种-修改'
      '部门工种-删除'
      '部门工种-复制'
      '宿舍管理-查看'
      '宿舍管理-新建'
      '宿舍管理-修改'
      '宿舍管理-删除'
      '员工资料-查看'
      '员工资料-新建'
      '员工资料-修改'
      '员工资料-删除'
      '事件提醒-查看'
      '事件提醒-新建'
      '事件提醒-修改'
      '事件提醒-删除'
      '税率表-查看'
      '税率表-新建'
      '税率表-修改'
      '税率表-删除'
      '医疗保险-查看'
      '医疗保险-修改'
      '医疗保险-删除'
      '养老金-查看'
      '养老金-修改'
      '养老金-删除'
      '个人所得税-查看'
      '个人所得税-修改'
      '个人所得税-删除')
    TabOrder = 5
  end
  object CheckBox1: TCheckBox
    Left = 400
    Top = 240
    Width = 14
    Height = 17
    TabOrder = 6
    OnClick = CheckBox1Click
  end
end