qc_checkresultqry.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 373 行

inherited Frm_Qc_CheckResultQry: TFrm_Qc_CheckResultQry
  Left = 51
  Top = 116
  Caption = '采购入库检验结果查询'
  ClientHeight = 364
  ClientWidth = 740
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 740
  end
  inherited Pnl_Title: TPanel
    Width = 740
    Caption = '待检物料质检结果查询'
  end
  inherited Pnl_Head: TPanel
    Width = 740
    inherited Lbl_Order: TLabel
      Width = 108
      Caption = '到货日期，物料代码'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 320
    Width = 740
    Height = 44
    object Label1: TLabel
      Left = 366
      Top = 16
      Width = 60
      Height = 12
      Caption = '物料描述：'
    end
    object DBText1: TDBText
      Left = 430
      Top = 16
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
    end
    object Label2: TLabel
      Left = 32
      Top = 16
      Width = 72
      Height = 12
      Caption = '供应商标识：'
    end
    object DBText2: TDBText
      Left = 104
      Top = 16
      Width = 257
      Height = 17
      DataField = 'Vendorflag'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Width = 740
    Height = 223
    inherited DBGridEh: TDBGridEh
      Width = 740
      Height = 223
      FrozenCols = 2
      Columns = <
        Item
          FieldName = 'Vendorflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商标识'
          Width = 112
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Width = 26
          KeyList.Strings = ()
        end
        Item
          FieldName = 'QcEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '质检员'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Employee'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '录入员'
          Width = 59
          AutoFitColWidth = False
          KeyList.Strings = ()
          MaxWidth = 64
        end
        Item
          FieldName = 'Qcstatus'
          PickList.Strings = (
            '0 未处理'
            '1 正常'
            '2 拒收'
            '3 让步'
            '4 挑选'
            '5 试用'
            '6 特采')
          Title.Alignment = taCenter
          Title.Caption = '质量状态'
          Width = 52
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6')
        end
        Item
          FieldName = 'onCheckBillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = ' 待检单据号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'oncheckstatus'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '行状态'
          Width = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '采购订单号'
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoLineNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '订单行号'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillTypeCode'
          PickList.Strings = ()
          Title.Caption = '单据类型'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          Alignment = taCenter
          FieldName = 'oncheckdate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '到货日期 '
          Width = 65
          KeyList.Strings = ()
        end
        Item
          FieldName = 'oncheckQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '到货数量'
          Width = 53
          KeyList.Strings = ()
        end
        Item
          FieldName = 'QcBatchNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '质检控制号'
          Width = 83
          KeyList.Strings = ()
        end
        Item
          FieldName = 'QcLevel'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '质量特性等级'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ReceivedQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '合格数量'
          Width = 54
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Explain'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '待检入库备注'
          Width = 90
          KeyList.Strings = ()
        end
        Item
          FieldName = 'QcReMArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '质检判定备注'
          Width = 100
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 373
    Top = 211
  end
  inherited ActionList: TActionList
    Top = 216
    inherited Act_SetColumn: 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=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      'Select OnCheckBillLine.ItemCode,Item.ItemName,Uom.UomName,'
      '       OnCheckBillLine.ItemCode+'#39' '#39'+Item.ItemName Itemflag,'
      '       OnCheckBill.onCheckBillNo,OnCheckBill.oncheckdate,'
      '       OnCheckBill.BillTypeCode,'
      '       onCheckBillLine.QcEmployeeCode,'
      '       OnCheckBillLine.OnCheckRemArk as Explain,'
      '       OnCheckBill.PoNo,OnCheckBillLine.PoLineNo,'
      
        '       OnCheckBill.VendorCode+'#39' '#39'+Vendor.VendorName as Vendorfla' +
        'g,'
      '       OnCheckBillLine.oncheckQty,'
      '       OnCheckBillLine.QcReMArk,'
      
        '       OnCheckBill.EmployeeCode+'#39' '#39'+Employee.EmployeeName as emp' +
        'loyee,'
      '      case when OnCheckBillLine.oncheckstatus='#39'0'#39' then '#39'打开'#39
      '            when OnCheckBillLine.oncheckstatus='#39'1'#39' then '#39'关闭'#39
      '                  end  oncheckstatus,'
      '      OnCheckBillLine.Qcstatus,'
      '       OnCheckBillLine.ReceivedQty,'
      '       OnCheckBillLine.QcBatchNo,'
      '       OncheckBillLine.QcLevel'
      'From OnCheckBillLine'
      
        'JOIN oncheckBill  on OnCheckBillLine.OnCheckBillId=OnCheckBill.O' +
        'nCheckBillId'
      'JOIN Item ON OnCheckBillLine.ItemCode=Item.ItemCode'
      'JOIN Uom  on Item.UomCode=Uom.UomCode'
      'join Vendor on Vendor.VendorCode=oncheckBill.VendorCode'
      'Left Join Employee'
      '  on Employee.EmployeeCode=oncheckBill.EmployeeCode'
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' ')
    Left = 80
    Top = 209
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Size = 80
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_MainItemflag: TStringField
      FieldName = 'Itemflag'
      ReadOnly = True
      Size = 97
    end
    object AdoQry_MainonCheckBillNo: TStringField
      FieldName = 'onCheckBillNo'
      Size = 10
    end
    object AdoQry_Mainoncheckdate: TDateTimeField
      FieldName = 'oncheckdate'
    end
    object AdoQry_MainPoNo: TStringField
      FieldName = 'PoNo'
      Size = 16
    end
    object AdoQry_MainPoLineNo: TIntegerField
      FieldName = 'PoLineNo'
    end
    object AdoQry_MaInvendorflag: TStringField
      FieldName = 'Vendorflag'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_MainoncheckQty: TFloatField
      FieldName = 'oncheckQty'
    end
    object AdoQry_MainEmployee: TStringField
      FieldName = 'Employee'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_Mainoncheckstatus: TStringField
      FieldName = 'oncheckstatus'
      ReadOnly = True
      Size = 4
    end
    object AdoQry_MainReceivedQty: TFloatField
      FieldName = 'ReceivedQty'
    end
    object AdoQry_MaInBillTypeCode: TStringField
      FieldName = 'BillTypeCode'
      Size = 4
    end
    object AdoQry_MainExplain: TStringField
      FieldName = 'Explain'
      Size = 250
    end
    object AdoQry_MainQcBatchNo: TStringField
      FieldName = 'QcBatchNo'
      Size = 16
    end
    object AdoQry_MainQcLevel: TStringField
      FieldName = 'QcLevel'
      FixedChAr = True
      Size = 1
    end
    object AdoQry_MainQcReMArk: TStringField
      FieldName = 'QcReMArk'
      Size = 250
    end
    object AdoQry_MainQcEmployeeCode: TStringField
      FieldName = 'QcEmployeeCode'
      Size = 30
    end
    object AdoQry_MainQcstatus: TIntegerField
      FieldName = 'Qcstatus'
    end
  end
  inherited DataSource: TDataSource
    Left = 160
    Top = 145
  end
end