100分求几个简单的函数的写法。

                            
unit   Database;   
   
  interface  
        uses  
        Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,   DB,   ADODB;  
  //数据库访问类  
  type  
      TDatabase=Class  
      private  
      //连接字符串  
          connst:string;  
          //ADO连接对象  
          con:TADOConnection;  
          //打开连接  
          procedure   open;  
      public  
      //构造函数  
        //param:array   of   TParameter;  
          Constructor   Create();overload;  
          //通过数据库名称建立的构造函数  
          Constructor   Create(fileName:string);overload;  
          procedure   close;  
          //RunSql,RunProc   返回值说明:False表示运行未成功,True表示运行成功  
          //运行不返回结果集的SQL语句  
          function   RunSql(sql:string):boolean;overload;  
          //运行带有参数不返回结果集的SQL语句  
          function   RunSql(sql:string;   param:array   of   TParameter):boolean;overload;  
          //运行返回数据集的Sql语句  
          function   RunSql(sql:string;out   dateSet:TADODataSet):boolean;overload;  
          //运行返回数据集的带有参数的Sql语句  
          function   RunSql(sql:string;param:array   of   TParameter;out   dateSet:TADODataSet):boolean;overload;  
          //运行存储过程  
          function   RunProc(procName:string):boolean;overload;  
          //运行不返回结果集带有参数的存储过程  
          function   RunProc(procName:string;param:array   of   TParameter):boolean;overload;  
          //运行不带参数返回结果集的存储过程  
          function   RunProc(procName:string;out   dateSet:TADODataSet):boolean;overload;  
          //运行带参数返回结果集的存储过程  
          function   RunProc(procName:string;param:array   of   TParameter;out   dateSet:TADODataSet):boolean;overload;

查看回复