UC知道vb生成报表的代码
来源：百度知道 编辑：UC知道 时间：2024/06/01 22:38:03
我用的VB和SQL2000做的系统，答辩的问题不太会，请大家帮忙回答两个问题，一定高分答谢。
Classprint.rsDK1 "select * from student_info"
Set StudentReport.DataSource = Classprint.rs1
StudentReport.Show
Classprint.rsDK1 "select c.class_no,s.grade_no,grade_name,u.user_id,user_name from class_info c inner join schoolgrade_info s on c.grade_no=s.grade_no inner join user_info u on c.user_id=u.user_id"
ClassReport.Show
Set ClassReport.DataSource = Classprint.rs1
1、首先大家帮忙介绍下这段代码。
2、报表如何生成，采用了什么工具？
3、VB是怎么连接SQL2000数据库的，数据表是怎么生成的？谢谢。。。
Classprint.rsDK1 "select * from student_info"
Set StudentReport.DataSource = Classprint.rs1
StudentReport.Show
Classprint.rsDK1 "select c.class_no,s.grade_no,grade_name,u.user_id,user_name from class_info c inner join schoolgrade_info s on c.grade_no=s.grade_no inner join user_info u on c.user_id=u.user_id"
ClassReport.Show
Set ClassReport.DataSource = Classprint.rs1
1、首先大家帮忙介绍下这段代码。
2、报表如何生成，采用了什么工具？
3、VB是怎么连接SQL2000数据库的，数据表是怎么生成的？谢谢。。。
1、classprint应该是自己制作的一个控件，rsDK1属性应该是打开记录集
'查询学生表，将结果放入记录集rsDK1中
Classprint.rsDK1 "select * from student_info"
'设置学生报表的数据源
Set StudentReport.DataSource = Classprint.rs1
'显示学生信息报表
StudentReport.Show
'将查询结果放到rsDK1中
Classprint.rsDK1 "select c.class_no,s.grade_no,grade_name,u.user_id,user_name from class_info c inner join schoolgrade_info s on c.grade_no=s.grade_no inner join user_info u on c.user_id=u.user_id"
'显示班级报表
ClassReport.Show
'设置班级报表数据源
Set ClassReport.DataSource = Classprint.rs1
2、报表通过报表控件，就是上面的studentreport和classreport两个，采用的是DataReport控件。
3、VB连接SQL的方试用ADO连接，数据表是通过查询所得。