ap_qry_apinvoicelog.dfm

一个MRPII系统源代码版本

inherited Frm_Ap_Qry_ApInvoiceLog: TFrm_Ap_Qry_ApInvoiceLog
  Left = 45
  Top = 138
  Caption = '采购发票操作日志'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '采购发票操作日志'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = '操作日期'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 2
      Columns = <
        Item
          FieldName = 'LogDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 120
          KeyList.Strings = ()
        end
        Item
          FieldName = 'LogOperAtorCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作员代码'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'logoperatorB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 105
          KeyList.Strings = ()
        end
        Item
          FieldName = 'LogAction'
          PickList.Strings = (
            '增加'
            '修改'
            '删除')
          Title.Alignment = taCenter
          Width = 34
          KeyList.Strings = (
            'A'
            'M'
            'D')
        end
        Item
          FieldName = 'ApInvoiceNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 107
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvoiceDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 146
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 93
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvoiceInputDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 73
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvoiceAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 62
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvoiceTax'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 44
          KeyList.Strings = ()
        end
        Item
          Alignment = taLeftJustify
          FieldName = 'ApPayFlag'
          PickList.Strings = (
            '0 完全匹配'
            '1 匹配部分'
            '2 未匹配')
          Title.Alignment = taCenter
          Width = 97
          KeyList.Strings = (
            '0'
            '1'
            '2')
        end
        Item
          FieldName = 'ApInvoiceRemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 171
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 613
    Top = 2
  end
  inherited ActionList: TActionList
    Left = 453
    Top = 1
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_kl;Data Source=ExtDATASERVE' +
      'R'
    CurSorType = ctStatic
    SQL.Strings = (
      'select  ApInvoiceLog.LogDate,'
      '                 ApInvoiceLog.LogOperAtorCode,'
      
        '                 ApInvoiceLog.LogOperAtorCode+'#39' '#39'+EmployeeName a' +
        's logoperatorB ,'
      '                 ApInvoiceLog.LogAction,'
      '                 ApInvoiceLog.ApInvoiceNo,'
      '                 ApInvoiceLog.ApInvoiceDate,'
      
        '                 ApInvoiceLog.VendorCode+'#39' '#39'+VendorName as vendo' +
        'rB,'
      
        '                 ApInvoiceLog.CurrencyCode+'#39' '#39'+currencyName as c' +
        'urrencyB,'
      
        '                 ApInvoiceLog.EmployeeCode+'#39' '#39'+EmployeeName as e' +
        'mployeeB,'
      '                 ApInvoiceLog.ApInvoiceInputDate,'
      '                 ApInvoiceLog.ApInvoiceAmount,'
      '                 ApInvoiceLog.ApInvoiceTax,'
      '                 ApInvoiceLog.ApPayFlag,'
      '                 ApInvoiceLog.ApInvoiceRemArk'
      '          from  ApInvoiceLog'
      
        '          left join Employee on ApInvoiceLog.LogOperAtorCode=emp' +
        'loyee.EmployeeCode'
      
        '          left join Vendor on ApInvoiceLog.VendorCode=Vendor.ven' +
        'dorCode'
      
        '          left join currency on ApInvoiceLog.CurrencyCode=curren' +
        'cy.currencyCode')
    Left = 485
    Top = 1
    object AdoQry_MainLogDate: TDateTimeField
      DisplayLabel = '更改日期'
      FieldName = 'LogDate'
      Origin = 'ApInvoiceLog'
    end
    object AdoQry_MainlogoperatorB: TStringField
      DisplayLabel = '更改人标识'
      FieldName = 'logoperatorB'
      ReadOnly = True
      Size = 90
    end
    object AdoQry_MainLogAction: TStringField
      DisplayLabel = '动作'
      FieldName = 'LogAction'
      Origin = 'ApInvoiceLog'
      FixedChAr = True
      Size = 1
    end
    object AdoQry_MainApInvoiceNo: TStringField
      DisplayLabel = '发票号'
      FieldName = 'ApInvoiceNo'
      Origin = 'ApInvoiceLog'
    end
    object AdoQry_MainApInvoiceDate: TDateTimeField
      DisplayLabel = '发票日期'
      FieldName = 'ApInvoiceDate'
      Origin = 'ApInvoiceLog'
    end
    object AdoQry_MaInvendorB: TStringField
      DisplayLabel = '供应商标识'
      FieldName = 'VendorB'
      ReadOnly = True
      Size = 72
    end
    object AdoQry_MaincurrencyB: TStringField
      DisplayLabel = '币种标识'
      FieldName = 'currencyB'
      ReadOnly = True
      Size = 32
    end
    object AdoQry_MainEmployeeB: TStringField
      DisplayLabel = '录入员标识'
      FieldName = 'EmployeeB'
      ReadOnly = True
      Size = 90
    end
    object AdoQry_MainApInvoiceInputDate: TDateTimeField
      DisplayLabel = '录入日期'
      FieldName = 'ApInvoiceInputDate'
      Origin = 'ApInvoiceLog'
    end
    object AdoQry_MainApInvoiceAmount: TBCDField
      DisplayLabel = '总金额'
      FieldName = 'ApInvoiceAmount'
      Origin = 'ApInvoiceLog'
      Precision = 12
      Size = 2
    end
    object AdoQry_MainApInvoiceTax: TBCDField
      DisplayLabel = '税额'
      FieldName = 'ApInvoiceTax'
      Origin = 'ApInvoiceLog'
      Precision = 12
      Size = 2
    end
    object AdoQry_MainApPayFlag: TIntegerField
      DisplayLabel = '付款匹配标志'
      FieldName = 'ApPayFlag'
      Origin = 'ApInvoiceLog'
    end
    object AdoQry_MainApInvoiceRemArk: TStringField
      DisplayLabel = '备注'
      FieldName = 'ApInvoiceRemArk'
      Origin = 'ApInvoiceLog'
      Size = 150
    end
    object AdoQry_MainLogOperAtorCode: TStringField
      FieldName = 'LogOperAtorCode'
      Origin = 'ApInvoiceLog'
      Size = 30
    end
  end
  inherited DataSource: TDataSource
    OnDataChange = DataSourceDataChange
    Left = 517
    Top = 1
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 581
    Top = 1
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 549
    Top = 1
  end
end