inv_enter_homemadeckinvinh.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_Enter_HomemadeCkInvInH: TFrm_Inv_Enter_HomemadeCkInvInH
  Left = 8
  Top = 144
  Caption = ''
  ClientHeight = 527
  ClientWidth = 793
  Windowstate = wsMaximized
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 793
    inherited ToolBar: TToolBar
      inherited TlBtn_Modify: TToolButton
        Hint = '产生单据(F8)'
        Action = Act_auto
        Enabled = False
        Visible = False
      end
      inherited ToolButton2: TToolButton
        Enabled = False
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 793
    inherited Image2: TImage
      Width = 793
    end
  end
  inherited Pnl_Head: TPanel
    Width = 793
    inherited Image1: TImage
      Width = 793
    end
    inherited Lbl_Order: TLabel
      Width = 126
      Caption = '受单部门代码/单据日期'
    end
    object Lbl_FSelectCount: TLabel
      Left = 552
      Top = 16
      Width = 6
      Height = 12
      Visible = False
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 518
    Width = 793
    inherited Image4: TImage
      Width = 793
    end
  end
  inherited Pnl_Body: TPanel
    Width = 793
    Height = 421
    inherited Image3: TImage
      Width = 793
      Height = 421
    end
    inherited DBGridEh: TDBGridEh
      Width = 793
      Height = 421
      ReadOnly = False
      OnDblClick = nil
      Columns = <
        Item
          FieldName = 'ReceiveStatus'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '选择标志'
          Width = 68
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = True
        end
        Item
          FieldName = 'WHCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库标识'
          Width = 87
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '受单部门代码'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '受单部门名称'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoNo'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '生产订单号'
          Width = 62
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoLineNo'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '订单行号'
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BatchNo'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '批次号'
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ReceivedQty'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '可入库数量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnCheckDate'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '到货日期'
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnCheckQty'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '到货数量'
          Width = 62
          KeyList.Strings = ()
        end
        Item
          FieldName = 'QcStatus'
          PickList.Strings = (
            '0 未处理'
            '1 正常'
            '2 拒收'
            '3 让步'
            '4 挑选'
            '5 试用'
            '6 特采')
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '质量状态'
          Width = 53
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6')
        end
        Item
          FieldName = 'OnCheckBillId'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    inherited Act_New: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Modify: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Delete: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Look: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_auto: TAction
      Caption = '产生单据'
      Hint = '产生单据'
      OnExecute = Act_autoExecute
    end
  end
  inherited AdoQry_Head: TAdoQuery
    AutoCalcFields = False
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_kl;Data Source=ExtDATASERVE' +
      'R'
    CurSorType = ctStatic
    AfterInsert = AdoQry_HeadAfterInsert
    AfterPost = AdoQry_HeadAfterPost
    SQL.Strings = (
      'Select OnCheckBill.WHCode'
      '    ,OnCheckBill.WHCode+'#39' '#39'+Warehouse.WHName As WHCodeName'
      '    ,OnCheckBill.WhPositionCode'
      '    ,OnCheckBillLine.OnCheckBillLIneNo'
      '    ,oncheckBill.VendorCode'
      '    ,Dept.DeptName '
      '    ,OnCheckBillLine.ReceiveStatus'
      '    ,OnCheckBill.OnCheckBillId'
      '    ,OnCheckBill.PoNo'
      '    ,OnCheckBill.VendorBillNo'
      '    ,OnCheckBillLine.PoLineNo'
      '    ,OnCheckBillLine.ItemCode'
      '    ,Item.ItemName'
      '    ,Uom.UomName'
      '    ,OnCheckBill.OnCheckDate'
      '    ,OnCheckBillLine.OnCheckQty'
      '    ,OnCheckBillLine.BatchNo'
      '    ,OnCheckBillLine.QcStatus'
      '    ,OnCheckBillLine.ReceivedQty'
      '     From OnCheckBillLine'
      
        '     left Join OnCheckBill On OnCheckBillLine.OnCheckBillId=OnCh' +
        'eckBill.OnCheckBillId'
      '     left Join Warehouse On OnCheckBill.WHCode=Warehouse.WHCode'
      'left join Dept on oncheckBill.VendorCode=Dept.DeptCode'
      '     Join Item On OnCheckBillLine.ItemCode=Item.ItemCode'
      '     Join Uom On Item.UomCode=Uom.UomCode')
    object AdoQry_HeadWHCode: TStringField
      FieldName = 'WHCode'
      Origin = 'OnCheckBill'
      Size = 4
    end
    object AdoQry_HeadWHCodeName: TStringField
      FieldName = 'WHCodeName'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_HeadWhPositionCode: TStringField
      FieldName = 'WhPositionCode'
      Origin = 'OnCheckBill'
      Size = 4
    end
    object AdoQry_HeadOnCheckBillLIneNo: TIntegerField
      FieldName = 'OnCheckBillLIneNo'
    end
    object AdoQry_HeadReceiveStatus: TIntegerField
      FieldName = 'ReceiveStatus'
      Origin = 'OnCheckBillline'
      OnChange = AdoQry_HeadReceiveStatuSChange
    end
    object AdoQry_HeadOnCheckBillId: TAutoIncField
      FieldName = 'OnCheckBillId'
      ReadOnly = True
    end
    object AdoQry_HeadPoNo: TStringField
      FieldName = 'PoNo'
      Origin = 'OnCheckBill'
      Size = 16
    end
    object AdoQry_HeadPoLineNo: TIntegerField
      FieldName = 'PoLineNo'
      Origin = 'OnCheckBillline'
    end
    object AdoQry_HeadItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = 'OnCheckBillline'
      Size = 16
    end
    object AdoQry_HeadItemName: TStringField
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 80
    end
    object AdoQry_HeadUomName: TStringField
      FieldName = 'UomName'
      Origin = 'Uom'
      Size = 10
    end
    object AdoQry_HeadOnCheckDate: TDateTimeField
      FieldName = 'OnCheckDate'
      Origin = 'OnCheckBill'
    end
    object AdoQry_HeadOnCheckQty: TFloatField
      FieldName = 'OnCheckQty'
      Origin = 'OnCheckBillline'
    end
    object AdoQry_HeadBatchNo: TStringField
      FieldName = 'BatchNo'
      Origin = 'OnCheckBillline'
      Size = 16
    end
    object AdoQry_HeadQcStatus: TIntegerField
      FieldName = 'QcStatus'
      Origin = 'OnCheckBillline'
    end
    object AdoQry_HeadReceivedQty: TFloatField
      FieldName = 'ReceivedQty'
      Origin = 'OnCheckBillline'
    end
    object AdoQry_HeadVendorBillNo: TStringField
      FieldName = 'VendorBillNo'
      Origin = 'OnCheckBill'
      Size = 50
    end
    object AdoQry_HeadVendorCode: TStringField
      FieldName = 'VendorCode'
      Origin = 'OnCheckBill'
      Size = 12
    end
    object AdoQry_HeadDeptName: TStringField
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
  end
end