unit1.dfm

用delphi实现运筹学线性规划对偶单纯形法程序

object Form1: TForm1
  Left = 117
  Top = 115
  Width = 570
  Height = 432
  Caption = #23545#20598#21333#32431#24418#27861#35299#32447#24615#35268#21010#38382#39064
  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 panel2: TPanel
    Left = 0
    Top = 89
    Width = 562
    Height = 316
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 0
    object Memo1: TMemo
      Left = 2
      Top = 247
      Width = 558
      Height = 67
      Align = alBottom
      BorderStyle = bsNone
      DragMode = dmAutomatic
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        #35828#26126#65306
        #65297#12289#31532#19968#34892#33267#20498#25968#31532#20108#34892#36755#20837#32422#26463#30697#38453#65292#20854#20013#65292#20498#25968#31532#20108#21015#20026#25805#20316#31526#65288#20026#26041#20415#36755#20837' '#29992#65297#34920
        '        '#31034#22823#20110#25110#31561#20110',-1'#34920#31034#23567#20110#25110#31561#20110',0'#25110#31354#26684#34920#31034#31561#20110#65289#65292#26368#21518#19968#21015#36755#20837#19981#31561#24335#20540#12290
        #65298#12289#26368#21518#19968#34892#36755#20837#30446#26631#20989#25968#31995#25968#12290)
      ParentColor = True
      ParentFont = False
      TabOrder = 0
    end
    object StringGrid2: TStringGrid
      Left = 2
      Top = 2
      Width = 558
      Height = 245
      Align = alClient
      ColCount = 6
      Ctl3D = False
      FixedColor = clMenu
      RowCount = 8
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowMoving, goColMoving, goEditing, goTabs, goAlwaysShowEditor]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 562
    Height = 89
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 25
      Width = 121
      Height = 25
      AutoSize = False
      Caption = #32422#26463#26465#20214#20010#25968'M'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 16
      Top = 57
      Width = 113
      Height = 24
      AutoSize = False
      Caption = #21464#37327#20010#25968'N'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 144
      Top = 16
      Width = 89
      Height = 24
      BevelInner = bvLowered
      BevelOuter = bvRaised
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Text = '3'
    end
    object Edit2: TEdit
      Left = 144
      Top = 57
      Width = 89
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Text = '2'
    end
    object RadioGroup1: TRadioGroup
      Left = 264
      Top = 8
      Width = 161
      Height = 73
      Caption = #30446#26631#20989#25968#31867#22411
      Columns = 2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemIndex = 0
      Items.Strings = (
        'Max'
        'Min')
      ParentFont = False
      TabOrder = 2
      OnClick = RadioGroup1Click
    end
    object BitBtn1: TBitBtn
      Left = 448
      Top = 16
      Width = 75
      Height = 25
      Caption = #30830#23450
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        5990555555555555577755555555555555555555555555555555}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 448
      Top = 48
      Width = 75
      Height = 25
      Caption = #27714#35299
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = BitBtn2Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
        0000333377777777777733330FFFFFFFFFF033337F3FFF3F3FF733330F000F0F
        00F033337F777373773733330FFFFFFFFFF033337F3FF3FF3FF733330F00F00F
        00F033337F773773773733330FFFFFFFFFF033337FF3333FF3F7333300FFFF00
        F0F03333773FF377F7373330FB00F0F0FFF0333733773737F3F7330FB0BF0FB0
        F0F0337337337337373730FBFBF0FB0FFFF037F333373373333730BFBF0FB0FF
        FFF037F3337337333FF700FBFBFB0FFF000077F333337FF37777E0BFBFB000FF
        0FF077FF3337773F7F37EE0BFB0BFB0F0F03777FF3733F737F73EEE0BFBF00FF
        00337777FFFF77FF7733EEEE0000000003337777777777777333}
      NumGlyphs = 2
    end
  end
end