string part_name,part_id
int i
lb_1.visible=false
dw_3.settransobject(sqlca)
dw_3.retrieve()
dw_3.visible=false
dw_2.visible=false
dw_2.settransobject(sqlca)
dw_2.retrieve()
if dw_2.rowcount()>0 then 
for i =1 to dw_2.rowcount()
part_name=dw_2.getitemstring(i,"dept_name")
part_id=dw_2.getitemstring(i,"dept_code")
ddlb_1.additem(part_id +"("+ part_name+")")
next
end if
//Select…As…的As可将列标题显示为As之后的字符，较为灵活方便。
//可根据实际情况设计生成Select语句及Where子句的可视化界面
DataWindow dw
dw=Create DataWindow 
string lssqlstr,lsdwsyntax,lserr,lserrc,presentation,lssqlstr1,lsdwsyntax1
presentation="style(type=grid)"
lsSQLstr="Select * From salary "
lssqlstr1="select * from salaryyyyy"
lsDwsyntax=SQLCA.SyntaxFromSQL(lsSQLstr,presentation,lserr) //构造SyntaxFromSQL()函数
lsdwsyntax1=sqlca.syntaxfromsql(lssqlstr1,presentation,lserr)
If Len(lserr)>0 Then
//如果构造SyntaxFromSQL()函数失败，则显示错误信息并退出
messagebox("错误信息!",lserr)
Return
end if
dw_1.Create(lsDwsyntax,lserrC)
//dw_4.create(lsdwsyntax1,lserrc)//创建动态数据窗口dw_1
If Len(lserrC)>0 Then
//如果创建动态数据窗口dw_1失败，则显示错误信息并退出
messagebox("错误信息!",lserrC)
Return
end if
//为dw_1分配事务对象SQLCA
dw_1.SetTransObject(SQLCA) 
dw_1.retrieve()
dw_4.settransobject(sqlca)
dw_4.retrieve()
//提取数据
////dw_1.Retrieve() 
string ls_col1,ls_col2,ls_name;
//DECLARE v_cur CURSOR FOR SELECT a_fldname,a_name FROM itemset;
//OPEN v_cur ; 
//FETCH v_cur INTO :ls_col1, :ls_col2 ;
//do while sqlca.sqlcode=0
// //ls_name=ls_col1+‘_‘+‘t‘+‘.‘+‘text‘+‘=‘+‘"‘+ls_col2+‘"‘
// ls_name=ls_col1+"_t.text = ‘"+ls_col2+"‘"
// dw_1.modify(ls_name)
// FETCH v_cur INTO :ls_col1, :ls_col2 ;
//loop
//close v_cur;
for i =1 to dw_3.rowcount()
ls_col1=dw_3.getitemstring(i,"a_fldname")
ls_col2=dw_3.getitemstring(i,"a_name")
ls_name=ls_col1+"_t.text = ‘"+ls_col2+"‘"
dw_1.modify(ls_name)
// dw_4.modify(ls_name)