unitinroom.~dfm

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

~DFM
642
字号
            Expanded = False
            FieldName = 'employeeid'
            Title.Caption = #21592#24037#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bookmoney'
            Title.Caption = #39044#20184#25276#37329
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'intime'
            Title.Caption = #20837#20303#26102#38388
            Width = 133
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'remark'
            Title.Caption = #22791#27880
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'error_remark'
            Title.Caption = #20986#38169#22791#27880
            Width = 84
            Visible = True
          end>
      end
      object StaticText10: TStaticText
        Left = 11
        Top = 175
        Width = 60
        Height = 18
        Caption = #22791#27880#20449#24687
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 16
      end
      object ed_remark: TEdit
        Left = 87
        Top = 171
        Width = 173
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 17
      end
      object StaticText11: TStaticText
        Left = 408
        Top = 16
        Width = 60
        Height = 18
        Caption = #25151#38388#31867#22411
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 18
      end
      object ed_intime: TEdit
        Left = 85
        Top = 129
        Width = 171
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 19
      end
      object StaticText12: TStaticText
        Left = 14
        Top = 133
        Width = 60
        Height = 18
        Caption = #20837#20303#26102#38388
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 20
      end
      object ed_usersex: TComboBox
        Left = 284
        Top = 89
        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 = 21
        Text = #30007
        Items.Strings = (
          #30007
          #22899)
      end
      object cb_roomtype: TComboBox
        Left = 488
        Top = 9
        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 = 22
        Text = #26631#20934#38388
        Items.Strings = (
          #26631#20934#38388
          #21333#20154#38388
          #22871#25151)
      end
      object StaticText15: TStaticText
        Left = 328
        Top = 133
        Width = 60
        Height = 18
        Caption = #39044#20184#25276#37329
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 23
      end
      object ed_bookmoney: TEdit
        Left = 408
        Top = 129
        Width = 171
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 24
      end
      object Button4: TButton
        Left = 408
        Top = 376
        Width = 75
        Height = 25
        Caption = #36864#20986
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 25
        OnClick = Button4Click
      end
      object Button3: TButton
        Left = 273
        Top = 376
        Width = 75
        Height = 25
        Caption = #21462#28040
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 26
        OnClick = Button3Click
      end
      object Button1: TButton
        Left = 125
        Top = 376
        Width = 75
        Height = 25
        Caption = #28155#21152
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 27
        OnClick = Button1Click
      end
      object BitBtn1: TBitBtn
        Left = 448
        Top = 176
        Width = 89
        Height = 25
        Caption = #21150#29702#25442#25151
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 28
        OnClick = BitBtn1Click
        Kind = bkIgnore
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20986#38169#22788#29702
      ImageIndex = 1
      object StaticText13: TStaticText
        Left = 80
        Top = 72
        Width = 158
        Height = 18
        Caption = #35831#23558#20986#38169#30340#20449#24687#35760#20837#22914#19979
        TabOrder = 0
      end
      object Button2: TButton
        Left = 128
        Top = 344
        Width = 75
        Height = 25
        Caption = #30830#23450
        TabOrder = 1
        OnClick = Button2Click
      end
      object Button5: TButton
        Left = 280
        Top = 344
        Width = 75
        Height = 25
        Caption = #28165#38500
        TabOrder = 2
        OnClick = Button5Click
      end
      object memo_remark: TMemo
        Left = 80
        Top = 96
        Width = 457
        Height = 209
        Lines.Strings = (
          '')
        TabOrder = 3
      end
      object Button6: TButton
        Left = 424
        Top = 344
        Width = 75
        Height = 25
        Caption = #36864#20986
        TabOrder = 4
        OnClick = Button6Click
      end
      object ed_errorroomid: TEdit
        Left = 200
        Top = 24
        Width = 153
        Height = 22
        TabOrder = 5
      end
      object StaticText14: TStaticText
        Left = 80
        Top = 32
        Width = 74
        Height = 18
        Caption = #20986#38169#25151#38388#21495
        TabOrder = 6
      end
      object StaticText9: TStaticText
        Left = 440
        Top = 24
        Width = 144
        Height = 18
        Caption = #27880#65306#36825#37324#35760#24405#30340#26159#22312#29992
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 7
      end
      object StaticText16: TStaticText
        Left = 472
        Top = 48
        Width = 102
        Height = 18
        Caption = #25151#38388#30340#20986#38169#34917#25937
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 8
      end
    end
  end
end

⌨️ 快捷键说明

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