unit11.pas

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

unit Unit11;

interface

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

type
  Tfrmdepquery = class(TForm)
    DBGrid1: TDBGrid;
    Querydepback: TQuery;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    dsgoodsquery: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    SpeedButton4: TSpeedButton;
    Edit11: TEdit;
    Edit10: TEdit;
    Label12: TLabel;
    Edit12: TEdit;
    Label13: TLabel;
    DateTimePicker1: TDateTimePicker;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmdepquery: Tfrmdepquery;

implementation
uses unit7, Unit2;
{$R *.DFM}

procedure Tfrmdepquery.FormCreate(Sender: TObject);
var
tmpsql:string;

begin
with Querydepback do
begin
databasename:='guohuabase1';
close;
sql.Clear;
tmpsql:='select * from goodsbase';
sql.add(tmpsql);
prepare;
open;
end;


end;

procedure Tfrmdepquery.SpeedButton4Click(Sender: TObject);
var
tmpsql:string;
 begin
    if (edit1.Text='') and (edit2.Text='') and (edit3.Text='') and (edit4.Text='') and (edit5.Text='') and (edit6.Text='') and (edit7.Text='') and (edit8.text='') and (edit9.Text='') and (edit10.Text='') and (edit11.Text='') and (edit12.Text='') and (datetimepicker1.DateTime>now)
    then
   begin
    showmessage('您没有输入查询条件,请输入!');
    exit;
   end;
  tmpsql:='select * from goodsbase 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)+'''';
  if edit5.Text='' then tmpsql:=tmpsql
  else tmpsql:=tmpsql+'and 等级='''+trim(edit5.text)+'''';
  if edit6.Text='' then tmpsql:=tmpsql
  else tmpsql:=tmpsql+'and 厂家='''+trim(edit6.text)+'''';
  if edit7.Text='' then tmpsql:=tmpsql
  else tmpsql:=tmpsql+'and 进价='''+trim(edit7.text)+'''';
  if edit8.Text='' then tmpsql:=tmpsql
  else tmpsql:=tmpsql+'and 售价='''+trim(edit8.text)+'''';
  if edit9.Text='' then tmpsql:=tmpsql
  else tmpsql:=tmpsql+'and 销售部门='''+trim(edit9.text)+'''';
  if edit10.Text=''then tmpsql:=tmpsql
  else tmpsql:=tmpsql+'and 当前库存>'''+trim(edit10.text)+'''';
  if edit11.Text=''then tmpsql:=tmpsql
  else tmpsql:=tmpsql+'and 备注='''+trim(edit11.text)+'''';
  if edit12.Text='' then tmpsql:=tmpsql
  else tmpsql:=tmpsql+'and 当前库存<='''+trim(edit12.text)+'''';
  with Querydepback do
       begin
       close;
       sql.clear;
       showmessage(tmpsql);
       sql.add(tmpsql);
       prepare;
       open;
       end;
  if Querydepback.Eof then
  begin
    tmpsql:='select * from goodsbase';
    Querydepback.Close;
    Querydepback.SQL.Clear;
    Querydepback.SQL.Add(tmpsql);
    Querydepback.Prepare;
    Querydepback.Open;
    showmessage('没有要查询的纪录');
    Exit;
  end;
end;

procedure Tfrmdepquery.SpeedButton1Click(Sender: TObject);
var
  tmpSql:string;
begin
    tmpSql:='delete goodsbase where id='+Trim(dbgrid1.SelectedField.Text)+'';
    showmessage(tmpSql);
    if messagedlg('此记录将从库中删除,是否继续?',mtInformation,mbYesNoCancel,0)<>mrYes then Exit
    else
    begin
    Querydepback.Close;
    Querydepback.SQL.Clear;
    Querydepback.SQL.Add(tmpSql);
    Querydepback.Prepare;
    Querydepback.ExecSQL;
    end;
    tmpSql:='select * from goodsbase';
    Querydepback.Close;
    Querydepback.SQL.Clear;
    Querydepback.SQL.Add(tmpSql);
    Querydepback.Prepare;
    Querydepback.open;
end;

procedure Tfrmdepquery.SpeedButton3Click(Sender: TObject);
begin
frmdepquery.Close;
frmsupermarket.show;
end;

end.