unit8.dfm

本系统为学生管理系统,可实现选课和退选

object Form8: TForm8
  Left = 180
  Top = 11
  Width = 602
  Height = 572
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Align = alClient
  Caption = #23398#29983#36873#35838
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 16
    Top = -40
    Width = 78
    Height = 13
    Caption = #23398#29983#22522#26412#20449#24687
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 16
    Top = -16
    Width = 26
    Height = 13
    Caption = #23398#21495
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 120
    Top = -16
    Width = 26
    Height = 13
    Caption = #22995#21517
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label12: TLabel
    Left = 352
    Top = 208
    Width = 7
    Height = 13
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label13: TLabel
    Left = 384
    Top = 264
    Width = 7
    Height = 13
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 416
    Top = 360
    Width = 69
    Height = 13
    Caption = #36873#20462#30340#35838#31243#25968':'
  end
  object Label21: TLabel
    Left = 416
    Top = 432
    Width = 44
    Height = 13
    Caption = #24635#23398#20998#65306
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 152
    Width = 625
    Height = 137
    Caption = #23398#29983#20449#24687#24773#20917
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 24
      Width = 26
      Height = 13
      Caption = #23398#21495
    end
    object Label15: TLabel
      Left = 24
      Top = 56
      Width = 26
      Height = 13
      Caption = #22995#21517
    end
    object Label16: TLabel
      Left = 208
      Top = 32
      Width = 26
      Height = 13
      Caption = #24615#21035
    end
    object Label17: TLabel
      Left = 208
      Top = 56
      Width = 26
      Height = 13
      Caption = #24180#40836
    end
    object Label18: TLabel
      Left = 376
      Top = 32
      Width = 26
      Height = 13
      Caption = #31995#21035
    end
    object Label19: TLabel
      Left = 376
      Top = 64
      Width = 52
      Height = 13
      Caption = #20837#23398#26085#26399
    end
    object Label20: TLabel
      Left = 16
      Top = 88
      Width = 52
      Height = 13
      Caption = #20010#20154#20449#24687
    end
    object Label23: TLabel
      Left = 568
      Top = 48
      Width = 26
      Height = 13
      Caption = #29031#29255
    end
    object DBEdit1: TDBEdit
      Left = 72
      Top = 24
      Width = 121
      Height = 21
      DataField = 'Sno'
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 248
      Top = 24
      Width = 121
      Height = 21
      DataField = 'Ssex'
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 72
      Top = 56
      Width = 121
      Height = 21
      DataField = 'Sname'
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 248
      Top = 56
      Width = 121
      Height = 21
      DataField = 'Sage'
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 440
      Top = 24
      Width = 121
      Height = 21
      DataField = 'Sdept'
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 4
    end
    object DBEdit6: TDBEdit
      Left = 440
      Top = 56
      Width = 121
      Height = 21
      DataField = 'Sage'
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 5
    end
    object DBMemo1: TDBMemo
      Left = 72
      Top = 88
      Width = 169
      Height = 41
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 6
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 272
    Width = 625
    Height = 81
    Caption = #21487#36873#35838#31243
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label11: TLabel
      Left = 7
      Top = 36
      Width = 91
      Height = 13
      Caption = #24403#21069#36873#30340#35838#31243#21495
    end
    object Label14: TLabel
      Left = 216
      Top = 36
      Width = 52
      Height = 13
      Caption = #36873#25321#26085#26399
    end
    object Button1: TButton
      Left = 440
      Top = 40
      Width = 65
      Height = 25
      Caption = #21152#36873
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 520
      Top = 40
      Width = 65
      Height = 25
      Caption = #36864#36873
      TabOrder = 1
      OnClick = Button2Click
    end
    object Edit5: TEdit
      Left = 117
      Top = 36
      Width = 89
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 2
    end
    object ComboBox1: TComboBox
      Left = 285
      Top = 36
      Width = 145
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 3
      Text = #19978#23398#26399
      Items.Strings = (
        #19978#23398#26399
        #19979#23398#26399)
    end
    object Button5: TButton
      Left = 592
      Top = 32
      Width = 33
      Height = 33
      Caption = #26356#26032
      TabOrder = 4
      OnClick = Button5Click
    end
  end
  object GroupBox4: TGroupBox
    Left = 240
    Top = 8
    Width = 385
    Height = 137
    Caption = #21487#36873#35838#31243
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 381
      Height = 120
      Align = alClient
      DataSource = DataSource2
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
    end
  end
  object GroupBox5: TGroupBox
    Left = 0
    Top = 352
    Width = 337
    Height = 137
    Caption = #24050#36873#35838#31243
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object DBGrid2: TDBGrid
      Left = 2
      Top = 15
      Width = 333
      Height = 120
      Align = alClient
      DataSource = DataSource3
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGrid2CellClick
    end
  end
  object GroupBox6: TGroupBox
    Left = 0
    Top = 0
    Width = 241
    Height = 113
    Caption = #36755#20837#26597#35810#23398#21495
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    object Label4: TLabel
      Left = 24
      Top = 24
      Width = 52
      Height = 13
      Caption = #36755#20837#23398#21495
    end
    object Edit1: TEdit
      Left = 96
      Top = 24
      Width = 97
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
    end
    object Button3: TButton
      Left = 104
      Top = 64
      Width = 81
      Height = 25
      Caption = #26597#35810
      TabOrder = 1
      OnClick = Button3Click
    end
  end
  object Edit3: TEdit
    Left = 416
    Top = 384
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 5
    Text = 'Edit3'
  end
  object Edit6: TEdit
    Left = 416
    Top = 456
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 6
    Text = 'Edit6'
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'lin'
    MasterSource = DataSource1
    TableName = 'COURSE.DB'
    Left = 192
    Top = 104
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 176
    Top = 104
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 184
    Top = 112
  end
  object DataSource3: TDataSource
    DataSet = Query2
    Left = 168
    Top = 112
  end
  object Table1: TTable
    DatabaseName = 'lin'
    TableName = 'student.db'
    Left = 160
    Top = 112
  end
  object Query1: TQuery
    DatabaseName = 'lin'
    SQL.Strings = (
      '')
    Left = 152
    Top = 112
  end
  object Query2: TQuery
    DatabaseName = 'lin'
    Left = 136
    Top = 104
  end
end