RsCreate(10);
EXEC SQL DECLARE c1 CURSOR FOR
SELECT bas_infot.Usr_name, auto10a_list.Dev_no, auto10a_list.Call_flg,
auto10a_list.Called_arno, auto10a_list.Called_no, auto10a_list.Call_dat,
auto10a_list.Call_dur, auto10a_list.Call_rate, auto10a_list.Call_fee,
auto10a_list.Add_fee FROM auto10a_list, bas_infot
WHERE ( auto10a_list.Dev_no = bas_infot.Dev_no )
AND auto10a_list.Dev_no = :as_dev_no;
EXEC SQL OPEN c1;
do{
EXEC SQL FETCH c1 INTO
:Usr_name, :Dev_no, :Call_flg, :Called_arno, :Called_no, :Call_dat,
:Call_dur, :Call_rate, :Call_fee, :Add_fee;
if( (sqlca.sqlcode == SQLNOTFOUND) || (sqlca.sqlcode <0) )
break;
else
RsAddRow();
RsSetCol( 1, Usr_name );
RsSetCol( 2, Dev_no );
sprintf( s, "%lu", Call_flg );
RsSetCol( 3, s );
RsSetCol( 4, Called_arno );
RsSetCol( 5, Called_no );
RsSetCol( 6, Call_dat );
sprintf( s, "%6.2f", Call_dur );
RsSetCol( 7, s );
sprintf( s, "%6.2f", Call_rate );
RsSetCol( 8, s );
sprintf( s, "%6.2f", Call_fee );
RsSetCol( 9, s );
sprintf( s, "%6.2f", Add_fee );
RsSetCol( 10, s );
RsSaveRow();
}while(1);
EXEC SQL CLOSE c1;
ExitEasyCics();
剩余63页未读，继续阅读
夜星雪
- 粉丝: 3
- 资源: 2
我的内容管理
展开
最新资源
- 最优条件下三次B样条小波边缘检测算子研究
- 深入解析：wav文件格式结构
- JIRA系统配置指南：代理与SSL设置
- 入门必备：电阻电容识别全解析
- U盘制作启动盘：详细教程解决无光驱装系统难题
- Eclipse快捷键大全：提升开发效率的必备秘籍
- C++ Primer Plus中文版：深入学习C++编程必备
- Eclipse常用快捷键汇总与操作指南
- JavaScript作用域解析与面向对象基础
- 软通动力Java笔试题解析
- 自定义标签配置与使用指南
- Android Intent深度解析：组件通信与广播机制
- 增强MyEclipse代码提示功能设置教程
- x86下VMware环境中Openwrt编译与LuCI集成指南
- S3C2440A嵌入式终端电源管理系统设计探讨
- Intel DTCP-IP技术在数字家庭中的内容保护
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
