10QB求购电脑配置单计算脚本

5209520

各位高手好，请帮我写个电脑配置单计算脚本 如图：

希望在这个的基础上加上一树价格 比如cpu是350 后面一树我拿给客户的是400 在就在后面加上50 以此类推  把总体计算出来了，后面的我加了点利润进去 也算出来了！！！

5209520

类别可以根据这个添加：
最好加个Word 导出的功能

my788522

$all=guictrlread($input1)+guictrlread($input2)+guictrlread($input3)+...........

至于WORD方面 可以参考下word的UDF
也可以参考下面的word表格例子

Const $NUMBER_OF_ROWS = 1
Const $NUMBER_OF_COLUMNS = 3

$objWord = ObjCreate("Word.Application")
$objWord.Visible = 1
$objDoc = $objWord.Documents.Add()

$objRange = $objDoc.Range()
$objDoc.Tables.Add ($objRange, $NUMBER_OF_ROWS, $NUMBER_OF_COLUMNS)
$objTable = $objDoc.Tables(1)

$objTable.Cell(1, 1).Range.Text = "Service Name"
$objTable.Cell(1, 2).Range.Text = "Display Name"
$objTable.Cell(1, 3).Range.Text = "Service State"

$x = 2

$strComputer = "."

$objWMIService = _
                ObjGet("winmgmts:\" & $strComputer & "\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_Service")

For $objItem in $colItems
        $objTable.ROWS.Add()
        $objTable.Cell($x, 1).Range.Text = $objItem.Name
        $objTable.Cell($x, 2).Range.Text = $objItem.DisplayName
        $objTable.Cell($x, 3).Range.Text = $objItem.State
        $x = $x + 1
Next

$objTable.AutoFormat(9)

5209520

...........不懂  能否给个完整的脚本

wei999

我看手写比电脑上面的好

hzxymkb

这个不是容易

huangke

分别算出成本价和客人的价格？还是怎么着？

主要是看不明白你想做什么，这样简单的计算题而已啊。。。。。。。。。。。。

5209520

分别算出成本价和客人的价格？就是这个意思！1

5209520

不知道有哪位高手帮忙做个哦！！谢谢

mdxaux

这个简单嘛，这两天抽个时间帮你做个出来

5209520

那非常感谢！！期待你的作品

mdxaux

嘿嘿，这几天做好了，现在免费发出来给大家玩玩，水印版
界面预览：

编译后的软件：

ashfinal

咳 这东西用Excel就可以搞定的 这么麻烦...

5209520

今天测试了还是错 不知道能否改里面的数据 比如说键盘和鼠标 我想合并成键鼠套装
还增加个机箱加电源 给个缘代码可以吗 我修改一下 谢谢！！

5209520

还有就是保存不了呀？？后来经过测试好像第1行不能带/这个
不然导不出！怎么我的这个字体和你的不一样 好大哦 ！！如果把这个网站的模块引入进入就更完美了 免得打字了型号都对到  http://zj.zol.com.cn/