unit13.dfm

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

object Form13: TForm13
  Left = 93
  Top = 176
  Width = 401
  Height = 282
  Caption = #35774#32622#26597#35810#26465#20214
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 393
    Height = 248
    Align = alClient
    Caption = #35774#32622#23383#27573
    TabOrder = 0
    object Label1: TLabel
      Left = 32
      Top = 24
      Width = 73
      Height = 13
      AutoSize = False
      Caption = #35831#36873#25321#23383#27573
    end
    object Label2: TLabel
      Left = 40
      Top = 64
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #23383#27573#21015#34920
    end
    object ComboBox1: TComboBox
      Left = 120
      Top = 24
      Width = 201
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      TabOrder = 0
      OnChange = ComboBox1Change
    end
    object ListBox1: TListBox
      Left = 120
      Top = 48
      Width = 201
      Height = 89
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      TabOrder = 1
    end
    object BitBtn1: TBitBtn
      Left = 312
      Top = 152
      Width = 57
      Height = 25
      Caption = #30830#23450
      TabOrder = 2
      OnClick = BitBtn1Click
      Kind = bkOK
    end
    object Memo1: TMemo
      Left = 2
      Top = 184
      Width = 389
      Height = 62
      Align = alBottom
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Lines.Strings = (
        'Memo1')
      TabOrder = 3
    end
    object Button1: TButton
      Left = 232
      Top = 152
      Width = 65
      Height = 25
      Caption = #35774#32622#26465#20214
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = Button1Click
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'lin'
    TableName = 'STUDENT.DB'
    Top = 128
  end
end