control_stocku.~pas

快餐店管理系统 很好的参考材料 谢谢您的合作

unit Control_stockU;

interface
uses DAHelper,ClassesU,ADODB,SysUtils;
//添加入库信息
function AddStock(Stock:TStock):boolean;
//修改入库信息
function EditStock(Stock:TStock):boolean;
//删除入库信息
function DelStock(StockID:integer):boolean;
//得到入库信息
function GetStockArray:TADOQuery;
//查找入库by入库
function GetStockByStockID(commodity:string):TADOQuery;

implementation

function GetStockByStockID(commodity:string):TADOQuery;
var
  sql:string;
begin
  sql:='select id,采购日期,商品名称,采购数量,计量单位,采购花费,采购员,供货商 from 入库信息'+
       ' where 商品名称='+''''+commodity+'''';
  result:=DAHelper.ExeSqlQuery(sql);
end;

function GetStockArray:TADOQuery;
var
  sql:string;
begin
  sql:='select id,采购日期,商品名称,采购数量,计量单位,采购花费,采购员,供货商 from 入库信息';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function DelStock(StockID:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 入库信息 where id='+inttostr(StockID);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function EditStock(Stock:TStock):boolean;
var
  sql:string;
begin
  sql:='update 入库信息 set 商品名称='+''''+Stock.commodity+''''+
       ',采购数量='+floattostr(Stock.Num)+
       ',计量单位='+''''+Stock.units +''''+
       ',采购花费='+floattostr(Stock.fee)+
       ',采购员='+''''+Stock.worker+''''+
       ',供货商='+''''+Stock.company +''''+
       ' where id='+inttostr(Stock.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function AddStock(Stock:TStock):boolean;
var
  sql:string;
begin
  sql:='insert into 入库信息(采购日期,商品名称,采购数量,计量单位,采购花费,采购员,供货商'+
       ')'+' values('+''''+Stock.GetDate+''''+
       ','+''''+Stock.commodity+''''+
       ','+floattostr(Stock.Num)+
       ','+''''+Stock.Units+''''+
       ','+floattostr(Stock.fee)+
       ','+''''+Stock.worker+''''+
       ','+''''+Stock.company+''''+ ')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;

end.