inv_defaultwhanalyze.pas

一个MRPII系统源代码版本

unit Inv_DefaultWhAnalyze;

Interface

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

Type
  TFrm_Inv_DefaultWhAnalyze = Class(TFrm_Base_Qry)
    AdODataSet_Main: TAdODataSet;
    lbl_RecordCount: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Act_nextExecute(Sender: TObject);
  private
    { Private declarations }
  public
    procedure InitForm(Adoconnect:TAdoConnection);
    { Public declarations }
  end;

var
  Frm_Inv_DefaultWhAnalyze: TFrm_Inv_DefaultWhAnalyze;

implementation
uses Inv_QueryStatus;
{$R *.DFM}

{ TFrm_Inv_DefaultWhAnalyze }

procedure TFrm_Inv_DefaultWhAnalyze.InitForm(Adoconnect: TAdoConnection);
begin
  AdODataSet_Main.Connection:=Adoconnect;
  AdoQry_Main.Connection:=Adoconnect;
  AdoQry_Tmp.Connection:=Adoconnect;
  Frm_Inv_QueryStatus.setfocus;
  act_next.Execute;
end;

procedure TFrm_Inv_DefaultWhAnalyze.FormCreate(Sender: TObject);
begin
  inherited;
  TlBtn_Look.Action:=act_next;
  act_next.Visible:=False;
  Frm_Inv_QueryStatus:=TFrm_Inv_QueryStatus.Create(Application);
  Frm_Inv_QueryStatus.Show;
  Frm_Inv_QueryStatus.refresh;
end;

procedure TFrm_Inv_DefaultWhAnalyze.Act_nextExecute(Sender: TObject);
var
  sql_txt:string;
begin
  inherited;
  sql_Txt:='select I.ItemCode+'' ''+I.ItemName 物料标识 ,'+
           'I.whCode+'' ''+W1.whName 缺省仓库,'+
           'C.whCode+'' ''+W2.whName 当前仓库,'+
           '  c.InvQty 库存数量 '+
           '  from Item I '+
           '  Left Join (select sum(OnhandInv+'+
           '                    OnCheckInv+'+
           '                    FreezeInv+'+
           '                    wasterInv+'+
           '                    OnShipInv) InvQty,ItemCode,WhCode '+
           '               from CurrentInv '+
           '             group By ItemCode,whCode)c '+
           '         on c.ItemCode=I.ItemCode '+
           '  Left Join Warehouse w1 on I.whCode=w1.whCode '+
           '  Left Join Warehouse w2 on C.whCode=w2.whCode '+
           '     where I.whCode<>C.whCode and c.InvQty<>0 '+
           '    Order by I.ItemCode ';
  with AdODataSet_Main do
  begin
    CommandTimeout:=0;
    Close;
    CommandText:=sql_txt;
    Open;
    lbl_RecordCount.Caption:=inttostr(RecordCount);
  end;
  with DBGridEh do
  begin
    TFloatField(AdODataSet_Main.Fields[3]).displayFormat:='0.##';
    columns[0].Width:=350;
    columns[1].Width:=150;
    columns[2].Width:=150;
    columns[3].Width:=60;
    Frm_Inv_QueryStatus.Close;
    frozencols:=3;
    Refresh;
  end;
end;

end.