qc_checkresult_b.dfm

一个MRPII系统源代码版本

inherited Frm_Qc_CheckResult_B: TFrm_Qc_CheckResult_B
  Left = 23
  Top = 173
  Caption = '质检判定录入'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '质检判定录入处理'
  end
  inherited Pnl_Head: TPanel
    Height = 72
    inherited Lbl_OrderTitle: TLabel
      Left = 6
      Top = 37
      Caption = '质量问题：'
    end
    inherited Lbl_ConditionTitle: TLabel
      Left = 6
      Top = 7
      Width = 48
      Caption = '批次号：'
    end
    inherited Lbl_Condition: TLabel
      Left = 103
      Top = -20
      Visible = False
    end
    inherited Lbl_Order: TLabel
      Top = 76
      Visible = False
    end
    object lbl_QcProblem: TLabel
      Left = 145
      Top = 38
      Width = 6
      Height = 12
    end
    object Label1: TLabel
      Left = 183
      Top = 8
      Width = 48
      Height = 12
      Caption = '供应商：'
    end
    object Label2: TLabel
      Left = 388
      Top = 8
      Width = 60
      Height = 12
      Caption = '质检判定：'
    end
    object Label3: TLabel
      Left = 528
      Top = 8
      Width = 60
      Height = 12
      Caption = '质量等级：'
    end
    object Label4: TLabel
      Left = 312
      Top = 40
      Width = 36
      Height = 12
      Caption = '备注：'
    end
    object Label5: TLabel
      Left = 617
      Top = 40
      Width = 72
      Height = 12
      Caption = '待检批次号：'
      Visible = False
    end
    object DBTxt_Vendor: TDBText
      Left = 231
      Top = 8
      Width = 153
      Height = 17
      DataField = 'Vendorflag'
      DataSource = DataSource
    end
    object DBTxt_BatchNo: TDBText
      Left = 692
      Top = 39
      Width = 85
      Height = 17
      DataField = 'BatchNo'
      DataSource = DataSource
      Visible = False
    end
    object Label7: TLabel
      Left = 649
      Top = 8
      Width = 60
      Height = 12
      Caption = '质检日期：'
    end
    object edt_QcBatchNo: TEdit
      Left = 63
      Top = 2
      Width = 116
      Height = 20
      TabOrder = 0
    end
    object Cmbo_Determinant: TComboBox
      Left = 447
      Top = 3
      Width = 76
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
      OnChange = Cmbo_DeterminantChange
      Items.Strings = (
        '0 未处理'
        '1 正常'
        '2 拒收'
        '3 让步'
        '4 挑选'
        '5 试用'
        '6 特采')
    end
    object Cmbo_QcClass: TComboBox
      Left = 588
      Top = 2
      Width = 56
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 2
      Items.Strings = (
        'A'
        'B'
        'C')
    end
    object ExtEdt_Problem: TExtEdit
      Left = 64
      Top = 34
      Width = 57
      Height = 20
      TabOrder = 3
      OnExit = ExtEdt_ProblemExit
      OnKeyDown = QcProblemHint
      DispLabel = lbl_QcProblem
    end
    object Edt_remArk: TEdit
      Left = 352
      Top = 37
      Width = 256
      Height = 20
      TabOrder = 4
    end
    object Medt_Date: TMaskEdit
      Left = 709
      Top = 3
      Width = 88
      Height = 20
      EditMask = '!9999.99.00;1;_'
      MaxLength = 10
      TabOrder = 5
      Text = '    .  .  '
    end
  end
  inherited Pnl_Hint: TPanel
    object Label6: TLabel
      Left = 24
      Top = 8
      Width = 84
      Height = 12
      Caption = '当前物料描述：'
    end
    object DBText1: TDBText
      Left = 112
      Top = 8
      Width = 65
      Height = 17
      DataField = 'ItemName'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Top = 129
    Height = 274
    inherited DBGridEh: TDBGridEh
      Height = 274
      Columns = <
        Item
          FieldName = 'ItemFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'QcItem'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '质检物料'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnCheckDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '到货日期'
          Width = 153
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnCheckBillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '待检单据号'
          Width = 104
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Width = 35
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnCheckQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '到货数量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OnCheckStatus'
          PickList.Strings = (
            '打开'
            '关闭')
          Title.Alignment = taCenter
          Title.Caption = '行状态'
          Width = 45
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'ReceivedQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '入库数量'
          Width = 70
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 197
    Top = 243
  end
  inherited ActionList: TActionList
    Left = 192
    Top = 264
    inherited Act_Save: TAction
      OnExecute = Act_SaveExecute
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_test_zcw;Data Source=192' +
      '.168.0.151;Use procedure for Prepare=1;Auto Translate=True;Packe' +
      't Size=4096;Workstation ID=XYB'
    BeforePost = AdoQry_MainBeforePost
    AfterScroll = AdoQry_MainAfterScroll
    SQL.Strings = (
      'select OnCheckBillLine.OncheckBillId,OncheckBillLine.ItemCode,'
      '       OncheckBillLine.ItemCode+'#39' '#39'+Item.ItemName ItemFlag,'
      '       OnCheckBillLine.OnCheckBillLineNo,'
      '       Item.ItemName,'
      '       Uom.UomName,'
      '       OnCheckBillLine.QcItem,'
      '       OnCheckBill.OnCheckBillNo,'
      '       OnCheckBill.OnCheckDate,'
      '       OnCheckBill.VendorCode+'#39' '#39'+v.VendorName Vendorflag,'
      '       OnCheckBillLine.OnCheckQty,'
      '       OnCheckBillLine.BatchNo,'
      '       OnCheckBillLine.QcBatchNo,'
      '       OnCheckBillLine.OnCheckStatus as OnCheckStatus,'
      '       OnCheckBillLine.ReceivedQty as ReceivedQty,'
      '       OnCheckBillLine.QcStatus as QcStatus,'
      '       OnCheckBillLine.OnCheckRemArk as OnCheckRemArk'
      '  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 = 432
    Top = 281
    object AdoQry_MainOncheckBillId: TIntegerField
      FieldName = 'OncheckBillId'
    end
    object AdoQry_MainItemFlag: TStringField
      FieldName = 'ItemFlag'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MainOnCheckBillLineNo: TIntegerField
      FieldName = 'OnCheckBillLineNo'
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Size = 60
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_MainQcItem: TStringField
      FieldName = 'QcItem'
      Size = 40
    end
    object AdoQry_MainOnCheckBillNo: TStringField
      FieldName = 'OnCheckBillNo'
      Size = 10
    end
    object AdoQry_MainOnCheckDate: TDateTimeField
      FieldName = 'OnCheckDate'
    end
    object AdoQry_MaInvendorflag: TStringField
      FieldName = 'Vendorflag'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_MainOnCheckQty: TFloatField
      FieldName = 'OnCheckQty'
    end
    object AdoQry_MainBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 16
    end
    object AdoQry_MainOnCheckStatus: TIntegerField
      FieldName = 'OnCheckStatus'
    end
    object AdoQry_MainReceivedQty: TFloatField
      FieldName = 'ReceivedQty'
    end
    object AdoQry_MainQcStatus: TIntegerField
      FieldName = 'QcStatus'
    end
    object AdoQry_MainOnCheckRemArk: TStringField
      FieldName = 'OnCheckRemArk'
      Size = 250
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
  end
  inherited DataSource: TDataSource
    Left = 280
    Top = 273
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 152
    Top = 257
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 240
    Top = 265
  end
end