表格制作问题(100分)

J

ji0224

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-12

• #1

现要做一个产品报价单，形式如下（一个表格）：
产品报价单
————————————————————————————
编号 名称 长度 宽度 厚度 数量 单价 小计 备注
1 ss 100 50 6 5 300 -- --
.. .. .. .. .. .. .. .. ..
TTL(合计): ...元
————————————————————————————
要求直接在表格里面输入数据，小计自动计算，公式：长度*宽度*厚度*数量*单价/1000000
在表格里面直接输完长，宽，高，单价，数量之后，小计框里面自动填上计算结果这步怎么实现？ TTL自动计算：小计之和
用什么控件最好？ 如果用StringGrid怎么实现上面的要求？
请大家指教！

 

Y

yf168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-12

• #2

wwdbgrid or easygrid都可以

 

J

ji0224

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-12

• #3

在那有下载？

 

J

ji0224

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-12

• #4

不要搞太复杂的，象报表之类的控件就不要了，界面就是一张单，用户在表格里面输入数据，自动计算出小计和TTL（这部分在程序里面写些代码实现），最后打印，OK!

 

J

ji0224

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-24

• #5

怎么没人回答啊？高手们做过这方面的指导下啊！

 

A

ArFly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-24

• #6

我也想知道怎么做，，兄弟们帮帮忙呀。。。

 

网

网中戏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-24

• #7

用F1BOOK

 

J

ji0224

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-29

• #8

其实功能就跟Excel差不多，本来用Excel做一张这样的表就行了，但我们老板硬是要我做个小程序。我想要做的话至少也要像Excel这样简单吧，比Excel还要复杂就没意义了，是不
有那位高手做过指点一下啊！分不够再加！

 

B

bgqy2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-29

• #9

StringGrid 可以实现的，如果打印的话用quickreport

 

J

ji0224

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-29

• #10

bgqy2000:
请具体点啊，在stringGrid里面输入数据还可以，但要实现自动计算怎么实现啊？

 

J

ji0224

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-02

• #11

没有人回答，分数怎么办？

 

J

ji0224

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-02

• #12

再问一个问题。代码：
ClearTabs;
SetTopOfPage;
SectionBottom := 8.0;
Home;
SetFont('宋体',12);
Bold := true;
Underline := true;
Print(' 分栏报表 （LinesLeft/ColumnLinesLeft/LineNum/ColumnNum）');
SetTopOfPage; { Set top of page to current YPos }
Bold := false;
Underline := false;
Italic := false; //斜体字
Home; { Goto home position }
SetColumns(4,0); { Create 4 columns with 0.5" between each }
while ColumnLinesLeft> 0 do begin
Println(' '+IntToStr(LinesLeft) + '/' + IntToStr(ColumnLinesLeft) + '/' +
IntToStr(LineNum) + '/' + IntToStr(ColumnNum));
end; { while }
里面ColumnLinesLeft和LinesLeft分别是什么意思啊？