inv_averagepriceqry.pas

一个MRPII系统源代码版本

unit Inv_AveragePriceQry;

Interface

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

Type
  TFrm_Inv_AveragePriceQry = Class(TFrm_Base_Qry)
    Label1: TLabel;
    DBText1: TDBText;
    procedure FormShow(Sender: TObject);
    procedure Act_FilterExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
  end;

var
  Frm_Inv_AveragePriceQry: TFrm_Inv_AveragePriceQry;

implementation
 uses Sys_SortOrder;
{$R *.DFM}

procedure TFrm_Inv_AveragePriceQry.InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);
var
  i:integer;
begin
  inherited;
  Frm_Sys_SortOrder:=TFrm_Sys_SortOrder.Create(self);
  OrderByFields:='ItemCode,whCode,';
  lbl_Order.Caption :='物料标识／仓库标识';
  ConditionUserDefine:='(AveragePrice.whCode not in (select whCode from Warehouse where PriceType=1))';
  PriceFields:='ApAmount,';
  SelectFromSQL:='select AveragePrice.whCode+'''+' '+'''+Warehouse.whName whCode,'+
              'AveragePrice.ItemCode+'''+' '+'''+Uom.ItemName ItemCode,'+
              'AveragePrice.AveragePrice,'+
              'AveragePrice.Apqty,'+
              'AveragePrice.ApAmount,Uom.UomName '+
          'from AveragePrice '+
          'left join (select Item.ItemCode,Item.ItemName,UomName from Item,Uom where Item.UomCode=Uom.UomCode) Uom'+
          ' on  AveragePrice.ItemCode=Uom.ItemCode'+
          '       left join Warehouse on AveragePrice.whCode=Warehouse.whCode';
  AdoQry_Main.DisableControls ;
  AdoQry_Main.Active :=True;
  for i:=0 to dbgrideh.Columns.Count-1 do
  begin
    if dbgrideh.Columns[i].FieldName='UomName' then
      dbgrideh.Columns[i].Field.Origin:='Uom'
    else
      dbgrideh.Columns[i].Field.Origin:='AveragePrice'
  end;
//  Act_Filter.Execute;
//  if Frm_Sys_Condition.ModalResult<>idOK then
//  AdoQry_Main.Active :=False;
  AdoQry_Main.EnableControls ;
end;

procedure TFrm_Inv_AveragePriceQry.FormShow(Sender: TObject);
begin
  inherited;
  TlBtn_Look.Enabled :=False;
  TlBtn_Look.Visible :=False;

end;

procedure TFrm_Inv_AveragePriceQry.Act_FilterExecute(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to dbgrideh.Columns.Count-1 do
  begin
    if dbgrideh.Columns[i].FieldName='UomName' then
      dbgrideh.Columns[i].Field.Origin:='Uom'
    else
      dbgrideh.Columns[i].Field.Origin:='AveragePrice'
  end;

  inherited;


end;

end.