解决方案 »
- 请教:通用录入控件
- format中如何格式化二进制数据流?
- 请问有谁知道,在打印对话框增加一个选择打印奇数或偶数的选项?
- 为什么这段读文本的程序,执行了要报错?错误代码是:index out of the bounds(5)
- 关于Socket控件中的UDP分段接受图片的问题,请大家给个思路
- 用OLE操作PDF打印时总会弹出一个讨厌的对话框,如何把它去掉
- 救命啊!菜鸟快不行了!
- 解答一道题目?
- 给外部程序的Listview发送选中行的命令
- 大家用过 activeX里面的 Formula One 吗!是好东西啊!
- 菜鸟问题:button和bitbtn在功能和用法上有多少具体的区别?
- 函数IN问题,急!
D7,使用Rave安装自带
http://www.playicq.com 下载
///首先你要安排好所有字段的位置,生成一张报表(form)
///在另一张form里应用!!
//底下是预览button的单击事件
if checkbox1.Checked=true then ////确定是否选择字段
begin
if edit1.Text='' then ///填写字段长度
begin
MessageBox('字段长度必须填', '提示', MB_OK);
exit;
end
else
begin
form.QRLabel1.Width:=strtoint(edit1.Text);
form.QRDBText1.Width:=strtoint(edit1.Text);
end;
end;if checkbox1.Checked=true then /////动态位置
begin
form.QRLabel1.Enabled:=true;
form.QRDBText1.Enabled:=true;
form.QRShape1.Enabled:=true;
form.QRShape2.Enabled:=true; form.QRLabel1.Left:=leftL; ///变量 integer
form.QRDBText1.Left:=leftL; form.QRShape1.Width:=1;
form.QRShape2.Width:=1; leftL:=form.QRLabel1.Width+leftL; //leftL是现有的右边界
form.QRShape1.Left:=leftL;
form.QRShape2.Left:=leftL; form.QRShape3.Width:=leftL;
form.QRShape4.Width:=form_QReport_inout.QRShape1.Width;
end
else
begin
form.QRLabel1.Enabled:=false;
form.QRDBText1.Enabled:=false;
form.QRShape1.Enabled:=false;
form.QRShape2.Enabled:=false; form.QRShape1.Width:=0;
form.QRShape2.Width:=0;
end;
Report Builder带的帮助很全的,面且有很多例子,建议用它
是delphi自带的