inv_enter_homemadeckinvin.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_Enter_HomemadeCkInvIn: TFrm_Inv_Enter_HomemadeCkInvIn
  Left = 9
  Top = 182
  Caption = ''
  ClientHeight = 507
  ClientWidth = 786
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 786
  end
  inherited Pnl_Title: TPanel
    Width = 786
    inherited Image2: TImage
      Width = 786
    end
  end
  inherited Pnl_Head: TPanel
    Width = 786
    Height = 80
    inherited Image1: TImage
      Width = 786
      Height = 80
    end
    object Label1: TLabel
      Left = 47
      Top = 5
      Width = 36
      Height = 12
      Caption = '仓库：'
      TransParent = True
    end
    object Label2: TLabel
      Left = 311
      Top = 32
      Width = 72
      Height = 12
      Caption = '生产订单号：'
      TransParent = True
    end
    object Label4: TLabel
      Left = 22
      Top = 31
      Width = 60
      Height = 12
      Caption = '生产部门：'
      TransParent = True
    end
    object Label7: TLabel
      Left = 605
      Top = 5
      Width = 48
      Height = 12
      Caption = '单据号：'
      TransParent = True
    end
    object Label8: TLabel
      Left = 617
      Top = 31
      Width = 36
      Height = 12
      Caption = '日期：'
      TransParent = True
    end
    object Lbl_VendorName: TLabel
      Left = 174
      Top = 31
      Width = 6
      Height = 12
    end
    object Label3: TLabel
      Left = 43
      Top = 60
      Width = 36
      Height = 12
      Caption = '备注：'
      TransParent = True
    end
    object Label5: TLabel
      Left = 347
      Top = 7
      Width = 36
      Height = 12
      Caption = '货位：'
      TransParent = True
    end
    object Label6: TLabel
      Left = 585
      Top = 59
      Width = 60
      Height = 12
      Caption = '送货单号：'
      TransParent = True
      Visible = False
    end
    object CmBx_Warehouse: TComboBox
      Left = 84
      Top = 1
      Width = 169
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      OnChange = CmBx_WarehouseChange
    end
    object Edt_PoNO: TEdit
      Left = 384
      Top = 28
      Width = 109
      Height = 20
      TabOrder = 4
      OnExit = PoCodeCheck
      OnKeyDown = Edt_PoNOKeyDown
    end
    object Edt_BillNo: TEdit
      Left = 653
      Top = 1
      Width = 100
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 2
    end
    object MEdt_BillDate: TMaskEdit
      Left = 653
      Top = 27
      Width = 100
      Height = 20
      EditMask = '0000\.00\.00;1;_'
      MaxLength = 10
      TabOrder = 5
      Text = '    .  .  '
      OnExit = DateCheck
    end
    object CmBx_WhPosition: TComboBox
      Left = 384
      Top = 3
      Width = 177
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
    end
    object Edt_RemArk: TEdit
      Left = 83
      Top = 56
      Width = 481
      Height = 20
      TabOrder = 7
    end
    object ExtEdt_VendorCode: TExtEdit
      Left = 84
      Top = 27
      Width = 83
      Height = 20
      TabOrder = 3
      OnExit = DeptCodeCheck
      OnKeyDown = DeptHint
      DispLabel = Lbl_VendorName
    end
    object Edt_VendorBillNo: TEdit
      Left = 645
      Top = 54
      Width = 121
      Height = 20
      MaxLength = 50
      TabOrder = 6
      Text = 'Edt_VendorBillNo'
      Visible = False
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 504
    Width = 786
    Height = 3
    inherited Image4: TImage
      Width = 786
      Height = 3
    end
  end
  inherited Pnl_Body: TPanel
    Top = 137
    Width = 786
    Height = 367
    inherited Image3: TImage
      Width = 786
      Height = 367
    end
    inherited DBGridEh: TDBGridEh
      Width = 786
      Height = 367
      OnColEnter = DBGridEhColEnter
      OnColExit = DBGridEhColExit
      OnExit = DBGridEhExit
      OnKeyPress = DBGridEhKeyPress
      Columns = <
        Item
          FieldName = 'POLineNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '生产订单行号'
          Width = 75
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 53
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Batchno'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '批次号'
          Width = 82
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillQTY'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BilllineremArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 92
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Body: TAdoQuery
    CacheSize = 100
    ConnectionString = ''
    BeforeEdit = AdoQry_BodyBeforeEdit
    SQL.Strings = (
      'Select InvInBillLine.POLineNo'
      '    ,InvInBillLine.ItemCode'
      '    ,Item.ItemName'
      '    ,Uom.UomName'
      '    ,InvInBillLine.InvBillQTY'
      '    ,InvInBillline.BilllineremArk'
      '     From InvInBillLine'
      '     Join Item On InvInBillLine.ItemCode=Item.ItemCode'
      '     Join Uom On Item.UomCode=Uom.UomCode')
  end
end