setroomunit.dfm

来自「东华休闲山庄洗浴、餐饮、客房管理系统」· DFM 代码 · 共 1,070 行 · 第 1/2 页

DFM
1,070 行
字号
12
object SetRoomForm: TSetRoomForm
  Left = 113
  Top = 142
  Width = 846
  Height = 529
  BorderIcons = []
  Caption = #23458#25151#20449#24687#35774#32622
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object suiPanel1: TsuiPanel
    Left = 0
    Top = 0
    Width = 838
    Height = 273
    UIStyle = WinXP
    BorderColor = 6842472
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    Caption = #23458#25151#31867#22411
    ShowButton = False
    CaptionFontColor = clBlack
    Align = alTop
    TabOrder = 0
    Color = clWhite
    object lbl3: TLabel
      Left = 608
      Top = 32
      Width = 60
      Height = 14
      Caption = #31867#22411#32534#21495
      FocusControl = dbedttype_xh
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl6: TLabel
      Left = 608
      Top = 56
      Width = 60
      Height = 14
      Caption = #31867#22411#21517#31216
      FocusControl = dbedttype_mc
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl7: TLabel
      Left = 608
      Top = 80
      Width = 90
      Height = 14
      Caption = #21487#21542#26159#38047#28857#25151
      FocusControl = dbedttype_zd
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl8: TLabel
      Left = 608
      Top = 104
      Width = 60
      Height = 14
      Caption = #39044#35746#25151#20215
      FocusControl = dbedttype_csdj
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl9: TLabel
      Left = 608
      Top = 128
      Width = 60
      Height = 14
      Caption = #25151#20869#20154#25968
      FocusControl = dbedttype_rnrs
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl10: TLabel
      Left = 608
      Top = 152
      Width = 60
      Height = 14
      Caption = #20303#23487#25276#37329
      FocusControl = dbedttype_yj
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl11: TLabel
      Left = 608
      Top = 176
      Width = 75
      Height = 14
      Caption = #27599#23567#26102#25151#20215
      FocusControl = dbedttype_mp
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object suiDBGrid2: TsuiDBGrid
      Left = 4
      Top = 25
      Width = 597
      Height = 244
      Align = alLeft
      BiDiMode = bdLeftToRight
      BorderStyle = bsNone
      Color = clWhite
      DataSource = ds2
      FixedColor = 10504772
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentBiDiMode = False
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWhite
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      UIStyle = DeepBlue
      BorderColor = clBlack
      FocusedColor = clGreen
      SelectedColor = clYellow
      FontColor = clBlack
      TitleFontColor = clWhite
      FixedBGColor = 10504772
      BGColor = clWhite
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'type_xh'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #31867#22411#32534#21495
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -13
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 60
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'type_mc'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #31867#22411#21517#31216
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -13
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 85
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'type_zd'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #21487#21542#26159#38047#28857#25151
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -13
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 90
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'type_csdj'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #39044#35774#25151#20215
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -13
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'type_rnrs'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #25151#20869#20154#25968
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -13
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'type_yj'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #20303#23487#25276#37329
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -13
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'type_mp'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #27599#23567#26102#25151#20215
          Title.Color = clWhite
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -13
          Title.Font.Name = #23435#20307
          Title.Font.Style = [fsBold]
          Width = 80
          Visible = True
        end>
    end
    object dbedttype_xh: TDBEdit
      Left = 704
      Top = 32
      Width = 121
      Height = 22
      DataField = 'type_xh'
      DataSource = ds2
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    object dbedttype_mc: TDBEdit
      Left = 704
      Top = 56
      Width = 121
      Height = 22
      DataField = 'type_mc'
      DataSource = ds2
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnKeyPress = dbedttype_mcKeyPress
    end
    object dbedttype_zd: TDBEdit
      Left = 704
      Top = 80
      Width = 121
      Height = 22
      DataField = 'type_zd'
      DataSource = ds2
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnKeyPress = dbedttype_zdKeyPress
    end
    object dbedttype_csdj: TDBEdit
      Left = 704
      Top = 104
      Width = 121
      Height = 22
      DataField = 'type_csdj'
      DataSource = ds2
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnKeyPress = dbedttype_csdjKeyPress
    end
    object dbedttype_rnrs: TDBEdit
      Left = 704
      Top = 128
      Width = 121
      Height = 22
      DataField = 'type_rnrs'
      DataSource = ds2
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnKeyPress = dbedttype_rnrsKeyPress
    end
    object dbedttype_yj: TDBEdit
      Left = 704
      Top = 152
      Width = 121
      Height = 22
      DataField = 'type_yj'
      DataSource = ds2
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      OnKeyPress = dbedttype_yjKeyPress
    end
    object dbedttype_mp: TDBEdit
      Left = 704
      Top = 176
      Width = 121
      Height = 22
      DataField = 'type_mp'
      DataSource = ds2
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      OnKeyPress = dbedttype_mpKeyPress
    end
    object btn1: TsuiButton
      Left = 632
      Top = 208
      Width = 50
      Height = 25
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #28155#21152
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 8
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = btn1Click
      ResHandle = 0
    end
    object suiButton1: TsuiButton
      Left = 688
      Top = 208
      Width = 50
      Height = 25
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #32534#36753
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 9
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton1Click
      ResHandle = 0
    end
    object suiButton2: TsuiButton
      Left = 744
      Top = 208
      Width = 50
      Height = 25
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #21024#38500
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 10
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton2Click
      ResHandle = 0
    end
    object suiButton7: TsuiButton
      Left = 656
      Top = 240
      Width = 50
      Height = 25
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #25552#20132
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 11
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton7Click
      ResHandle = 0
    end
    object suiButton8: TsuiButton
      Left = 720
      Top = 240
      Width = 50
      Height = 25
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Caption = #21462#28040
      AutoSize = False
      ParentFont = False
      UIStyle = MacOS
      TabOrder = 12
      Transparent = True
      ModalResult = 0
12

setroomunit.dfm - 源码说明

本页面展示了「东华休闲山庄洗浴、餐饮、客房管理系统」中的 setroomunit.dfm 源码文件，采用 DFM 编程语言编写，共 1,070 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与东华相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?