unit13.pas

用于开发税务票据管理的软件

unit Unit13;

interface

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

type
//用于统计库存，生成报表，由库存查询窗体继承而来；
  TForm13 = class(TForm11)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation

{$R *.dfm}
uses unit14;
procedure TForm13.FormCreate(Sender: TObject);
begin
inherited;
self.Button1.Show;
self.Button2.Show;
form14.rep2.DataSet:=self.db2;
form14.QRDBText1.DataSet:=self.db2;
form14.QRDBText2.DataSet:=self.db2;
form14.QRDBText3.DataSet:=self.db2;
form14.QRDBText4.DataSet:=self.db2;
end;
procedure TForm13.Button1Click(Sender: TObject);
var count:integer;//数量
    values:double;//总价
begin
count:=0;
values:=0;
db2.First;
while not db2.Eof do
begin
count:=count+db2.FieldValues['数量'];
values:=values+db2.FieldValues['进价']*db2.FieldValues['数量'];
db2.Next;
end;
showmessage('库存情况如下:'+#13+
            '共有台数:'+inttostr(count)+#13+
            '总共价值:'+floattostr(values)+#13);
form14.rep2.Preview;
end;
procedure TForm13.Button2Click(Sender: TObject);
begin
form14.rep2.Print;
end;
end.