overproduct.pas

完整的delphi书籍源代码,大家有空的时候自己慢慢看看

unit OverProduct;

interface

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

type
  TOverProductFrm = class(TForm)
    GroupBox1: TGroupBox;
    StringGrid1: TStringGrid;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OverProductFrm: TOverProductFrm;

implementation

{$R *.dfm}



procedure TOverProductFrm.FormCreate(Sender: TObject);

begin

     with stringgrid1 do
       begin
        cells[0,0]:='货品编号';
        cells[1,0]:='货品名称';
        cells[2,0]:='货品类型';
        cells[3,0]:='货品规格';
        cells[4,0]:='计量单位';
        cells[5,0]:='高线库存';
        cells[6,0]:='实际库存';
       end;
end;

procedure TOverProductFrm.FormShow(Sender: TObject);
var ProductID,SumQuantity:string;
    i,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+''''+'and Max_sto< convert(float,'+''''+SumQuantity+''''+')');
            open;
            if recordcount<>0 then
            with stringgrid1 do
             begin
              cells[0,i]:=fieldbyname('ProductID').asstring;
              cells[1,i]:=fieldbyname('ProductName').asstring;
              cells[2,i]:=fieldbyname('Class').asstring;
              cells[3,i]:=fieldbyname('Spec').asstring;
              cells[4,i]:=fieldbyname('Unit').asstring;
              cells[5,i]:=fieldbyname('Max_sto').asstring;
              cells[6,i]:=Adoquery1.fieldbyname('SumQuantity').asstring;
              flag:=1;
             end;
           end;
         next;
       end; //for
     end;  //query

  if flag<>1 then
  showmessage('没有超储货品！');

end;

procedure TOverProductFrm.Button1Click(Sender: TObject);
begin
    OverProductFrm.hide;
end;

end.