unitstudentquery.~dfm

delphi数据库基本利用

object FormStudentQuery: TFormStudentQuery
  Left = 282
  Top = 117
  Width = 785
  Height = 501
  Caption = #23398#29983#26597#35810#27169#22359
  Color = clBtnFace
  Constraints.MinHeight = 493
  Constraints.MinWidth = 692
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #26999#20307'_GB2312'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Label0: TLabel
    Left = 16
    Top = 16
    Width = 80
    Height = 16
    Caption = #26597#35810#26465#20214#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel
    Left = 16
    Top = 56
    Width = 80
    Height = 16
    Caption = #26597#35810#26465#20214#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 88
    Width = 721
    Height = 329
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = #26999#20307'_GB2312'
    TitleFont.Style = []
  end
  object ButtonFirst: TButton
    Left = 8
    Top = 431
    Width = 75
    Height = 25
    Caption = #39318#35760#24405
    TabOrder = 1
    OnClick = ButtonFirstClick
  end
  object ButtonNext: TButton
    Left = 88
    Top = 431
    Width = 75
    Height = 25
    Caption = #19979#19968#35760#24405
    TabOrder = 2
    OnClick = ButtonNextClick
  end
  object ButtonPrev: TButton
    Left = 168
    Top = 431
    Width = 75
    Height = 25
    Caption = #19978#19968#35760#24405
    TabOrder = 3
    OnClick = ButtonPrevClick
  end
  object ButtonLast: TButton
    Left = 248
    Top = 431
    Width = 75
    Height = 25
    Caption = #23614#35760#24405
    TabOrder = 4
    OnClick = ButtonLastClick
  end
  object EditCondition1: TEdit
    Left = 96
    Top = 16
    Width = 249
    Height = 24
    TabOrder = 5
  end
  object ComboBoxField: TComboBox
    Left = 96
    Top = 56
    Width = 73
    Height = 24
    Style = csDropDownList
    ItemHeight = 16
    TabOrder = 6
    OnSelect = ComboBoxFieldSelect
    Items.Strings = (
      #23398#21495
      #22995#21517
      #24615#21035
      #20986#29983#26085#26399
      #22320#22336
      #32852#31995#30005#35805
      #29677#32423#21495
      #35780#35770)
  end
  object EditCondition2: TEdit
    Left = 240
    Top = 56
    Width = 105
    Height = 24
    TabOrder = 7
    OnKeyPress = EditCondition2KeyPress
  end
  object ComboBoxSign: TComboBox
    Left = 176
    Top = 56
    Width = 57
    Height = 24
    Style = csDropDownList
    ItemHeight = 16
    TabOrder = 8
  end
  object ButtonQuery1: TButton
    Left = 376
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Sql'#26597#35810
    TabOrder = 9
    OnClick = ButtonQuery1Click
  end
  object ButtonQuery2: TButton
    Left = 376
    Top = 56
    Width = 75
    Height = 25
    Caption = #26222#36890#26597#35810
    TabOrder = 10
    OnClick = ButtonQuery2Click
  end
  object ButtonClear: TButton
    Left = 592
    Top = 56
    Width = 75
    Height = 25
    Caption = #28165#31354#34920
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #20223#23435'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
    OnClick = ButtonClearClick
  end
  object DBCtrlGrid1: TDBCtrlGrid
    Left = 16
    Top = 104
    Width = 617
    Height = 216
    DataSource = DataSource1
    PanelWidth = 601
    TabOrder = 12
    Visible = False
    object LabelID: TLabel
      Left = 16
      Top = 16
      Width = 32
      Height = 16
      Caption = #23398#21495
    end
    object LabelName: TLabel
      Left = 144
      Top = 16
      Width = 32
      Height = 16
      Caption = #22995#21517
    end
    object LabelSex: TLabel
      Left = 296
      Top = 16
      Width = 32
      Height = 16
      Caption = #24615#21035
    end
    object Label2: TLabel
      Left = 16
      Top = 48
      Width = 64
      Height = 16
      Caption = #20986#29983#26085#26399
    end
    object LabelAddress: TLabel
      Left = 216
      Top = 40
      Width = 32
      Height = 16
      Caption = #22320#22336
    end
    object DBEditID: TDBEdit
      Left = 64
      Top = 8
      Width = 49
      Height = 24
      DataField = 'ID'
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBEditName: TDBEdit
      Left = 184
      Top = 8
      Width = 65
      Height = 24
      DataField = 'Name'
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBEdit1: TDBEdit
      Left = 352
      Top = 8
      Width = 49
      Height = 24
      DataField = 'Sex'
      DataSource = DataSource1
      TabOrder = 2
    end
    object DBEdit2: TDBEdit
      Left = 96
      Top = 40
      Width = 81
      Height = 24
      DataField = 'Birthday'
      DataSource = DataSource1
      TabOrder = 3
    end
    object DBEditAddress: TDBEdit
      Left = 272
      Top = 40
      Width = 193
      Height = 24
      DataField = 'Address'
      DataSource = DataSource1
      TabOrder = 4
    end
  end
  object RadioButton1: TRadioButton
    Left = 480
    Top = 24
    Width = 105
    Height = 17
    Caption = #34920#21333#26679#24335
    TabOrder = 13
    OnClick = RadioButton1Click
  end
  object RadioButton2: TRadioButton
    Left = 480
    Top = 56
    Width = 105
    Height = 17
    Caption = #34920#26684#26679#24335
    Checked = True
    TabOrder = 14
    TabStop = True
    OnClick = RadioButton2Click
  end
  object ButtonReturn: TButton
    Left = 592
    Top = 16
    Width = 75
    Height = 25
    Caption = #36820#22238#21407#34920
    TabOrder = 15
    OnClick = ButtonReturnClick
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 352
    Top = 432
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'school'
    SQL.Strings = (
      
        'select student.ID,student.Name,Sex,Birthday,Address,Picture,comm' +
        'ent,Telephone,ClassID,class.Name'
      'from student,class'
      'where classID=class.ID')
    Left = 416
    Top = 432
    object Query1ID: TIntegerField
      DisplayWidth = 5
      FieldName = 'ID'
    end
    object Query1Name: TStringField
      DisplayWidth = 7
      FieldName = 'Name'
    end
    object Query1Sex: TStringField
      DisplayWidth = 3
      FieldName = 'Sex'
      Size = 2
    end
    object Query1Birthday: TDateTimeField
      DisplayWidth = 11
      FieldName = 'Birthday'
    end
    object Query1Address: TStringField
      DisplayWidth = 26
      FieldName = 'Address'
      Size = 50
    end
    object Query1Picture: TBlobField
      DisplayWidth = 10
      FieldName = 'Picture'
      Size = 1
    end
    object Query1comment: TStringField
      DisplayWidth = 8
      FieldName = 'comment'
      Size = 50
    end
    object Query1Telephone: TStringField
      DisplayWidth = 15
      FieldName = 'Telephone'
      Size = 50
    end
    object Query1ClassId: TIntegerField
      DisplayWidth = 10
      FieldName = 'ClassId'
    end
    object Query1Name_1: TStringField
      DisplayWidth = 13
      FieldName = 'Name_1'
      Size = 50
    end
  end
end