unitsetoption.dfm

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

object frmSetOption: TfrmSetOption
  Left = 335
  Top = 186
  Width = 546
  Height = 404
  Caption = #25151#38388#35774#32622
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 538
    Height = 33
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        Width = 534
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 521
      Height = 25
      ButtonHeight = 21
      ButtonWidth = 55
      Caption = 'ToolBar1'
      ShowCaptions = True
      TabOrder = 0
      object tbnAdd: TToolButton
        Left = 0
        Top = 2
        Caption = #28155#21152#25151#38388
        ImageIndex = 0
        OnClick = tbnAddClick
      end
      object tbnDelete: TToolButton
        Left = 55
        Top = 2
        Caption = #21024#38500#25151#38388
        ImageIndex = 1
        OnClick = tbnDeleteClick
      end
      object tbnUpdate: TToolButton
        Left = 110
        Top = 2
        Caption = #20462#25913#25151#38388
        ImageIndex = 2
        OnClick = tbnUpdateClick
      end
      object ToolButton4: TToolButton
        Left = 165
        Top = 2
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object tbnExit: TToolButton
        Left = 173
        Top = 2
        Caption = #36864#20986
        ImageIndex = 3
        OnClick = tbnExitClick
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 352
    Width = 538
    Height = 25
    Panels = <>
  end
  object Panel1: TPanel
    Left = 0
    Top = 33
    Width = 538
    Height = 319
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 2
    object GroupBox2: TGroupBox
      Left = 1
      Top = 1
      Width = 536
      Height = 317
      Align = alClient
      Caption = #25152#26377#25151#38388#20449#24687
      TabOrder = 0
      object DBGrid: TDBGrid
        Left = 2
        Top = 15
        Width = 532
        Height = 300
        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 = 88
    Top = 216
  end
  object ADOQuery: TADOQuery
    Parameters = <>
    Left = 80
    Top = 152
  end
  object ADOCmd: TADOCommand
    Parameters = <>
    Left = 72
    Top = 264
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    Left = 169
    Top = 170
  end
end