datamodule.~pas

实用的茶楼管理系统

unit dataModule;

interface

uses
  SysUtils, Classes, DB, ADODB, Forms,Windows;

type
  TDM = class(TDataModule)
    AdoConn: TADOConnection;
    queMenu: TADOQuery;
    Que: TADOQuery;
    queTable: TADOQuery;
    queDetail: TADOQuery;
    queCOrder: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    function checkMenuKey(MenuID:string):boolean;
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

function TDM.checkMenuKey(MenuID:string):boolean;
begin
  Que.Close;
  Que.SQL.Text:='select ID from Menu where ID='''+MenuID+'''';
  Que.Open; 
  if Que.RecordCount >0 then
    result:= false
  else
    result:= true;
    
end;

procedure TDM.DataModuleCreate(Sender: TObject);
var
  constr:string;
  DBFile:string;
  msg:string;
begin
  DBFile:=ExtractFilePath(application.ExeName)+'cy.mdb';
  if not FileExists(DBFile) then
  begin
    msg:='数据库信息丢失！';
    MessageBox(Application.Handle,PChar(msg),'系统提示',MB_ICONINFORMATION);
    exit;
  end;

  try
    constr:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='
             +ExtractFilePath(application.ExeName)+'cy.mdb';
    Adoconn.Connected :=false;
    Adoconn.ConnectionString:=constr;
    Adoconn.Connected:=true;
  Except
    msg:='连接数据失败！';
    MessageBox(Application.Handle,PChar(msg),'系统提示',MB_ICONINFORMATION);
  end;


end;

end.