 |
| ·
·
·
·
·
·
·
·
·
· PB 源码
·
·
|
|
 |
| 精品推荐 |
 |
|
|
|
|
|
| 热门文章 |
|
|
|
|
|
|
| 热门下载 |
|
|
| 没有添加任何软件！ |
|
| 源码名称 |
动态创建数据窗口 |
| 运行环境 |
9x/Me/NT/2000/XP/ |
数据载入中.... |
| 整理时间 |
2005-10-13 16:47:58 |
| 程序源码星级 |
 |
| 程序源码语言 |
简体中文 |
| 程序源码类型 |
源码程序 |
| 授权方式 |
免费软件 |
| 程序源码大小 |
126 KB |
|
| |
|
| 相关连接 |
暂无联系方式 Home Page 
[收 藏] |
| 下载统计 |
数据载入中... |
| 解压密码 |
本站默认解压密码：www.ahaoz.com |
|
|
| ∷程序源码简介∷ |
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) |
|
|
|
| ∷程序源码评论∷ （评论内容只代表网友观点，与本站立场无关！）
更多评论... |
|
|
|
|
| ∷下载说明∷ |
* 为了达到最快的下载速度，推荐使用[网际快车]下载本站软件。
* 请一定升级到最新版[WinRAR]才能正常解压本站提供的软件!
* 如果您不清楚下载后的软件如何使用请看[使用帮助],学会使用本站提供的软件!
* 如果您发现该软件不能下载，请点击报告错误谢谢！
* 若侵犯了你的版权利益，敬请来信或QQ:22780281通知我们!
1: We offer for helping everybody study and exchange,download only for study about the software, please delete the software in 24 hours. Thanks and cooperate.
2: The rar/zip default unrar password is "www.ahaoz.com",the part of "*"
|
|
