ap_qry_purchasepaymentpdetail.dfm

一个MRPII系统源代码版本

inherited Frm_Ap_Qry_PurchasePaymentPDetail: TFrm_Ap_Qry_PurchasePaymentPDetail
  Left = 45
  Top = 115
  Caption = '采购付款明细表'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商代码'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商标识'
          Width = 260
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Paydate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款日期'
          Width = 75
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayInputdate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '记帐日期'
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币代码'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyCodemame'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币标识'
          Width = 86
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款金额'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayAmountC'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款金额   (本位币)'
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayModeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款方式'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayModeB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款方式'
          Width = 102
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayBillno'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款凭证号'
          Width = 98
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArkNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '参考号'
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '录入员标识'
          Width = 88
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayremArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 613
    Top = 3
  end
  inherited ActionList: TActionList
    Left = 432
    Top = 0
  end
  inherited AdoQry_Main: TAdoQuery
    CacheSize = 100
    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 PayJournal.VendorCode'
      '       , PayJournal.VendorCode+'#39' '#39'+Vendor.VendorName as VendorB'
      '       ,PayJournal.EmployeeCode'
      
        '       ,PayJournal.EmployeeCode+'#39' '#39'+Employee.EmployeeName  as em' +
        'ployeeCodeName'
      '       ,PayJournal.currencyCode'
      
        '       ,PayJournal.currencyCode+'#39' '#39'+currency.currencyName as cur' +
        'rencyCodemame'
      '       ,PayJournal.Paydate'
      '       ,PayJournal.PayInputdate'
      '       ,PayJournal.PayremArk'
      '       ,PayJournal.PayAmount'
      '       ,PayJournal.PayAmountC'
      '       , PayJournal.PayModeCode'
      
        '       , PayJournal.PayModeCode+'#39' '#39'+PayMode.PayModeName as Paymo' +
        'deB'
      
        '       ,PayJournal.PayModeCode+'#39' '#39'+PayMode.PayModeName as Paymod' +
        'eB'
      '       ,PayJournal.PayBillno'
      '       ,PayJournal.RemArkNo '
      'from PayJournal'
      '   join Vendor on PayJournal.VendorCode=Vendor.VendorCode'
      '   join PayMode on PayJournal.PayModeCode=PayMode.PayModeCode '
      
        '   join Employee on PayJournal.EmployeeCode=Employee.Employeecod' +
        'e'
      
        '   join currency on PayJournal.currencyCode=currency.currencycod' +
        'e'
      ' Order by PayJournal.VendorCode')
    Left = 544
    Top = 1
    object AdoQry_MaInvendorCode: TStringField
      FieldName = 'VendorCode'
      Origin = 'Vendor'
      Size = 12
    end
    object AdoQry_MaInvendorB: TStringField
      FieldName = 'VendorB'
      ReadOnly = True
      Visible = False
      Size = 73
    end
    object AdoQry_MainPaydate: TDateTimeField
      FieldName = 'Paydate'
      Origin = 'PayJournal'
    end
    object AdoQry_MainPayInputdate: TDateTimeField
      FieldName = 'PayInputdate'
      Origin = 'PayJournal'
    end
    object AdoQry_MaincurrencyCode: TStringField
      FieldName = 'currencyCode'
      Origin = 'currency'
      Size = 2
    end
    object AdoQry_MainRemArkNo: TStringField
      FieldName = 'RemArkNo'
      Origin = 'PayJournal'
    end
    object AdoQry_MainPayAmount: TFloatField
      FieldName = 'PayAmount'
      Origin = 'PayJournal'
    end
    object AdoQry_MainPayModeCode: TStringField
      FieldName = 'PayModeCode'
      Origin = 'PayJournal'
      Size = 4
    end
    object AdoQry_MainPayBillno: TStringField
      FieldName = 'PayBillno'
      Origin = 'PayJournal'
    end
    object AdoQry_MainEmployeeCode: TStringField
      FieldName = 'EmployeeCode'
      Origin = 'Employee'
      Size = 30
    end
    object AdoQry_MainEmployeeCodeName: TStringField
      FieldName = 'EmployeeCodeName'
      ReadOnly = True
      Visible = False
      Size = 91
    end
    object AdoQry_MaincurrencyCodemame: TStringField
      FieldName = 'currencyCodemame'
      ReadOnly = True
      Visible = False
      Size = 33
    end
    object AdoQry_MainPayremArk: TStringField
      FieldName = 'PayremArk'
      Origin = 'PayJournal'
      Size = 40
    end
    object AdoQry_MainPayModeB: TStringField
      FieldName = 'PayModeB'
      ReadOnly = True
      Visible = False
      Size = 35
    end
    object AdoQry_MainPayAmountC: TFloatField
      FieldName = 'PayAmountC'
      Origin = 'PayJournal'
    end
  end
  inherited DataSource: TDataSource
    Left = 576
    Top = 1
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 512
    Top = 1
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 472
    Top = 1
  end
end