upurchaserecord.pas

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

unit UPurchaseRecord;

interface

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

type
  TPurchaseRecord = class(TForm)
    DataSource1: TDataSource;
    PRQuery: TQuery;
    DBGrid1: TDBGrid;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    
  private
    { Private declarations }
  public
   { Public declarations }
  end;

var
  PurchaseRecord: TPurchaseRecord;

implementation

uses main, UDepartment, UParticular, UManufacturer;
procedure AlignGrid(dbgrid:Tdbgrid);stdcall;external 'AlignGriddll.dll';

{$R *.DFM}

procedure TPurchaseRecord.FormCreate(Sender: TObject);
var
  receive,tmp:string;
begin
  if sflag=1 then
    begin
      tmp:=mainfm.Dbgrid4.Fields[0].AsString;
      receive:='品名';
    end;
  if sflag=2 then
    begin
      tmp:=Department.Dbgrid1.Fields[0].AsString;
      receive:='销售部门';
    end;
  if sflag=3 then
    begin
      tmp:=Manufacturer.Dbgrid1.Fields[0].AsString;
      receive:='供货商';
    end;

  if mainfm.flag1=4 then
    begin
      tmp:=Particular.Dbgrid1.Fields[1].AsString;
      receive:='品名';
    end;
  PRQuery.Close;
  PRQuery.SQL.Clear;
  PRQuery.SQL.Add('select * from purchaserecordbase where 品名='''+tmp+'''');
  PRQuery.Open;
  DbGrid1.Columns[0].Width:=200;
  DbGrid1.Columns[1].Width:=200;
  AlignGrid(dbgrid1);
end;

procedure TPurchaseRecord.SpeedButton2Click(Sender: TObject);
begin
  PRQuery.Close;
  mainfm.flag1:=0;
  PurchaseRecord.Release;
  PurchaseRecord.Close;
end;



end.