unit2.dfm

学生选课是高校教务管理工作的一部分

object FormStuMain: TFormStuMain
  Left = 287
  Top = 223
  Width = 685
  Height = 491
  Caption = 'FormStuMain'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClick = Button1Click
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 56
    Top = 224
    Width = 48
    Height = 13
    Caption = #24050#36873#35838#31243
  end
  object DBGrid1: TDBGrid
    Left = 56
    Top = 24
    Width = 441
    Height = 185
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBGrid2: TDBGrid
    Left = 56
    Top = 248
    Width = 441
    Height = 185
    DataSource = DataSource2
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 528
    Top = 40
    Width = 113
    Height = 33
    Caption = #36873#35838
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 528
    Top = 96
    Width = 105
    Height = 41
    Caption = #36864#36873
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 528
    Top = 168
    Width = 113
    Height = 41
    Caption = #20462#25913#23494#30721
    TabOrder = 4
    OnClick = Button3Click
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 160
    Top = 112
  end
  object DataSource2: TDataSource
    DataSet = Query1
    Left = 192
    Top = 320
  end
  object Table1: TTable
    Left = 96
    Top = 112
  end
  object Query1: TQuery
    DatabaseName = 'Course'
    SQL.Strings = (
      
        'Select '#23398#21495#35838#31243'.'#35838#31243#32534#21495','#35838#31243'.'#35838#31243#21517#31216','#35838#31243'.'#20219#35838#25945#24072','#35838#31243'.'#21608#23398#26102','#35838#31243'.'#23398#20998','#35838#31243'.'#36215#22987#21608','#35838#31243'.'#32467#26463#21608','#35838#31243'.'#19978 +
        #35838#22320#28857' FROM '#39#23398#21495#35838#31243'.db'#39'  '#23398#21495#35838#31243' INNER JOIN '#39#35838#31243'.db'#39' '#35838#31243' ON '#23398#21495#35838#31243'.'#35838#31243#32534#21495'='#35838#31243'.'#35838 +
        #31243#32534#21495' Where '#23398#21495#35838#31243'.'#23398#21495'=:User  '
      '')
    Left = 528
    Top = 248
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'User'
        ParamType = ptUnknown
      end>
  end
  object Query2: TQuery
    DatabaseName = 'Course'
    Left = 112
    Top = 320
  end
end