简单的说可以这样实现：
创新互联公司长期为上1000家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为咸宁企业提供专业的网站建设、做网站，咸宁网站改版等技术服务。拥有10年丰富建站经验和众多成功案例,为您定制开发。
在命令按钮中写如下代码：
do case
case thisform.text1.value=200.00 and thisform.text1.value400
thisform.text2.value=round(thisform.text1.value*0.95,1)
case thisform.text1.value=400.00 and thisform.text1.value800
thisform.text2.value=round(thisform.text1.value*0.9,1)
case thisform.text1.value=800.00
thisform.text2.value=round(thisform.text1.value*0.8,1)
otherwise
thisform.text2.value=round(thisform.text1.value,1)
endcase
thisform.refresh
此外，要注意设置文本框的取值范围，文本框要设置成数字输入格式。
种类是固定的么？那价格可以用select case语句显示到价格框里
计算金额直接相乘就可以了。。
至于连续处理多项，那历史交易记录可以再用一个list放起来。。计算总和的时候只需要从新list里循环读出来就可以了。。
这个我推荐你 在SQL中找吧 那个比VB强
他也是数据库 可以用他来编写软件
但是我不会
Delphi代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
购物总价:Integer;
折扣:Extended;
begin
购物总价:=StrToInt(Edit1.Text);
if 购物总价250 then
begin
折扣:=0;
end
else if 购物总价500 then
begin
折扣:=0.05;
end
else if 购物总价1000 then
begin
折扣:=0.075;
end
else if 购物总价2000 then
begin
折扣:=0.1;
end
{
此段的折扣是多少？
else if 购物总价3000 then
begin
折扣:=0.05;
end
}
else if 购物总价=3000 then
begin
折扣:=0.15;
end;
ShowMessage('您享受的折扣是：'+FloatToStr(折扣)
+' 原价：'+IntToStr(购物总价)
+' 折后总价：'+FloatToStr(购物总价*(1-折扣)));
end;
1、热敏打印机（超市打印小票的那种）其实和办公用的打印机没有根本区别，只是用途不同罢了。
2、热敏打印机与计算机连接的接口基本上有3种（并口、串口和USB口），不管哪种，都要把那个连接线与计算机背后的插槽连好（接口是对应好了的，搞错了是接不上的），然后安装正确打印机驱动程序。
3、在大家熟悉使用的WORD文字编辑程序程序中，讲页面宽度自定义调整为热敏纸的规格，页面长度一般210毫米就够用了。记得要把这个保存为模板，方便以后调用此格式。
4、好了，就用上面的那个模板随便编辑内容，发送打印任务到热敏机就行啦。试试吧，字符再长在WORD里都会自动换行滴。
