一个小问题,一个人学delphi,真难(20分)

  • 主题发起人 回音壁
  • 开始时间

回音壁

Unregistered / Unconfirmed
GUEST, unregistred user!
[red][/red]如果用户购买一件商品,在小票上显示就是这样:
类型 尺寸 单价 数量 金额
135彩色 3R 0.8 101 80.8
这样我很容易的用这样的语句在程序里实现:
form3.QRLabel9.Caption:=form3.Edit1.Text;
但是如果用户购买2件或者更多商品的时候,小票上显示的就该是这样的:
类型 尺寸 单价 数量 金额
135彩色 3R 0.8 101 80.8
120黑白 5R 0.7 4 2.8
我的窗体上的输入是按照只有一件商品的格式做成的,当数据输入完成的时候
,在提交到数据库前,在报表里用form3.QRLabel9.Caption:=form3.Edit1.Text;
打印出来,商品超过1后,这样肯定是不行的,数据已经入库了,当然就打印不出来了;
我想的办法是在后台建立一个临时表,我在窗体上输入一条记录后,数据就同时保存
到数据库和临时表里去,然后在所有的数据输入完成后,打印临时表并清空该表,行不行?
如果可行的话,程序部分应该如何实现,最好来段源码!
 
最好自己做打印,不要用什么控件
 
怎么做?可以告诉我吗?
 
你可不可以,定义自己的一个类,包含有一笔记录所需的信息,
然后再用一个TList,每有一笔数据就加到类表中一个对象。
打印完了,就清空Tlist。
 
很好的一个办法啊?
但是这样的事应该是各位大虾经常碰到.你们平时遇到这样的情况是怎么做的啊?
 
//我的窗体上的输入是按照只有一件商品的格式做成的
放一个dbgrid,做成一次可以输入多条记录的界面不行吗?[:I]
 
老兄,要是用这个破控件,我还跑到DFW来问个屁?
 
原来你是来问屁的!早说嘛~~```你想要~```我没理由不给你呀~虽然我要先花点时间搞一个出来
 
别说笑了!你还是聊点正经的吧!
 
自动增加那个栏目
 
1,如果用QReport就用你说的,建一个临时表,打完后写回数据库冰山出临时表的内容。
2,把数据用textout写在窗体的canvas上,打印窗体就行了form1.print,这只是个思路,没试过
 
我用了一个QRTBtext,设置好dataset和datafield后,怎么打印不出来?
 
据我了解,access后台不能建立临时表,这样我又陷入绝地,内存表我又不会,怎么办?
拿位大虾救救小弟.
 
delphi是怎样来声明货币类型的?
 
有个比较简单的方法,窗体上加一个StringGrid,每条记录输入后先按行写入StringGrid,
最后保存和打印时再读出来就行了~
 
〉〉我用了一个QRTBtext,设置好dataset和datafield后,怎么打印不出来?

是不是QRBand没设好?

〉〉access后台不能建立临时表,

那就事先建好一个嘛

〉〉delphi是怎样来声明货币类型的?
var
a: Currency;

 
多人接受答案了。
 
顶部