reshipmachine_unt.dfm

来自「煤矿行业采掘接替计划自动生成系统」· DFM 代码 · 共 69 行

inherited ReshipMachine_Frm: TReshipMachine_Frm
  Left = 180
  Top = 265
  Height = 181
  Align = alBottom
  Caption = 'ReshipMachine_Frm'
  FormStyle = fsStayOnTop
  OnClose = nil
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    Height = 113
    inherited DBGrid1: TDBGrid
      Top = 1
      Height = 111
      Align = alClient
      Columns = <
        item
          Expanded = False
          FieldName = 'Reship_Id'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Reship_Type'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ReshipAbility'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Electromotor_Type'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Power'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Design_Lab'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Making_Corp'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Weight'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Reference_Price'
          Visible = True
        end>
    end
  end
  inherited Base_DataS: TDataSource
    DataSet = Data_Frm.ReshipMachine_AdoTab
  end
end