unitchange1.pas

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

unit Unitchange1;

interface

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

type
  TFormchange1 = class(TForm)
    DBGrid1: TDBGrid;
    Query1: TQuery;
    Database1: TDatabase;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DataSource1: TDataSource;
    Label1: TLabel;
    editsup: TEdit;
    Label2: TLabel;
    editname: TEdit;
    ComboBoxdep: TComboBox;
    Label3: TLabel;
    Label4: TLabel;
    editcode: TEdit;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    id:string;
    { Public declarations }
  end;

var
  Formchange1: TFormchange1;

implementation

uses Unitchange2;

{$R *.DFM}

procedure TFormchange1.FormCreate(Sender: TObject);
var
   tmpsql,sqlstr:string;
begin
   sqlstr:='select * from deptnamebase';
   with Query1 do
    begin
      close;
      sql.Clear ;
      sql.Add (sqlstr);
      prepare;
      open;
    end;
  while not query1.Eof do
   begin
      ComboBoxdep.Items.Add(query1['部门名称']);
      query1.Next;
   end;
   tmpsql:='select * from goodsbase';
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.Add(tmpsql);
   query1.Prepare;
   query1.Open;

end;
procedure TFormchange1.SpeedButton1Click(Sender: TObject);
var
    tmpsql:string;
begin
   id:=query1['id'];
   application.CreateForm(tformchange2,formchange2);
   formchange2.ShowModal;
end;

procedure TFormchange1.SpeedButton2Click(Sender: TObject);
begin
   formchange1.Close;
   formchange1.Release;
end;

procedure TFormchange1.BitBtn1Click(Sender: TObject);
var
  sqlstr,A : string;

  i : integer;
begin
  A:='';
  i:=0;
  if ComboBoxdep.Text <>'' then begin
    A:='销售部门='''+trim(ComboBoxdep.Text)+''''+' ';
    i:=i+1;
  end;

  if editsup.Text <>'' then begin
    if i=0 then begin
      A:='供货商 like ''%'+trim(editsup.Text)+'%'''+' ';
      i:=i+1;
    end
    else begin
      A:=A+'and 供货商 like ''%'+trim(editsup.Text)+'%'''+' ';
    end;
  end;

  if editname.Text <>'' then begin
    if i=0 then begin
      A:='品名 like ''%'+trim(editname.Text)+'%'''+' ';
      i:=i+1;
    end
    else begin
      A:=A+'and 品名 like ''%'+trim(editname.Text)+'%'''+' ' ;
    end;
  end;

  if editcode.Text <>'' then begin
    if i=0 then begin
      A:='条码 like ''%'+trim(editcode.Text)+'%'''+' ';
      i:=i+1;
    end
    else begin
      A:=A+'and 条码 like ''%'+trim(editcode.Text)+'%'''+' ' ;
    end;
  end;


  if A='' then begin
    showmessage('请输入查询条件！');
    exit;
  end;
  sqlstr:='select * from goodsbase where '+A;
  sqlstr:=sqlstr+'order by 条码 asc';
  with Query1 do begin
    close;
    sql.Clear ;
    sql.Add (sqlstr);
    prepare;
    open;
  end;
end;
end.