inv_salematerialaudit_b.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_SaleMaterialAudit_B: TFrm_Inv_SaleMaterialAudit_B
  Left = -100
  Top = 42
  Caption = '材料销售发货单仓库核定'
  ClientHeight = 487
  ClientWidth = 785
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 785
  end
  inherited Pnl_Title: TPanel
    Width = 785
    Caption = '材料销售发货单仓库核定'
  end
  inherited Pnl_Head: TPanel
    Width = 785
    Height = 67
    object Label1: TLabel
      Left = 40
      Top = 3
      Width = 36
      Height = 12
      Caption = '仓库：'
    end
    object Label2: TLabel
      Left = 272
      Top = 3
      Width = 36
      Height = 12
      Caption = '货位：'
    end
    object Label7: TLabel
      Left = 576
      Top = 3
      Width = 48
      Height = 12
      Caption = '单据号：'
    end
    object Label4: TLabel
      Left = 16
      Top = 25
      Width = 60
      Height = 12
      Caption = '客户代码：'
    end
    object Label5: TLabel
      Left = 248
      Top = 25
      Width = 60
      Height = 12
      Caption = '客户名称：'
    end
    object Lbl_CustomerName: TLabel
      Left = 312
      Top = 25
      Width = 96
      Height = 12
      Caption = 'Lbl_CustomerName'
    end
    object Label8: TLabel
      Left = 588
      Top = 25
      Width = 36
      Height = 12
      Caption = '日期：'
    end
    object Label9: TLabel
      Left = 40
      Top = 46
      Width = 36
      Height = 12
      Caption = '备注：'
    end
    object Lbl_Warehouse: TLabel
      Left = 80
      Top = 3
      Width = 78
      Height = 12
      Caption = 'Lbl_Warehouse'
    end
    object Lbl_CustomerCode: TLabel
      Left = 80
      Top = 25
      Width = 96
      Height = 12
      Caption = 'Lbl_CustomerCode'
    end
    object Lbl_InvBillNo: TLabel
      Left = 624
      Top = 3
      Width = 78
      Height = 12
      Caption = 'Lbl_InvBillNo'
    end
    object Lbl_WhPosition: TLabel
      Left = 312
      Top = 3
      Width = 84
      Height = 12
      Caption = 'Lbl_WhPosition'
    end
    object Lbl_InvBillRemArk: TLabel
      Left = 80
      Top = 46
      Width = 102
      Height = 12
      Caption = 'Lbl_InvBillRemArk'
    end
    object MEdt_InvBillDate: TMaskEdit
      Left = 624
      Top = 20
      Width = 100
      Height = 20
      EditMask = '0000\.00\.00;1;_'
      MaxLength = 10
      TabOrder = 0
      Text = '    .  .  '
      OnExit = DateCheck
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 480
    Width = 785
    Height = 7
  end
  inherited Pnl_Body: TPanel
    Top = 124
    Width = 785
    Height = 356
    inherited DBGridEh: TDBGridEh
      Width = 785
      Height = 356
      ReadOnly = False
      OnKeyDown = DBGridEhKeyDown
      Columns = <
        Item
          FieldName = 'InvBillLineNo'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '行号'
          Width = 30
          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 = 'BatchNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '批次号'
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillSfcQty'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Width = 71
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '实际出库数量'
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrentInvQty'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '可用库存'
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillLineRemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 109
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 256
    Top = 320
    inherited Act_CancelCheck: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Check: TAction
      Caption = '核定'
      Hint = '核定'
      OnExecute = Act_CheckExecute
    end
    inherited Act_auto: TAction
      OnExecute = Act_autoExecute
    end
    inherited Act_Print: TAction
      OnExecute = Act_PrintExecute
    end
    inherited Act_Preview: TAction
      OnExecute = Act_PreviewExecute
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=192.168.0.15' +
      '1;Use procedure for Prepare=1;Auto Translate=True;Packet Size=40' +
      '96;Workstation ID=XYB'
    BeforeInsert = AdoQry_BodyBeforeInsert
    SQL.Strings = (
      'Select'
      '     InvOutBillLine.InvBillLineNo'
      '    ,InvOutBillLine.ItemCode'
      '    ,Item.ItemName'
      '    ,Uom.UomName'
      '    ,InvOutBillLine.InvBillQty'
      '    ,InvOutBillLine.BatchNo'
      '    ,InvOutBillLine.InvBillSfcQty'
      '    ,InvOutBillLine.BillLineRemArk'
      '    ,CurrentInv.OnShipInv As CurrentInvQty'
      '     From InvOutBillLine'
      '     Join Item On InvOutBillLine.ItemCode=Item.ItemCode'
      '     Join Uom On Item.UomCode=Uom.UomCode'
      
        '     Left Join CurrentInv On InvOutBillLine.ItemCode=CurrentInv.' +
        'ItemCode')
    object AdoQry_BodyInvBillLineNo: TStringField
      FieldName = 'InvBillLineNo'
      Size = 10
    end
    object AdoQry_BodyItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_BodyItemName: TStringField
      FieldName = 'ItemName'
      Size = 60
    end
    object AdoQry_BodyUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_BodyInvBillQty: TFloatField
      FieldName = 'InvBillQty'
      OnChange = AdoQry_BodyInvBillQtyChange
    end
    object AdoQry_BodyInvBillSfcQty: TFloatField
      FieldName = 'InvBillSfcQty'
    end
    object AdoQry_BodyCurrentInvQty: TFloatField
      FieldName = 'CurrentInvQty'
    end
    object AdoQry_BodyBillLineRemArk: TStringField
      FieldName = 'BillLineRemArk'
      Size = 250
    end
    object AdoQry_BodyBatchNo: TStringField
      FieldName = 'BatchNo'
      OnChange = AdoQry_BodyBatchNoChange
      Size = 16
    end
  end
end