unitchangeroom.~dfm

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

~DFM
418
字号
object formchangeroom: Tformchangeroom
  Left = 258
  Top = 154
  Width = 640
  Height = 504
  Caption = #25442#25151
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 16
    Top = 24
    Width = 601
    Height = 433
    ActivePage = TabSheet1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #26356#25442#25151#38388
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '@'#23435#20307
      Font.Style = []
      ParentFont = False
      object Panel1: TPanel
        Left = -8
        Top = -3
        Width = 604
        Height = 453
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object cb_roomtype: TComboBox
          Left = 488
          Top = 59
          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 = 0
          Text = #26631#20934#38388
          Items.Strings = (
            #26631#20934#38388
            #21333#20154#38388
            #22871#25151)
        end
        object ed_username: TEdit
          Left = 293
          Top = 62
          Width = 89
          Height = 22
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object cb_certificatetpye: TComboBox
          Left = 95
          Top = 120
          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 = 2
          Text = #36523#20221#35777
          Items.Strings = (
            #36523#20221#35777
            #24037#20316#35777
            #20891#20154#35777
            #23398#29983#35777
            #20854#20182#35777#20214)
        end
        object ed_certificateid: TEdit
          Left = 293
          Top = 116
          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 ed_nativeplace: TEdit
          Left = 488
          Top = 116
          Width = 89
          Height = 22
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 4
        end
        object ed_userno: TEdit
          Left = 95
          Top = 180
          Width = 89
          Height = 22
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 5
        end
        object ed_usersex: TComboBox
          Left = 293
          Top = 177
          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 = #30007
          Items.Strings = (
            #30007
            #22899)
        end
        object ed_employeeid: TEdit
          Left = 489
          Top = 177
          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 = 7
        end
        object ed_intime: TEdit
          Left = 94
          Top = 236
          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 = 8
        end
        object ed_bookmoney: TEdit
          Left = 408
          Top = 236
          Width = 171
          Height = 22
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 9
        end
        object ed_remark: TEdit
          Left = 94
          Top = 291
          Width = 491
          Height = 22
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 10
        end
        object StaticText12: TStaticText
          Left = 14
          Top = 240
          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 = 11
        end
        object StaticText7: TStaticText
          Left = 16
          Top = 185
          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 = 12
        end
        object StaticText4: TStaticText
          Left = 16
          Top = 122
          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 = 13
        end
        object StaticText1: TStaticText
          Left = 16
          Top = 67
          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 = 14
        end
        object ed_roomid: TEdit
          Left = 95
          Top = 62
          Width = 89
          Height = 22
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 15
        end
        object StaticText2: TStaticText
          Left = 219
          Top = 68
          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 = 16
        end
        object StaticText5: TStaticText
          Left = 220
          Top = 123
          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 = 17
        end
        object StaticText3: TStaticText
          Left = 220
          Top = 183
          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 = 18
        end
        object StaticText15: TStaticText
          Left = 328
          Top = 240
          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 = 19
        end
        object StaticText10: TStaticText
          Left = 18
          Top = 295
          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 = 20
        end
        object StaticText8: TStaticText
          Left = 409
          Top = 182
          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 = 21
        end
        object StaticText6: TStaticText
          Left = 409
          Top = 122
          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 = 22
        end
        object StaticText11: TStaticText
          Left = 408
          Top = 66
          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 = 23
        end
        object but_changeroom: TButton
          Left = 144
          Top = 352
          Width = 97
          Height = 25
          Caption = #25442' '#25151
          TabOrder = 24
          OnClick = but_changeroomClick
        end
        object but_exit: TButton
          Left = 320
          Top = 352
          Width = 97
          Height = 25
          Caption = #36864' '#20986
          TabOrder = 25
          OnClick = but_exitClick
        end
      end
    end
  end
end

⌨️ 快捷键说明

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