unit2.dfm

这是一个关于delphi数据库方面的源程序

object FormStuMain: TFormStuMain
  Left = 284
  Top = 179
  Width = 539
  Height = 397
  Caption = 'FormStuMain'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 160
    Width = 48
    Height = 13
    Caption = #24050#36873#35838#31243
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 184
    Width = 513
    Height = 177
    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 = 8
    Top = 8
    Width = 433
    Height = 137
    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 = 456
    Top = 8
    Width = 65
    Height = 25
    Caption = #36873#35838
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 456
    Top = 48
    Width = 65
    Height = 25
    Caption = #36864#36873
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 456
    Top = 88
    Width = 65
    Height = 25
    Caption = #20462#25913#23494#30721
    TabOrder = 4
    OnClick = Button3Click
  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 "'#23398#21495#35838#31243'.db" '#23398#21495#35838#31243
      'INNER JOIN "'#35838#31243'.DB" '#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 = 48
    Top = 264
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'User'
        ParamType = ptUnknown
      end>
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 80
    Top = 264
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 88
    Top = 64
  end
  object Table1: TTable
    DatabaseName = 'Course'
    TableName = #35838#31243'.DB'
    Left = 56
    Top = 64
  end
  object Query2: TQuery
    DatabaseName = 'Course'
    Left = 440
    Top = 144
  end
end