sfc_wipbomopen.dfm

一个MRPII系统源代码版本

inherited Frm_Sfc_WipBomOpen: TFrm_Sfc_WipBomOpen
  Left = -18
  Top = 100
  Caption = '车间盘点产品的Bom分解'
  ClientHeight = 431
  ClientWidth = 772
  FormStyle = fsNormal
  Position = poDesktopCenter
  Visible = False
  Windowstate = wsNormal
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 772
  end
  inherited Pnl_Title: TPanel
    Width = 772
    Caption = '车间盘点产品的Bom分解'
  end
  inherited Pnl_Head: TPanel
    Width = 772
    inherited Lbl_OrderTitle: TLabel
      Caption = '父项数量：'
    end
    inherited Lbl_ConditionTitle: TLabel
      Left = 41
      Width = 36
      Caption = '月份：'
    end
    inherited Lbl_Order: TLabel
      Width = 6
      Caption = ''
    end
    object Label1: TLabel
      Left = 221
      Top = 6
      Width = 60
      Height = 12
      Caption = '车间标识：'
    end
    object lbl_SfcName: TLabel
      Left = 288
      Top = 5
      Width = 66
      Height = 12
      Caption = 'lbl_SfcName'
    end
    object Label2: TLabel
      Left = 197
      Top = 22
      Width = 84
      Height = 12
      Caption = '父项物料标识：'
    end
    object lbl_fatherItem: TLabel
      Left = 290
      Top = 21
      Width = 84
      Height = 12
      Caption = 'lbl_fatherItem'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 405
    Width = 772
  end
  inherited Pnl_Body: TPanel
    Width = 772
    Height = 308
    inherited DBGridEh: TDBGridEh
      Width = 772
      Height = 308
      Columns = <
        Item
          FieldName = 'ItemDESC'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '子项物料标识'
          Width = 260
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Bomqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'Bom定额'
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BomScrAp_Percent'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'Bom损耗％'
          Width = 62
          KeyList.Strings = ()
        end
        Item
          FieldName = 'sonqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '子项数量'
          Width = 120
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 533
    Top = 49
  end
  inherited ActionList: TActionList
    Left = 398
    Top = 59
    inherited Act_New: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Save: TAction
      OnExecute = Act_SaveExecute
    end
    inherited Act_Filter: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Order: TAction
      Enabled = False
      Visible = False
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B;Data Source=192.168.0.' +
      '151;Use procedure for Prepare=1;Auto Translate=True;Packet Size=' +
      '4096;Workstation ID=CABO'
    CurSorType = ctStatic
    SQL.Strings = (
      
        'select b.ItemCode+'#39' '#39'+i.ItemName ItemDESC,b.Bomqty,b.BomScrAp_Pe' +
        'rcent,'
      '       123*b.Bomqty*(1+b.BomScrAp_Percent/100) sonqty '
      '      from Bom b,Item i where b.ite_ItemCode='#39'3000333105'#39' and '
      
        '           i.ItemCode='#39'3000333105'#39' and (b.Bomstatus<>3 or b.Boms' +
        'tatus<>6)'
      ''
      '')
    Left = 442
    Top = 36
  end
  inherited DataSource: TDataSource
    Left = 494
    Top = 41
  end
  inherited ExtPrintReport: TExtPrintReport
    Title1 = '车间月末库存主表'
  end
  object AdoQuery1: TAdoQuery
    EnableBCD = False
    Parameters = <>
    Left = 608
    Top = 65
  end
end