unit2.~dfm

学生选课系统 DELPHI+ ACCE

object Formstu: TFormstu
  Left = 208
  Top = 204
  Width = 567
  Height = 429
  Caption = #23398#29983#29992#25143#30028#38754
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 176
    Width = 73
    Height = 25
    Caption = #24050#36873#35838#31243#65306
  end
  object DBGrid1: TDBGrid
    Left = 40
    Top = 32
    Width = 393
    Height = 137
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBGrid2: TDBGrid
    Left = 32
    Top = 208
    Width = 505
    Height = 177
    DataSource = DataSource2
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 472
    Top = 32
    Width = 75
    Height = 25
    Caption = #36873#35838
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 472
    Top = 88
    Width = 75
    Height = 25
    Caption = #36864#36873
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button3: TButton
    Left = 472
    Top = 136
    Width = 75
    Height = 25
    Caption = #20462#25913#23494#30721
    TabOrder = 4
    OnClick = Button1Click
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 80
    Top = 96
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 96
    Top = 328
  end
  object Table1: TTable
    DatabaseName = 'course'
    TableName = 'course'
    Left = 144
    Top = 112
  end
  object Query1: TQuery
    ObjectView = True
    DatabaseName = 'course'
    SQL.Strings = (
      
        #39'select select.'#35838#31243#32534#21495#65292'subject.'#35838#31243#21517#31216#65292'subject.'#20219#35838#25945#24072#65292'subject.'#21608#23398#26102#65292'subjec' +
        't.'#23398#20998#65292'subject.'#36215#22987#21608#65292'subject.'#32467#26463#21608#65292#39'+'
      #39'subject.'#19978#35838#22320#28857#65292#39
      #39'From "select" '#24050#36873#35838#31243#39
      #39'Inner Join "subject" '#35838#31243#39
      #39'On(course.'#35838#31243#32534#21495'=subject.'#35838#31243#32534#21495')'#39
      #39'Where select.'#23398#21495'='#65306'User;'#39
      'paramData=<'
      '  item'
      '     DataType=ftUnknown'
      '     Name='#39'User'#39
      '     paramType=ptUnknown'
      '     end>'
      'end')
    Left = 408
    Top = 176
  end
  object Query2: TQuery
    DatabaseName = 'course'
    Left = 144
    Top = 336
  end
end