unit1.dfm

本人编写的一户一册登记表,由于水平有限,只有基本的文本记录功能,还有一个自动统计,但打印还没有完盖

object Form1: TForm1
  Left = 242
  Top = 33
  Width = 717
  Height = 648
  Caption = #22823#26391#38215#19968#25143#19968#20876#30331#35760#34920
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 3
    Top = 0
    Width = 700
    Height = 613
    ActivePage = TabSheet3
    TabIndex = 1
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = #30331#35760#34920
      DesignSize = (
        692
        585)
      object Label1: TLabel
        Left = 6
        Top = 36
        Width = 60
        Height = 13
        AutoSize = False
        Caption = #21333#20301#21517#31216
      end
      object Label2: TLabel
        Left = 414
        Top = 36
        Width = 59
        Height = 13
        AutoSize = False
        Caption = #32852#31995#30005#35805
      end
      object Label5: TLabel
        Left = 2
        Top = 58
        Width = 58
        Height = 13
        AutoSize = False
        Caption = #35814#32454#22320#22336
      end
      object Label16: TLabel
        Left = 283
        Top = 8
        Width = 61
        Height = 14
        AutoSize = False
        Caption = #25152#23646#21333#20301
      end
      object Label19: TLabel
        Left = 340
        Top = 164
        Width = 105
        Height = 21
        AutoSize = False
        Caption = #29983#20135#12289#32463#33829#39033#30446
        Layout = tlCenter
      end
      object Label27: TLabel
        Left = 7
        Top = 254
        Width = 55
        Height = 21
        AutoSize = False
        Caption = #27004#26799'('#20010')'
        Layout = tlCenter
      end
      object Label28: TLabel
        Left = 237
        Top = 254
        Width = 32
        Height = 21
        AutoSize = False
        Caption = #23618#25968
        Layout = tlCenter
      end
      object Label31: TLabel
        Left = 3
        Top = 442
        Width = 32
        Height = 13
        AutoSize = False
        Caption = #20108#23618
      end
      object Label32: TLabel
        Left = 356
        Top = 392
        Width = 34
        Height = 13
        AutoSize = False
        Caption = #20154#25968
      end
      object Label34: TLabel
        Left = 479
        Top = 392
        Width = 34
        Height = 13
        AutoSize = False
        Caption = #22791#27880
      end
      object Label35: TLabel
        Left = 227
        Top = 392
        Width = 89
        Height = 13
        AutoSize = False
        Caption = #38754#31215#65288#24179#26041#31859#65289
      end
      object Label36: TLabel
        Left = 4
        Top = 392
        Width = 36
        Height = 13
        AutoSize = False
        Caption = #27004#23618
      end
      object Label37: TLabel
        Left = 3
        Top = 417
        Width = 32
        Height = 13
        AutoSize = False
        Caption = #19968#23618
      end
      object Label38: TLabel
        Left = 3
        Top = 492
        Width = 32
        Height = 13
        AutoSize = False
        Caption = #22235#23618
      end
      object Label41: TLabel
        Left = 122
        Top = 392
        Width = 34
        Height = 13
        AutoSize = False
        Caption = #29992#36884
      end
      object Label46: TLabel
        Left = 3
        Top = 517
        Width = 32
        Height = 13
        AutoSize = False
        Caption = #20116#23618
      end
      object Label47: TLabel
        Left = 3
        Top = 542
        Width = 32
        Height = 13
        AutoSize = False
        Caption = #20845#23618
      end
      object Label48: TLabel
        Left = 3
        Top = 568
        Width = 32
        Height = 13
        AutoSize = False
        Caption = #21512#35745
      end
      object Label51: TLabel
        Left = 3
        Top = 467
        Width = 32
        Height = 13
        AutoSize = False
        Caption = #19977#23618
      end
      object Label49: TLabel
        Left = 459
        Top = 10
        Width = 36
        Height = 13
        AutoSize = False
        Caption = #32534#21495#65306
      end
      object Label3: TLabel
        Left = 23
        Top = 90
        Width = 29
        Height = 17
        AutoSize = False
        Caption = #23627#20027
      end
      object Label4: TLabel
        Left = 12
        Top = 110
        Width = 49
        Height = 15
        AutoSize = False
        Caption = '('#20986#31199#32773')'
      end
      object Label6: TLabel
        Left = 92
        Top = 89
        Width = 28
        Height = 17
        AutoSize = False
        Caption = #22995#21517
      end
      object Label7: TLabel
        Left = 90
        Top = 113
        Width = 28
        Height = 12
        AutoSize = False
        Caption = #30005#35805
      end
      object Label9: TLabel
        Left = 355
        Top = 92
        Width = 43
        Height = 13
        AutoSize = False
        Caption = #32463#33829#32773
      end
      object Label8: TLabel
        Left = 352
        Top = 110
        Width = 54
        Height = 14
        AutoSize = False
        Caption = '('#25215#31199#32773')'
      end
      object Label93: TLabel
        Left = 413
        Top = 89
        Width = 28
        Height = 17
        AutoSize = False
        Caption = #22995#21517
      end
      object Label94: TLabel
        Left = 412
        Top = 113
        Width = 28
        Height = 12
        AutoSize = False
        Caption = #30005#35805
      end
      object Label10: TLabel
        Left = 5
        Top = 164
        Width = 96
        Height = 21
        AutoSize = False
        Caption = #26159#21542#26377#36867#29983#26799
        Layout = tlCenter
      end
      object Label18: TLabel
        Left = 2
        Top = 187
        Width = 103
        Height = 21
        AutoSize = False
        Caption = #26159#21542#26377#33829#19994#25191#29031
        Layout = tlCenter
      end
      object Label22: TLabel
        Left = 15
        Top = 137
        Width = 66
        Height = 21
        AutoSize = False
        Caption = #21592#24037#20154#25968
        Layout = tlCenter
      end
      object Label12: TLabel
        Left = 334
        Top = 187
        Width = 103
        Height = 21
        AutoSize = False
        Caption = #26159#21542#32463#28040#38450#23457#25209
        Layout = tlCenter
      end
      object Label15: TLabel
        Left = 355
        Top = 137
        Width = 62
        Height = 21
        AutoSize = False
        Caption = #32463#33829#26102#38388
        Layout = tlCenter
      end
      object Label13: TLabel
        Left = 14
        Top = 208
        Width = 75
        Height = 21
        AutoSize = False
        Caption = #26159#21542#26377#38149#28809
        Layout = tlCenter
      end
      object Label26: TLabel
        Left = 179
        Top = 232
        Width = 96
        Height = 21
        AutoSize = False
        Caption = #30005#27668#32447#36335#23433#35013#24773#20917
        Layout = tlCenter
      end
      object Label17: TLabel
        Left = -1
        Top = 234
        Width = 127
        Height = 21
        AutoSize = False
        Caption = #23384#25918#28082#21270#27668#29942#65288#20010#65289
        Layout = tlCenter
      end
      object Label29: TLabel
        Left = 415
        Top = 254
        Width = 99
        Height = 21
        AutoSize = False
        Caption = #36867#29983#31383#21475#65288#20010#65289
        Layout = tlCenter
      end
      object Label14: TLabel
        Left = 329
        Top = 208
        Width = 109
        Height = 21
        AutoSize = False
        Caption = #27611#32455#26426#26800#25968#65288#21488#65289
        Layout = tlCenter
      end
      object Label42: TLabel
        Left = -1
        Top = 277
        Width = 106
        Height = 21
        AutoSize = False
        Caption = #21344#22320#38754#31215'('#24179#26041#31859')'
        Layout = tlCenter
      end
      object Label45: TLabel
        Left = 222
        Top = 277
        Width = 56
        Height = 21
        AutoSize = False
        Caption = #24314#31569#38754#31215
        Layout = tlCenter
      end
      object Label43: TLabel
        Left = 417
        Top = 275
        Width = 93
        Height = 21
        AutoSize = False
        Caption = #23433#20840#20986#21475#65288#20010#65289
        Layout = tlCenter
      end
      object Label95: TLabel
        Left = 4
        Top = 304
        Width = 65
        Height = 21
        AutoSize = False
        Caption = #24314#31569#32467#26500
        Layout = tlCenter
      end
      object Label44: TLabel
        Left = 2
        Top = 330
        Width = 101
        Height = 21
        AutoSize = False
        Caption = #28040#38450#21367#30424#65288#26643#65289
        Layout = tlCenter
      end
      object Label30: TLabel
        Left = 232
        Top = 330
        Width = 69
        Height = 21
        AutoSize = False
        Caption = #28781#28779#22120'('#20855')'
        Layout = tlCenter
      end
      object Label33: TLabel
        Left = 452
        Top = 330
        Width = 69
        Height = 21
        AutoSize = False
        Caption = #24212#24613#28783'('#30415')'
        Layout = tlCenter
      end
      object Bevel5: TBevel
        Left = 605
        Top = 350
        Width = 84
        Height = 35
      end
      object Bevel1: TBevel
        Left = 604
        Top = 136
        Width = 85
        Height = 35
      end
      object Bevel4: TBevel
        Left = 605
        Top = 30
        Width = 84
        Height = 35
      end
      object Bevel2: TBevel
        Left = 605
        Top = 243
        Width = 84
        Height = 35
      end
      object Label11: TLabel
        Left = 0
        Top = 355
        Width = 113
        Height = 21
        AutoSize = False
        Caption = #24314#31569#65288#20351#29992#65289#24773#20917#65306
        Layout = tlCenter
      end
      object RadioGroup1: TRadioGroup
        Left = 104
        Top = 205
        Width = 111
        Height = 30
        Anchors = []
        Columns = 2
        Ctl3D = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemIndex = 0
        Items.Strings = (
          #26377
          #26080)
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 16
      end
      object RadioGroup6: TRadioGroup
        Left = 2
        Top = -5
        Width = 275
        Height = 31
        Anchors = []
        Color = clBtnFace
        Columns = 2
        Ctl3D = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNone
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemIndex = 0
        Items.Strings = (
          #28155#21152#30331#35760#34920#65307
          #25353#32534#21495#26597#25214#30331#35760#34920)
        ParentColor = False
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        OnClick = RadioGroup6Click
      end
      object Edit1: TEdit
        Left = 63
        Top = 32
        Width = 258
        Height = 21
        TabOrder = 3
        Text = 'Edit1'
      end
      object Edit2: TEdit
        Left = 477
        Top = 32
        Width = 115
        Height = 21
        TabOrder = 4
        Text = 'Edit2'
        OnKeyPress = Edit2KeyPress
      end
      object Edit3: TEdit
        Left = 63
        Top = 56
        Width = 529
        Height = 21
        TabOrder = 5
        Text = 'Edit3'
      end
      object ComboBox1: TComboBox
        Left = 343
        Top = 6
        Width = 94
        Height = 21
        Style = csDropDownList