plan.dfm

使用改进的遗传算法实现简单的高校排课

object PlanForm: TPlanForm
  Left = 218
  Top = 149
  Width = 692
  Height = 497
  Caption = #25945#23398#35745#21010#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 384
    Width = 57
    Height = 13
    Caption = #29677#32423#21517#31216'   '
  end
  object Label2: TLabel
    Left = 10
    Top = 432
    Width = 51
    Height = 13
    Caption = #21608' '#35838' '#26102'   '
  end
  object Label3: TLabel
    Left = 16
    Top = 64
    Width = 60
    Height = 13
    Caption = #36873#25321#24180#32423#65306
  end
  object DBGrid1: TDBGrid
    Left = 104
    Top = 80
    Width = 481
    Height = 281
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBNavigator1: TDBNavigator
    Left = 352
    Top = 8
    Width = 200
    Height = 33
    DataSource = DataSource1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    Visible = False
  end
  object Button1: TButton
    Left = 200
    Top = 368
    Width = 73
    Height = 33
    Caption = #39318#26465
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 200
    Top = 408
    Width = 73
    Height = 33
    Caption = #22686#21152
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 288
    Top = 368
    Width = 73
    Height = 33
    Caption = #19978#19968#26465
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 288
    Top = 408
    Width = 73
    Height = 33
    Caption = #21024#38500
    TabOrder = 5
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 376
    Top = 368
    Width = 73
    Height = 33
    Caption = #19979#19968#26465
    TabOrder = 6
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 376
    Top = 408
    Width = 73
    Height = 33
    Caption = #32534#36753
    TabOrder = 7
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 464
    Top = 368
    Width = 73
    Height = 33
    Caption = #23614#26465
    TabOrder = 8
    OnClick = Button7Click
  end
  object Button8: TButton
    Left = 464
    Top = 408
    Width = 73
    Height = 33
    Caption = #25764#38144
    TabOrder = 9
    OnClick = Button8Click
  end
  object Edit1: TEdit
    Left = 72
    Top = 376
    Width = 65
    Height = 21
    Enabled = False
    TabOrder = 10
  end
  object Edit2: TEdit
    Left = 72
    Top = 424
    Width = 65
    Height = 21
    Enabled = False
    TabOrder = 11
  end
  object ListBox1: TListBox
    Left = 8
    Top = 104
    Width = 89
    Height = 257
    ItemHeight = 13
    TabOrder = 12
  end
  object ComboBox1: TComboBox
    Left = 8
    Top = 80
    Width = 89
    Height = 19
    Style = csOwnerDrawFixed
    ImeMode = imOpen
    ImeName = #32043#20809#21326#23431#25340#38899'V5'
    ItemHeight = 13
    TabOrder = 13
    Items.Strings = (
      '1 '#24180#32423
      '2 '#24180#32423
      '3 '#24180#32423)
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 296
    Top = 8
  end
  object ADOTable1: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Stud'
    CursorType = ctStatic
    Filtered = True
    TableName = 'plans'
    Left = 248
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Stud'
    CursorType = ctStatic
    Filtered = True
    Parameters = <>
    SQL.Strings = (
      'select * from plans')
    Left = 104
    Top = 16
  end
end