ap_qry_payjournallog.dfm

一个MRPII系统源代码版本

inherited Frm_Ap_Qry_PayJournalLog: TFrm_Ap_Qry_PayJournalLog
  Left = 60
  Top = 125
  Caption = '采购付款日志'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '采购付款操作日志'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Left = 78
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Left = 78
      Width = 48
      Caption = '操作日期'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          FieldName = 'logdate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 121
          KeyList.Strings = ()
        end
        Item
          FieldName = 'logoperatorB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 129
          KeyList.Strings = ()
        end
        Item
          FieldName = 'LogAction'
          PickList.Strings = (
            '增加'
            '修改'
            '删除')
          Title.Alignment = taCenter
          Width = 48
          KeyList.Strings = (
            'A'
            'M'
            'D')
        end
        Item
          FieldName = 'VendorB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 237
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 75
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 96
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayModeB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 84
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Paydate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayBillno'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayremArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'logOperatorCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作员代吗'
          Visible = False
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 200
    Top = 208
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = ''
    CurSorType = ctStatic
    SQL.Strings = (
      'select PayJournalLog.logdate,'
      '                PayJournalLog.logOperatorCode,'
      
        '                PayJournalLog.logOperatorCode+'#39' '#39'+Employee.emplo' +
        'yeeName as logoperatorB,'
      '                PayJournalLog.LogAction,'
      
        '                PayJournalLog.VendorCode+'#39' '#39'+Vendor.VendorName  ' +
        'as VendorB,'
      
        '                PayJournalLog.CurrencyCode+'#39' '#39'+currency.currency' +
        'Name as currencyB,'
      
        '                PayJournalLog.EmployeeCode+'#39' '#39'+Employee.Employee' +
        'Name as EmployeeB,'
      
        '                PayJournalLog.PayModeCode+'#39' '#39'+PayMode.PayModenam' +
        'e as PayModeB,'
      '                PayJournalLog.Paydate,'
      '                PayJournalLog.PayAmount,'
      '                PayJournalLog.PayBillno,'
      '                PayJournalLog.PayremArk'
      '         from PayJournalLog'
      
        '         left join Employee on  PayJournalLog.logoperatorCode=em' +
        'ployee.EmployeeCode'
      
        '         left join Vendor on PayJournalLog.VendorCode=Vendor.ven' +
        'dorCode'
      
        '         left join currency on PayJournalLog.currencyCode=curren' +
        'cy.currencyCode'
      
        '         left join PayMode on PayJournalLog.PayModeCode=PayMode.' +
        'PayModeCode')
    Left = 312
    Top = 169
    object AdoQry_Mainlogdate: TDateTimeField
      DisplayLabel = '更改日期'
      FieldName = 'logdate'
      Origin = 'PayJournalLog'
    end
    object AdoQry_MainlogOperatorCode: TStringField
      FieldName = 'logOperatorCode'
      Origin = 'PayJournalLog'
      Size = 30
    end
    object AdoQry_MainlogoperatorB: TStringField
      DisplayLabel = '更改人标识'
      FieldName = 'logoperatorB'
      ReadOnly = True
      Size = 90
    end
    object AdoQry_MainLogAction: TStringField
      DisplayLabel = '动作'
      FieldName = 'LogAction'
      Origin = 'PayJournalLog'
      FixedChAr = True
      Size = 1
    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_MainPayModeB: TStringField
      DisplayLabel = '付款方式标识'
      FieldName = 'PayModeB'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_MainPaydate: TDateTimeField
      DisplayLabel = '付款日期'
      FieldName = 'Paydate'
      Origin = 'PayJournalLog'
    end
    object AdoQry_MainPayAmount: TBCDField
      DisplayLabel = '金额'
      FieldName = 'PayAmount'
      Origin = 'PayJournalLog'
      Precision = 12
      Size = 2
    end
    object AdoQry_MainPayBillno: TStringField
      DisplayLabel = '结算单据号'
      FieldName = 'PayBillno'
      Origin = 'PayJournalLog'
    end
    object AdoQry_MainPayremArk: TStringField
      DisplayLabel = '备注'
      FieldName = 'PayremArk'
      Origin = 'PayJournalLog'
      Size = 40
    end
  end
  inherited DataSource: TDataSource
    OnDataChange = DataSourceDataChange
  end
end