奥非域

WebPascal脚本模型教程 - 数据库相关

不管是网站,还是接口,都离不开数据展示或处理的操作,脚本模型采用的是Delphi中的FireDAC组件来连接和操作数据库的,目前脚本模型中只添加了msaccess、mssql和oracle的支持,当然,添加其它数据库的支持,也是比较简单的事,不过要注意的是,FireDAC并不会帮你处理数据库连接所需的驱动,所以你连接对应的数据库时,需要自己安装驱动,比如在win64位环境下,连接msaccess需要安装对应的驱动程序,比如连接oracle,也需要自己安装oracle的客户端或者带上那几个dll动态库文件。

目前提供了以下操作数据库的函数,分别为DBConn、DBExec、DBQuery、DBQueryToJson、DBQueryToTxt和DBQueryToExcel,在使用前,需要先使用DBConn定义数据源,也就是连接什么数据库,可参考以下设置:

<?
//连接 MSAccess 数据库的连接字符串
$s:=DBConn('mydb','DriverID=MSAcc;Database=.\db.mdb;'

//连接 MSSQL2000 数据库的连接字符串 odbc模式
//$s:=DBConn('mydb','DriverID=MSSQL2000;Server=127.0.0.1;Database=test;User_name=sa;Password=;'
//$s:=DBConn('mydb','DriverID=MSSQL2000;Database=test;Server=127.0.0.1;OSAuthent=Yes;'

//连接 MSSQL2000以上版本 数据库的连接字符串
//$s:=DBConn('mydb','DriverID=MSSQL;Server=127.0.0.1;Database=test;User_name=sa;Password=;'
//$s:=DBConn('mydb','DriverID=MSSQL;Database=test;Server=127.0.0.1;OSAuthent=Yes;'

//连接 mysql 数据库的连接字符串 需要libmysql.dll和libmysqld.dll支持,请查看单独演示mysql.api
//$s:=DBConn('mydb','DriverID=MySQL;Database=mysql;Server=127.0.0.1;Port=3306;User_name=root;'

//连接 ORACLE 数据库的连接字符串 需要oci.dll、oraocci11.dll、oraociei11.dll、orasql11.dll支持
//$s:=DBConn('mydb','DriverID=Ora;Database=OraSrv:1521/orcl;User_name=ADDemo;Password=a;'

+ 'Pooled=True;POOL_CleanupTimeout=30000;POOL_ExpireTimeout=90000;POOL_MaximumItems=200;');
?>

以上是部分数据源的设置,其它的请参考FireDac的说明。
使用示例如下:

<?
//初始化数据源
include('/数据库相关演示/conn.cfg');

//Query演示部分
'<font color="#FF0000">Query:查询并返回数据(DataSet)</font> DBQuery<br>'
//比如3个参数,第一个为数据源,第二个为sql语句,3为p1,4为p2 ...
$x:=DBQuery('mydb','select * from tuser where fid<>:p1',0);
(*
	fid fuser fpwd fname
	1 admin admin 管理员
	2 test test 测试
*)
if $x.EMPTY then
begin
	'没有可用的数据'
end else
begin
	$x.first;
	while not $x.eof do
  begin
		'第' $x.row+1 '行:'
		for $i:=0 to $x.fieldcount-1 do
    begin
			$x($i);
			if $i<$x.fieldcount-1 then ', ';
		end;
		'<br>'
		$x.next;
  end;
end;

'<br><font color="#FF0000">Query:查询并返回数据为json</font> DBQueryToJSON<br>'
UnicodeToAnsi(DBQueryToJSON('mydb','select * from tuser'));

'<br><br>'
'<font color="#FF0000">Query:查询并返回数据,保存成文件,并返回下载链接</font> DBQueryToExcel<br>'
//比如3个参数,第一个为数据源,第二个为sql语句,3为p1,4为p2 ...
DBQueryToExcel('mydb','select fid as 序号,fuser as 用户名,fpwd as 密码,fname as 姓名,'
+'fage as 年龄,fnote as 备注 from tuser where fuser<>:p1','你好');

'<br><br>'
'<font color="#FF0000">Query:查询并返回数据,保存成文件,并返回下载链接</font> DBQueryToTxt<br>'
//比如3个参数,第一个为数据源,第二个为sql语句,3为p1,4为p2 ...
DBQueryToTxt('mydb','select fid as 序号,fuser as 用户名,fpwd as 密码,fname as 姓名,fage as 年龄,'
+'fnote as 备注 from tuser where fuser<>:p1','你好');

//ExecSQL部分演示
'<br><br><font color="#FF0000">ExecSQL:执行SQL语句并返回处理结果</font> DBExec<br>'
'<font color="#FF00FF">修改前数据</font><br>'
UnicodeToAnsi(DBQueryToJSON('mydb','select * from tuser'));
'<br>结果:'DBExec('mydb','update tuser set fpwd=:p1,fage=:p3 where fuser=:p2','xxoo','test',88);
'<br><font color="#FF00FF">修改后数据</font><br>'
UnicodeToAnsi(DBQueryToJSON('mydb','select * from tuser'));
'<br>结果:'DBExec('mydb','update tuser set fpwd=:p1,fage=:p3 where fuser=:p2','test','test',3);
'<br><font color="#FF00FF">还原后数据</font><br>'
UnicodeToAnsi(DBQueryToJSON('mydb','select * from tuser'));
?>