more.pas

企业库存管理系统

unit more;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DB, ADODB, StdCtrls, Buttons;

type
  Tmorefrm = class(TForm)
    StringGrid1: TStringGrid;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  morefrm: Tmorefrm;

implementation
 uses main;
{$R *.dfm}

procedure Tmorefrm.FormCreate(Sender: TObject);
var productid,sumquantity:string;
i,j,flag: integer;
begin
  flag:=0;
  with adoquery1 do
   begin
   close;
   sql.Clear;
   sql.Add('select sum(quantity) sumquantity,productid from STORAGE group by productid');
   open;
   first;
   for i:=1 to recordcount do
    begin
     productid:=fieldbyname('productid').AsString;
     sumquantity:=fieldbyname('sumquantity').AsString;
     with adoquery2 do
      begin
      close;
      sql.Clear;
      sql.Add('select * from PRODUCT where convert(varchar,productid)='+''''+productid+'''');
      sql.Add('and max_sto<convert(float,'+''''+sumquantity+''''+')') ;
      open;
      j:=1;
      if recordcount<>0 then
      with stringgrid1 do
      begin
      cells[0,j]:=fieldbyname('productid').asstring;
      cells[1,j]:=fieldbyname('productname').asstring;
      cells[2,j]:=fieldbyname('class').asstring;
      cells[3,j]:=fieldbyname('spec').asstring;
      cells[4,j]:=fieldbyname('unit').asstring;
      cells[5,j]:=fieldbyname('max_sto').asstring;
      cells[6,j]:=adoquery1.fieldbyname('sumquantity').asstring;
      flag:=1;
      j:=j+1;
      end;
      end;
      next;
    end;
    end;
    if flag=1 then
    showmessage('没有超储货品!');


end;

procedure Tmorefrm.BitBtn1Click(Sender: TObject);
begin
 mainfrm.Show;
end;

end.