short.~pas

企业库存管理系统

unit short;

interface

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

type
  Tshortfrm = class(TForm)
    StringGrid1: TStringGrid;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    Panel1: TPanel;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  shortfrm: Tshortfrm;

implementation
   uses main;
{$R *.dfm}

procedure Tshortfrm.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 min_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('min_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 Tshortfrm.BitBtn2Click(Sender: TObject);
begin
mainfrm.Show;
shortfrm.Hide;
end;

end.