data_dl.pas

一个小型餐饮管理系统,可支持小票打印.还存在一些小问题,希望朋友们帮助完成. QQ:15372627 E-mail:hdw802.163.com

unit Data_DL;

interface

uses
  SysUtils, Classes, DB, ADODB, Provider;

type
  TDL_Data = class(TDataModule)
    check_Prov: TDataSetProvider;
    Conn: TADOConnection;
    check: TADOQuery;
    Query_Prov: TDataSetProvider;
    Query: TADOQuery;
    cpinfo_prov: TDataSetProvider;
    cpinfoQry: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Exec_SQL(Str:String);
    Function Open_SQL(Str:String):OLEVariant;
    Function XFCpInfo(LSH:String):OLEVariant;    //菜品信息列表
  end;

var
  DL_Data: TDL_Data;

implementation

{$R *.dfm}

{ TDL_Data }

procedure TDL_Data.Exec_SQL(Str: String);
begin
 Check.Close;
 Check.SQL.Clear;
 Check.SQL.Add(Str);
 Check.ExecSQL;
end;

function TDL_Data.Open_SQL(Str: String): OLEVariant;
begin
 Check.Close;
 Check.SQL.Clear;
 Check.SQL.Add(Str);
 Check.Open;
 Result:=check_prov.Data;
end;

procedure TDL_Data.DataModuleCreate(Sender: TObject);
begin
 conn.Connected:=true;
end;

procedure TDL_Data.DataModuleDestroy(Sender: TObject);
begin
 conn.Connected:=false;
end;

function TDL_Data.XFCpInfo(LSH:String): OLEVariant;
begin
 CpinfoQry.Close;
 CpinfoQry.SQL.Clear;
 CpinfoQry.SQL.Add('Select * From Xf_datail_tmp Where LSH='''+Trim(LSH)+'''');
 CpinfoQry.Open;
 Result:=Cpinfo_prov.Data;
end;

end.