untdata.pas

ACCESS 数据库管理工具

unit UntData;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Classes,
  Controls,
  Forms,
  Dialogs,
  ADODB,
  StrUtils, DB;

type

  TDataForm = class(TDataModule)
    conYysc: TADOConnection;
    cmdSql: TADOCommand;
    ADOQry: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private

    { Private declarations }
  public
    function RunSql(SqlStr: string): boolean;
    function SetConnStr(FileName: string): Boolean;

    { Public declarations }
  end;

var
  DataForm: TDataForm;

implementation
uses  uAccessTool, uPublic;
{$R *.DFM}

function TDataForm.SetConnStr(FileName: string): Boolean;
var
   ConnStr: string;
begin
  conYysc.Connected := False;
  aPassWord := '';
  ConnStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
    + FileName + ';Persist Security Info=True';
  if GetAccessPwdExt(FileName, aPassWord) then
    ConnStr := ConnStr + ';Jet OLEDB:Database Password=' + aPassWord;   
  try
    conYysc.ConnectionString := ConnStr;
    conYysc.Connected := True;
  except
    conYysc.Connected := False;
  end;
  Result := conYysc.Connected;
end;



function TDataForm.RunSql(SqlStr: string): boolean;
begin
  cmdSql.CommandText := SqlStr;
  try
    cmdSql.Execute;
    Result := true;
  except
    Result := false;
  end;
end;

procedure TDataForm.DataModuleCreate(Sender: TObject);
begin
  RegJointMe;
end;

end.