sal_qry_salecontract.pas

一个MRPII系统源代码版本

unit Sal_Qry_SaleContract;

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_Sal_Qry_SaleContract = Class(TFrm_Base_Qry)
    AdoQry_MaincustomerCode: TStringField;
    AdoQry_MaincustomerName: TStringField;
    AdoQry_Maincustomerflag: TStringField;
    AdoQry_Mainslcno: TStringField;
    AdoQry_Mainslclineno: TIntegerField;
    AdoQry_Mainslcdate: TDateTimeField;
    AdoQry_Mainlinestatus: TIntegerField;
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MainItemflag: TStringField;
    AdoQry_MainstArtdate: TDateTimeField;
    AdoQry_Mainenddate: TDateTimeField;
    AdoQry_MainstArtqty: TFloatField;
    AdoQry_Mainendqty: TFloatField;
    AdoQry_MainnotaxPrice: TFloatField;
    AdoQry_MaintaxPrice: TFloatField;
    AdoQry_MainreferencedPrice: TIntegerField;
    AdoQry_Maintaxrate: TStringField;
    AdoQry_MaincurrencyCode: TStringField;
    AdoQry_MaincurrencyName: TStringField;
    AdoQry_Maincurrencyflag: TStringField;
    AdoQry_MainslclineremArk: TStringField;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Sal_Qry_SaleContract: TFrm_Sal_Qry_SaleContract;

implementation
 uses Sys_Global;
{$R *.DFM}
procedure TFrm_Sal_Qry_SaleContract.InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);
var sqltext:string;
begin
  Application.ProcessMessages;
  inherited;
  sqltext:='select t1.customerCode,    '
         +'        customer.customerName,   '
         +'        t1.customerCode+'' ''+customer.customerName as customerflag, '
         +'        t2.slcno,          '
         +'        t2.slclineno,      '
         +'        t1.slcdate,        '
         +'        t2.linestatus,     '
         +'        t2.ItemCode,       '
         +'        Item.ItemName,     '
         +'        t2.ItemCode+'' ''+Item.ItemName as Itemflag,  '
         +'        t2.stArtdate,      '
         +'        t2.enddate,        '
         +'        t2.stArtqty,       '
         +'        t2.endqty,         '
         +'        t2.notaxPrice,     '
         +'        t2.taxPrice,       '
         +'        t2.referencedPrice,'
         +'        taxrate=convert(varchAr,t1.taxrate_Percent),  '
         +'        t1.currencyCode,        '
         +'        currency.currencyName,  '
         +'        t1.currencyCode+'' ''+currency.currencyName as currencyflag, '
         +'        t2.slclineremArk          '
         +' into #tMpslclineQry  '
         +' from  sa_SaleContractline t2     '
         +' join  sa_SaleContract t1 on t2.slcno=t1.slcno     '
         +' left outer join  customer on t1.customerCode=customer.customerCode '
         +' left outer join  Item on t2.ItemCode=Item.ItemCode           '
         +' left outer join  currency on t1.currencyCode=currency.currencyCode ';
  selectfromsql:='select * from #tMpslclineQry';
  Orderbyfields:='customerCode,slcno';
  Executesql(AdoQry_Main,sqltext,1);
  Executesql(AdoQry_Main,'select * from #tMpslclineQry',0);
end;

procedure TFrm_Sal_Qry_SaleContract.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Sal_Qry_SaleContract:=nil;
end;

procedure TFrm_Sal_Qry_SaleContract.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  try
    Executesql(AdoQry_tmp,'drop table #tMpslclineQry',1);
  except
  end;
end;

end.