📄 unit1.~dfm

📁 很好运筹学的DEOPHI原代码.包括动态规划,原始单纯形法,对策论,决策论等
💻 ~DFM
字号:
object Form1: TForm1
  Left = 191
  Top = 106
  Width = 772
  Height = 426
  AutoSize = True
  Caption = #38381#21512#24335#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label10: TLabel
    Left = 336
    Top = 96
    Width = 91
    Height = 16
    Caption = #30456#23545#36890#36807#33021#21147#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 764
    Height = 57
    Align = alTop
    BevelInner = bvLowered
    Caption = #38381#21512#24335#31995#32479'(M/M/m/'#8734'/n)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -24
    Font.Name = #40657#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 0
    Top = 57
    Width = 764
    Height = 342
    Align = alClient
    AutoSize = True
    BevelOuter = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 86
      Width = 171
      Height = 20
      Caption = #36755#20837#21508#39033#21442#25968#65306#12288#12288#12288
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 83
      Top = 126
      Width = 119
      Height = 16
      Caption = #26381#21153#21592#20010#25968'm'#65306'          '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 16
      Top = 209
      Width = 191
      Height = 16
      Caption = #39038#23458#21040#36798#30340#24179#22343#27425#25968#955#65306'                '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 79
      Top = 249
      Width = 127
      Height = 16
      Caption = #26381#21153#21592#33021#21147#956#65306'            '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 40
      Top = 167
      Width = 154
      Height = 16
      Caption = #31995#32479#20013#39038#23458#28304#20010#25968'n'#65306'          '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Panel3: TPanel
      Left = 384
      Top = 0
      Width = 3
      Height = 367
      TabOrder = 0
    end
    object Edit1: TEdit
      Left = 214
      Top = 122
      Width = 123
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      TabOrder = 1
      Text = '2'
    end
    object Edit2: TEdit
      Left = 216
      Top = 162
      Width = 121
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      TabOrder = 2
      Text = '3'
    end
    object Edit3: TEdit
      Left = 216
      Top = 204
      Width = 121
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      TabOrder = 3
      Text = '2'
    end
    object BitBtn1: TBitBtn
      Left = 104
      Top = 299
      Width = 81
      Height = 29
      Caption = #35745#31639
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = BitBtn1Click
      Kind = bkOK
    end
    object BitBtn2: TBitBtn
      Left = 216
      Top = 299
      Width = 81
      Height = 29
      Cancel = True
      Caption = #36864#20986
      Default = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ModalResult = 3
      ParentFont = False
      TabOrder = 5
      OnClick = BitBtn2Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033338833333333333333333F333333333333
        0000333911833333983333333388F333333F3333000033391118333911833333
        38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
        911118111118333338F3338F833338F3000033333911111111833333338F3338
        3333F8330000333333911111183333333338F333333F83330000333333311111
        8333333333338F3333383333000033333339111183333333333338F333833333
        00003333339111118333333333333833338F3333000033333911181118333333
        33338333338F333300003333911183911183333333383338F338F33300003333
        9118333911183333338F33838F338F33000033333913333391113333338FF833
        38F338F300003333333333333919333333388333338FFF830000333333333333
        3333333333333333333888330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object Edit9: TEdit
      Left = 217
      Top = 246
      Width = 120
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      TabOrder = 6
      Text = '6'
    end
    object pgMain: TPageControl
      Left = 371
      Top = 1
      Width = 392
      Height = 340
      ActivePage = TabSheet2
      Align = alRight
      TabIndex = 1
      TabOrder = 7
      object TabSheet1: TTabSheet
        Caption = 'TabSheet1'
        object Label7: TLabel
          Left = 92
          Top = 84
          Width = 134
          Height = 16
          Caption = #26381#21153#21592#24537#30340#27010#29575#65306'          '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 24
          Top = 18
          Width = 208
          Height = 20
          Caption = #21333#36890#36947#31995#32479#25928#29575#25351#26631#65306#12288#12288#12288
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 61
          Top = 126
          Width = 178
          Height = 16
          Caption = #31995#32479#30340#32477#23545#36890#36807#33021#21147#65306'                '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label11: TLabel
          Left = 125
          Top = 168
          Width = 123
          Height = 16
          Caption = #39038#23458#24179#22343#25968#65306'               '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 77
          Top = 210
          Width = 177
          Height = 16
          Caption = #25490#38431#39038#23458#30340#24179#22343#25968#65306'                    '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 109
          Top = 244
          Width = 127
          Height = 16
          Caption = #31995#32479#30340#25439#22833#29575#65306'            '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Edit4: TEdit
          Left = 228
          Top = 78
          Width = 122
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          TabOrder = 0
        end
        object Edit5: TEdit
          Left = 229
          Top = 120
          Width = 121
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          TabOrder = 1
        end
        object Edit6: TEdit
          Left = 229
          Top = 162
          Width = 121
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 2
        end
        object Edit7: TEdit
          Left = 229
          Top = 205
          Width = 121
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 3
        end
        object Edit8: TEdit
          Left = 229
          Top = 240
          Width = 121
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 4
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'TabSheet2'
        ImageIndex = 1
        object Label13: TLabel
          Left = 24
          Top = 18
          Width = 208
          Height = 20
          Caption = #22810#36890#36947#31995#32479#25928#29575#25351#26631#65306#12288#12288#12288
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label14: TLabel
          Left = 29
          Top = 138
          Width = 160
          Height = 16
          Caption = #21344#29992#26381#21153#21592#30340#24179#22343#25968#65306'          '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label15: TLabel
          Left = 28
          Top = 180
          Width = 178
          Height = 16
          Caption = #31995#32479#30340#32477#23545#36890#36807#33021#21147#65306'                '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label16: TLabel
          Left = 75
          Top = 222
          Width = 136
          Height = 16
          Caption = #39038#23458#30340#24179#22343#25968#65306'               '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label17: TLabel
          Left = 76
          Top = 96
          Width = 151
          Height = 16
          Caption = #31995#32479#31354#38386#27010#29575#65306'                    '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Edit10: TEdit
          Left = 195
          Top = 92
          Width = 122
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          TabOrder = 0
        end
        object Edit11: TEdit
          Left = 196
          Top = 134
          Width = 121
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          TabOrder = 1
        end
        object Edit12: TEdit
          Left = 196
          Top = 176
          Width = 121
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 2
        end
        object Edit13: TEdit
          Left = 196
          Top = 219
          Width = 121
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 3
        end
      end
    end
    object GroupBox1: TGroupBox
      Left = 1
      Top = -5
      Width = 369
      Height = 78
      TabOrder = 8
      object Label19: TLabel
        Left = 40
        Top = 41
        Width = 134
        Height = 16
        Caption = #35831#36873#25321#31995#32479#31867#22411#65306'          '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object CB1: TComboBox
        Left = 175
        Top = 31
        Width = 159
        Height = 28
        BevelInner = bvNone
        BevelKind = bkSoft
        Style = csDropDownList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeMode = imChinese
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        ItemHeight = 20
        ItemIndex = 0
        ParentFont = False
        TabOrder = 0
        Text = #21333#36890#36947#38381#21512#24335#31995#32479
        OnChange = CB1Change
        Items.Strings = (
          #21333#36890#36947#38381#21512#24335#31995#32479
          #22810#36890#36947#38381#21512#24335#31995#32479)
      end
    end
  end
end
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -