unit1.dfm

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

            Expanded = False
            FieldName = 'A27'
            Title.Caption = #20108#23618#38754#31215
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A28'
            Title.Caption = #20108#23618#20154#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A29'
            Title.Caption = #20108#23618#22791#27880
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A30'
            Title.Caption = #19977#23618#29992#36884
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A31'
            Title.Caption = #19977#23618#38754#31215
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A32'
            Title.Caption = #19977#23618#20154#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A33'
            Title.Caption = #19977#23618#22791#27880
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A34'
            Title.Caption = #22235#23618#29992#36884
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A35'
            Title.Caption = #22235#23618#38754#31215
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A36'
            Title.Caption = #22235#23618#20154#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A37'
            Title.Caption = #22235#23618#22791#27880
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A38'
            Title.Caption = #20116#23618#29992#36884
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A39'
            Title.Caption = #20116#23618#38754#31215
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A40'
            Title.Caption = #20116#23618#20154#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A41'
            Title.Caption = #20116#23618#22791#27880
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A42'
            Title.Caption = #20845#23618#29992#36884
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A43'
            Title.Caption = #20845#23618#38754#31215
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A44'
            Title.Caption = #20845#23618#20154#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A45'
            Title.Caption = #20845#23618#22791#27880
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A46'
            Title.Caption = #32508#21512#29992#36884
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A47'
            Title.Caption = #21512#35745#38754#31215
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A48'
            Title.Caption = #21512#35745#20154#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'A49'
            Title.Caption = #32508#21512#22791#27880
            Visible = True
          end>
      end
      object DBNavigator1: TDBNavigator
        Left = 109
        Top = 6
        Width = 240
        Height = 25
        DataSource = DataSource2
        TabOrder = 1
      end
      object DBGrid2: TDBGrid
        Left = -1
        Top = 373
        Width = 692
        Height = 211
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'A1'
            Title.Caption = #21333#20301
            Width = 30
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'A2'
            Title.Caption = #21152#24037#21378'('#38388')'
            Width = 59
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'A3'
            Title.Caption = #33829#19994#25191#29031'('#38388')'
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'A4'
            Title.Caption = '10'#21488#26426#20197#19979'('#38388')  '
            Width = 82
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'A5'
            Title.Caption = '11~20'
            Width = 42
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'A6'
            Title.Caption = '21~30'
            Width = 42
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'A7'
            Title.Caption = '31~40'
            Width = 42
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'A8'
            Title.Caption = '41~50'
            Width = 38
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'A9'
            Title.Caption = '51~100'
            Width = 42
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'A10'
            Title.Caption = '100'#21488#20197#19978
            Width = 58
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'A11'
            Title.Caption = #26377#38149#28809
            Width = 40
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'A12'
            Title.Caption = #28040#38450#21512#26684'('#38388')'
            Width = 70
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'A13'
            Title.Caption = '1'#24352#27004#26799
            Width = 45
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'A14'
            Title.Caption = '2'#24352#20197#19978
            Width = 45
            Visible = True
          end>
      end
      object Panel6: TPanel
        Left = -1
        Top = 317
        Width = 737
        Height = 9
        Color = clSkyBlue
        TabOrder = 3
      end
      object ComboBox2: TComboBox
        Left = 176
        Top = 334
        Width = 120
        Height = 28
        Style = csDropDownList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 20
        ItemIndex = 0
        ParentFont = False
        TabOrder = 4
        Text = #20840#38215
        Items.Strings = (
          #20840#38215
          #28165#38500#20840#37096
          '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 Button4: TButton
        Left = 353
        Top = 333
        Width = 87
        Height = 31
        Hint = #26597#35810
        Caption = #24320#22987#32479#35745
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnClick = Button4Click
      end
      object ComboBox3: TComboBox
        Left = 388
        Top = 4
        Width = 123
        Height = 28
        Style = csDropDownList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 20
        ItemIndex = 0
        ParentFont = False
        TabOrder = 6
        Text = #20840#38215
        OnChange = ComboBox3Change
        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 RadioGroup8: TRadioGroup
        Left = 531
        Top = 0
        Width = 160
        Height = 33
        Columns = 2
        ItemIndex = 0
        Items.Strings = (
          #21333#19968#26597#35810
          #22810#20010#26597#35810)
        TabOrder = 7
      end
      object CheckBox1: TCheckBox
        Left = 16
        Top = 256
        Width = 86
        Height = 17
        Caption = #25353#23627#20027#22995#21517':'
        TabOrder = 8
      end
      object CheckBox2: TCheckBox
        Left = 16
        Top = 288
        Width = 97
        Height = 17
        Caption = #25353#32463#33829#32773#22995#21517':'
        TabOrder = 9
      end
      object CheckBox3: TCheckBox
        Left = 216
        Top = 256
        Width = 97
        Height = 17
        Caption = #25353#21333#20301#21517#31216':'
        TabOrder = 10
      end
      object CheckBox4: TCheckBox
        Left = 216
        Top = 288
        Width = 97
        Height = 17
        Caption = #25353#22320#22336':'
        TabOrder = 11
      end
    end
  end
  object Panel14: TPanel
    Left = 701
    Top = 0
    Width = 6
    Height = 612
    Color = clSkyBlue
    TabOrder = 1
    object Panel15: TPanel
      Left = 8
      Top = 80
      Width = 185
      Height = 41
      Caption = 'Panel11'
      TabOrder = 0
    end
  end
  object Panel12: TPanel
    Left = -2
    Top = 0
    Width = 6
    Height = 613
    Color = clSkyBlue
    TabOrder = 2
    object Panel13: TPanel
      Left = 8
      Top = 80
      Width = 185
      Height = 41
      Caption = 'Panel11'
      TabOrder = 0
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 528
    Top = 560
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 552
    Top = 552
  end
  object Table1: TTable
    Left = 448
    Top = 128
  end
  object Query1: TQuery
    Left = 696
    Top = 528
  end
  object Query2: TQuery
    Left = 464
    Top = 184
  end
  object Query3: TQuery
    Left = 248
    Top = 16
  end
end