pm_pclinehistory.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_PcLineHistory: TFrm_Pm_PcLineHistory
  Left = -32
  Top = 83
  Caption = '采购合同表体操作日志'
  ClientWidth = 792
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 792
  end
  inherited Pnl_Title: TPanel
    Width = 792
    Caption = '采购合同表体操作日志'
    inherited Image2: TImage
      Width = 792
    end
  end
  inherited Pnl_Head: TPanel
    Width = 792
    inherited Image1: TImage
      Width = 792
    end
    inherited Lbl_Order: TLabel
      Width = 114
      Caption = '采购合同号\操作时间'
    end
  end
  inherited Pnl_Hint: TPanel
    Width = 792
    inherited Image4: TImage
      Width = 792
    end
    object DBText1: TDBText
      Left = 104
      Top = 8
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemCodeName'
      DataSource = DataSource
    end
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 84
      Height = 12
      Caption = '当前物料标识：'
    end
  end
  inherited Pnl_Body: TPanel
    Width = 792
    inherited Image3: TImage
      Width = 792
    end
    inherited DBGridEh: TDBGridEh
      Width = 792
      Columns = <
        Item
          FieldName = 'PcNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '采购合同号'
          Width = 62
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 177
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 51
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcStArtDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '起始日期'
          Width = 63
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcendDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '终止日期'
          Width = 63
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcStArtQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '起始数量'
          Width = 54
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcendQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '终止数量'
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcTaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税价'
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcNoTaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税价'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcPriceType'
          PickList.Strings = (
            '采购'
            '委外')
          Title.Alignment = taCenter
          Title.Caption = '价格类型'
          Width = 51
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'PCReferencedPrice'
          PickList.Strings = (
            '否'
            '是')
          Title.Alignment = taCenter
          Title.Caption = '是否参考价'
          Width = 62
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'EmployeeCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作员'
          Width = 95
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ChgType'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作类型'
          Width = 54
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ChgTime'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作时间'
          Width = 120
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 309
    Top = 235
  end
  inherited ActionList: TActionList
    Top = 216
  end
  inherited AdoQry_Main: TAdoQuery
    CurSorType = ctStatic
    SQL.Strings = (
      'Select PcLineHistory.PcNo,PcLineHistory.Pclineid'
      '    ,PcLineHistory.ItemCode+'#39' '#39'+Item.ItemName As ItemCodeName'
      '    ,Uom.UomName'
      '    ,PcLineHistory.PcTaxPrice'
      '    ,PcLineHistory.PcNoTaxPrice'
      '    ,PcLineHistory.PcStArtDate'
      '    ,PcLineHistory.PcendDate'
      '    ,PcLineHistory.PcStArtQty'
      '    ,PcLineHistory.PcendQty'
      '    ,PcLineHistory.PcPriceType'
      '    ,PcLineHistory.PCReferencedPrice'
      
        '    ,PcLineHistory.ChgEmployeeCode+'#39' '#39'+Employee.EmployeeName As ' +
        'EmployeeCodeName'
      '    ,PcLineHistory.ChgTime'
      '    ,PcLineHistory.ChgType'
      
        '     From PcLineHistory Join Item On PcLineHistory.ItemCode=Item' +
        '.ItemCode'
      
        '     Join Employee On PcLineHistory.ChgEmployeeCode=Employee.Emp' +
        'loyeeCode'
      '     Left Outer Join Uom On Item.UomCode=Uom.UomCode')
    Left = 384
    Top = 217
    object AdoQry_MainPcNo: TStringField
      FieldName = 'PcNo'
      Origin = 'PcLineHistory'
      Size = 16
    end
    object AdoQry_MainItemCodeName: TStringField
      FieldName = 'ItemCodeName'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_MainPcTaxPrice: TFloatField
      FieldName = 'PcTaxPrice'
    end
    object AdoQry_MainPcNoTaxPrice: TFloatField
      FieldName = 'PcNoTaxPrice'
    end
    object AdoQry_MainPcStArtDate: TDateTimeField
      FieldName = 'PcStArtDate'
    end
    object AdoQry_MainPcendDate: TDateTimeField
      FieldName = 'PcendDate'
    end
    object AdoQry_MainPcStArtQty: TFloatField
      FieldName = 'PcStArtQty'
    end
    object AdoQry_MainPcendQty: TFloatField
      FieldName = 'PcendQty'
    end
    object AdoQry_MainPcPriceType: TIntegerField
      FieldName = 'PcPriceType'
      Origin = 'PcLineHistory'
    end
    object AdoQry_MainPCReferencedPrice: TIntegerField
      FieldName = 'PCReferencedPrice'
    end
    object AdoQry_MainEmployeeCodeName: TStringField
      FieldName = 'EmployeeCodeName'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainChgTime: TDateTimeField
      FieldName = 'ChgTime'
      Origin = 'PcLineHistory'
    end
    object AdoQry_MainChgType: TStringField
      FieldName = 'ChgType'
      Origin = 'PcLineHistory'
      Size = 10
    end
    object AdoQry_MainPclineid: TIntegerField
      FieldName = 'Pclineid'
    end
  end
  inherited DataSource: TDataSource
    Left = 464
    Top = 257
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 96
    Top = 241
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 272
    Top = 249
  end
end