gq_datamodule.pas

亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能

unit GQ_DataModule;

{
代码单元名称：通用综合查询工具数据模型
从属软件：大连资金清算中心打码机管理信息系统
开发单位：大连理工大学计算机技术研究所软件工程研究室
作者：张玉洁
时间：2001,1,30
}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB, DBTables, ComCtrls, GQ_UQueryMain;

type
  TGQ_FDataModule = class(TDataModule)
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOTable1: TADOTable;
  private
    { Private declarations }
  public
    { Public declarations }
    StatusBar: TStatusBar;
    GQ_FQueryMain: TGQ_FQueryMain;
    function ExecSql(s: string): Boolean;
    function OpenSql(s: string): Boolean;
  end;

var
  GQ_FDataModule: TGQ_FDataModule;

implementation

{$R *.DFM}

function TGQ_FDataModule.ExecSql(s: string): Boolean;
begin
  Result := False;
  ADOQuery1.Active := False;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(s);
  try
    ADOQuery1.ExecSQL;
  except
    ADOQuery1.Close;
    Exit;
  end;
  Result := True;
end;

function TGQ_FDataModule.OpenSql(s: string): Boolean;
begin
  Result := False;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(s);
  try
    ADOQuery1.Open;
  except
    ADOQuery1.Close;
    Exit;
  end;
  Result := True;
end;

end.