5209520 发表于 2011-9-30 11:09:21

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

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

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

5209520 发表于 2011-9-30 11:12:40

本帖最后由 5209520 于 2011-9-30 11:17 编辑

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

my788522 发表于 2011-9-30 14:43:43

$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 发表于 2011-9-30 15:00:17

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

wei999 发表于 2011-9-30 18:32:53

我看手写比电脑上面的好

hzxymkb 发表于 2011-9-30 22:15:29

这个不是容易

huangke 发表于 2011-10-1 06:49:17

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

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

5209520 发表于 2011-10-1 13:07:03

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

5209520 发表于 2011-10-3 10:12:31

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

mdxaux 发表于 2011-10-4 12:34:52

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

5209520 发表于 2011-10-4 17:34:08

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

mdxaux 发表于 2011-10-9 22:36:31

本帖最后由 mdxaux 于 2011-10-9 22:38 编辑

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

编译后的软件：

ashfinal 发表于 2011-10-10 00:20:06

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

5209520 发表于 2011-10-10 11:25:57

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

5209520 发表于 2011-10-10 11:37:44

本帖最后由 5209520 于 2011-10-10 11:45 编辑

还有就是保存不了呀？？后来经过测试好像第1行不能带/这个
不然导不出！怎么我的这个字体和你的不一样 好大哦 ！！如果把这个网站的模块引入进入就更完美了 免得打字了型号都对到http://zj.zol.com.cn/
页: [1] 2 3
查看完整版本: 10QB求购电脑配置单计算脚本