usellprice.pas

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

unit USellPrice;

interface

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

type
  TSellPrice = class(TForm)
    Panel1: TPanel;
    Image2: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Image1: TImage;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SellPrice: TSellPrice;

implementation

uses USellPriceUpdate, main;

{$R *.DFM}

procedure AlignGrid(dbgrid:Tdbgrid);
var
  Loop,Stop:integer;
begin
  Stop:=dbgrid.Columns.Count;
  for Loop:=0 to Stop-1 do
    begin
      dbgrid.Columns[loop].Alignment:=taCenter;
      dbgrid.Columns[loop].Title.Alignment:=taCenter;
    end;
end;
procedure TSellPrice.FormCreate(Sender: TObject);
var
  TmpSql,Code,biaozhiwei:string;
begin
    biaozhiwei:='';
  try
    Code:=mainfm.TmpChangJia;
    TmpSql:='select * from goodsbase where 供货商 like ''%'+Trim(Code)+'%'' and 合同号<>'''+biaozhiwei+'''';
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(TmpSql);
    Query1.Prepare;
    Query1.Open;
    AlignGrid(dbgrid1);
  except
    Application.MessageBox('系统忙！','消息',MB_IconInformation);
  end;
  SpeedButton1.Enabled:=false;
end;

procedure TSellPrice.SpeedButton1Click(Sender: TObject);
begin
  Application.CreateForm(TSellPriceUpdate,SellPriceUpdate);
  SellPriceUpdate.ShowModal;
end;

procedure TSellPrice.SpeedButton2Click(Sender: TObject);
begin
  Close;
end;

procedure TSellPrice.FormActivate(Sender: TObject);
begin
  AlignGrid(dbgrid1);
end;

procedure TSellPrice.BitBtn1Click(Sender: TObject);
var
   tmpsql:string;
   i:integer;
begin
   tmpsql:='select * from goodsbase';
   if trim(Edit1.Text)='' then
     begin
        i:=0;
        tmpsql:=tmpsql
     end
   else
     begin
        i:=1;
        tmpsql:=tmpsql+' where 品名 like ''%'+trim(Edit1.Text)+'%''';
     end;
   if trim(Edit2.Text)='' then
     begin
        if i=0 then
           begin
              showmessage('没有查询条件');
              exit;
           end;
     end
   else
     begin
        if i=0 then tmpsql:=tmpsql+' where 条码='''+trim(Edit2.Text)+''' and 合同号<>'''+''+''''
        else tmpsql:=tmpsql+' and 条码='''+trim(Edit2.Text)+''' and 合同号<>'''+''+'''';
     end;
   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add(tmpsql);
   Query1.Prepare;
   Query1.Open;
   if not Query1.Eof then
     begin
        SpeedButton1.Enabled:=true;
     end;
end;

end.