前几天写过的一个商业软件免费开源+源码解析+免费回答提问【申精】

qq2010108288 · 发表于 2014-4-1 20:27:43

本帖最后由宇智波·佐助于 2014-4-9 14:17 编辑

大家好，今天给大家放出前些天写的一个商业源码，是一个五十元的单子，其实主要的功能还是数据库的应用，用的还是我最喜欢的Access，我也开源过好几个我写过的数据库方面的源码了（伟创OA系统），但是这个源码是应客户的要求写的，所以在用户体验以及实用性方面是做的比较完善的，是根据实际的要求来实现一个一个的功能，比如产品质量的控制（合格率）、快捷操作（超级列表框任意选）、逻辑判断（指标达到某个值PASS）等等等····是一个比较完整而且实用的源码。
说实话，写这个单子的时候，因为和客户沟通上的不顺畅，导致我是写了改，改了写，反反复复折腾了好多遍，我浪费的精力已经超过了五十元的价值，所以今天无偿把源码免费送出给易友们学习，并附上我对这个程序开发过程以及源码实现的详细解说，帮助大家学习数据库。

=================================华丽分割=================================

.版本 2.支持库 eDB.支持库 iext.局部变量记录数量, 整数型.局部变量 i, 整数型.局部变量取出, 文本型.局部变量取出标题, 文本型, , "0".局部变量判断的, 文本型.局部变量合格率, 文本型记录数量＝记录集1.记录数量记录集1.置连接 (数据库连接1)记录集1.打开 (“sj”, 2, )记录集1.到首记录 ().计次循环首 (记录数量, i) 记录集1.读文本 (“合格”, 取出) 加入成员 (取出标题, 取出) 记录集1.到下一条 ().计次循环尾 ().计次循环首 (取数组成员数 (取出标题), i) 判断的＝取出标题 .判断开始 (判断的＝ “FALL”)       FALL ＝ FALL ＋ 1 .判断 (判断的＝ “PASS”)       PASS ＝ PASS ＋ 1 .默认 .判断结束.计次循环尾 ()合格率＝到文本 (四舍五入 (PASS ÷ 记录数量 × 100, )) ＋ “%”状态条1.置文本 (2, “合格：” ＋到文本 (PASS))状态条1.置文本 (3, “不合格：” ＋到文本 (FALL))状态条1.置文本 (4, “合格率：” ＋到文本 (合格率))PASS ＝ 0FALL ＝ 0

解析下这段质量控制子程序的源码，因为客户要求在状态条上加入记录总数、合格数、不合格数、合格率几个需要显示的东西，我就写的这个质量控制的子程序来实现对质量的监控然后显示在状态条上。首先从记录集中取出记录的数量，留用。在数据库表中有一个“合格”的字段，用来存放是否合格。首先用一个计次循环来取出合格这个字段中所有标题放在一个一维数组中，然后再用一个计次循环来遍历这个数组中的数据，判断PASS的个数和FALL的个数，需要的参数全部取出之后，在状态条中显示。至于为什么要用一个子程序来做这个功能，因为在整个程序运行过程中，不只是一个地方需要重新判断质量，比如，删除一个数据之后，就要进行一次质量控制的判断，添加数据也要，所以一个是为了减少代码量，还有一个就是可以用多线程，提高效率。

================================================================

.版本 2.支持库 iext.支持库 eDB.局部变量取出, 文本型.局部变量计次1, 整数型超级列表框1.全部删除 ()记录集1.置连接 (数据库连接1).判断开始 (记录集1.打开 (“sj”, 2, ) ＝假) 信息框 (“表打开失败！”, 0, ).默认 .计次循环首 (记录集1.记录数量, 计次1)       超级列表框1.插入表项 (, , , , , )       ' 记录集1.读文本 (“ID”, 取出)       超级列表框1.置标题 (计次1 － 1, 0, 到文本 (计次1))       记录集1.读文本 (“产品名称”, 取出)       超级列表框1.置标题 (计次1 － 1, 1, 取出)       记录集1.读文本 (“序列号”, 取出)       超级列表框1.置标题 (计次1 － 1, 2, 取出)       记录集1.读文本 (“指标”, 取出)       超级列表框1.置标题 (计次1 － 1, 3, 取出)       记录集1.读文本 (“传输”, 取出)       超级列表框1.置标题 (计次1 － 1, 4, 取出)       记录集1.读文本 (“反射”, 取出)       超级列表框1.置标题 (计次1 － 1, 5, 取出)       记录集1.读文本 (“合格”, 取出)       超级列表框1.置标题 (计次1 － 1, 6, 取出)       记录集1.读文本 (“日期”, 取出)       超级列表框1.置标题 (计次1 － 1, 7, 取出)       记录集1.读文本 (“备注”, 取出)       超级列表框1.置标题 (计次1 － 1, 8, 取出)       记录集1.到下一条 () .计次循环尾 () 记录集1.到首记录 ()

