checkgoods.pas

PosEasy收银系统源码,Pos机前后台管理代码

unit checkgoods;

interface

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

type
  Tcheckgoodsfm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    Label1: TLabel;
    Edit1: TEdit;
    PrinterSetupDialog1: TPrinterSetupDialog;
    Database1: TDatabase;
    
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  checkgoodsfm: Tcheckgoodsfm;

implementation

{$R *.DFM}

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

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

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

procedure Tcheckgoodsfm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 query1.open;
end;

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

procedure Tcheckgoodsfm.SpeedButton5Click(Sender: TObject);
begin
  checkgoodsfm.Close;
  checkgoodsfm.Release ;
end;

end.