unit6.dfm

以学习为目的,使用DIPH开发而成,功能强大,是我们的老师提供的!

object Form6: TForm6
  Left = 306
  Top = 197
  Width = 420
  Height = 368
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = '用户管理'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 412
    Height = 97
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 36
      Height = 12
      Caption = '用户名'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 16
      Top = 48
      Width = 24
      Height = 12
      Caption = '密码'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 144
      Top = 48
      Width = 48
      Height = 12
      Caption = '用户权限'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 16
      Top = 24
      Width = 121
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnChange = ComboBox1Change
    end
    object Edit2: TEdit
      Left = 16
      Top = 63
      Width = 121
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnChange = ComboBox1Change
    end
    object ComboBox1: TComboBox
      Left = 144
      Top = 63
      Width = 105
      Height = 20
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 2
      OnChange = ComboBox1Change
      Items.Strings = (
        '操作员'
        '餐饮部总管'
        '客房部总管'
        '总经理')
    end
    object Button1: TButton
      Left = 260
      Top = 24
      Width = 70
      Height = 25
      Caption = '增  加'
      Default = True
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 260
      Top = 58
      Width = 70
      Height = 25
      Caption = '删  除'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 336
      Top = 24
      Width = 70
      Height = 25
      Caption = '刷  新'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 336
      Top = 58
      Width = 70
      Height = 25
      Caption = '退  出'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = Button4Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 97
    Width = 412
    Height = 244
    Align = alClient
    TabOrder = 1
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 410
      Height = 201
      Align = alClient
      TabOrder = 0
      object DBGrid1: TDBGrid
        Left = 1
        Top = 1
        Width = 408
        Height = 199
        Align = alClient
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Yhm'
            Title.Alignment = taCenter
            Title.Caption = '用户名'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -12
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Mm'
            Title.Alignment = taCenter
            Title.Caption = '密码'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -12
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Qx'
            Font.Charset = ANSI_CHARSET
            Font.Color = clMaroon
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            Title.Alignment = taCenter
            Title.Caption = '权限'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -12
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = True
          end>
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 202
      Width = 410
      Height = 41
      Align = alBottom
      TabOrder = 1
      object DBNavigator1: TDBNavigator
        Left = 96
        Top = 8
        Width = 224
        Height = 18
        DataSource = DataSource1
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
        Flat = True
        TabOrder = 0
      end
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = '.\data'
    TableName = '用户权限表.db'
    Left = 220
    Top = 17
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 192
    Top = 17
  end
end