unitinroom.dfm

来自「自己做过的工程」· DFM 代码 · 共 626 行 · 第 1/2 页

object forminroom: Tforminroom
  Left = 107
  Top = 92
  BorderStyle = bsDialog
  Caption = #25151#23458#20837#20303#30331#35760#25509#24453
  ClientHeight = 487
  ClientWidth = 651
  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 PageControl1: TPageControl
    Left = 16
    Top = 25
    Width = 617
    Height = 448
    ActivePage = TabSheet1
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #20837#20303#30331#35760
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnShow = TabSheet1Show
      object ed_roomid: TEdit
        Left = 86
        Top = 12
        Width = 89
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object StaticText1: TStaticText
        Left = 16
        Top = 17
        Width = 60
        Height = 18
        Caption = #25151#38388#26631#21495
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object StaticText2: TStaticText
        Left = 210
        Top = 16
        Width = 60
        Height = 18
        Caption = #25151#23458#22995#21517
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object ed_username: TEdit
        Left = 284
        Top = 12
        Width = 89
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object StaticText3: TStaticText
        Left = 211
        Top = 95
        Width = 60
        Height = 18
        Caption = #25151#23458#24615#21035
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object StaticText4: TStaticText
        Left = 16
        Top = 57
        Width = 60
        Height = 18
        Caption = #35777#20214#31867#22411
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 5
      end
      object cb_certificatetpye: TComboBox
        Left = 86
        Top = 51
        Width = 89
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 6
        Text = #36523#20221#35777
        Items.Strings = (
          #36523#20221#35777
          #24037#20316#35777
          #20891#20154#35777
          #23398#29983#35777
          #20854#20182#35777#20214)
      end
      object StaticText5: TStaticText
        Left = 211
        Top = 56
        Width = 60
        Height = 18
        Caption = #35777#20214#32534#21495
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 7
      end
      object ed_certificateid: TEdit
        Left = 284
        Top = 51
        Width = 116
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 8
      end
      object StaticText6: TStaticText
        Left = 409
        Top = 57
        Width = 60
        Height = 18
        Caption = #25151#23458#31821#36143
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 9
      end
      object ed_nativeplace: TEdit
        Left = 488
        Top = 51
        Width = 89
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 10
      end
      object StaticText7: TStaticText
        Left = 16
        Top = 97
        Width = 60
        Height = 18
        Caption = #25151#23458#20154#25968
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 11
      end
      object ed_userno: TEdit
        Left = 86
        Top = 92
        Width = 89
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 12
      end
      object StaticText8: TStaticText
        Left = 409
        Top = 93
        Width = 60
        Height = 18
        Caption = #21592#24037#32534#21495
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 13
      end
      object ed_employeeid: TEdit
        Left = 489
        Top = 89
        Width = 89
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 14
      end
      object DBGrid1: TDBGrid
        Left = 24
        Top = 216
        Width = 553
        Height = 144
        DataSource = DMHotel.DataSource_roomin
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 15
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'roomid'
            Title.Caption = #25151#38388#32534#21495
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'roomtype'
            Title.Caption = #25151#38388#31867#22411
            Width = 81
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'username'
            Title.Caption = #25151#23458#22995#21517
            Width = 73
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'certificatetype'
            Title.Caption = #35777#20214#31867#22411
            Width = 76
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'certificateid'
            Title.Caption = #35777#20214#32534#21495
            Width = 71
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'nativeplace'
            Title.Caption = #31821#36143
            Visible = True