delphi(假三层之数据访问层)(第一天)

本论文主要是通过三天来讲解三层的结构，今天是第一天，先讲解一下delphi下的Models层，我主要封装了两个查询得到数据集的函数，主要是通过在表示层上创建的数数据集控件传递进来，通过业务逻辑对语句的处理进行操作数据集，最后提交数据集的数据到数据库中去，进而想成delphi中的假三层，这样做能够独立于业务逻辑层和数据访问层，其他的都可以调用这两层，其中业务逻辑层，明天再讲，逻辑层写的不怎么好，个人觉得还是数据访问层封装方法封装通用性程度高一点。例如：TADOQuery，TADOTable数据集控件，通过一层一层的传递。

下面直接上代码：

unit UnitModels;

 

interface

 

uses

  SysUtils, Classes, DB, ADODB;

 

type

  TModel = class(TDataModule)

    conConnection: TADOConnection;

    procedure DataModuleCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

    FConnection : TADOConnection;

    // 返回影响的行数

    function SqlExec(const ASql: string;var AQry: TADOQuery): Integer;

    // 执行sql返回数据集

    function SqlQuery(const ASql: string; var AQry: TADOQuery): Boolean; 

 

overload;

  end;

 

var

  Model: TModel;

 

implementation

 

{$R *.dfm}

//以下语句主要是sql server数据库的驱动写法，其他连接不同数据库语法，自己查询一下。

procedure TModel.DataModuleCreate(Sender: TObject);

begin

  conConnection.ConnectionString := 'Provider=SQLOLEDB.1;Integrated 

 

Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名字;Data 

 

Source=服务器名';

  conConnection.LoginPrompt := false;

  conConnection.Connected := true;

  FConnection := conConnection;

end;

 

function TModel.SqlExec(const ASql: string;

  var AQry: TADOQuery): Integer;

begin

  Result := -1;

  AQry.Close;

  AQry.Connection := FConnection;

  AQry.SQL.Text := ASql;

 

  try

    try

      begin

        AQry.ExecSQL;

        Result := 1;

      end;

    except on e: Exception do

      begin

        AQry.Cancel;

        AQry.Close;

        Exit;

      end;

    end;

  except on e: Exception do

    ;

  end;

end;

 

function TModel.SqlQuery(const ASql: string;

  var AQry: TADOQuery): Boolean;

begin

  Result := False;

  AQry.Close;

  AQry.Connection := FConnection;

  AQry.SQL.Text := ASql;

 

  try

    try

      begin

        AQry.Open;

        Result := True;

      end;

    except on e: Exception do

      begin

        AQry.Cancel;

        AQry.Close;

        Exit;

      end;

    end;

  except on e: Exception do

    ;

  end;

end;

 

end.