control_dishesu.~pas

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

unit Control_dishesU;

interface

uses DAHelper,ClassesU,ADODB,SysUtils;
//添加菜谱信息
function Adddishes(dishes:Tdishes):boolean;
//修改菜谱信息
function Editdishes(dishes:Tdishes):boolean;
//删除菜谱信息
function Deldishes(dishesID:integer):boolean;
//得到菜谱信息
function GetdishesArray:TADOQuery;
//查找菜谱by菜名
function GetdishesBydishesID(dish:string):Tdishes;

implementation

function GetdishesBydishesID(dish:string):Tdishes;
var
  sql:string;
  dishes:Tdishes;
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(nil);
  sql:='select id,菜名,菜谱类型,菜系,计量单位,售价,成份,isnull(主要做法,'''') 主要做法 from 菜谱信息'+
       ' where 菜名='+''''+dish+'''';
  ADOQuery:=DAHelper.ExeSqlQuery(sql);
  if(ADOQuery.RecordCount<1) then
    begin
      result:=nil;
    end
  else
      begin
        dishes:=Tdishes.Create;
        dishes.id:=ADOQuery.Fields[0].Value;
        dishes.dish :=ADOQuery.Fields[1].Value;
        dishes.dishType :=ADOQuery.Fields[2].Value;
        dishes.dishClass:=ADOQuery.Fields[3].Value;
        dishes.units :=ADOQuery.Fields[4].Value;
        dishes.sell :=ADOQuery.Fields[5].Value;
        dishes.element :=ADOQuery.Fields[6].Value;
        dishes.method:=ADOQuery.Fields[7].Value;
        result:=dishes;
      end;
  ADOQuery:=nil;
end;

function GetdishesArray:TADOQuery;
var
  sql:string;
begin
  sql:='select id,菜名,菜谱类型,菜系,计量单位,售价,成份,isnull(主要做法,'''') 主要做法 from 菜谱信息';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function Deldishes(dishesID:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 菜谱信息 where id='+inttostr(dishesID);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function Editdishes(dishes:Tdishes):boolean;
var
  sql:string;
begin
  sql:='update 菜谱信息 set 菜名='+''''+dishes.dish+''''+
       ',菜谱类型='+''''+dishes.dishType+''''+
       ',菜系='+''''+dishes.dishClass+''''+
       ',计量单位='+''''+dishes.units +''''+
       ',售价='+floattostr(dishes.sell)+
       ',成份='+''''+dishes.element +''''+
       ',主要做法='+''''+dishes.method+''''+
       ' where id='+inttostr(dishes.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function Adddishes(dishes:Tdishes):boolean;
var
  sql:string;
begin
  sql:='insert into 菜谱信息(菜名,菜谱类型,菜系,计量单位,售价,成份,'+
       '主要做法)'+' values('+''''+dishes.dish+''''+
       ','+''''+dishes.dishType+''''+
       ','+''''+dishes.dishClass+''''+
       ','+''''+dishes.units+''''+
       ','+floattostr(dishes.sell)+
       ','+''''+dishes.element+''''+
       ','+''''+dishes.method+''''+ ')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;


end.