⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 unit1.dfm

📁 本人编写的一户一册登记表,由于水平有限,只有基本的文本记录功能,还有一个自动统计,但打印还没有完盖
💻 DFM
📖 第 1 页 / 共 4 页
字号:
        BiDiMode = bdLeftToRight
        Ctl3D = True
        ItemHeight = 13
        ItemIndex = 0
        ParentBiDiMode = False
        ParentCtl3D = False
        TabOrder = 1
        Text = #20840#38215
        OnChange = ComboBox1Change
        Items.Strings = (
          #20840#38215
          '1 '#31481#23665
          '2 '#39640#33521
          '3 '#24055#22836
          '4 '#24055#23614
          '5 '#27714#23500#36335
          '6 '#38271#22616
          '7 '#22823#20117#22836
          '8 '#22307#22530
          '9 '#34081#36793
          '10 '#27700#21475
          '11 '#27915#20044
          '12 '#27915#22353#22616
          '13 '#26494#26575#26391
          '14 '#40644#33609#26391
          '15 '#40654#36125#23725
          '16 '#20315#23376#20985
          '17 '#20315#26032
          '18 '#26494#26408#23665
          '19 '#29312#29275#38466
          '20 '#27700#24179
          '21 '#23631#23665
          '22 '#23453#38466
          '23 '#30707#21414
          '24 '#26472#28044
          '25 '#27801#27493
          '26 '#26032#39532#33714
          '27 '#23621#27665
          '28 '#38271#23500#20844#21496
          '29 '#24037#19994#20844#21496
          '30 '#29289#36164#20844#21496
          '31 '#21457#23637#20844#21496
          '32 '#25991#21270#31449
          '33 '#20379#38144#31038
          '34 '#25151#22320#20135
          '35 '#39135#21697#20844#21496
          '36 '#31119#21033#38498
          '37 '#22823#26377#22253)
      end
      object Edit4: TEdit
        Left = 496
        Top = 5
        Width = 95
        Height = 21
        TabOrder = 2
        Text = 'Edit4'
        OnKeyPress = Edit4KeyPress
      end
      object Edit11: TEdit
        Left = 68
        Top = 255
        Width = 73
        Height = 21
        AutoSize = False
        TabOrder = 20
        Text = 'Edit11'
        OnKeyPress = Edit11KeyPress
      end
      object Edit12: TEdit
        Left = 283
        Top = 254
        Width = 63
        Height = 21
        AutoSize = False
        TabOrder = 21
        Text = 'Edit12'
        OnKeyPress = Edit12KeyPress
      end
      object Edit13: TEdit
        Left = 525
        Top = 330
        Width = 64
        Height = 21
        AutoSize = False
        TabOrder = 29
        Text = 'Edit13'
        OnKeyPress = Edit13KeyPress
      end
      object Edit21: TEdit
        Left = 44
        Top = 411
        Width = 161
        Height = 21
        TabOrder = 31
        Text = 'Edit21'
      end
      object Edit22: TEdit
        Left = 218
        Top = 411
        Width = 100
        Height = 21
        BevelInner = bvLowered
        BiDiMode = bdLeftToRight
        Ctl3D = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentBiDiMode = False
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 32
        Text = 'Edit22'
        OnKeyPress = Edit22KeyPress
      end
      object Edit23: TEdit
        Left = 331
        Top = 411
        Width = 76
        Height = 21
        TabOrder = 33
        Text = 'Edit23'
        OnKeyPress = Edit23KeyPress
      end
      object Edit24: TEdit
        Left = 420
        Top = 411
        Width = 170
        Height = 21
        TabOrder = 34
        Text = 'Edit24'
      end
      object Edit25: TEdit
        Left = 44
        Top = 436
        Width = 161
        Height = 21
        Color = clCream
        TabOrder = 35
        Text = 'Edit25'
      end
      object Edit26: TEdit
        Left = 218
        Top = 436
        Width = 100
        Height = 21
        BevelInner = bvLowered
        BiDiMode = bdLeftToRight
        Color = clCream
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentBiDiMode = False
        ParentFont = False
        TabOrder = 36
        Text = 'Edit22'
        OnKeyPress = Edit26KeyPress
      end
      object Edit27: TEdit
        Left = 331
        Top = 438
        Width = 76
        Height = 21
        Color = clCream
        TabOrder = 37
        Text = 'Edit23'
        OnKeyPress = Edit27KeyPress
      end
      object Edit28: TEdit
        Left = 420
        Top = 436
        Width = 170
        Height = 21
        Color = clCream
        TabOrder = 38
        Text = 'Edit24'
      end
      object Edit29: TEdit
        Left = 44
        Top = 461
        Width = 161
        Height = 21
        TabOrder = 39
        Text = 'Edit29'
      end
      object Edit30: TEdit
        Left = 217
        Top = 461
        Width = 100
        Height = 21
        BevelInner = bvLowered
        BiDiMode = bdLeftToRight
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentBiDiMode = False
        ParentFont = False
        TabOrder = 40
        Text = 'Edit22'
        OnKeyPress = Edit30KeyPress
      end
      object Edit31: TEdit
        Left = 331
        Top = 463
        Width = 76
        Height = 21
        TabOrder = 41
        Text = 'Edit23'
        OnKeyPress = Edit31KeyPress
      end
      object Edit32: TEdit
        Left = 420
        Top = 461
        Width = 170
        Height = 21
        TabOrder = 42
        Text = 'Edit24'
      end
      object Edit36: TEdit
        Left = 420
        Top = 487
        Width = 170
        Height = 21
        Color = clCream
        TabOrder = 46
        Text = 'Edit24'
      end
      object Edit35: TEdit
        Left = 331
        Top = 487
        Width = 76
        Height = 21
        Color = clCream
        TabOrder = 45
        Text = 'Edit23'
        OnKeyPress = Edit35KeyPress
      end
      object Edit34: TEdit
        Left = 217
        Top = 487
        Width = 100
        Height = 21
        BevelInner = bvLowered
        BiDiMode = bdLeftToRight
        Color = clCream
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentBiDiMode = False
        ParentFont = False
        TabOrder = 44
        Text = 'Edit22'
        OnKeyPress = Edit34KeyPress
      end
      object Edit33: TEdit
        Left = 44
        Top = 486
        Width = 161
        Height = 21
        Color = clCream
        TabOrder = 43
        Text = 'Edit33'
      end
      object Edit37: TEdit
        Left = 44
        Top = 511
        Width = 161
        Height = 21
        TabOrder = 47
        Text = 'Edit37'
      end
      object Edit38: TEdit
        Left = 217
        Top = 512
        Width = 100
        Height = 21
        BevelInner = bvLowered
        BiDiMode = bdLeftToRight
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentBiDiMode = False
        ParentFont = False
        TabOrder = 48
        Text = 'Edit22'
        OnKeyPress = Edit38KeyPress
      end
      object Edit39: TEdit
        Left = 331
        Top = 512
        Width = 76
        Height = 21
        TabOrder = 49
        Text = 'Edit23'
        OnKeyPress = Edit39KeyPress
      end
      object Edit40: TEdit
        Left = 420
        Top = 512
        Width = 170
        Height = 21
        TabOrder = 50
        Text = 'Edit24'
      end
      object Edit44: TEdit
        Left = 420
        Top = 537
        Width = 170
        Height = 21
        Color = clCream
        TabOrder = 54
        Text = 'Edit24'
      end
      object Edit43: TEdit
        Left = 331
        Top = 536
        Width = 76
        Height = 21
        Color = clCream
        TabOrder = 53
        Text = 'Edit23'
        OnKeyPress = Edit43KeyPress
      end
      object Edit42: TEdit
        Left = 217
        Top = 537
        Width = 100
        Height = 21
        BevelInner = bvLowered
        BiDiMode = bdLeftToRight
        Color = clCream
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentBiDiMode = False
        ParentFont = False
        TabOrder = 52
        Text = 'Edit22'
        OnKeyPress = Edit42KeyPress
      end
      object Edit41: TEdit
        Left = 44
        Top = 536
        Width = 161
        Height = 21
        Color = clCream
        TabOrder = 51
        Text = 'Edit41'
      end
      object Edit45: TEdit
        Left = 44
        Top = 562
        Width = 161
        Height = 21
        TabOrder = 55
        Text = 'Edit45'
      end
      object Edit46: TEdit
        Left = 217
        Top = 563
        Width = 100
        Height = 21
        BevelInner = bvLowered
        BiDiMode = bdLeftToRight
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentBiDiMode = False
        ParentFont = False
        TabOrder = 56
        Text = 'Edit22'
        OnKeyPress = Edit46KeyPress
      end
      object Edit47: TEdit
        Left = 331
        Top = 563
        Width = 76
        Height = 21
        TabOrder = 57
        Text = 'Edit23'
        OnKeyPress = Edit47KeyPress
      end
      object Edit48: TEdit
        Left = 420
        Top = 563
        Width = 170
        Height = 21
        TabOrder = 58
        Text = 'Edit24'
      end
      object Panel3: TPanel
        Left = 75
        Top = 82
        Width = 3
        Height = 53
        BevelOuter = bvLowered
        Caption = 'Panel2'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 60
      end
      object Edit5: TEdit
        Left = 133
        Top = 87
        Width = 172
        Height = 21
        TabOrder = 6
        Text = 'Edit5'
      end
      object Edit6: TEdit
        Left = 133
        Top = 109
        Width = 172
        Height = 21
        TabOrder = 7
        Text = 'Edit6'
        OnKeyPress = Edit6KeyPress
      end
      object Panel2: TPanel
        Left = 320
        Top = 82
        Width = 4
        Height = 52
        BevelOuter = bvLowered
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 61
      end
      object Panel7: TPanel
        Left = 404
        Top = 82
        Width = 2
        Height = 53
        BevelOuter = bvLowered
        Caption = 'Panel2'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 62
      end
      object Edit8: TEdit
        Left = 452
        Top = 109
        Width = 131
        Height = 21
        TabOrder = 9
        Text = 'Edit8'
        OnKeyPress = Edit8KeyPress
      end
      object Edit7: TEdit
        Left = 452
        Top = 87
        Width = 131
        Height = 21
        TabOrder = 8
        Text = 'Edit7'
      end
      object Panel9: TPanel
        Left = 591
        Top = 81
        Width = 3
        Height = 54
        BevelOuter = bvLowered
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 63
      end
      object Panel1: TPanel
        Left = 1
        Top = 81
        Width = 4
        Height = 54
        BevelOuter = bvLowered
        Caption = 'Panel2'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 64
      end
      object Panel4: TPanel
        Left = 3
        Top = 81
        Width = 590
        Height = 2
        BevelOuter = bvLowered
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 65
      end
      object Panel5: TPanel
        Left = 3
        Top = 134
        Width = 590
        Height = 2
        BevelOuter = bvLowered
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 66
      end
      object Edit50: TEdit
        Left = 445
        Top = 137
        Width = 131
        Height = 21
        AutoSize = False
        TabOrder = 11
        Text = 'Edit50'
        OnKeyPress = Edit50KeyPress

⌨️ 快捷键说明

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