unit12.pas

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

unit Unit12;

interface

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

type
  Tfrmgoodsflowquery = class(TForm)
    DBGrid1: TDBGrid;
    Querygoodsflow: TQuery;
    dsgoodsflow: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    SpeedButton1: TSpeedButton;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmgoodsflowquery: Tfrmgoodsflowquery;

implementation

uses Unit2,unit7;

{$R *.DFM}

procedure Tfrmgoodsflowquery.FormCreate(Sender: TObject);
var
tmpsql:string;
begin
 with Querygoodsflow do
begin
databasename:='guohuabase1';
close;
sql.Clear;
tmpsql:='select * from goodsflowbase';
sql.add(tmpsql);
prepare;
open;
end;
end;
procedure Tfrmgoodsflowquery.SpeedButton1Click(Sender: TObject);
begin
frmgoodsflowquery.Close;
frmsupermarket.show;
end;

procedure Tfrmgoodsflowquery.SpeedButton2Click(Sender: TObject);
var
 tmpsql:string;
begin
if (edit1.Text='') and (edit2.Text='') and (edit3.Text='') and (edit4.Text='') and (DateTimePicker1.DateTime>now)
then
     begin
     showmessage('您没有输入查询条件,请输入!');
     exit;
     end;
  tmpsql:='select * from goodsflowbase where ';

  tmpsql:=tmpsql+'操作日期='''+formatdatetime('yyyy-mm-dd',DateTimePicker1.datetime)+'''';
  if edit1.Text='' then tmpsql:=tmpsql
  else tmpsql:=tmpsql+'and 品名='''+trim(edit1.text)+'''';
  if edit2.Text='' then tmpsql:=tmpsql
  else tmpsql:=tmpsql+'and 物流方向标记='''+trim(edit2.text)+'''';
  if edit3.Text='' then tmpsql:=tmpsql
  else tmpsql:=tmpsql+'and 物流来源='''+trim(edit3.text)+'''';
  if edit4.Text='' then tmpsql:=tmpsql
  else tmpsql:=tmpsql+'and 物流目标='''+trim(edit4.text)+'''';
  with querygoodsflow do
       begin
       close;
       sql.clear;
       showmessage(tmpsql);
       sql.add(tmpsql);
       prepare;
       open;
       end;
  if querygoodsflow.Eof then
  begin

    tmpsql:='select * from goodsflowbase';
    querygoodsflow.Close;
    querygoodsflow.SQL.Clear;
    querygoodsflow.SQL.Add(tmpsql);
    querygoodsflow.Prepare;
    querygoodsflow.Open;
    showmessage('没有要查询的纪录');
    Exit;
  end;
end;



end.