delphi DBExpress 提高

一、TSQLConnection TSQLConnection和Tdatabase,、TADOConnection/TIBDatabase一样，继承自TcustomConnection. TcustomConnection提供了Connected，DataSetCount， DataSets，LoginPrompt、StreamedConnected等常用属性。 1、dbxconnections.ini和dbxdrivers.ini 在讨论TSQLConnection的之前，让我们先看看dbxconnections.ini和dbxdrivers.ini，它们默认存放在./Borland Shared/dbExpress/，dbxdrivers.ini中保存着各种dbExpress驱动程序信息，所需要的库信息（DLL），默认参数设定；dbxconnections.ini保存每个连接的具体设定（在dbExpress Connections对话框中看到的信息）。 2、TSQLConnection的重要属性 Connected：是否连接到数据库； ConnectionName：连接名称，可以双击TSQLConnection控件进行设定、增减； DataSets：当前所有连接到本SQLConnection的活动DataSet（包括TSQLDataSet、TSQLTable、TSQLQuery、TSQLStoredProc）; DriverName：驱动程序名； KeepConnection：保持连接状态； TableScope：此属性决定当取得数据库中表时返回表的类型。其定义如下： type  TTableScope = (tsSynonym, tsSysTable, tsTable, tsView);  TTableScopes = set of TTableScope; property TableScope: TTableScopes;  TTableScope = (tsSynonym, tsSysTable, tsTable, tsView);  TTableScopes = set of TTableScope; 其中： tsSynonym：返回重名表 tsSysTable：返回系统表 tsTable ：返回普通表 tsView views：返回视图 VendorLib：返回dbExpress与数据库服务器连接所需的DLL。 3、重要方法 CloseDataSets：关闭与此SQLConnection连接所有活动DataSet（包括TSQLDataSet、TSQLTable、TSQLQuery、TSQLStoredProc）; StartTransaction、Commit、Rollback：一组处理事务的命令，应该都很熟悉了。先执行StartTransaction，然后执行关键任务，如果执行Commit，则保存执行结果，如果执行RollBack，则取消上一次StartTransaction或Commit到目前为止所有任务。给出简单实例（摘自Delphi帮助）： procedure TForm1.TransferButtonClick(Sender: TObject); var  Amt: Integer;  TD: TTransactionDesc; begin  if not SQLConnection1.InTransaction then //如果目前不在一个事务中  begin     TD.TransactionID := 1;     TD.IsolationLevel := xilREADCOMMITTED;     SQLConnection1.StartTransaction(TD);     try       Amt := StrToInt(AmtEdit.Text);       Debit.Params.ParamValues['Amount'] := Amt;       Credit.Params.ParamValues['Amount'] := Amt;       SQLConnection1.Commit(TD); //一切顺利则递交     except         SQLConnection1.Rollback(TD); //发生任何错误则回滚     end;  end; end;          Execute：执行一条SQL语句； function Execute(const SQL: string; Params: TParams; ResultSet:Pointer=nil): Integer; 参数： SQL：需要执行的SQL语句； Params：Tparams类型，执行此SQL的参数；      ExecuteDirect：执行不带参数的SQL语句；。 function ExecuteDirect(const SQL: string ): LongWord;                  参数为需要执行的SQL语句，如果执行成功则返回0。        GetFieldNames，GetIndexNames，GetProcedureNames，GetProcedureParams，GetTableNames：获得有关信列、索引、存储过程、存储过程参数、表名等信息。 4、事件 TSQLConnection的事件相当简单，也相当易懂OnLogin、AfterConnect、AfterDisconnect、BeforeConnect、BeforeDisconnect。          二、TSQLDataSet TSQLDataSet 继承自TCustomSQLDataSet，而TCustomSQLDataSet继承自TdataSet。所以，其大多数方法、属性、事件大家都很熟悉了。 其重要属性如下： CommandText：向数据库服务器发送的命令；          CommandType：决定命令类型，其定义如下： type TSQLCommandType = (ctQuery, ctTable, ctStoredProc); property CommandType: TSQLCommandType; ctQuery：此命令是一条需要执行的SQL语句； ctStoredProc：命令是一个存储过程名； ctTable：命令是数据库服务器上的表名，系统会自动生成SELECT语句返回记录。          DesignerData：字符类型，没有任何实际意义，我们可以保存任何信息在此属性中。          MaxBlobSize：整数型，BLOB类型数据的最大值。如果为－1，则返回所有数据。          SQLConnection：指向TSQLConnection对象，以连接数据库服务器。 三、TSQLClientDataSet TSQLClientDataSet是一个在使用类似于TClientDataSet而在内部使用了TSQLDataSet和TSQLProvider的组件。这意味着，它可以使用dbExpress的机制来访问数据库，而又能在内存中保存让用户浏览、修改，最后递交到数据库服务器（这也牺牲部分性能）。这就在数据库访问性能和易操作性间给出了平衡。 这里，我们给出了一个实例来正式这一点（dbsqlclientdataset2）。我们使用一个TDBGrid，一个TDBNavigator，一个TSQLConnection，一个TSQLClientDataSet，一个TButton组成了一个最简单的程序。 图 1TSQLClientDataSet的实例     我们可以清晰的看到，在按了Button1后执行了 SQLClientDataSet1.ApplyUpdates(-1);，数据被修改了。     这里又给出了一个使用TClientDataSet连接dbExpress数据源的例子（dbsqlclientdataset2/），就和连接其它数据源一样，这和TSQLClientDataSet并没有联系。由于可以达到类似的效果，我们给出实例。 遗憾的是，在Borland文档中，不推荐使用TSQLClientDataSet作主要/明细结构，因为，TSQLClientDataSet无法在这样的情况下优化查询。 四、多层应用MIDAS 为什么要用dbExpress？dbExpress的设计目的是什么？在传统的Client/Server程序中，为了提高这点性能，牺牲那么多程序开发中的灵活性值得吗？ 我个人认为，dbExpress是为了多层应用而设计的。 在应用程序服务器上，使用单向数据集，可以把访问数据库的效率提到最高，而在客户端的开发又不受任何影响。这真实鱼与熊掌兼得之、 用dbExpress开发Midas应用程序和以前几乎一样，我们给出了实例（Midas/）。 五、调试dbExpress（Debugging） 根据Delphi6帮助说明，你可以使用两种方法跟踪dbExpress的行为、第一种方法是使用TSQLConnection控件的SetTraceCallbackEvent方法。这是一个CallBack方法，以后每当SQLConnectin向数据库服务器发送命令，就会触发你的CallBack事件。由于这个方法比较复杂（其实也不复杂，可如果你不熟悉Windows的Callback概念，那它真的复杂了），我们不对其进行详细介绍。为了方便用户，Delphi提供了第二种方法——TSQLMonitor控件，它封装了SetTraceCallbackEvent方法。设定SQLMonitor的SQLConnection属性为需要调试的TSQLConnection控件，设置其Active为True，以后，每当通过SQLConnection向数据库服务器发送命令，其TraceList属性（TStringList）会被更新，且会触发LogTrace事件；如果你希望自动保存这些信息，可以设置TSQLMonitor的Filename属性及AutoSave属性。根据一段Delphi帮助中的代码就很说明问题： procedure TForm1.SQLMonitor1LogTrace(Sender: TObject; CBInfo: Pointer); var  LogFileName: string; begin  with Sender as TSQLMonitor do  begin     if TraceCount = 10 then     begin       LogFileName := 'c:/log' + IntToStr(Tag) + '.txt';       Tag := Tag + 1; {ensure next log file has a different name }       SaveToFile(LogFileName);       TraceList.Clear; { clear list }     end;  end; end;