checkhanding.pas

来自「PosEasy收银系统源码,Pos机前后台管理代码」· PAS 代码 · 共 79 行

unit checkhanding;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;

type
  Tcheckhandfm = class(TForm)
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Label1: TLabel;
    Edit1: TEdit;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    PrinterSetupDialog1: TPrinterSetupDialog;
    SpeedButton5: TSpeedButton;
    Database1: TDatabase;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  checkhandfm: Tcheckhandfm;

implementation

{$R *.DFM}

procedure Tcheckhandfm.SpeedButton3Click(Sender: TObject);
var
 total : real;
begin
 total:=0;
 query1.first;
 while not query1.eof do
 begin
  total:=total+query1.fieldbyname('msum').asinteger;
  query1.next;
 end;
  edit1.text:=floattostr(total);
end;

procedure Tcheckhandfm.SpeedButton1Click(Sender: TObject);
begin
query1.next;
end;

procedure Tcheckhandfm.SpeedButton2Click(Sender: TObject);
begin
query1.Prior ;
end;

procedure Tcheckhandfm.SpeedButton4Click(Sender: TObject);
begin
{print}
end;

procedure Tcheckhandfm.SpeedButton5Click(Sender: TObject);
begin
 checkhandfm.close;
 checkhandfm.Release ;
end;

end.