unit4.pas

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

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    Database1: TDatabase;
    PrintAtOnce1: TPrintAtOnce;
    Image1: TImage;
    DateTimePicker1: TDateTimePicker;
    CheckBox1: TCheckBox;
    bitbtn3: TSpeedButton;
    bitbtn1: TSpeedButton;
    bitbtn2: TSpeedButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.DFM}

procedure TForm4.BitBtn1Click(Sender: TObject);
var
 tmpsql:string;
begin
 if checkbox1.Checked=true then
 begin
  tmpsql:='select 品名,牌号,规格,分类编码,损耗限额比,部门编码,库存数量,进货数量,销售数量,';
  tmpsql:=tmpsql+'盘库结果,盘库差额,操作日期,经手人,备注,(库存数量*损耗限额比-盘库差额) as 损耗  into #tmpdata from goodscheckbase';
  with query1 do
  begin
   close;
   sql.clear;
   sql.add(tmpsql);
   prepare;
   execsql;
  end;
  tmpsql:='select * from #tmpdata where 损耗<0 and 操作日期>'''+formatdatetime('yyyy-mm-dd',datetimepicker1.date)+'''';
 end
 else
 begin
  tmpsql:='select * from GoodsCheckBase where 操作日期>'''+formatdatetime('yyyy-mm-dd',datetimepicker1.date)+'''';
 end;
 with query1 do
 begin

  close;
  sql.clear;
  sql.add(tmpsql);
  prepare;
  open;
 end;
end;

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
 form4.close;
 form4.Release;
end;

procedure TForm4.BitBtn3Click(Sender: TObject);
begin
 printatonce1.Preview;
end;

end.