WR中調用dll及連接數據庫擴展測試功能的用法

#----------------------------
#
#例子
#
# 調用DLL 及連接數據庫
#　2006　草莓
#----------------------------
# 申明 extdll.dll　的兩個函數 .
extern int Min(int x,int y);
extern int Max(int x,int y);
static z;

# 初始化extdll.dll.
  function init_dll(lib_path)
  {
        load_dll (lib_path & "\\extdll.dll");
    return(E_OK);
  }
# 加載 extdll.dll
  init_dll("g:\\out");
# 調用Ｄｌｌ方法l  
  z = Min(3,5);
  pause(z);
# 釋放 extdll.dll
  unload_dll("g:\\out\\extdll.dll");

# 建立數據庫連接
  db_connect("query1","DSN=pw");
# 執行查詢
  db_execute_query ("query1","SELECT * FROM AS_folders",record_number);
  val = db_get_field_value("query1","#1","#2");
  pause(val);
# 獲取行
  db_get_row("query1",5,row_content);
  #split(row_content, line_arr, "\t");
  pause(row_content);
# 獲取字段
  db_get_headers ("query1",field_num,headers);
  pause(field_num);
  pause(headers);
#寫查詢記錄到文本  
db_write_records("query1","G:\\query1.txt",TRUE, NO_LIMIT);
# 比較文件
  file_compare("g:\\w.txt","g:\\w1.txt","save");