ap_qry_currentap.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 71 行

unit Ap_Qry_CurrentAp;
//
Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Outer, Menus, ExtPrintReport, Db, ActnList, AdODB, Grids, DBGridEh,
  StdCtrls, ExtCtrls, ComCtrls, ToolWin, jpeg;

Type
  TFrm_Ap_Qry_CurrentAp = Class(TFrm_Base_Outer)
    AdoQry_MaInvendorB: TStringField;
    AdoQry_MaincurrencyB: TStringField;
    AdoQry_MainApNoInvoice: TBCDField;
    AdoQry_MainApInvoiced: TBCDField;
    AdoQry_MainTotal: TBCDField;
    AdoQry_MaInvendorCode: TStringField;
    procedure FormDestroy(Sender: TObject);
    procedure Act_FilterExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;    
  end;

var
  Frm_Ap_Qry_CurrentAp: TFrm_Ap_Qry_CurrentAp;

implementation
{$R *.DFM}

{ TFrm_Ap_Qry_CurrentAp }

procedure TFrm_Ap_Qry_CurrentAp.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  Act_Filter.Enabled :=False;
  Act_Filter.Visible :=False;
  {SelectFromSql:='select CurrentAp.VendorCode,'+
                       ' CurrentAp.VendorCode+'' ''+Vendor.VendorName as VendorB,'+
                       ' CurrentAp.currencyCode+'' ''+currency.currencyName as currencyB,'+
                       ' CurrentAp.ApNoInvoice,'+
                       ' CurrentAp.ApInvoiced,'+
                       ' CurrentAp.ApNoInvoice+CurrentAp.ApInvoiced as Total'+
                ' from CurrentAp'+
                ' left join currency on CurrentAp.currencyCode=currency.currencyCode'+
                ' left join Vendor on CurrentAp.VendorCode=Vendor.VendorCode';}
  SelectFromSql:='exec GetCurrNoPayAndPay'  ;
  OrderByFields:='VendorB';

  PriceFields:='ApNoInvoice,ApInvoiced,Total,';
  Getdata;
end;

procedure TFrm_Ap_Qry_CurrentAp.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Ap_Qry_CurrentAp:=nil;
end;

procedure TFrm_Ap_Qry_CurrentAp.Act_FilterExecute(Sender: TObject);
begin
  abort;
  inherited;

end;

end.