statistics.pas

可对供应商,顾客,商品,信息进行添加修改查询删除.可随时统计进货量和销售量,同时统计销售额和利润等.

unit Statistics;

interface

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

type
  TStatisticsFrm = class(TForm)
    Statistics_GroupBox: TGroupBox;
    FeederCounr_Label: TLabel;
    CustomerCount_Label: TLabel;
    ProductCount_Label: TLabel;
    StockCount_Label: TLabel;
    StockMoney_Label: TLabel;
    SellCount_Label: TLabel;
    SellMoney_Label: TLabel;
    FeederCount_Edit: TEdit;
    CustomerCount_Edit: TEdit;
    ProductCount_Edit: TEdit;
    StockCount_Edit: TEdit;
    StockMoney_Edit: TEdit;
    SellCount_Edit: TEdit;
    SellMoney_Edit: TEdit;
    Return_BitBtn: TBitBtn;
    procedure Return_BitBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  StatisticsFrm: TStatisticsFrm;

implementation

uses QueryFeeder, QueryCustomer, QueryProduct, Querystock, QuerySell;

{$R *.dfm}

procedure TStatisticsFrm.Return_BitBtnClick(Sender: TObject);
begin
    StatisticsFrm.Hide;
end;

procedure TStatisticsFrm.FormShow(Sender: TObject);
var StockMoneyCount,SellMoneyCount:real;
    StockCount,SellCount,i:integer;
begin
   //-------统计供应商总数------
   QueryFeederFrm.QueryFeeder_Query.active:=False;
   QueryFeederFrm.QueryFeeder_Query.active:=True;
   FeederCount_Edit.Text:=inttostr(QueryFeederFrm.QueryFeeder_Query.Recordcount);

   //-------统计顾客总数------
   QueryCustomerFrm.QueryCustomer_Query.active:=False;
   QueryCustomerFrm.QueryCustomer_Query.active:=True;
   CustomerCount_Edit.Text:=inttostr(QueryCustomerFrm.QueryCustomer_Query.Recordcount);

   //-------统计商品总数------
   QueryProductFrm.QueryProduct_Query.active:=False;
   QueryProductFrm.QueryProduct_Query.active:=True;
   ProductCount_Edit.Text:=inttostr(QueryProductFrm.QueryProduct_Query.Recordcount);


   //-------统计进货总量和进货金额------
   StockMoneyCount:=0;
   StockCount:=0;
   QueryStockFrm.QueryStock_Query.active:=False;
   QueryStockFrm.QueryStock_Query.active:=True;
   with QueryStockFrm.QueryStock_Query  do
      for i:=1 to  Recordcount  do
         begin
           StockCount:=StockCount+strtoint(Fieldbyname('Quantity').asstring);
           StockMoneyCount:=StockMoneyCount+strtoint(Fieldbyname('Quantity').asstring)*strtofloat(Fieldbyname('UnitPrice').asstring);
         end;
   StockCount_Edit.Text:=inttostr(StockCount);
   StockMoney_Edit.Text:=floattostr(StockMoneyCount)+'元';

   //-------统计销售总量和销售金额------
   SellMoneyCount:=0;
   SellCount:=0;
   QuerySellFrm.QuerySell_Query.active:=False;
   QuerySellFrm.QuerySell_Query.active:=True;
   with QuerySellFrm.QuerySell_Query  do
      for i:=1 to  Recordcount  do
         begin
           SellCount:=SellCount+strtoint(Fieldbyname('Quantity').asstring);
           SellMoneyCount:=SellMoneyCount+strtoint(Fieldbyname('Quantity').asstring)*strtofloat(Fieldbyname('UnitPrice').asstring)*strtofloat(Fieldbyname('Discount').asstring);
         end;
   SellCount_Edit.Text:=inttostr(SellCount);
   SellMoney_Edit.Text:=floattostr(SellMoneyCount)+'元';
end;

end.