qc_checkresult1.dfm

一个MRPII系统源代码版本

inherited Frm_Qc_CheckResult1: TFrm_Qc_CheckResult1
  Left = 142
  Top = 151
  Caption = '待检物料质检判定-按质检员列示'
  ClientHeight = 502
  ClientWidth = 790
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 790
    inherited ToolBar: TToolBar
      Width = 383
      inherited TlBtn_Copy: TToolButton
        Action = Act_Save
      end
      inherited TlBtn_New: TToolButton
        Enabled = False
        Visible = False
      end
      inherited TlBtn_Modify: TToolButton
        Enabled = False
        Visible = False
      end
      inherited TlBtn_Delete: TToolButton
        Visible = False
      end
      object ToolButton8: TToolButton
        Left = 352
        Top = 0
        Width = 8
        Caption = 'ToolButton8'
        ImageIndex = 12
        Style = tbsSeparator
      end
      object ToolButton7: TToolButton
        Left = 360
        Top = 0
        Action = Act_auto
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 790
    Caption = '待检物料质检判定-按质检员列示'
    inherited Image2: TImage
      Width = 790
      Stretch = True
    end
  end
  inherited Pnl_Head: TPanel
    Width = 790
    inherited Image1: TImage
      Width = 790
      Stretch = True
    end
    inherited Lbl_Order: TLabel
      Width = 180
      Caption = '供应商代码，到货日期，物料代码'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 437
    Width = 790
    Height = 65
    inherited Image4: TImage
      Width = 790
      Height = 65
      Stretch = True
    end
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 60
      Height = 12
      Caption = '物料描述：'
      TransParent = True
    end
    object Label3: TLabel
      Left = 4
      Top = 28
      Width = 72
      Height = 12
      Caption = '供应商标识：'
      TransParent = True
    end
    object DBText2: TDBText
      Left = 79
      Top = 27
      Width = 305
      Height = 14
      DataField = 'Vendorflag'
      DataSource = DataSource
      TransParent = True
    end
    object Label4: TLabel
      Left = 409
      Top = 11
      Width = 36
      Height = 12
      Caption = '单位：'
      TransParent = True
    end
    object DBtxt_Uom: TDBText
      Left = 453
      Top = 11
      Width = 65
      Height = 17
      DataField = 'UomName'
      DataSource = DataSource
      TransParent = True
    end
    object Label5: TLabel
      Left = 16
      Top = 47
      Width = 60
      Height = 12
      Caption = '到货日期：'
      TransParent = True
    end
    object DBTxt_Date: TDBText
      Left = 79
      Top = 46
      Width = 65
      Height = 17
      DataField = 'OnCheckDate'
      DataSource = DataSource
      TransParent = True
    end
    object Label6: TLabel
      Left = 397
      Top = 31
      Width = 48
      Height = 12
      Caption = '批次号：'
      TransParent = True
    end
    object DBTxt_BatchNo: TDBText
      Left = 453
      Top = 31
      Width = 105
      Height = 17
      DataField = 'BatchNo'
      DataSource = DataSource
      TransParent = True
    end
    object Label7: TLabel
      Left = 373
      Top = 51
      Width = 72
      Height = 12
      Caption = '待检单据号：'
      TransParent = True
    end
    object DBTxt_BillNo: TDBText
      Left = 453
      Top = 50
      Width = 105
      Height = 17
      DataField = 'OnCheckBillNo'
      DataSource = DataSource
      TransParent = True
    end
    object DbEdt_ItemName: TDBEdit
      Left = 79
      Top = 8
      Width = 257
      Height = 14
      BOrderStyle = bsNone
      Color = clMenu
      DataField = 'ItemName'
      DataSource = DataSource
      ReadOnly = True
      TabOrder = 0
    end
  end
  inherited Pnl_Body: TPanel
    Width = 790
    Height = 340
    inherited Image3: TImage
      Width = 790
      Height = 340
    end
    inherited DBGridEh: TDBGridEh
      Width = 790
      Height = 340
      ReadOnly = False
      OnDblClick = nil
      OnExit = DBGridEhExit
      FrozenCols = 2
      Columns = <
        Item
          FieldName = 'Vendorflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商标识'
          Width = 201
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OncheckBillId'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '行ID'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 120
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          Alignment = taCenter
          FieldName = 'VendorBillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '送货单号'
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnCheckStatus'
          PickList.Strings = (
            '打开'
            '关闭')
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '行状态'
          Width = 41
          AlwaysShowEditButton = True
          AutoDropDown = True
          KeyList.Strings = (
            '0'
            '1')
          Checkboxes = False
        end
        Item
          FieldName = 'QcBatchNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '质检控制号'
          Width = 88
          KeyList.Strings = ()
        end
        Item
          FieldName = 'QcLevel'
          PickList.Strings = (
            ''
            'A'
            'B'
            'C')
          Title.Alignment = taCenter
          Title.Caption = '质量特性'
          Width = 35
          KeyList.Strings = (
            ''
            'A'
            'B'
            'C')
        end
        Item
          FieldName = 'QcStatus'
          PickList.Strings = (
            '0  未处理'
            '1 正常'
            '2 拒收'
            '3 让步'
            '4 挑选'
            '5 试用'
            '6 特采')
          Title.Alignment = taCenter
          Title.Caption = '质量状态'
          Width = 55
          AlwaysShowEditButton = True
          AutoDropDown = True
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6')
        end
        Item
          FieldName = 'OnCheckQty'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '到货数量'
          Width = 53
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ReceivedQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '可采购入库数量'
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnCheckRemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '说明'
          Width = 111
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 293
    Top = 195
  end
  inherited ActionList: TActionList
    Left = 224
    Top = 184
    inherited Act_DeleteLine: TAction
      Enabled = False
    end
    inherited Act_Delete: TAction
      Enabled = False
    end
    inherited Act_Save: TAction
      OnExecute = Act_SaveExecute
    end
    inherited Act_auto: TAction
      OnExecute = Act_autoExecute
    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'
    CurSorType = ctStatic
    BeforePost = AdoQry_MainBeforePost
    AfterPost = AdoQry_MainAfterPost
    AfterScroll = AdoQry_MainAfterScroll
    SQL.Strings = (
      
        'select OnCheckBillLine.OncheckBillId,OnCheckBillLine.Receivestat' +
        'us,'
      
        '                        case when OnCheckBillLine.BatchNo='#39#39' the' +
        'n '#39'------'#39
      
        '                             when OncheckBillLine.BatchNo Is Nul' +
        'l then '#39'------'#39
      
        '                             else OnCheckBillLine.BatchNo end Ba' +
        'tchNo,'
      
        '                        OncheckBillLine.ItemCode+'#39' '#39'+Item.ItemNa' +
        'me ItemFlag,'
      '                        OnCheckBillLine.QcBatchNo,'
      '                        oncheckBillLine.QcLevel,'
      '                        OnCheckBillLine.ItemCode,'
      '                        OnCheckBillLine.OnCheckBillLineNo,'
      '                        Item.ItemName,'
      '                        Item.ItemClass1 ItemClass,'
      '                        Uom.UomName,'
      '                        OnCheckBill.OnCheckBillNo,'
      '                        OnCheckBill.OnCheckDate,'
      '                        OnCheckBillLine.QcItem,'
      '                        OncheckBill.VendorCode,'
      
        '                        OnCheckBill.VendorCode+'#39' '#39'+v.VendorName ' +
        'Vendorflag,'
      '                        OnCheckBillLine.OnCheckQty,'
      
        '                        OnCheckBillLine.OnCheckStatus as OnCheck' +
        'Status,'
      
        '                        OnCheckBillLine.ReceivedQty as ReceivedQ' +
        'ty,'
      '                        OnCheckBillLine.QcStatus as QcStatus,'
      
        '                        OnCheckBillLine.QcRemArk as OnCheckRemAr' +
        'k'
      '                   from oncheckBillline'
      '                 join OnCheckBill'
      
        '                   on oncheckBill.OnCheckBillid=OnCheckBillLine.' +
        'ONCheckBillId'
      '                 Join Item'
      '                   on Item.ItemCode=OnCheckBillLine.ItemCode'
      '                 JOin Uom'
      '                   on Uom.UomCode=Item.UomCode'
      '                 Join Vendor v'
      '                   on v.VendorCode=OnCheckBill.VendorCode'
      '')
    Left = 376
    Top = 169
  end
  inherited DataSource: TDataSource
    Left = 320
    Top = 129
  end
end