qc_reclaim.dfm

一个MRPII系统源代码版本

inherited Frm_Qc_Reclaim: TFrm_Qc_Reclaim
  Left = 63
  Top = 85
  Caption = #25298#25910#29289#26009#29305#21035#37319#29992
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = #25298#25910#29289#26009#29305#21035#37319#29992
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Order: TLabel
      Left = 88
      Width = 6
      Caption = ''
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      ReadOnly = False
      Columns = <
        item
          EditButtons = <>
          FieldName = 'Vendorflag'
          Footers = <>
          Title.Caption = #20379#24212#21830#26631#35782
          Width = 139
        end
        item
          EditButtons = <>
          FieldName = 'OnCheckBillNo'
          Footers = <>
          ReadOnly = True
          Title.Caption = #24453#26816#21333#25454#21495
        end
        item
          EditButtons = <>
          FieldName = 'OnCheckBillLineNo'
          Footers = <>
          ReadOnly = True
          Title.Caption = #34892#21495
          Width = 32
        end
        item
          EditButtons = <>
          FieldName = 'ItemCode'
          Footers = <>
          ReadOnly = True
          Title.Caption = #29289#26009#20195#30721
          Width = 125
        end
        item
          EditButtons = <>
          FieldName = 'ItemName'
          Footers = <>
          ReadOnly = True
          Title.Caption = #29289#26009#25551#36848
          Width = 250
        end
        item
          EditButtons = <>
          FieldName = 'OnCheckDate'
          Footers = <>
          ReadOnly = True
          Title.Caption = #21040#36135#26085#26399
          Width = 70
        end
        item
          EditButtons = <>
          FieldName = 'QcStatus'
          Footers = <>
          KeyList.Strings = (
            '2'
            '6')
          PickList.Strings = (
            #25298#25910
            #29305#37319)
          ReadOnly = True
          Title.Caption = #36136#37327#29366#24577
          Width = 52
        end
        item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          ReadOnly = True
          Title.Caption = #21333#20301
          Width = 36
        end
        item
          EditButtons = <>
          FieldName = 'OnCheckQty'
          Footers = <>
          Title.Caption = #21040#36135#25968#37327
          Width = 61
        end
        item
          Checkboxes = True
          EditButtons = <>
          FieldName = 'OnCheckStatus'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          Title.Caption = #26159#21542#29305#37319
          Title.TitleButton = True
          Width = 53
        end
        item
          EditButtons = <>
          FieldName = 'ReceivedQty'
          Footers = <>
          Title.Caption = #29305#37319#25968#37327
          Width = 65
        end
        item
          EditButtons = <>
          FieldName = 'QcBatchNo'
          Footers = <>
          Title.Caption = #25511#21046#21495
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'BatchNo'
          Footers = <>
          Title.Caption = #25209#27425#21495
          Width = 128
        end
        item
          EditButtons = <>
          FieldName = 'OnCheckRemArk'
          Footers = <>
          Title.Caption = #22791#27880
          Width = 200
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 167
    Top = 313
  end
  inherited ActionList: TActionList
    Left = 200
    Top = 312
    inherited Act_New: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Modify: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Delete: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Check: TAction
      OnExecute = Act_CheckExecute
    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
    BeforePost = AdoQry_MainBeforePost
    AfterPost = AdoQry_MainAfterPost
    AfterScroll = AdoQry_MainAfterScroll
    SQL.Strings = (
      'select OnCheckBillLine.OncheckStatus,'
      '                        OnCheckBillLine.OncheckBillId, '
      '                        OnCheckBillLine.ItemCode, '
      '                        OnCheckBillLine.OnCheckBillLineNo, '
      '                        Item.ItemName, '
      '                        Uom.UomName,'
      '                        OncheckBill.VendorCode,'
      
        '                        OncheckBill.VendorCode+'#39' '#39'+v.VendorName ' +
        'Vendorflag, '
      '                        OnCheckBill.OnCheckBillNo, '
      '                        OnCheckBill.OnCheckDate,'
      '                        OnCheckBillLine.BatchNo,'
      '                        OnCheckBillLine.QcBatchNo, '
      '                        OnCheckBillLine.OnCheckQty,'
      
        '                        OnCheckBillLine.OnCheckStatus as OnCheck' +
        'Status, '
      
        '                        OnCheckBillLine.ReceivedQty as ReceivedQ' +
        'ty, '
      '                        OnCheckBillLine.QcStatus as QcStatus, '
      
        '                        OnCheckBillLine.QcStatus as QcStatusbak,' +
        ' '
      
        '                        OnCheckBillLine.ReceivedQty as ReceivedQ' +
        'tybak, '
      
        '                        OnCheckBillLine.OnCheckRemArk as OnCheck' +
        'RemArk,'
      
        '                        OnCheckBillLine.OnCheckRemArk as OnCheck' +
        'RemArkbak '
      '                   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 = 136
    Top = 313
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_MainOncheckBillId: TIntegerField
      FieldName = 'OncheckBillId'
    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_MainOnCheckBillNo: TStringField
      FieldName = 'OnCheckBillNo'
      Size = 10
    end
    object AdoQry_MainOnCheckDate: TDateTimeField
      FieldName = 'OnCheckDate'
    end
    object AdoQry_MainOnCheckQty: TFloatField
      FieldName = 'OnCheckQty'
    end
    object AdoQry_MainOnCheckStatus: TIntegerField
      FieldName = 'OnCheckStatus'
    end
    object AdoQry_MainReceivedQty: TFloatField
      FieldName = 'ReceivedQty'
    end
    object AdoQry_MainQcStatus: TIntegerField
      FieldName = 'QcStatus'
    end
    object AdoQry_MainQcStatusbak: TIntegerField
      FieldName = 'QcStatusbak'
    end
    object AdoQry_MainReceivedQtybak: TFloatField
      FieldName = 'ReceivedQtybak'
    end
    object AdoQry_MainOnCheckRemArk: TStringField
      FieldName = 'OnCheckRemArk'
      Size = 250
    end
    object AdoQry_MainOnCheckRemArkbak: TStringField
      FieldName = 'OnCheckRemArkbak'
      Size = 250
    end
    object AdoQry_MainBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 16
    end
    object AdoQry_MaInvendorCode: TStringField
      FieldName = 'VendorCode'
      Size = 12
    end
    object AdoQry_MaInvendorflag: TStringField
      FieldName = 'Vendorflag'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_MainQcBatchNo: TStringField
      FieldName = 'QcBatchNo'
      Size = 16
    end
  end
  inherited DataSource: TDataSource
    Left = 232
    Top = 313
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 296
    Top = 313
  end
  inherited PopuPmenu: TPopupMenu
    Left = 264
    Top = 313
  end
end