mainunit.dfm

用于管理Windows NT,Windows 2000用户的程序

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 560
  Height = 380
  Caption = 'Windows帐户管理系统'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 315
    Width = 552
    Height = 19
    Panels = <
      item
        Width = 50
      end
      item
        Text = '用户总数'
        Width = 60
      end
      item
        Width = 40
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 552
    Height = 57
    Align = alTop
    BevelOuter = bvNone
    Caption = 'Windows帐户管理系统'
    Color = clHighlightText
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = '宋体'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 57
    Width = 552
    Height = 258
    ActivePage = ListAcctTabSheet
    Align = alClient
    TabOrder = 2
    object ListAcctTabSheet: TTabSheet
      Caption = '帐户列表'
      ImageIndex = 2
      object ListView1: TListView
        Left = 0
        Top = 0
        Width = 544
        Height = 230
        Align = alClient
        Columns = <
          item
            Caption = '名称'
            Width = 120
          end
          item
            Caption = '全名'
            Width = 150
          end
          item
            Caption = '描述'
            Width = 250
          end>
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        LargeImages = ImageList1
        ParentFont = False
        SmallImages = ImageList2
        TabOrder = 0
        ViewStyle = vsReport
        OnDblClick = ListView1DblClick
        OnMouseDown = ListView1MouseDown
        OnSelectItem = ListView1SelectItem
      end
    end
    object NewAcctTabSheet: TTabSheet
      Caption = '新建帐户'
      object Panel2: TPanel
        Left = 65
        Top = 0
        Width = 401
        Height = 225
        BevelOuter = bvNone
        TabOrder = 0
        object Label1: TLabel
          Left = 52
          Top = 24
          Width = 60
          Height = 12
          Caption = '帐户名称：'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 52
          Top = 56
          Width = 36
          Height = 12
          Caption = '全称：'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 52
          Top = 88
          Width = 36
          Height = 12
          Caption = '描述：'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 52
          Top = 120
          Width = 60
          Height = 12
          Caption = '帐户密码：'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 52
          Top = 152
          Width = 60
          Height = 12
          Caption = '确认密码：'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object NewAcctNameEdit: TEdit
          Left = 116
          Top = 16
          Width = 233
          Height = 20
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object NewAcctFullNameEdit: TEdit
          Left = 116
          Top = 48
          Width = 233
          Height = 20
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object NewAcctCommentEdit: TEdit
          Left = 116
          Top = 80
          Width = 233
          Height = 20
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object NewAcctPwdMaskEdit: TMaskEdit
          Left = 116
          Top = 112
          Width = 233
          Height = 20
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          PasswordChar = '*'
          TabOrder = 3
        end
        object NewAcctPwdConfirmMaskEdit: TMaskEdit
          Left = 116
          Top = 144
          Width = 233
          Height = 20
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          PasswordChar = '*'
          TabOrder = 4
        end
        object Button1: TButton
          Left = 115
          Top = 184
          Width = 75
          Height = 25
          Cursor = crHandPoint
          Caption = '新建'
          TabOrder = 5
          OnClick = Button1Click
        end
        object Button2: TButton
          Left = 211
          Top = 184
          Width = 75
          Height = 25
          Cursor = crHandPoint
          Caption = '取消'
          TabOrder = 6
          OnClick = Button2Click
        end
      end
    end
    object ChangePwdTabSheet: TTabSheet
      Caption = '修改密码'
      ImageIndex = 1
      object Panel3: TPanel
        Left = 65
        Top = 0
        Width = 401
        Height = 225
        BevelOuter = bvNone
        TabOrder = 0
        object Label4: TLabel
          Left = 52
          Top = 32
          Width = 60
          Height = 12
          Caption = '帐户名称：'
          Font.Charset = ANSI_CHARSET