control_drinku.~pas

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

unit Control_drinkU;

interface
uses DAHelper,ClassesU,ADODB,SysUtils;
//添加酒水信息
function Adddrink(drink:Tdrink):boolean;
//修改酒水信息
function Editdrink(drink:Tdrink):boolean;
//删除酒水信息
function Deldrink(drinkID:integer):boolean;
//得到酒水信息
function GetdrinkArray:TADOQuery;
//查找酒水by酒水名
function GetdrinkBydrinkID(drinkName:string):Tdrink;

implementation

function GetdrinkBydrinkID(drinkName:string):Tdrink;
var
  sql:string;
  drink:Tdrink;
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(nil);
  sql:='select id,名称,计量单位,成本价,销售价,isnull(说明,'''') 说明 from 酒水信息'+
       ' where 名称='+''''+drinkName+'''';
  ADOQuery:=DAHelper.ExeSqlQuery(sql);
  if(ADOQuery.RecordCount<1) then
    begin
      result:=nil;
    end
  else
      begin
        drink:=Tdrink.Create;
        drink.id:=ADOQuery.Fields[0].Value;
        drink.drinkName  :=ADOQuery.Fields[1].Value;
        drink.units :=ADOQuery.Fields[2].Value;
        drink.cost:=ADOQuery.Fields[3].Value;
        drink.sell :=ADOQuery.Fields[4].Value;
        drink.remark  :=ADOQuery.Fields[5].Value;
        result:=drink;
      end;
  ADOQuery:=nil;
end;

function GetdrinkArray:TADOQuery;
var
  sql:string;
begin
  sql:='select id,名称,计量单位,成本价,销售价,isnull(说明,'''') 说明 from 酒水信息';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function Deldrink(drinkID:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 酒水信息 where id='+inttostr(drinkID);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function Editdrink(drink:Tdrink):boolean;
var
  sql:string;
begin
  sql:='update 酒水信息 set 名称='+''''+drink.drinkName+''''+
       ',计量单位='+''''+drink.units +''''+
       ',成本价='+floattostr(drink.cost)+
       ',销售价='+floattostr(drink.sell)+
       ',说明='+''''+drink.remark+''''+
       ' where id='+inttostr(drink.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function Adddrink(drink:Tdrink):boolean;
var
  sql:string;
begin
  sql:='insert into 酒水信息(名称,计量单位,成本价,销售价,'+
       '说明)'+' values('+''''+drink.drinkName+''''+
       ','+''''+drink.units+''''+
       ','+floattostr(drink.cost)+
       ','+floattostr(drink.sell)+
       ','+''''+drink.remark+''''+ ')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;

end.