这段源码是获取列表子程序，作用是在需要的时候从数据库中取出所有的数据读入到超级列表框中，学过数据库的应该都知道，我就不细说了。需要注意的是，在执行获取列表之前，需要先对超级列表框进行全部删除的操作。

=========================================================================

.版本 2.局部变量 CD, 整数型.判断开始 (编辑框_传输.内容＝ “”) .判断开始 (编辑框_指标数值.内容＝ “”)       信息框 (“请填写指标数值！”, 0, ) .默认       CD ＝取字节集长度 (到字节集 (编辑框_反射.内容))       .如果真 (CD ≥ 3)          编辑框_备注.获取焦点 ()          编辑框_序列号.起始选择位置＝ 7          编辑框_序列号.被选择字符数＝ 3       .如果真结束       .判断开始 (到数值 (编辑框_传输.内容) ＜ zbsz)          .判断开始 (到数值 (编辑框_反射.内容) ≥ zbsz)             单选框_稳定性优.选中＝真             单选框_稳定性劣.选中＝假          .默认             单选框_稳定性优.选中＝假             单选框_稳定性劣.选中＝真          .判断结束       .默认       .判断结束 .判断结束

这段代码是在那个反射编辑框内容被改变事件下的，写这段代码的时候比较绕脑子···因为里面的逻辑关系总是弄不对，调试了好长时间才写出来，一共有两个编辑框，一个是反射，一个是传输，用户要求只要有一个编辑框输入的数值超过了规定的数值，就PASS，比如规定的标准是145，这两个参数只要有一个超过了145就要PASS，这个参数必须是动态设置的，前面还有一个编辑框是用户输入标准的，所以我就用了一个全局变量来存放这个标准，其实更好的办法是写配置项，然后在系统设置中可以对这个参数进行详细的设置，只不过我只是想到了，但是没有写这个功能。

==============================================================================

.版本 2.支持库 eExcel2000.支持库 iext通用对话框_导出列表.初始目录＝取运行目录 ()通用对话框_导出列表.类型＝ 1通用对话框_导出列表.打开 ()载入 (窗口_导出进度, _启动窗口, 假).判断开始 (Excel程序.创建 () ＝假) 信息框 (“请确认您的电脑上安装有Excel!”, 0 ＋ #警告图标, “警告”).默认 Excel工作簿.置程序 (Excel程序) Excel工作簿.激活工作簿 () Excel工作簿.表格序号＝ 1 局_导出列表头＝ { “ID”, “产品名称”, “序列号”, “指标”, “传输”, “反射”, “合格”, “日期”, “备注” } .计次循环首 (取数组成员数 (局_导出列表头), 局_计次1)       Excel工作簿.首单元格＝字符 (97 ＋局_计次1 － 1) ＋到文本 (1)       Excel工作簿.尾单元格＝字符 (97 ＋局_计次1 － 1) ＋到文本 (1)       Excel工作簿.内容格式＝ “@”       Excel工作簿.内容＝局_导出列表头 [局_计次1] .计次循环尾 () .计次循环首 (超级列表框1.取表项数 (), 局_计次1)       处理事件 ()       .计次循环首 (取数组成员数 (局_导出列表头), 局_计次2)          Excel工作簿.首单元格＝字符 (97 ＋局_计次2 － 1) ＋到文本 (局_计次1 ＋ 1)          Excel工作簿.尾单元格＝字符 (97 ＋局_计次2 － 1) ＋到文本 (局_计次1 ＋ 1)          Excel工作簿.内容格式＝ “@”          Excel工作簿.内容＝超级列表框1.取标题 (局_计次1 － 1, 局_计次2 － 1)       .计次循环尾 ()       窗口_导出进度.进度条_导出列表.位置＝窗口_导出进度.进度条_导出列表.位置＋ 1 .计次循环尾 () .如果真 (是否已创建 (窗口_导出进度))       窗口_导出进度.销毁 () .如果真结束 Excel工作簿.保存 (通用对话框_导出列表.文件名) Excel工作簿.关闭 () Excel工作簿.释放 () Excel程序.退出 () Excel程序.释放 () 信息框 (“导出成功!”, #信息图标, )

应该能看出来了吧，这段代码是把超级列表框中的数据导入到指定目录的Excel的，这段代码在我写的OA系统中也应用过，所以开发的时候我就直接复制过来的，咩有再写，童鞋们可以直接写个模块，以后调用的时候也方便了····

=================================================================

就写这些吧····有问题加Q提问，尽力为你们解答。  QQ2010108288

关注伟创软件，以后会开源更多好的源码让大家学习，并且贴出解析·····

愚人节，晚安。

奶奶的····附件老师上传失败····贴出百度网盘下载地址吧····不好意思了····
集合备份：http://urlxf.qq.com/?uaEvuuZ
http://pan.baidu.com/s/1i3qSbe1  源码+数据库
http://pan.baidu.com/s/1gdHu6ht  模块