unit3.dfm

该系统建立一个数库,来存储人口记录.以某一字段进行统计查询,输出结果以报表形式输出.添加,删除,查询各种功能.

object Form3: TForm3
  Left = 124
  Top = 61
  Width = 619
  Height = 494
  Caption = #26597#35810#32479#35745#31383#20307
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 152
    Top = 8
    Width = 301
    Height = 30
    Caption = #20154#21475#26222#26597#26597#35810#32479#35745#31995#32479
    Font.Charset = GB2312_CHARSET
    Font.Color = clFuchsia
    Font.Height = -29
    Font.Name = #21326#25991#34892#26999
    Font.Style = [fsBold]
    ParentFont = False
  end
  object SpeedButton1: TSpeedButton
    Left = 472
    Top = 367
    Width = 121
    Height = 22
    Caption = #25191#34892#26597#35810#32479#35745
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object Label2: TLabel
    Left = 33
    Top = 441
    Width = 84
    Height = 12
    Caption = #21344#24635#20154#21475#30340#27604#20363
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 32
    Top = 264
    Width = 72
    Height = 12
    Caption = #26597#35810#32479#35745#26041#24335
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 35
    Top = 402
    Width = 48
    Height = 12
    Caption = #26597#24471#20154#25968
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 311
    Top = 409
    Width = 60
    Height = 12
    Caption = #32479#35745#24635#20154#25968
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 36
    Top = 366
    Width = 72
    Height = 12
    Caption = #36755#20837#26597#35810#20869#23481
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 46
    Width = 593
    Height = 185
    Color = clBtnFace
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #36523#20221#35777#21495
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22995#21517
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24180#40836
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32844#19994
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24615#21035
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32844#31216#31561#32423
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26368#39640#23398#21382
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24037#36164#25910#20837
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22269#31821
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23478#24237#20154#21475#25968
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23130#21542
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 253
    Top = 235
    Width = 240
    Height = 25
    DataSource = DataSource1
    Flat = True
    TabOrder = 1
  end
  object RadioButton1: TRadioButton
    Left = 32
    Top = 296
    Width = 113
    Height = 17
    Caption = #25353#22995#21517#26597#35810#32479#35745
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = RadioButton1Click
  end
  object RadioButton2: TRadioButton
    Left = 168
    Top = 296
    Width = 113
    Height = 17
    Caption = #25353#24180#40836#26597#35810#32479#35745
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = RadioButton2Click
  end
  object RadioButton3: TRadioButton
    Left = 296
    Top = 297
    Width = 113
    Height = 17
    Caption = #25353#32844#19994#26597#35810#32479#35745
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = RadioButton3Click
  end
  object RadioButton4: TRadioButton
    Left = 432
    Top = 296
    Width = 113
    Height = 17
    Caption = #25353#32844#31216#26597#35810#32479#35745
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = RadioButton4Click
  end
  object RadioButton5: TRadioButton
    Left = 32
    Top = 328
    Width = 113
    Height = 17
    Caption = #25353#26368#39640#23398#21382#26597#35810#32479#35745
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = RadioButton5Click
  end
  object RadioButton6: TRadioButton
    Left = 169
    Top = 328
    Width = 113
    Height = 17
    Caption = #25353#24037#36164#25910#26597#35810#32479#35745
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = RadioButton6Click
  end
  object RadioButton7: TRadioButton
    Left = 296
    Top = 328
    Width = 113
    Height = 17
    Caption = #25353#22269#31821#26597#35810#32479#35745
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnClick = RadioButton7Click
  end
  object RadioButton8: TRadioButton
    Left = 434
    Top = 328
    Width = 113
    Height = 17
    Caption = #25353#23130#21542#26597#35810#32479#35745
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    OnClick = RadioButton8Click
  end
  object Edit1: TEdit
    Left = 127
    Top = 361
    Width = 121
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    Text = 'Edit1'
  end
  object Edit2: TEdit
    Left = 127
    Top = 436
    Width = 121
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 11
    Text = 'Edit2'
  end
  object Edit3: TEdit
    Left = 288
    Top = 438
    Width = 121
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 12
    Text = 'Edit3'
  end
  object Memo1: TMemo
    Left = 48
    Top = 136
    Width = 529
    Height = 57
    Lines.Strings = (
      'Memo1')
    TabOrder = 13
    Visible = False
  end
  object Edit4: TEdit
    Left = 126
    Top = 400
    Width = 121
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 14
    Text = 'Edit4'
  end
  object Table1: TTable
    Active = True
    AutoRefresh = True
    TableName = #20154#21475#26222#26597'.db'
    Left = 528
    Top = 16
    object Table1BDEDesigner: TFloatField
      FieldName = #36523#20221#35777#21495
    end
    object Table1BDEDesigner2: TStringField
      FieldName = #22995#21517
    end
    object Table1BDEDesigner3: TFloatField
      FieldName = #24180#40836
    end
    object Table1BDEDesigner4: TStringField
      FieldName = #32844#19994
      Size = 18
    end
    object Table1BDEDesigner5: TStringField
      FieldName = #24615#21035
      Size = 2
    end
    object Table1BDEDesigner6: TStringField
      FieldName = #32844#31216#31561#32423
      Size = 18
    end
    object Table1BDEDesigner7: TStringField
      FieldName = #26368#39640#23398#21382
      Size = 10
    end
    object Table1BDEDesigner8: TCurrencyField
      FieldName = #24037#36164#25910#20837
    end
    object Table1BDEDesigner9: TStringField
      FieldName = #22269#31821
      Size = 10
    end
    object Table1BDEDesigner10: TFloatField
      FieldName = #23478#24237#20154#21475#25968
    end
    object Table1BDEDesigner11: TStringField
      FieldName = #23130#21542
      Size = 2
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 504
    Top = 48
  end
end