ap_qry_aptotalofvendor.pas

一个MRPII系统源代码版本

unit Ap_Qry_ApTotalOfVendor;

Interface

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

Type
  TFrm_Ap_Qry_ApTotalOfVendor = Class(TFrm_Base_Qry)
    AdoQry_MaInvendorCode: TStringField;
    AdoQry_MaInvendorB: TStringField;
    AdoQry_MaincurrencyCode: TStringField;
    AdoQry_MaincurrencyB: TStringField;
    AdoQry_MainApNoInvoice: TFloatField;
    AdoQry_MainApInvoiced: TFloatField;
    AdoQry_MainTotal: TFloatField;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure DataSourceDataChange(Sender: TObject; Field: TField);
    procedure Act_PreviewExecute(Sender: TObject);
    procedure Act_PrintExecute(Sender: TObject);
    procedure Act_ExcelExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
  end;

var
  Frm_Ap_Qry_ApTotalOfVendor: TFrm_Ap_Qry_ApTotalOfVendor;

implementation

{$R *.DFM}

{ TFrm_Ap_Qry_ApTotalOfVendor }

procedure TFrm_Ap_Qry_ApTotalOfVendor.InitForm(
  AdOConnection: TAdOConnection; ShowExtendColumn: Boolean);
begin
  inherited;
  Act_Filter.Enabled :=False;
  Act_Filter.Visible :=False;
  {SelectFromSql:='select CurrentAp.VendorCode,'+
                       ' CurrentAp.VendorCode+'' ''+Vendor.VendorName as VendorB,'+
                       ' CurrentAp.currencyCode,'+
                       ' 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_ApTotalOfVendor.FormCreate(Sender: TObject);
begin
  inherited;
  Pnl_Title.Caption:='应付帐款汇总表-按供应商';
  Lbl_Condition.Caption :='全部';
  Lbl_Order.Caption :='供应商代码';
end;

procedure TFrm_Ap_Qry_ApTotalOfVendor.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Ap_Qry_ApTotalOfVendor:=nil;
end;

procedure TFrm_Ap_Qry_ApTotalOfVendor.DataSourceDataChange(Sender: TObject;
  Field: TField);
begin
  inherited;
  //Pnl_Hint.Caption:='提示：查到记录数: '+inttostr(AdoQry_Main.recordCount);
end;

procedure TFrm_Ap_Qry_ApTotalOfVendor.Act_PreviewExecute(Sender: TObject);
begin
  If AdoQry_Main.IsEmpty then Exit;
  inherited;

end;

procedure TFrm_Ap_Qry_ApTotalOfVendor.Act_PrintExecute(Sender: TObject);
begin
  If AdoQry_Main.IsEmpty then Exit;
  inherited;

end;

procedure TFrm_Ap_Qry_ApTotalOfVendor.Act_ExcelExecute(Sender: TObject);
begin
  If AdoQry_Main.IsEmpty then Exit;
  inherited;

end;

end.