WR中调用dll及连接数据库扩展测试功能的用法

#----------------------------51Testing软件测试网ed~ @ESV ItK
#51Testing软件测试网 H GD)[4h8k
#例子
4~q4|![y"Hj/H|0#
C)f,urai|0# 调用DLL 及连接数据库51Testing软件测试网Yp1b^O&^2Q
#　2006　草莓51Testing软件测试网*eg#|q H(?3[
#----------------------------51Testing软件测试网
X^Cq~] x
# 申明 extdll.dll　的两个函数 .
w1[b\8q\0extern int Min(int x,int y);
CGp,d;O/~V7c0extern int Max(int x,int y);51Testing软件测试网C tCT8h@^
static z;
1I0v9}` E$S9[(L'Q0
C3a*z0kq9[0# 初始化extdll.dll.51Testing软件测试网i`7n/JA kj
  function init_dll(lib_path)51Testing软件测试网x hd7F |'\].x
  {51Testing软件测试网/b*zCxP9Mj7s
        load_dll (lib_path & "\\extdll.dll");
3P6np,H;ACY&N{0    return(E_OK);51Testing软件测试网I1`x&?CM \
  }
N;X:]x6EJN&q0# 加载 extdll.dll
Q;XJ"Go8B:z
g0  init_dll("g:\\out");
1M J;v~1`j_WT0# 调用Ｄｌｌ方法l  51Testing软件测试网4mz'U"S m0{]V
  z = Min(3,5);51Testing软件测试网2vb:WVPR
  pause(z);51Testing软件测试网$] v.t(Y2ut
# 释放 extdll.dll
(B%a},[|Q*B0  unload_dll("g:\\out\\extdll.dll");
i.X1^
S
J4R}0
M
tX7J*A5^0# 建立数据库连接51Testing软件测试网`g:mnH
  db_connect("query1","DSN=pw");51Testing软件测试网
MntB\n2b+~V
# 执行查询
4JKeWa"c0  db_execute_query ("query1","SELECT * FROM AS_folders",record_number);
X]Ey7Oua0  val = db_get_field_value("query1","#1","#2");51Testing软件测试网 koU#v'b#Hkn$j]%L
  pause(val);
dz
j|(t9I^0# 获取行
n_h4S6E!c(v*Ew0  db_get_row("query1",5,row_content);51Testing软件测试网u,x#c#x:fii
  #split(row_content, line_arr, "\t");51Testing软件测试网q)A(K+x4m8G0RU
  pause(row_content);
l9HU&G;V%kl6Kz9g"RT0# 获取字段
g%SS(b'WP:p2^ B0  db_get_headers ("query1",field_num,headers);51Testing软件测试网;Nf6c&W4v
{
  pause(field_num);51Testing软件测试网_ ~+l7L6z#T#S#r
  pause(headers);51Testing软件测试网E"?`4I3b~ {
#写查询记录到文本  51Testing软件测试网#}@Vs"q rd%v/~
db_write_records("query1","G:\\query1.txt",TRUE, NO_LIMIT);51Testing软件测试网2ukxJ(Gw
# 比较文件
F,}3qZP1z5p0  file_compare("g:\\w.txt","g:\\w1.txt","save"); 51Testing软件测试网-jUI)@f#j