unit1.dfm

学生选课系统

object Form1: TForm1
  Left = 425
  Top = 162
  Width = 340
  Height = 300
  Caption = #23398#29983#36873#35838#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 0
    Width = 332
    Height = 49
    Align = alTop
    Alignment = taCenter
    AutoSize = False
    Caption = #23398#29983#36873#35838#31649#29702
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Layout = tlCenter
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 49
    Width = 332
    Height = 186
    Align = alClient
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 235
    Width = 332
    Height = 19
    Panels = <
      item
        Text = #23398#29983#36873#35838#31649#29702
        Width = 100
      end
      item
        Width = 50
      end>
  end
  object MainMenu1: TMainMenu
    Left = 240
    Top = 96
    object N1: TMenuItem
      Caption = #23398#29983#31649#29702'(&S)'
      object NAllStudents: TMenuItem
        Caption = #26597#35810#25152#26377#23398#29983'(&M)'
        OnClick = NAllStudentsClick
      end
      object NAStudent: TMenuItem
        Caption = #26597#35810#19968#21517#23398#29983'(&P)'
        OnClick = NAStudentClick
      end
      object NAddStudent: TMenuItem
        Caption = #22686#21152#19968#21517#23398#29983'(&A)'
        OnClick = NAddStudentClick
      end
      object NDelStudent: TMenuItem
        Caption = #21024#38500#19968#21517#23398#29983'(&D)'
        OnClick = NDelStudentClick
      end
    end
    object N2: TMenuItem
      Caption = #35838#31243#31649#29702'(&C)'
      object NAllCourses: TMenuItem
        Caption = #26597#35810#25152#26377#35838#31243'(&M)'
        OnClick = NAllCoursesClick
      end
      object NACourse: TMenuItem
        Caption = #26597#35810#19968#38376#35838#31243'(&S)'
        OnClick = NACourseClick
      end
      object NAddCourse: TMenuItem
        Caption = #22686#21152#19968#38376#35838#31243'(&A)'
        OnClick = NAddCourseClick
      end
      object NDelCourse: TMenuItem
        Caption = #21024#38500#19968#38376#35838#31243'(&D)'
        OnClick = NDelCourseClick
      end
    end
    object N3: TMenuItem
      Caption = #36873#35838#31649#29702'(&E)'
      object NAllCS: TMenuItem
        Caption = #26597#35810#25152#26377#36873#35838#24773#20917'(&A)'
        OnClick = NAllCSClick
      end
      object NDoCS: TMenuItem
        Caption = #36873#35838'(&S)'
        OnClick = NDoCSClick
      end
      object NUnDoCS: TMenuItem
        Caption = #36864#35838'(&D)'
        OnClick = NUnDoCSClick
      end
      object NCbyS: TMenuItem
        Caption = #26681#25454#23398#29983#26597#35810#20182#36873#30340#35838#31243'(S)'
        OnClick = NCbySClick
      end
      object NSbyC: TMenuItem
        Caption = #26681#25454#35838#31243#26597#35810#36873#23427#30340#23398#29983'(&C)'
        OnClick = NSbyCClick
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Table_S
    Left = 240
    Top = 168
  end
  object Database1: TDatabase
    AliasName = 'cs'
    Connected = True
    DatabaseName = 'sample'
    LoginPrompt = False
    SessionName = 'Default'
    Left = 24
    Top = 168
  end
  object Table_S: TTable
    DatabaseName = 'sample'
    Filter = 'SID='#39'00001'#39
    Filtered = True
    TableName = 'Students'
    Left = 80
    Top = 168
    object Table_SSID: TStringField
      DisplayLabel = #23398#29983#23398#21495
      FieldName = 'SID'
      Size = 10
    end
    object Table_SSname: TStringField
      DisplayLabel = #23398#29983#22995#21517
      FieldName = 'Sname'
      Size = 10
    end
    object Table_SCCount: TSmallintField
      DisplayLabel = #36873#35838#25968#37327
      FieldName = 'CCount'
    end
  end
  object QueryC_S: TQuery
    Active = True
    DatabaseName = 'sample'
    SQL.Strings = (
      'select Students.SID, Students.Sname, Course.CID, Course.Cname '
      'from Students, Course, C_S'
      'where Students.SID=C_S.SID'
      '  and Course.CID=C_S.CID')
    Left = 176
    Top = 168
    object QueryC_SSID: TStringField
      DisplayLabel = #23398#29983#23398#21495
      FieldName = 'SID'
      Origin = 'SAMPLE.Students.SID'
      Size = 10
    end
    object QueryC_SSname: TStringField
      DisplayLabel = #23398#29983#22995#21517
      FieldName = 'Sname'
      Origin = 'SAMPLE.Students.Sname'
      Size = 10
    end
    object QueryC_SCID: TStringField
      DisplayLabel = #35838#31243#32534#21495
      FieldName = 'CID'
      Origin = 'SAMPLE.Course.CID'
      Size = 10
    end
    object QueryC_SCname: TStringField
      DisplayLabel = #35838#31243#21517#31216
      FieldName = 'Cname'
      Origin = 'SAMPLE.Course.Cname'
      Size = 30
    end
  end
  object Table_C: TTable
    Active = True
    DatabaseName = 'sample'
    TableName = 'Course'
    Left = 112
    Top = 168
    object Table_CCID: TStringField
      DisplayLabel = #35838#31243#32534#21495
      FieldName = 'CID'
      Size = 10
    end
    object Table_CCname: TStringField
      DisplayLabel = #35838#31243#21517#31216
      FieldName = 'Cname'
      Size = 30
    end
    object Table_CSCount: TSmallintField
      DisplayLabel = #36873#35838#20154#25968
      FieldName = 'SCount'
    end
  end
  object TableC_S: TTable
    Active = True
    DatabaseName = 'sample'
    TableName = 'C_S'
    Left = 144
    Top = 168
  end
end