stu.~dfm

采用delphi软件对学生选课系统进行设计与制作

object Form2: TForm2
  Left = 230
  Top = 121
  Width = 691
  Height = 515
  Caption = #23398#29983#36873#35838#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 24
    Top = 16
    Width = 73
    Height = 17
    AutoSize = False
    Caption = #35831#36755#20837#23398#21495':'
  end
  object Label4: TLabel
    Left = 264
    Top = 16
    Width = 41
    Height = 13
    AutoSize = False
    Caption = #22995#21517':'
  end
  object Label5: TLabel
    Left = 264
    Top = 64
    Width = 51
    Height = 13
    Caption = #24050#20462#23398#20998':'
  end
  object Label6: TLabel
    Left = 80
    Top = 144
    Width = 12
    Height = 78
    Caption = #21487#36873#35838#31243#21015#34920
    WordWrap = True
  end
  object Panel1: TPanel
    Left = -8
    Top = 296
    Width = 681
    Height = 185
    TabOrder = 0
    object Label1: TLabel
      Left = 408
      Top = 24
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #36873#35838#38376#25968
    end
    object Label2: TLabel
      Left = 416
      Top = 88
      Width = 73
      Height = 17
      AutoSize = False
      Caption = #36873#35838#24635#23398#20998
    end
    object stringGrid1: TStringGrid
      Left = 8
      Top = 24
      Width = 337
      Height = 129
      TabOrder = 0
      OnSelectCell = cSelectCell
      ColWidths = (
        64
        64
        64
        64
        64)
    end
    object DBEdit1: TDBEdit
      Left = 464
      Top = 48
      Width = 121
      Height = 21
      DataField = 'COUNT(*)'
      DataSource = DataSource2
      TabOrder = 1
    end
    object DBEdit2: TDBEdit
      Left = 456
      Top = 128
      Width = 121
      Height = 21
      DataField = 'SUM OF credit'
      DataSource = DataSource2
      TabOrder = 2
    end
  end
  object Edit1: TEdit
    Left = 104
    Top = 16
    Width = 121
    Height = 21
    TabOrder = 1
    OnEnter = Edit1Enter
    OnKeyPress = Edit1KeyPress
  end
  object DBEdit3: TDBEdit
    Left = 344
    Top = 16
    Width = 121
    Height = 21
    TabOrder = 2
  end
  object DBEdit4: TDBEdit
    Left = 344
    Top = 56
    Width = 121
    Height = 21
    TabOrder = 3
  end
  object que: TBitBtn
    Left = 160
    Top = 64
    Width = 75
    Height = 25
    Caption = #30830#35748
    TabOrder = 4
  end
  object BitBtn2: TBitBtn
    Left = 512
    Top = 40
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 5
  end
  object DBGrid1: TDBGrid
    Left = 136
    Top = 136
    Width = 320
    Height = 120
    DataSource = DataSource1
    TabOrder = 6
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBNavigator1: TDBNavigator
    Left = 192
    Top = 104
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 7
  end
  object xuan: TBitBtn
    Left = 104
    Top = 264
    Width = 75
    Height = 25
    Caption = #36873#35838
    TabOrder = 8
    OnClick = xuanClick
  end
  object tui: TBitBtn
    Left = 288
    Top = 264
    Width = 75
    Height = 25
    Caption = #36864#35838
    TabOrder = 9
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 56
    Top = 56
  end
  object DataSource2: TDataSource
    DataSet = Query1
    Left = 592
    Top = 336
  end
  object Query1: TQuery
    DatabaseName = 'PPIV'
    Left = 352
    Top = 408
  end
  object Query2: TQuery
    DatabaseName = 'PPIV'
    SQL.Strings = (
      
        'select cno,cname,ctime from sc,course  where sno=:sno and grade ' +
        'is null and sc.cno=course.cno')
    Left = 600
    Top = 392
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'sno'
        ParamType = ptUnknown
      end>
  end
  object Query3: TQuery
    DatabaseName = 'PPIV'
    SQL.Strings = (
      'insert into sc(sno,cno)  values(:sno,:cno)')
    Left = 536
    Top = 256
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'sno'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'cno'
        ParamType = ptUnknown
      end>
  end
  object Query4: TQuery
    DatabaseName = 'PPIV'
    SQL.Strings = (
      'delete from sc where sno=:sno and cno=:cno')
    Left = 368
    Top = 344
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'sno'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'cno'
        ParamType = ptUnknown
      end>
  end
  object Query5: TQuery
    DatabaseName = 'PPIV'
    SQL.Strings = (
      
        'select count(*) , sum(credit) from sc,course  where sno=:sno and' +
        ' grade is null  and sc.cno = course.cno')
    Left = 520
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'sno'
        ParamType = ptUnknown
      end>
  end
  object Table1: TTable
    DatabaseName = 'PPIV'
    TableName = 'course'
    Left = 496
    Top = 160
  end
end