bas_warehouse.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Warehouse: TFrm_Bas_Warehouse
  Left = 97
  Top = 95
  Caption = '仓库主文件'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '仓库主文件'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = '仓库代码'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          FieldName = 'WHCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库代码'
          Width = 107
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WHName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库名称'
          Width = 185
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PRICEType'
          PickList.Strings = (
            '移动加权平均'
            '计划价核算'
            '全月平均法'
            '标准成本法')
          Title.Alignment = taCenter
          Title.Caption = '计价方式'
          Width = 129
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3')
        end
        Item
          Alignment = taCenter
          FieldName = 'WasterWH'
          PickList.Strings = (
            ''
            '是')
          Title.Alignment = taCenter
          Title.Caption = '是否废品库'
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          Alignment = tArightJustify
          FieldName = 'WHREMArK'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 230
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 394
    Top = 166
  end
  inherited ActionList: TActionList
    Top = 166
  end
  inherited AdoQry_Main: TAdoQuery
    CurSorType = ctStatic
    SQL.Strings = (
      'select * from Warehouse')
    Left = 308
    Top = 167
    object AdoQry_MainWHCode: TStringField
      FieldName = 'WHCode'
      Origin = 'Warehouse'
      Size = 4
    end
    object AdoQry_MainWHName: TStringField
      FieldName = 'WHName'
      Origin = 'Warehouse'
      Size = 40
    end
    object AdoQry_MainPRICEType: TIntegerField
      FieldName = 'PRICEType'
      Origin = 'Warehouse'
    end
    object AdoQry_MainWHREMArK: TStringField
      FieldName = 'WHREMArK'
      Origin = 'Warehouse'
      Size = 60
    end
    object AdoQry_MainWasterWH: TIntegerField
      FieldName = 'WasterWH'
      Origin = 'Warehouse'
    end
  end
  inherited DataSource: TDataSource
    Left = 351
    Top = 170
  end
  inherited ExtPrintReport: TExtPrintReport
    Title1 = '仓库主文件列表'
    Left = 99
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 261
    Top = 168
  end
end