unitrolepermit.dfm

一套宾馆管理系统

object frmRolePermit: TfrmRolePermit
  Left = 305
  Top = 173
  Width = 433
  Height = 432
  Caption = #35282#33394#35774#32622
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 425
    Height = 33
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        Width = 421
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 408
      Height = 25
      ButtonHeight = 21
      ButtonWidth = 55
      Caption = 'ToolBar1'
      ShowCaptions = True
      TabOrder = 0
      object tbnAdd: TToolButton
        Left = 0
        Top = 2
        Caption = #28155#21152#35282#33394
        ImageIndex = 0
        OnClick = tbnAddClick
      end
      object tbnDelete: TToolButton
        Left = 55
        Top = 2
        Caption = #21024#38500#35282#33394
        ImageIndex = 1
        OnClick = tbnDeleteClick
      end
      object tbnUpdate: TToolButton
        Left = 110
        Top = 2
        Caption = #20462#25913#35282#33394
        ImageIndex = 2
        OnClick = tbnUpdateClick
      end
      object ToolButton4: TToolButton
        Left = 165
        Top = 2
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object tbnPermit: TToolButton
        Left = 173
        Top = 2
        Caption = #20998#37197#26435#38480
        ImageIndex = 3
        OnClick = tbnPermitClick
      end
      object ToolButton6: TToolButton
        Left = 228
        Top = 2
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object tbnExit: TToolButton
        Left = 236
        Top = 2
        Caption = #36864#20986
        ImageIndex = 4
        OnClick = tbnExitClick
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 380
    Width = 425
    Height = 25
    Panels = <>
  end
  object Panel1: TPanel
    Left = 0
    Top = 33
    Width = 425
    Height = 347
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 2
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 423
      Height = 345
      Align = alClient
      Caption = #35282#33394#21015#34920
      TabOrder = 0
      object DBGrid: TDBGrid
        Left = 2
        Top = 15
        Width = 419
        Height = 328
        Align = alClient
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
  end
  object DataSource: TDataSource
    Left = 225
    Top = 138
  end
  object ADOQuery: TADOQuery
    Parameters = <>
    Left = 265
    Top = 82
  end
  object ADOCmd: TADOCommand
    Parameters = <>
    Left = 217
    Top = 90
  end
end