unitsroombook.dfm

来自「自己做过的工程」· DFM 代码 · 共 187 行

object formsroombook: Tformsroombook
  Left = 111
  Top = 104
  BorderStyle = bsDialog
  Caption = #21253#38388#39044#23450
  ClientHeight = 386
  ClientWidth = 577
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 309
    Width = 577
    Height = 77
    Align = alBottom
    BorderStyle = bsSingle
    TabOrder = 0
    object but_add: TButton
      Left = 57
      Top = 21
      Width = 81
      Height = 33
      Caption = #28155#21152
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = but_addClick
    end
    object but_modify: TButton
      Left = 185
      Top = 21
      Width = 81
      Height = 33
      Caption = #20462#25913
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = but_modifyClick
    end
    object but_exit: TButton
      Left = 433
      Top = 21
      Width = 81
      Height = 33
      Caption = #36864#20986
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = but_exitClick
    end
    object but_delete: TButton
      Left = 312
      Top = 22
      Width = 81
      Height = 33
      Caption = #21024#38500
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = but_deleteClick
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 665
    Height = 305
    ActivePage = TabSheet1
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabIndex = 0
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #21253#38388#39044#23450
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      object DBGrid1: TDBGrid
        Left = 5
        Top = 8
        Width = 561
        Height = 257
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'sroomid'
            Title.Caption = #35760#24405#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'sroomno'
            Title.Caption = #21253#38388#32534#21495
            Width = 74
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'username'
            Title.Caption = #23458#20154#22995#21517
            Width = 90
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'userno'
            Title.Caption = #23458#20154#25968
            Width = 63
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'booktime'
            Title.Caption = #39044#23450#26102#38388
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'arrivetime'
            Title.Caption = #39044#35745#21040#36798#26102#38388
            Width = 101
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'employeeid'
            Title.Caption = #25805#20316#21592#32534#21495
            Width = 88
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'remark'
            Title.Caption = #22791#27880
            Width = 226
            Visible = True
          end>
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = DMHotel.ds_sroom_book
    Left = 320
    Top = 65528
  end
end