inv_mnoutaudit_h.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_MnOutAudit_H: TFrm_Inv_MnOutAudit_H
  Left = 9
  Top = 108
  Caption = '车间生产领料仓库核定'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '车间生产领料仓库核定'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Order: TLabel
      Width = 6
      Caption = ''
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      Columns = <
        Item
          FieldName = 'InvBilltmpflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '核定标志'
          Width = 60
          KeyList.Strings = (
            '1'
            '0'
            ''
            '')
          Checkboxes = True
        end
        Item
          FieldName = 'whCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货位'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '领料部门标识'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'shiftType'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '班别'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillno'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单据号'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WipWaster'
          PickList.Strings = (
            '正常'
            '工废'
            '料废')
          Title.Alignment = taCenter
          Title.Caption = '工（料）废'
          KeyList.Strings = (
            '0'
            '1'
            '2')
        end
        Item
          FieldName = 'InvBilldate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '日期'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'mono'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '生产订单号'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLineno'
          PickList.Strings = ()
          Title.Caption = '生产订单行号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OverPlan'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '超订单'
          Width = 60
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = True
        end
        Item
          FieldName = 'whCode'
          PickList.Strings = ()
          Title.Caption = '仓库代码'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptCode'
          PickList.Strings = ()
          Title.Caption = '领料部门代码'
          Visible = False
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B;Data Source=192.168.0.' +
      '151'
    SQL.Strings = (
      'select'
      '                    InvOutBill.InvBilltmpflag,'
      '                    InvOutBill.InvBillid,'
      '                    InvOutBill.whCode,'
      
        '                    InvOutBill.whCode+'#39' '#39'+Warehouse.whName as wh' +
        'CodeName,'
      '                    InvOutBill.WhPositionCode,'
      
        '                    InvOutBill.WhPositionCode+'#39' '#39'+WhPosition.whp' +
        'ositionName as WhPositionCodeName,'
      '                    InvOutBill.DeptCode,'
      
        '                    InvOutBill.DeptCode+'#39' '#39'+Dept.DeptName as dep' +
        'tCodeName,'
      '                    InvOutBill.shiftType,                    '
      '                    InvOutBill.InvBillno,'
      '                    InvOutBill.InvBilldate,'
      '                    InvOutBill.mono,'
      '                                        InvOutBill.WipWaster, '
      '                    InvOutBill.MoLineno,'
      '                    InvOutBill.OverPlan'
      '                  from InvOutBill  '
      '                   left join Warehouse  '
      '                        on InvOutBill.whCode=Warehouse.whCode '
      '                   left join WhPosition '
      '                        on InvOutBill.whCode=WhPosition.whCode '
      
        '                        and InvOutBill.WhPositionCode=WhPosition' +
        '.WhPositionCode '
      
        '                   left join Dept on  InvOutBill.DeptCode=Dept.d' +
        'eptCode '
      '                  where InvOutBill.whCode in (select whCode '
      
        '                                                from whAccessctr' +
        'l '
      
        '                                               where Employeecod' +
        'e='#39'cxp'#39') '
      
        '                                                 and InvOutBill.' +
        'BillTypeCode='#39'0201'#39
      
        '                                                 and InvOutBill.' +
        'InvBillwhchck=0 ')
    object AdoQry_HeadInvBilltmpflag: TIntegerField
      FieldName = 'InvBilltmpflag'
    end
    object AdoQry_HeadInvBillid: TFloatField
      FieldName = 'InvBillid'
      ReadOnly = True
    end
    object AdoQry_HeadwhCode: TStringField
      FieldName = 'whCode'
      Origin = 'InvOutBill'
      Size = 4
    end
    object AdoQry_HeadwhCodeName: TStringField
      FieldName = 'whCodeName'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_HeadWhPositionCode: TStringField
      FieldName = 'WhPositionCode'
      Size = 4
    end
    object AdoQry_HeadWhPositionCodeName: TStringField
      FieldName = 'WhPositionCodeName'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_HeadDeptCode: TStringField
      FieldName = 'DeptCode'
      Origin = 'InvOutBill'
      Size = 8
    end
    object AdoQry_HeadDeptCodeName: TStringField
      FieldName = 'DeptCodeName'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_HeadshiftType: TStringField
      FieldName = 'shiftType'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadInvBillno: TStringField
      FieldName = 'InvBillno'
      Size = 10
    end
    object AdoQry_HeadInvBilldate: TDateTimeField
      FieldName = 'InvBilldate'
    end
    object AdoQry_Headmono: TStringField
      FieldName = 'mono'
      Size = 16
    end
    object AdoQry_HeadMoLineno: TIntegerField
      FieldName = 'MoLineno'
    end
    object AdoQry_HeadOverPlan: TIntegerField
      FieldName = 'OverPlan'
    end
    object AdoQry_HeadWipWaster: TIntegerField
      FieldName = 'WipWaster'
    end
  end
end