自定义函数如何将控件作为参数

[zqycn518]

比如一个数据窗口 dw_1
程序中有很多相同的操作，要把它定义成一个函数或别的方法

如：


String ls_SQL,ls_where,ls_select
ls_SQL = dw_1.Describe("DataWindow.table.select") //获取数据窗口当前的SQL语句
If Pos(ls_SQL,"where") > 0 Then //如果有where子句（有可能是运行时添加的）
ls_select = Left(ls_SQL,pos(ls_SQL,"where") - 1) //取where前面的内容
Else
ls_select = ls_SQL //如果没有where子句则直接赋值
End If
ls_where = " where username='"+ls_name+"'" //where子句。可以设计界面让用户构造
ls_SQL = ls_select + ls_where//添加where子句
If dw_1.SetSQLSelect(ls_SQL) = 1 Then
dw_1.Retrieve()
End If

需要传入的变量有
ls_name
传入的控件有
dw_1

请问要怎么做

[zqycn518]

谢谢，很详细

再问个问题

请问怎么定义一个事物对象

如SQLCA 是系统默认的，可能数据库多的情况下，需要定义多个

[yyoinge]

//定义
transation sqlca_other
//使用时
if not isvalid(sqlca_other) then
    sqlca_other = create transaction
end if
sqlca_other.DBMS = ''
...
...
connect using sqlca_other;
//不用时
if isvalid(sqlca_other) then
    Disconnect using sqlca_other;
    destroy sqlca_other
end if

[zqycn518]

再问一下，请问怎么创建数据窗口控件啊

网上找的方法，可是好像不能用，还是我的操作不对

string ls_sql, ls_present，ls_err, ls_syntax

// 定义数据窗口的数据来源

ls_sql = "select emp_id from employee"

//定义数据窗口显示字符串

ls_present = "style(type=tabular)"

// 得到建立数据窗口对象语法

// 如果错误发生，SyntaxFromSQL 返回一个空字符串

ls_errls_syntax = SQLCA.SyntaxFromSQL(ls_sql, ls_present , ls_err)

// 声明变量
string ls_syntax ，ls_err

ls_errdw_1.Create(ls_syntax, ls_err)

dw_1.SetTransobject(SQLCA)

dw_1.retrieve( )

[yyoinge]

PB帮助里面的范例

string ERRORS, sql_syntax

string presentation_str, dwsyntax_str

sql_syntax = "SELECT emp_data.emp_id,"&

   + "emp_data.emp_name FROM emp_data "&

   + "WHERE emp_data.emp_salary > 45000"

presentation_str = "style(type=grid)"

dwsyntax_str = SQLCA.SyntaxFromSQL(sql_syntax, &

   presentation_str, ERRORS)

IF Len(ERRORS) > 0 THEN

   MessageBox("Caution", &

   "SyntaxFromSQL caused these errors: " + ERRORS)

   RETURN

END IF

dw_1.Create( dwsyntax_str, ERRORS)

IF Len(ERRORS) > 0 THEN

   MessageBox("Caution", &

      "Create cause these errors: " + ERRORS)

   RETURN

END IF

[yyoinge]

变量类型，写为datawindow就可以啦

[yyoinge]

[zqycn518]

你好，已经解决，