unitshowlike.pas

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

unit Unitshowlike;

interface

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

type
  Tfrmshowlike = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmshowlike: Tfrmshowlike;

implementation

uses Unitsupplier;

{$R *.DFM}

procedure Tfrmshowlike.FormCreate(Sender: TObject);
var
  tmpsql:string;
begin
  if (frmaddnewgoods.ComboBox3.Text='男服') or (frmaddnewgoods.ComboBox3.Text='女服') or (frmaddnewgoods.ComboBox3.Text='童装')
  then tmpsql:='select distinct 条码,品名,牌号,规格,售价 from goodsbase where 牌号 like ''%'+trim(frmaddnewgoods.edpaihao.Text)+'%'' and  规格 like ''%'+trim(frmaddnewgoods.Edguige.Text)+'%'' and 售价='+(frmaddnewgoods.edshoujia.Text)+'';
  if frmaddnewgoods.ComboBox3.Text='家电'
  then tmpsql:='select distinct 条码,品名,牌号,规格 from goodsbase where 牌号 like ''%'+trim(frmaddnewgoods.edpaihao.Text)+'%'' and  规格 like ''%'+trim(frmaddnewgoods.Edguige.Text)+'%''';
  with Query1 do
    begin
      close;
      sql.clear;
      sql.add(tmpsql);
      prepare;
      open;
    end;
end;

procedure Tfrmshowlike.BitBtn1Click(Sender: TObject);
begin
  frmaddnewgoods.i:=1 ;
  frmshowlike.Close;
end;

procedure Tfrmshowlike.BitBtn2Click(Sender: TObject);
begin
 frmaddnewgoods.i:=0;
 frmshowlike.Close;

end;

procedure Tfrmshowlike.BitBtn3Click(Sender: TObject);
begin
  frmaddnewgoods.i:=0;
  frmshowlike.Close;
end;

end.