database.pas

一个仓库管理软件包括,仓库入库,仓库出库,库存信息,单据审核,反审核等功能.

unit database;

interface

uses
  SysUtils, Classes, ImgList, Controls, DB, ADODB,QForms;

type
  TDatamod = class(TDataModule)
    dbmain: TADOConnection;
    imgButtonList: TImageList;
    qurfree: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ExecSQL(SQL:string);
  end;

var
  Datamod: TDatamod;

implementation

uses MyMath;

{$R *.dfm}


{ TDatamod }

procedure TDatamod.ExecSQL(SQL: string);
begin
  qurfree.Close;
  qurfree.SQL.Clear;
  qurfree.SQL.Add(SQL);
  with datamod do
  begin
    try
      dbmain.BeginTrans;
      qurfree.ExecSQL;
      dbmain.CommitTrans;
    except
      dbmain.RollbackTrans;
      Infook('任务失败');
      exit;
    end;
  end;
end;

procedure TDatamod.DataModuleCreate(Sender: TObject);
begin
  try
    dbmain.Close;
    dbmain.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source= '
           + ExtractFilePath(ParamStr(0))+'data.mdb;';
    dbmain.Open;
  except
    Infook('连接数据库出错!');
    Application.Terminate;
  end;
end;

end.