main.dfm.~40~

用于工厂对于门花尺寸进行自动计算

object frm_main: Tfrm_main
  Left = 0
  Top = 0
  Caption = #38376#33457#23610#23544#35745#31639#31995#32479
  ClientHeight = 420
  ClientWidth = 928
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 833
    Top = 49
    Height = 352
    ExplicitLeft = 336
    ExplicitTop = 104
    ExplicitHeight = 100
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 928
    Height = 49
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 17
      Top = 8
      Width = 24
      Height = 13
      Caption = #22411#21495
    end
    object Label2: TLabel
      Left = 175
      Top = 8
      Width = 24
      Height = 13
      Caption = #39640#24230
    end
    object Label3: TLabel
      Left = 305
      Top = 8
      Width = 24
      Height = 13
      Caption = #23485#24230
    end
    object Label5: TLabel
      Left = 439
      Top = 8
      Width = 48
      Height = 13
      Caption = #26368#22823#38388#38548
    end
    object cb_model: TComboBox
      Left = 47
      Top = 5
      Width = 122
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 0
      Text = 'LL-024'
      OnChange = cb_modelChange
      Items.Strings = (
        'LL-024'
        'LL-019'
        'LL-018')
    end
    object ed_height: TEdit
      Left = 205
      Top = 5
      Width = 78
      Height = 21
      TabOrder = 1
      Text = '2000'
    end
    object ed_width: TEdit
      Left = 335
      Top = 5
      Width = 66
      Height = 21
      TabOrder = 2
      Text = '1500'
    end
    object ed_max_space: TEdit
      Left = 493
      Top = 5
      Width = 63
      Height = 21
      TabOrder = 3
      Text = '200'
    end
    object btn_calcu: TButton
      Left = 561
      Top = 3
      Width = 75
      Height = 25
      Caption = #35745#31639
      TabOrder = 4
      OnClick = btn_calcuClick
    end
    object btn_materail: TButton
      Left = 676
      Top = 3
      Width = 105
      Height = 25
      Caption = #26448#26009#35268#26684#31649#29702
      TabOrder = 5
      OnClick = btn_materailClick
    end
    object btnExit: TButton
      Left = 800
      Top = 3
      Width = 75
      Height = 25
      Caption = #36864#20986#31995#32479
      TabOrder = 6
      OnClick = btnExitClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 49
    Width = 833
    Height = 352
    Align = alLeft
    TabOrder = 1
    object Memo1: TMemo
      Left = 544
      Top = 136
      Width = 198
      Height = 186
      Lines.Strings = (
        #26448#26009#28165#21333#65306)
      TabOrder = 0
      Visible = False
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 831
      Height = 350
      Align = alClient
      DataSource = DataModule1.DataSource2
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'index'
          Title.Caption = #24207#21495
          Width = 30
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'name'
          Title.Caption = #26448#26009
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'length'
          Title.Caption = #38271#24230'(mm)'
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'thick'
          Title.Caption = #23485#24230'(mm)'
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'num'
          Title.Caption = #25968#37327
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'points'
          Title.Caption = #20132#21449#28857
          Width = 500
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 836
    Top = 49
    Width = 92
    Height = 352
    Align = alClient
    TabOrder = 2
    object img_model: TImage
      Left = 24
      Top = 6
      Width = 300
      Height = 500
      Stretch = True
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 401
    Width = 928
    Height = 19
    Panels = <>
  end
  object MainMenu1: TMainMenu
    Left = 408
    Top = 24
    object N1: TMenuItem
      Caption = #31995#32479
      object N2: TMenuItem
        Caption = #36864#20986
        OnClick = btnExitClick
      end
    end
    object N3: TMenuItem
      Caption = #26448#26009#35268#26684#31649#29702
      OnClick = btn_materailClick
    end
  end
end