源码中国-源码下载 >> 编程相关源码 >> PB源码 >> 动态创建数据窗口

设为首页

资源名称	动态创建数据窗口

运行环境	9x/Me/NT/2000/XP/
文件大小	845 KB
添加人员	忆繁
添加时间	2005-4-19 13:20:41
作者主页	暂无作者主页
程序演示	暂无程序演示
本站演示
下载次数

下载链接	发表评论更多评论报告错误

ppgou下载通道

源码简介

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)