pm_enter_purchaseapplytoorder.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Enter_PurchaseApplyToOrder: TFrm_Pm_Enter_PurchaseApplyToOrder
  Left = 5
  Top = 103
  Caption = #29983#25104#37319#36141#35746#21333
  ClientWidth = 759
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 759
    inherited ToolBar: TToolBar
      inherited TlBtn_New: TToolButton
        Action = Act_auto
      end
      inherited TlBtn_Modify: TToolButton
        Enabled = False
        Visible = False
      end
      inherited TlBtn_Delete: TToolButton
        Enabled = False
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 759
    inherited Image2: TImage
      Width = 759
    end
  end
  inherited Pnl_Head: TPanel
    Width = 759
    inherited Image1: TImage
      Width = 759
    end
  end
  inherited Pnl_Hint: TPanel
    Width = 759
    inherited Image4: TImage
      Width = 759
    end
  end
  inherited Pnl_Body: TPanel
    Width = 759
    inherited Image3: TImage
      Width = 759
    end
    inherited DBGridEh: TDBGridEh
      Width = 759
      ReadOnly = False
      OnCellClick = DBGridEhCellClick
      OnTitleClick = DBGridEhTitleClick
      Columns = <
        Item
          Checkboxes = True
          EditButtons = <>
          FieldName = 'TmpField'
          Footers = <>
          KeyList.Strings = (
            '1'
            '0')
          PickList.Strings = (
            '1'
            '0')
          Width = 37
        end
        Item
          EditButtons = <>
          FieldName = 'VendorCode'
          Footers = <>
          Width = 200
        end
        Item
          EditButtons = <>
          FieldName = 'ItemCode'
          Footers = <>
          Width = 200
        end
        Item
          EditButtons = <>
          FieldName = 'PlanQty'
          Footers = <>
          ReadOnly = True
        end
        Item
          EditButtons = <>
          FieldName = 'PlanReleaseDate'
          Footers = <>
          ReadOnly = True
        end
        Item
          EditButtons = <>
          FieldName = 'iScreatePo'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            '0 '#21542
            '1 '#24050)
          ReadOnly = True
        end
        Item
          EditButtons = <>
          FieldName = 'PmCode'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2')
          PickList.Strings = (
            '0 '#21046#36896
            '1 '#37319#36141
            '2 '#22996#22806#21152#24037)
          ReadOnly = True
        end
        Item
          EditButtons = <>
          FieldName = 'EmployeeName'
          Footers = <>
          ReadOnly = True
          Width = 100
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 333
    Top = 235
  end
  inherited ActionList: TActionList
    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=Mrpii_kelong;Data Source=192.1' +
      '68.0.99;Use procedure for Prepare=1;Auto Translate=True;Packet S' +
      'ize=4096;Workstation ID=XYB'
    CurSorType = ctStatic
    BeforeEdit = AdoQry_MainBeforeEdit
    OnCalcFields = AdoQry_MainCalcFields
    SQL.Strings = (
      
        'select VendorCodeO=Pc.VendorCode,VendorCode=Pc.VendorCode+'#39' '#39'+Ve' +
        'ndor.VendorName,ItemCodeO=PurChaseApply.ItemCode,ItemCode=PurCha' +
        'seApply.ItemCode+'#39' '#39'+Item.ItemName,PurChaseApply.PlanQty,Pc.Curr' +
        'encyCode,PurChaseApply.SSReleaseDate,PurChaseApply.ToDate,'
      
        'PurChaseApply.PlanReleaseDate,PmCode,Item.EmployeeCode,EmployeeN' +
        'ame=Employee.EmployeeName,PurChaseApply.iScreatePo,PurChaseApply' +
        '.TmpField,Pc.PcNo,Pc.PcTaxRate_Percent,PcLine.ReferencePricePass' +
        ',PcLine.FormalPricePass,PurChaseApply.PlanDueDate'
      
        'from PurChaseApply left join PcLine on PurChaseApply.ItemCode=Pc' +
        'line.ItemCode'
      'join Pc on pc.PcNo=PcLine.PcNo'
      
        'join VendorItemAssign on Pc.VendorCode=VendorItemAssign.Vendorco' +
        'de and PcLine.ItemCode=VendorItemAssign.ItemCode'
      'join Vendor on Vendor.VendorCode=VendorItemAssign.VendorCode'
      'join Item on Item.ItemCode=PurchaseApply.ItemCode'
      'join Employee on Employee.EmployeeCode=Item.EmployeeCode'
      
        'where PurChaseApply.ssreleasedate between PcStArtDate and PcendD' +
        'ate'
      'and VendorItemAssign.AssignRate=100'
      
        'Order by Pc.VendorCode,PurchaseApply.PlanReleaseDate,purchaseApp' +
        'ly.ItemCode')
    Left = 448
    Top = 233
    object AdoQry_MainTmpField: TIntegerField
      DisplayLabel = #26631#35782
      FieldName = 'TmpField'
      Origin = '#TmpPurChaseApply'
    end
    object AdoQry_MaInvendorCodeO: TStringField
      FieldName = 'VendorCodeO'
      Origin = '#TmpPurChaseApply'
      Size = 12
    end
    object AdoQry_MaInvendorCode: TStringField
      DisplayLabel = #20379#24212#21830#26631#35782
      FieldName = 'VendorCode'
      Origin = '#TmpPurChaseApply'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_MainItemCodeO: TStringField
      FieldName = 'ItemCodeO'
      Origin = '#TmpPurChaseApply'
      Size = 16
    end
    object AdoQry_MainItemCode: TStringField
      DisplayLabel = #29289#26009#26631#35782
      FieldName = 'ItemCode'
      Origin = '#TmpPurChaseApply'
      ReadOnly = True
      Size = 97
    end
    object AdoQry_MaInPlanQty: TFloatField
      DisplayLabel = #35745#21010#37327
      FieldName = 'PlanQty'
      Origin = '#TmpPurChaseApply'
    end
    object AdoQry_MaInPlanReleaseDate: TDateTimeField
      DisplayLabel = #35745#21010#32422#23450#20132#36135#26085
      FieldName = 'PlanReleaseDate'
      Origin = '#TmpPurChaseApply'
    end
    object AdoQry_MainiScreatePo: TIntegerField
      DisplayLabel = #20135#29983#37319#36141#35746#21333#21542
      FieldName = 'iScreatePo'
      Origin = '#TmpPurChaseApply'
    end
    object AdoQry_MainPmCode: TIntegerField
      DisplayLabel = #21046#36141#30721
      FieldName = 'PmCode'
      Origin = '#TmpPurChaseApply'
    end
    object AdoQry_MainEmployeeCode: TStringField
      DisplayLabel = #37319#36141#21592#20195#30721
      FieldName = 'EmployeeCode'
      Origin = '#TmpPurChaseApply'
      Size = 30
    end
    object AdoQry_MainEmployeeName: TStringField
      DisplayLabel = #37319#36141#21592
      FieldName = 'EmployeeName'
      Origin = '#TmpPurChaseApply'
      Size = 60
    end
    object AdoQry_MainPcNo: TStringField
      FieldName = 'PcNo'
      Origin = '#TmpPurChaseApply'
      Size = 16
    end
    object AdoQry_MainPcTaxRate_Percent: TIntegerField
      FieldName = 'PcTaxRate_Percent'
      Origin = '#TmpPurChaseApply'
    end
    object AdoQry_MainCurrencyCode: TStringField
      FieldName = 'CurrencyCode'
      Origin = '#TmpPurChaseApply'
      Size = 3
    end
    object AdoQry_MainReferencePricePass: TIntegerField
      FieldName = 'ReferencePricePass'
      Origin = '#TmpPurChaseApply'
    end
    object AdoQry_MainformalPricePass: TIntegerField
      FieldName = 'FormalPricePass'
      Origin = '#TmpPurChaseApply'
    end
    object AdoQry_MainSSReleaseDate: TDateTimeField
      FieldName = 'SSReleaseDate'
      Origin = '#TmpPurChaseApply'
    end
    object AdoQry_MaInPlanDueDate: TDateTimeField
      FieldName = 'PlanDueDate'
      Origin = '#TmpPurChaseApply'
    end
    object AdoQry_MainToDate: TStringField
      FieldName = 'ToDate'
      Size = 19
    end
    object AdoQry_MainTabFlag: TIntegerField
      FieldName = 'TabFlag'
      Origin = '#TmpPurChaseApply'
    end
    object AdoQry_MainPoTaxPrice: TFloatField
      FieldName = 'PoTaxPrice'
      Origin = '#TmpPurChaseApply'
    end
    object AdoQry_MainPoNoTaxPrice: TFloatField
      FieldName = 'PoNoTaxPrice'
      Origin = '#TmpPurChaseApply'
    end
  end
  inherited DataSource: TDataSource
    Left = 272
    Top = 97
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 232
    Top = 161
  end
end