qc_checkpsi.dfm

一个MRPII系统源代码版本

inherited Frm_Qc_CheckPsi: TFrm_Qc_CheckPsi
  Left = 224
  Top = 109
  ClientHeight = 480
  ClientWidth = 774
  Icon.Data = {
    0000010001002020100001000400E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000077
    7777000000000000000000000000777777777777777700000000000000000000
    00000077777777700000000000000000DDDDD00000077777700000000000DDDD
    DDDDDDDDDD0000777770000000000000000007DDDDDDD0000777700000000000
    0000000007DDDDDDD0077700000000000000000000007DCCCDD0777000000000
    000000000000000CCCC407770000007770000000000000000CCCC47770000711
    1700000000000000000CCC477700099917000000000000000000CCC477700099
    917000000000000000000CCC477000009970000000000000000007CCC4777000
    0977000000000000000002CCC47717000001700000000000000072ACCC479170
    7079177000000000000072AAAC470097171991177700000000072AAAAC470009
    99919991111777777772AAAAAAC700011999999999911111332AAAAAAAC00001
    999999999999999BBBAAAAAAAAC0771999999999999999BBBBBBBAAAAC009999
    9999999999999999BBBBBBBAAC000099999999999999999BBBBBBBBBA0000000
    99999999999999BBBBBBBBBA00000000009999999999999BBBBBBAA000000000
    0000999999999999BB990000000000000000000999999999990000000000FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFC0FFFFFF0000FFFFFFC01FFFF07E07FF0003
    C1FFFF80787FFFF8063FFFFF011FFFFFE08FC7FFF80783FFFE0383FFFF01C1FF
    FF81F1FFFF8078FFFF803E7FFF00141FFF00C003FE00E0000000E0000001E000
    00010000000300000003C0000007F000000FFC00001FFF0000FFFFE003FF}
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 774
  end
  inherited Pnl_Title: TPanel
    Width = 774
    inherited Image2: TImage
      Width = 774
    end
  end
  inherited Pnl_Head: TPanel
    Width = 774
    inherited Image1: TImage
      Width = 774
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = #29289#26009#20195#30721
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 455
    Width = 774
    inherited Image4: TImage
      Width = 774
    end
    object Label1: TLabel
      Left = 24
      Top = 8
      Width = 84
      Height = 12
      Caption = #24403#21069#29289#26009#25551#36848#65306
    end
    object DBText1: TDBText
      Left = 112
      Top = 8
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Width = 774
    Height = 364
    inherited Image3: TImage
      Width = 774
      Height = 364
    end
    inherited DBGridEh: TDBGridEh
      Width = 774
      Height = 364
      Columns = <
        item
          EditButtons = <>
          FieldName = 'ItemCode'
          Footers = <>
          Title.Caption = #29289#26009#20195#30721
          Visible = False
          Width = 125
        end
        item
          EditButtons = <>
          FieldName = 'ItemName'
          Footers = <>
          Title.Caption = #29289#26009#25551#36848
          Visible = False
          Width = 125
        end
        item
          EditButtons = <>
          FieldName = 'ItemCodeName'
          Footers = <>
          Title.Caption = #29289#26009#26631#35782
          Width = 215
        end
        item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Caption = #35745#37327#21333#20301
          Width = 53
        end
        item
          EditButtons = <>
          FieldName = 'BillTypeName'
          Footers = <>
          Title.Caption = #21333#25454#31867#22411
          Width = 68
        end
        item
          EditButtons = <>
          FieldName = 'PoTaxPrice'
          Footers = <>
          Title.Caption = #21333#20215
        end
        item
          EditButtons = <>
          FieldName = 'AOnCheckQty'
          Footers = <>
          Title.Caption = #21040#36135#25968#37327
          Width = 61
        end
        item
          EditButtons = <>
          FieldName = 'POnCheckQty'
          Footers = <>
          Title.Caption = #37329#39069
        end
        item
          EditButtons = <>
          FieldName = 'AreceivedQty0'
          Footers = <>
          Title.Caption = #24453#20837#24211#25968#37327
          Width = 70
        end
        item
          EditButtons = <>
          FieldName = 'PReceivedQty0'
          Footers = <>
          Title.Caption = #37329#39069
        end
        item
          EditButtons = <>
          FieldName = 'AreceivedQty1'
          Footers = <>
          Title.Caption = #27491#24335#20837#24211#25968#37327
          Width = 78
        end
        item
          EditButtons = <>
          FieldName = 'PReceivedQty1'
          Footers = <>
          Title.Caption = #37329#39069
        end
        item
          EditButtons = <>
          FieldName = 'AreceivedQty2'
          Footers = <>
          Title.Caption = #36864#36135#25968#37327
          Width = 74
        end
        item
          EditButtons = <>
          FieldName = 'PReceivedQty2'
          Footers = <>
          Title.Caption = #37329#39069
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 333
    Top = 147
  end
  inherited ActionList: TActionList
    Top = 176
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = ''
    CursorType = ctStatic
    SQL.Strings = (
      'Select InvOutBill.InvBillDate,'
      '  InvOutBill.InvBillNo,'
      
        '  InvOutBill.CustomerCode+'#39' '#39'+Customer.CustomerName As CustomerC' +
        'odeName,'
      '  InvOutBillLine.MpsId,'
      '  InvOutBillLine.MoLineNo,'
      '  InvOutBillLine.ItemCode,'
      '  Item.ItemName,'
      
        '  InvOutBillLine.ItemCode+'#39' '#39'+InvOutBillLine.ItemCode As ItemCod' +
        'eName,'
      '  Uom.UomName,'
      '  InvOutBillLine.InvBillQty,'
      '  case Warehouse.PriceType When 1 then StandardPrice.SPPrice'
      
        '  else InvOutBillLine.InvBillNoTaxPrice end As InvBillNoTaxPrice' +
        ','
      
        '  case Warehouse.PriceType When 1 then StandardPrice.SPPrice*Inv' +
        'OutBillLine.InvBillQty'
      
        '  else InvOutBillLine.InvBillNoTaxAmount end As InvBillNoTaxAmou' +
        'nt,'
      '  RealSalePrice.InvBillSalePrice As RealSalePrice,'
      '  RealSalePrice.InvBillSaleAmount As RealSaleAmount,'
      
        '  InvOutBill.EmployeeCode+'#39' '#39'+Employee.EmployeeName As EmployeeC' +
        'odeName,'
      '  InvOutBillLine.BatchNo,Warehouse.whCode '
      'From  InvOutBillLine'
      '  Left Outer Join Item On  InvOutBillLine.ItemCode=Item.ItemCode'
      '  Left Outer Join Uom On  Item.UomCode=Uom.UomCode,'
      '  StandardPrice,RealSalePrice,InvOutBill'
      
        '  Left Outer Join Customer On  InvOutBill.CustomerCode=Customer.' +
        'CustomerCode'
      
        '  Left Outer Join Warehouse On  InvOutBill.WHCode=Warehouse.WHCo' +
        'de'
      
        '  Left Outer Join Employee On  InvOutBill.EmployeeCode=Employee.' +
        'EmployeeCode'
      'Where  (InvOutBillLine.InvBillId=InvOutBill.InvBillId)'
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ' '
      ''
      ''
      ' ')
    Left = 200
    Top = 241
  end
end