classu.dfm

大二时做的

object F_class: TF_class
  Left = 264
  Top = 163
  Width = 710
  Height = 532
  Caption = #29677#32423#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 448
    Top = 50
    Width = 48
    Height = 16
    Caption = #38498#31995#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 448
    Top = 82
    Width = 48
    Height = 16
    Caption = #23398#21382#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 448
    Top = 116
    Width = 80
    Height = 16
    Caption = #20837#23398#24180#20221#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 448
    Top = 146
    Width = 64
    Height = 16
    Caption = #29677#20027#20219#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 448
    Top = 19
    Width = 48
    Height = 16
    Caption = #29677#21495#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 448
    Top = 179
    Width = 48
    Height = 16
    Caption = #19987#19994#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 8
    Width = 433
    Height = 361
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Btnadd: TButton
    Left = 456
    Top = 214
    Width = 75
    Height = 25
    Caption = #28155#21152
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BtnaddClick
  end
  object Btndlt: TButton
    Left = 456
    Top = 246
    Width = 75
    Height = 25
    Caption = #21024#38500
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BtndltClick
  end
  object Edclassno: TEdit
    Left = 496
    Top = 16
    Width = 81
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 3
  end
  object Edspec: TEdit
    Left = 496
    Top = 176
    Width = 145
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 4
  end
  object Cmbdepart: TComboBox
    Left = 496
    Top = 48
    Width = 145
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 5
    OnChange = CmbdepartChange
    Items.Strings = (
      #20449#24687#31995
      #35745#31639#26426#31995
      #31649#29702#31995)
  end
  object Cmbdegree: TComboBox
    Left = 496
    Top = 80
    Width = 145
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 6
    Items.Strings = (
      #19987#31185
      #26412#31185
      #30740#31350#29983)
  end
  object Cmbyear: TComboBox
    Left = 520
    Top = 112
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 7
    Items.Strings = (
      '1999'
      '2000'
      '2001'
      '2002'
      '2003'
      '2004'
      '2005')
  end
  object Cmbteacher: TComboBox
    Left = 512
    Top = 144
    Width = 129
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 8
  end
  object DataSource1: TDataSource
    DataSet = ADOQryClass
    Left = 200
    Top = 232
  end
  object ADOQryClass: TADOQuery
    Active = True
    Connection = mainform.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select a.*,b.name '
      'from class a,teacher b'
      'where b.teacherno=a.teacherno')
    Left = 168
    Top = 232
    object ADOQryClassclassno: TStringField
      DisplayLabel = #29677#21495
      DisplayWidth = 5
      FieldName = 'classno'
      FixedChar = True
      Size = 4
    end
    object ADOQryClassdepart: TStringField
      DisplayLabel = #38498#31995
      DisplayWidth = 17
      FieldName = 'depart'
    end
    object ADOQryClasstype: TStringField
      DisplayLabel = #23398#21382
      DisplayWidth = 6
      FieldName = 'type'
      Size = 10
    end
    object ADOQryClassenteryear: TIntegerField
      DisplayLabel = #20837#23398#24180#20221
      DisplayWidth = 10
      FieldName = 'enteryear'
    end
    object ADOQryClassname: TStringField
      DisplayLabel = #29677#20027#20219
      DisplayWidth = 11
      FieldName = 'name'
      Size = 50
    end
    object ADOQryClassspecialty: TStringField
      DisplayLabel = #19987#19994
      DisplayWidth = 22
      FieldName = 'specialty'
    end
  end
  object ADOQe: TADOQuery
    Connection = mainform.ADOConnection1
    Parameters = <>
    Left = 216
    Top = 376
  end
  object ADOQe2: TADOQuery
    Connection = mainform.ADOConnection1
    Parameters = <>
    Left = 296
    Top = 376
  end
end