roomruzhu.~dfm

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· ~DFM 代码 · 共 487 行

~DFM
487 行
字号 
object RoomRuFrm: TRoomRuFrm
  Left = 101
  Top = 99
  Width = 608
  Height = 396
  BorderIcons = [biSystemMenu]
  Caption = #23458#25151#20837#20303
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 203
    Top = 0
    Width = 369
    Height = 169
    Caption = #23458#25143#20449#24687
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 17
      Top = 24
      Width = 24
      Height = 13
      Caption = #22995#21517
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 17
      Top = 104
      Width = 48
      Height = 13
      Caption = #35777#20214#31867#22411
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 16
      Top = 140
      Width = 48
      Height = 13
      Caption = #35777#20214#32534#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 185
      Top = 24
      Width = 48
      Height = 13
      Caption = #32852#31995#30005#35805
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 187
      Top = 70
      Width = 24
      Height = 13
      Caption = #22791#27880
    end
    object Edit1: TEdit
      Left = 53
      Top = 22
      Width = 105
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      TabOrder = 0
    end
    object GroupBox2: TGroupBox
      Left = 17
      Top = 54
      Width = 128
      Height = 35
      Caption = #24615#21035
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object RadioButton1: TRadioButton
        Left = 16
        Top = 14
        Width = 41
        Height = 17
        Caption = #30007
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object RadioButton2: TRadioButton
        Left = 75
        Top = 13
        Width = 38
        Height = 17
        Caption = #22899
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
    end
    object ComboBox1: TComboBox
      Left = 77
      Top = 101
      Width = 103
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      ParentFont = False
      TabOrder = 2
      Items.Strings = (
        #36523#20221#35777
        #23398#29983#35777
        #20891#20154#35777
        #25252#29031)
    end
    object Edit2: TEdit
      Left = 77
      Top = 137
      Width = 105
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      TabOrder = 3
    end
    object Edit3: TEdit
      Left = 247
      Top = 22
      Width = 105
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      TabOrder = 4
    end
    object Memo1: TMemo
      Left = 234
      Top = 70
      Width = 119
      Height = 91
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      TabOrder = 5
    end
  end
  object GroupBox3: TGroupBox
    Left = 3
    Top = 176
    Width = 569
    Height = 177
    Caption = #20837#20303#21333
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label11: TLabel
      Left = 34
      Top = 19
      Width = 48
      Height = 13
      Caption = #26102#38388#65306#20174
    end
    object Label12: TLabel
      Left = 216
      Top = 21
      Width = 12
      Height = 13
      Caption = #33267
    end
    object Edit5: TEdit
      Left = 94
      Top = 17
      Width = 113
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      TabOrder = 0
    end
    object Edit6: TEdit
      Left = 235
      Top = 17
      Width = 121
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      TabOrder = 1
    end
    object Button2: TButton
      Left = 392
      Top = 16
      Width = 65
      Height = 25
      Caption = #20837#20303
      TabOrder = 2
      OnClick = Button2Click
    end
    object Button1: TButton
      Left = 472
      Top = 16
      Width = 65
      Height = 25
      Caption = #21024#38500
      TabOrder = 3
      OnClick = Button1Click
    end
    object DBGrid2: TDBGrid
      Left = 8
      Top = 50
      Width = 549
      Height = 113
      DataSource = DBFrm.customer_DataSource
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      TabOrder = 4
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -16
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Customer_name'
          Title.Alignment = taCenter
          Title.Caption = #23458#25143#22995#21517
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'gender'
          Title.Alignment = taCenter
          Title.Caption = #24615#21035
          Width = 50
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'certifi_type'
          Title.Alignment = taCenter
          Title.Caption = #35777#20214#31867#22411
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'certifi_id'
          Title.Alignment = taCenter
          Title.Caption = #35777#20214#32534#21495
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'phone'
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#30005#35805
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'memo'
          Title.Alignment = taCenter
          Title.Caption = #22791#27880
          Width = 150
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'state_time'
          Title.Alignment = taCenter
          Title.Caption = #20837#20303#26102#38388
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'end_time'
          Title.Alignment = taCenter
          Title.Caption = #36864#25151#26102#38388
          Width = 100
          Visible = True
        end>
    end
  end
  object GroupBox5: TGroupBox
    Left = 4
    Top = 0
    Width = 192
    Height = 169
    Caption = #23458#25151#20449#24687
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Label9: TLabel
      Left = 11
      Top = 57
      Width = 48
      Height = 13
      Caption = #31354#25151#31561#32423
    end
    object Label13: TLabel
      Left = 11
      Top = 25
      Width = 48
      Height = 13
      Caption = #31354#25151#32534#21495
    end
    object Label6: TLabel
      Left = 11
      Top = 94
      Width = 24
      Height = 13
      Caption = #21333#20215
    end
    object Label7: TLabel
      Left = 11
      Top = 134
      Width = 24
      Height = 13
      Caption = #22791#27880
    end
    object ComboBox2: TComboBox
      Left = 80
      Top = 24
      Width = 97
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      ParentFont = False
      TabOrder = 0
      OnChange = ComboBox2Change
    end
    object ComboBox3: TComboBox
      Left = 80
      Top = 57
      Width = 97
      Height = 22
      Style = csSimple
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      ParentFont = False
      TabOrder = 1
      OnChange = ComboBox2Change
    end
    object ComboBox4: TComboBox
      Left = 79
      Top = 93
      Width = 97
      Height = 22
      Style = csSimple
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      ParentFont = False
      TabOrder = 2
      OnChange = ComboBox2Change
    end
    object ComboBox5: TComboBox
      Left = 79
      Top = 133
      Width = 97
      Height = 22
      Style = csSimple
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      ParentFont = False
      TabOrder = 3
      OnChange = ComboBox2Change
    end
  end
end

roomruzhu.~dfm - 源码说明

本页面展示了「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」中的 roomruzhu.~dfm 源码文件，采用 ~DFM 编程语言编写，共 487 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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