unituserset.dfm

来自「一套宾馆管理系统」· DFM 代码 · 共 130 行

object frmUserSet: TfrmUserSet
  Left = 256
  Top = 166
  Width = 489
  Height = 480
  Caption = #29992#25143#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 = 481
    Height = 33
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        Width = 477
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 464
      Height = 25
      ButtonHeight = 21
      ButtonWidth = 55
      Caption = 'ToolBar1'
      ShowCaptions = True
      TabOrder = 0
      object tbnAdd: TToolButton
        Left = 0
        Top = 2
        Caption = #28155#21152#29992#25143
        ImageIndex = 0
        OnClick = tbnAddClick
      end
      object tbnDelete: TToolButton
        Left = 55
        Top = 2
        Caption = #21024#38500#29992#25143
        ImageIndex = 1
        OnClick = tbnDeleteClick
      end
      object tbnEdit: TToolButton
        Left = 110
        Top = 2
        Caption = #20462#25913#29992#25143
        ImageIndex = 2
        OnClick = tbnEditClick
      end
      object tbnRole: TToolButton
        Left = 165
        Top = 2
        Caption = #35774#32622#29992#33394
        ImageIndex = 3
        OnClick = tbnRoleClick
      end
      object tbnExit: TToolButton
        Left = 220
        Top = 2
        Caption = #36864#20986
        ImageIndex = 4
        OnClick = tbnExitClick
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 428
    Width = 481
    Height = 25
    Panels = <>
  end
  object Panel1: TPanel
    Left = 0
    Top = 33
    Width = 481
    Height = 395
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 2
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 479
      Height = 393
      Align = alClient
      Caption = #29992#25143#21015#34920
      TabOrder = 0
      object DBGrid1: TDBGrid
        Left = 2
        Top = 15
        Width = 475
        Height = 376
        Align = alClient
        DataSource = DataSource
        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 = 121
    Top = 122
  end
  object ADOQuery: TADOQuery
    Parameters = <>
    Left = 169
    Top = 122
  end
  object ADOcmd: TADOCommand
    Parameters = <>
    Left = 225
    Top = 122
  end
end