pm_qry_chginfopoh.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Qry_ChgInfoPoH: TFrm_Pm_Qry_ChgInfoPoH
  Left = 127
  Top = 97
  Caption = '采购订单表头操作日志'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '采购订单表头操作日志'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_ConditionTitle: TLabel
      Left = 18
      Top = 3
    end
    inherited Lbl_Condition: TLabel
      Top = 4
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 114
      Caption = '采购订单号/操作时间'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 376
    Height = 53
    object Label2: TLabel
      Left = 12
      Top = 8
      Width = 96
      Height = 12
      Caption = '当前采购订单号：'
    end
    object dbtxtpono: TDBText
      Left = 108
      Top = 8
      Width = 54
      Height = 12
      AutoSize = True
      DataField = 'PONO'
      DataSource = DataSource
    end
    object dbtxtVendorflag: TDBText
      Left = 108
      Top = 24
      Width = 90
      Height = 12
      AutoSize = True
      DataField = 'Vendorflag'
      DataSource = DataSource
    end
    object Label1: TLabel
      Left = 12
      Top = 24
      Width = 96
      Height = 12
      Caption = '当前供应商标识：'
    end
    object Label3: TLabel
      Left = 12
      Top = 40
      Width = 96
      Height = 12
      Caption = '当前操作员标识：'
    end
    object dbtxTEmployeeflag: TDBText
      Left = 108
      Top = 40
      Width = 102
      Height = 12
      AutoSize = True
      DataField = 'Employeeflag'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Height = 279
    inherited DBGridEh: TDBGridEh
      Height = 279
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'PONO'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PODate'
          PickList.Strings = ()
          Title.Caption = '下单日期'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'POType'
          PickList.Strings = (
            '普通采购'
            '委外加工')
          Width = 58
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'PcNo'
          PickList.Strings = ()
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Vendorflag'
          PickList.Strings = ()
          Width = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          Width = 73
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          Width = 140
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyName'
          PickList.Strings = ()
          Width = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'POTAXRATE_PERCENT'
          PickList.Strings = ()
          Width = 40
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoSpecial'
          PickList.Strings = (
            '是'
            '否')
          Width = 57
          KeyList.Strings = (
            '1'
            '0')
        end
        Item
          FieldName = 'PORemArk'
          PickList.Strings = ()
          Width = 94
          KeyList.Strings = ()
        end
        Item
          FieldName = 'POChgType'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Employeeflag'
          PickList.Strings = ()
          Width = 83
          KeyList.Strings = ()
        end
        Item
          FieldName = 'POChgEmployeeCode'
          PickList.Strings = ()
          Width = 65
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'pochgEmployeeName'
          PickList.Strings = ()
          Width = 74
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'POChgTime'
          PickList.Strings = ()
          Width = 120
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 208
    Top = 120
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=NT2'
    CurSorType = ctStatic
    SQL.Strings = (
      'Select t1.*,'
      '      t2.VendorName,'
      '      Vendorflag=t1.VendorCode+'#39' '#39'+t2.VendorName,'
      '      Employeeflag=t1.pochgEmployeeCode+'#39' '#39'+t3.EmployeeName,'
      '      pochgEmployeeName=t3.EmployeeName,'
      '      t4.CurrencyName,'
      '      poEmployeeName=t5.EmployeeName'
      'From PoHistory t1,Vendor t2,Employee t3,currency t4,Employee t5'
      'where t1.pochgEmployeeCode*=t3.EmployeeCode'
      'and   t1.VendorCode*=t2.VendorCode'
      'and   t1.currencyCode*=t4.currencyCode'
      'and   t1.EmployeeCode*=t5.EmployeeCode'
      'Order By t1.PoNo,t1.poChgTime'
      '')
    Left = 304
    Top = 161
    object AdoQry_MainPOChgId: TAutoIncField
      DisplayWidth = 10
      FieldName = 'POChgId'
      Origin = '#tmppohistory'
      ReadOnly = True
    end
    object AdoQry_MainPONO: TStringField
      DisplayLabel = '采购订单号'
      DisplayWidth = 16
      FieldName = 'PONO'
      Origin = '#tmppohistory'
      Size = 16
    end
    object AdoQry_MaInvendorCode: TStringField
      DisplayLabel = '供应商代码'
      DisplayWidth = 12
      FieldName = 'VendorCode'
      Origin = '#tmppohistory'
      Size = 12
    end
    object AdoQry_MainPOType: TIntegerField
      DisplayLabel = '采购类型'
      DisplayWidth = 10
      FieldName = 'POType'
      Origin = '#tmppohistory'
    end
    object AdoQry_MainPODate: TDateTimeField
      DisplayLabel = '下达日期'
      DisplayWidth = 18
      FieldName = 'PODate'
      Origin = '#tmppohistory'
    end
    object AdoQry_MainPOTAXRATE_PERCENT: TIntegerField
      DisplayLabel = '税率'
      DisplayWidth = 10
      FieldName = 'POTAXRATE_PERCENT'
      Origin = '#tmppohistory'
    end
    object AdoQry_MainCURRENCYCode: TStringField
      DisplayLabel = '货币代码'
      DisplayWidth = 2
      FieldName = 'CURRENCYCode'
      Origin = '#tmppohistory'
      Size = 2
    end
    object AdoQry_MainEmployeeCode: TStringField
      DisplayLabel = '采购员代码'
      DisplayWidth = 30
      FieldName = 'EmployeeCode'
      Origin = '#tmppohistory'
      Size = 30
    end
    object AdoQry_MainPORemArk: TStringField
      DisplayLabel = '备注'
      DisplayWidth = 50
      FieldName = 'PORemArk'
      Origin = '#tmppohistory'
      Size = 150
    end
    object AdoQry_MainPoSpecial: TIntegerField
      DisplayLabel = '是否特采'
      DisplayWidth = 10
      FieldName = 'PoSpecial'
      Origin = '#tmppohistory'
    end
    object AdoQry_MainPcNo: TStringField
      DisplayLabel = '采购合同号'
      DisplayWidth = 16
      FieldName = 'PcNo'
      Origin = '#tmppohistory'
      Size = 16
    end
    object AdoQry_MainPOChgEmployeeCode: TStringField
      DisplayLabel = '操作员代码'
      DisplayWidth = 30
      FieldName = 'POChgEmployeeCode'
      Origin = '#tmppohistory'
      Size = 30
    end
    object AdoQry_MainPOChgTime: TDateTimeField
      DisplayLabel = '操作时间'
      DisplayWidth = 18
      FieldName = 'POChgTime'
      Origin = '#tmppohistory'
    end
    object AdoQry_MainPOChgType: TStringField
      DisplayLabel = '操作类型'
      DisplayWidth = 10
      FieldName = 'POChgType'
      Origin = '#tmppohistory'
      Size = 10
    end
    object AdoQry_MaInvendorName: TStringField
      DisplayLabel = '供应商名称'
      DisplayWidth = 60
      FieldName = 'VendorName'
      Origin = '#tmppohistory'
      Size = 60
    end
    object AdoQry_MainpochgEmployeeName: TStringField
      DisplayLabel = '操作员名称'
      DisplayWidth = 60
      FieldName = 'pochgEmployeeName'
      Origin = '#tmppohistory'
      Size = 60
    end
    object AdoQry_MainCurrencyName: TStringField
      DisplayLabel = '货币名称'
      DisplayWidth = 30
      FieldName = 'CurrencyName'
      Origin = '#tmppohistory'
      Size = 30
    end
    object AdoQry_MainpoEmployeeName: TStringField
      DisplayLabel = '采购员名称'
      DisplayWidth = 60
      FieldName = 'poEmployeeName'
      Origin = '#tmppohistory'
      Size = 60
    end
    object AdoQry_MaInvendorflag: TStringField
      DisplayLabel = '供应商标识'
      DisplayWidth = 73
      FieldName = 'Vendorflag'
      Origin = '#tmppohistory'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_MainEmployeeflag: TStringField
      DisplayLabel = '操作员标识'
      DisplayWidth = 91
      FieldName = 'Employeeflag'
      Origin = '#tmppohistory'
      ReadOnly = True
      Size = 91
    end
  end
end