ap_enter_purchasepaymenth.dfm

一个MRPII系统源代码版本

inherited Frm_Ap_Enter_PurchasePaymenth: TFrm_Ap_Enter_PurchasePaymenth
  Left = -2
  Top = 109
  Caption = '采购付款及核销发票'
  Windowstate = wsMaximized
  OnDestroy = FormDestroy
  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 = 114
      Caption = '供应商代码/付款日期'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      OnDblClick = Act_ModifyExecute
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商代码'
          Width = 83
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商名称'
          Width = 236
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayBillNO'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款单据号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArkNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '参考号码'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayDATE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款日期'
          Width = 74
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayInputdate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '记帐日期'
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayModeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款方式代码'
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayModeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款方式名称'
          Width = 88
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CURRENCYCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币代码'
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币名称'
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ExchRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '汇率'
          Width = 44
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '金额'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayRemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '系统建档人员代码'
          Width = 102
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '系统建档人员名称'
          Width = 103
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '系统建档日期'
          Width = 85
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 709
    Top = 3
  end
  inherited ActionList: TActionList
    Left = 568
    Top = 0
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=ExtDAT' +
      'ASERVER'
    SQL.Strings = (
      'select PayJournal.*,'
      '        '
      '                 Vendor.VendorName,'
      '                 PayMode.PayModeName ,'
      '                 currency.currencyName,'
      '                 Employee.EmployeeName'
      '                 from PayJournal left join Vendor '
      '                 on PayJournal.VendorCode=Vendor.VendorCode '
      '                 left join PayMode '
      '                 on PayJournal.PayModeCode=PayMode.PayModeCode '
      '                 left join currency '
      
        '                 on PayJournal.currencyCode=currency.currencycod' +
        'e join '
      
        '                Employee on Employee.EmployeeCode=PayJournal.EMP' +
        'LOYEECode')
    Left = 608
    Top = 1
    object AdoQry_HeadPayJournalID: TFloatField
      FieldName = 'PayJournalID'
      ReadOnly = True
    end
    object AdoQry_HeadVendorCode: TStringField
      FieldName = 'VendorCode'
      Origin = 'PayJournal'
      Size = 12
    end
    object AdoQry_HeadCURRENCYCode: TStringField
      FieldName = 'CURRENCYCode'
      Origin = 'PayJournal'
      Size = 3
    end
    object AdoQry_HeadEmployeeCode: TStringField
      FieldName = 'EmployeeCode'
      Origin = 'PayJournal'
      Size = 30
    end
    object AdoQry_HeadPayModeCode: TStringField
      FieldName = 'PayModeCode'
      Origin = 'PayJournal'
      Size = 4
    end
    object AdoQry_HeadPayDATE: TDateTimeField
      FieldName = 'PayDATE'
      Origin = 'PayJournal'
    end
    object AdoQry_HeadPayAmount: TFloatField
      FieldName = 'PayAmount'
      Origin = 'PayJournal'
    end
    object AdoQry_HeadPayBillNO: TStringField
      FieldName = 'PayBillNO'
      Origin = 'PayJournal'
    end
    object AdoQry_HeadPayRemArk: TStringField
      FieldName = 'PayRemArk'
      Origin = 'PayJournal'
      Size = 40
    end
    object AdoQry_HeadPayInputdate: TDateTimeField
      FieldName = 'PayInputdate'
      Origin = 'PayJournal'
    end
    object AdoQry_HeadRemArkNo: TStringField
      FieldName = 'RemArkNo'
      Origin = 'PayJournal'
    end
    object AdoQry_HeadExchRate: TFloatField
      FieldName = 'ExchRate'
      Origin = 'PayJournal'
    end
    object AdoQry_HeadPayAmountC: TFloatField
      FieldName = 'PayAmountC'
      Origin = 'PayJournal'
    end
    object AdoQry_HeadCreateDate: TDateTimeField
      FieldName = 'CreateDate'
      Origin = 'PayJournal'
    end
    object AdoQry_HeadCreateEmployeeCode: TStringField
      FieldName = 'CreateEmployeeCode'
      Origin = 'PayJournal'
      Size = 30
    end
    object AdoQry_HeadEditDate: TDateTimeField
      FieldName = 'EditDate'
      Origin = 'PayJournal'
    end
    object AdoQry_HeadEdItEmployeeCode: TStringField
      FieldName = 'EdItEmployeeCode'
      Origin = 'PayJournal'
      Size = 30
    end
    object AdoQry_HeadISCredence: TIntegerField
      FieldName = 'ISCredence'
      Origin = 'PayJournal'
    end
    object AdoQry_HeadVendorName: TStringField
      FieldName = 'VendorName'
      Origin = 'Vendor'
      Size = 60
    end
    object AdoQry_HeadPayModeName: TStringField
      FieldName = 'PayModeName'
      Origin = 'PayMode'
      Size = 30
    end
    object AdoQry_HeadcurrencyName: TStringField
      FieldName = 'currencyName'
      Origin = 'currency'
      Size = 30
    end
    object AdoQry_HeadEmployeeName: TStringField
      FieldName = 'EmployeeName'
      Origin = 'Employee'
      Size = 60
    end
  end
  inherited DataSource: TDataSource
    Left = 640
    Top = 1
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 672
    Top = 1
  end
end