unit1.dfm

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

      end
      object RadioGroup2: TRadioGroup
        Left = 277
        Top = 224
        Width = 315
        Height = 31
        Columns = 3
        Ctl3D = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemIndex = 0
        Items.Strings = (
          #31526#21512#35201#27714
          #22522#26412#31526#21512#35201#27714
          #19981#31526#21512#35201#27714)
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 19
      end
      object RadioGroup4: TRadioGroup
        Left = 444
        Top = 179
        Width = 133
        Height = 31
        Columns = 2
        Ctl3D = True
        ItemIndex = 0
        Items.Strings = (
          #26159
          #21542)
        ParentCtl3D = False
        TabOrder = 15
      end
      object Edit14: TEdit
        Left = 518
        Top = 254
        Width = 72
        Height = 21
        AutoSize = False
        TabOrder = 22
        Text = 'Edit14'
        OnKeyPress = Edit14KeyPress
      end
      object Edit10: TEdit
        Left = 443
        Top = 208
        Width = 135
        Height = 21
        AutoSize = False
        TabOrder = 17
        Text = 'Edit10'
        OnKeyPress = Edit10KeyPress
      end
      object Edit16: TEdit
        Left = 123
        Top = 234
        Width = 54
        Height = 21
        AutoSize = False
        TabOrder = 18
        Text = 'Edit16'
        OnKeyPress = Edit16KeyPress
      end
      object Edit20: TEdit
        Left = 308
        Top = 330
        Width = 50
        Height = 21
        AutoSize = False
        TabOrder = 28
        Text = 'Edit20'
        OnKeyPress = Edit20KeyPress
      end
      object RadioGroup5: TRadioGroup
        Left = 104
        Top = 178
        Width = 111
        Height = 33
        Columns = 2
        Ctl3D = True
        ItemIndex = 0
        Items.Strings = (
          #26377
          #26080)
        ParentCtl3D = False
        TabOrder = 14
      end
      object Edit9: TEdit
        Left = 444
        Top = 164
        Width = 132
        Height = 21
        AutoSize = False
        TabOrder = 13
        Text = 'Edit9'
      end
      object Edit15: TEdit
        Left = 519
        Top = 275
        Width = 69
        Height = 21
        AutoSize = False
        TabOrder = 25
        Text = 'Edit15'
        OnKeyPress = Edit15KeyPress
      end
      object RadioGroup7: TRadioGroup
        Left = 69
        Top = 296
        Width = 522
        Height = 33
        Columns = 5
        ItemIndex = 2
        Items.Strings = (
          '1'#12289#30742#26408
          '2'#12289#28151#21512
          '3'#12289#38050#31563#28151#20957#22303
          '4'#12289#38050#32467
          '5'#12289#20854#20182)
        TabOrder = 26
      end
      object Button5: TButton
        Left = 610
        Top = 354
        Width = 76
        Height = 27
        Hint = #21024#38500
        Caption = #21024#38500
        TabOrder = 67
        Visible = False
        OnClick = Button5Click
      end
      object Button2: TButton
        Left = 609
        Top = 140
        Width = 77
        Height = 27
        Hint = #30830#23450#28155#21152
        Caption = #30830#23450#28155#21152
        TabOrder = 59
        OnClick = Button2Click
      end
      object Button1: TButton
        Left = 610
        Top = 34
        Width = 76
        Height = 27
        Hint = #26597#35810
        Caption = #28155#21152
        TabOrder = 68
        OnClick = Button1Click
      end
      object Button3: TButton
        Left = 610
        Top = 247
        Width = 76
        Height = 27
        Hint = #26597#35810
        Caption = #20462#25913
        TabOrder = 69
        Visible = False
        OnClick = Button3Click
      end
      object Edit19: TEdit
        Left = 101
        Top = 330
        Width = 73
        Height = 21
        AutoSize = False
        TabOrder = 27
        Text = 'Edit19'
      end
      object Edit18: TEdit
        Left = 283
        Top = 276
        Width = 63
        Height = 22
        AutoSize = False
        TabOrder = 24
        Text = 'Edit18'
        OnKeyPress = Edit18KeyPress
      end
      object Edit17: TEdit
        Left = 106
        Top = 277
        Width = 100
        Height = 21
        AutoSize = False
        TabOrder = 23
        Text = 'Edit17'
        OnKeyPress = Edit17KeyPress
      end
      object Edit51: TEdit
        Left = 110
        Top = 355
        Width = 480
        Height = 21
        TabOrder = 30
        Text = 'Edit51'
      end
      object RadioGroup3: TRadioGroup
        Left = 104
        Top = 151
        Width = 111
        Height = 33
        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 = 12
      end
      object Edit49: TEdit
        Left = 103
        Top = 136
        Width = 111
        Height = 21
        TabOrder = 10
        Text = 'Edit49'
        OnKeyPress = Edit49KeyPress
      end
      object Panel8: TPanel
        Left = -3
        Top = 379
        Width = 599
        Height = 8
        Color = clGradientInactiveCaption
        TabOrder = 70
      end
      object Panel10: TPanel
        Left = 592
        Top = -6
        Width = 6
        Height = 591
        Color = clSkyBlue
        TabOrder = 71
        object Panel11: TPanel
          Left = 8
          Top = 80
          Width = 185
          Height = 41
          Caption = 'Panel11'
          TabOrder = 0
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #19968#25143#19968#20876
      ImageIndex = 2
      object Label20: TLabel
        Left = 1
        Top = 8
        Width = 104
        Height = 24
        AutoSize = False
        Caption = #30331#35760#24773#20917
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label21: TLabel
        Left = 16
        Top = 334
        Width = 153
        Height = 25
        AutoSize = False
        Caption = #19968#25143#19968#20876#32479#35745
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -21
        Font.Name = #20223#23435'_GB2312'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Bevel3: TBevel
        Left = 347
        Top = 328
        Width = 99
        Height = 40
      end
      object DBGrid1: TDBGrid
        Left = 2
        Top = 37
        Width = 688
        Height = 209
        DataSource = DataSource2
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'Nu'
            Title.Caption = #32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Dwmc'
            Title.Caption = #21333#20301#21517#31216
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Ssdw'
            Title.Caption = #25152#23646#21333#20301
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Tel'
            Title.Caption = #32852#31995#30005#35805
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Cxdz'
            Title.Caption = #35814#32454#22320#22336
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'WzXm'
            Title.Caption = #23627#20027#22995#21517
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Wztel'
            Title.Caption = #23627#20027#30005#35805
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Lbxm'
            Title.Caption = #32463#33829#32773
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Lbtel'
            Title.Caption = #32463#33829#32773#30005#35805
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A1'
            Title.Caption = #21592#24037#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A2'
            Title.Caption = #32463#33829#26102#38388
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A3'
            Title.Caption = #36867#29983#26799
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A4'
            Title.Caption = #32463#33829#39033#30446
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A5'
            Title.Caption = #33829#19994#25191#29031
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A6'
            Title.Caption = #28040#38450#23457#25209
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A7'
            Title.Caption = #38149#28809
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A8'
            Title.Caption = #26426#26800#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A9'
            Title.Caption = #27668#29942#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A10'
            Title.Caption = #32447#36335#24773#20917
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A11'
            Title.Caption = #27004#26799#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A12'
            Title.Caption = #23618#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A13'
            Title.Caption = #36867#29983#31383#21475
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A14'
            Title.Caption = #21344#22320#38754#31215
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A15'
            Title.Caption = #24314#31569#38754#31215
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A16'
            Title.Caption = #24314#31569#32467#26500
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A17'
            Title.Caption = #23433#20840#20986#21475
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A18'
            Title.Caption = #21367#30424
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A19'
            Title.Caption = #28781#28779#22120
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A20'
            Title.Caption = #24212#24613#28783
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A21'
            Title.Caption = #24314#31569#24773#20917
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A22'
            Title.Caption = #19968#23618#29992#36884
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A23'
            Title.Caption = #19968#23618#38754#31215
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A24'
            Title.Caption = #19968#23618#20154#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A25'
            Title.Caption = #19968#23618#22791#27880
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A26'
            Title.Caption = #20108#23618#29992#36884
            Visible = True
          end
          item