VBA+SQL做的采购系统

jeffgytan · 发表于 2010-11-3 12:05

本帖最后由爱疯于 2011-10-14 22:26 编辑 前段时间做的一个采购系统 表格保护密码 abc123abc  (表格内要求的超级密码也是这个） VBA宏密码 <A href="mailto:jeffgytan@163.com">jeffgytan@163.com</A> 系统说明： 做到订购单到收货到对账的模块。不涉及库存。 有自动备份功能，因为我这里所用的服务器只是普通电脑，未防止数据丢失，通过多台电脑备份数据的方式备份） 物料的索引依据在产品名称与规格，因为是小规模企业使用，所以没有加入物料编码设置。 使用说明没有做，需要说明的地方都放在过程的提示中，应该是看就知道大概是什么用的。 代码说明： 代码可参考之处： VBA连接SQL的应用（包括建立数据库，建表，查询，修改更新） 因为之前开发是自用，而且时间比较紧张，所以代码中并无作太多的备注，阅读比较困难，比较抱歉。 经过几个月的使用，基本无大BUG，不过由于某些原因，不再进一步完善，所以分享给大家玩玩。
[hide][/hide ]
SQL安装设置请参考41楼，安装的时候要选择混合验证模式并设置SA密码。
[此贴子已经被作者于2010-11-13 21:12:31编辑过]

zhj1978 · 发表于 2010-11-3 12:44

点:登陆,失败了

zhj1978 · 发表于 2010-11-3 12:45

把数据库给发过来

jeffgytan · 发表于 2010-11-3 13:52

不用发数据库，安装后sql后，点数据库设置好装有数据库的电脑的名称还有账户密码，有按钮可以自己建立库，建立表。

jeffgytan · 发表于 2010-11-3 13:53

晕死，这个要跟SQL一起用的，单单用当然登陆失败。

jeffgytan · 发表于 2010-11-3 13:56

还是详细说明下初步使用的，原来想只是分享下代码而已。第一个进去主界面，有个数据库设置按钮。点后要求输入超级密码 abc123abc设置<table cellspacing="0" cellpadding="0" width="305" border="0" style="WIDTH: 229pt; BORDER-COLLAPSE: collapse;"><colgroup><col width="120" style="WIDTH: 90pt; mso-width-source: userset; mso-width-alt: 3840;"></col><col width="185" style="WIDTH: 139pt; mso-width-source: userset; mso-width-alt: 5920;"></col></colgroup><tbody><tr height="19" style="HEIGHT: 14.25pt;"><td class="xl25" width="120" height="19" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; WIDTH: 90pt; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent;">服务器名称</td><td class="xl26" width="185" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext 0.5pt solid; BORDER-LEFT: windowtext; WIDTH: 139pt; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ccffcc;">SWEN</td></tr><tr height="19" style="HEIGHT: 14.25pt;"><td class="xl25" height="19" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent;">服务器SQL账户</td><td class="xl26" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ccffcc;">SA</td></tr><tr height="19" style="HEIGHT: 14.25pt;"><td class="xl25" height="19" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent;">服务器SQL密码</td><td class="xl26" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ccffcc;">SWEN</td></tr><tr height="19" style="HEIGHT: 14.25pt;"><td class="xl25" height="19" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent;">库名</td><td class="xl26" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ccffcc;">

msystem</td></tr></tbody></table>这里改成你装有SQL电脑的名字，还有sql账号密码点建立库按钮，就会建立数据库，再点建立表就会建立相应的数据表。目前只在SQL2000用过。其他我没测试过

bluelyne · 发表于 2010-11-3 21:19

来看看

zhj1978 · 发表于 2010-11-4 12:20

<table cellspacing="0" cellpadding="0" width="305" border="0" style="WIDTH: 229pt; BORDER-COLLAPSE: collapse;"><tbody><tr height="19" style="HEIGHT: 14.25pt;"><td class="xl25" width="120" height="19" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; WIDTH: 90pt; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent;">服务器名称</td><td class="xl26" width="185" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext 0.5pt solid; BORDER-LEFT-COLOR: windowtext; WIDTH: 139pt; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ccffcc;">SWEN</td></tr><tr height="19" style="HEIGHT: 14.25pt;"><td class="xl25" height="19" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BORDER-TOP-COLOR: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent;">服务器SQL账户</td><td class="xl26" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-LEFT-COLOR: windowtext; BORDER-TOP-COLOR: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ccffcc;">SA</td></tr><tr height="19" style="HEIGHT: 14.25pt;"><td class="xl25" height="19" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BORDER-TOP-COLOR: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent;">服务器SQL密码</td><td class="xl26" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-LEFT-COLOR: windowtext; BORDER-TOP-COLOR: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ccffcc;">SWEN</td></tr><tr height="19" style="HEIGHT: 14.25pt;"><td class="xl25" height="19" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BORDER-TOP-COLOR: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent;">库名</td><td class="xl26" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-LEFT-COLOR: windowtext; BORDER-TOP-COLOR: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ccffcc;">

msystem</td></tr></tbody></table>什么意思，怎么该，我的电脑名字zhanghuaj，没有密码，刚装SQL2000请帮忙该正确的

jeffgytan · 发表于 2010-11-4 14:02

如果安装的过程中没有设定SA密码，那么麻烦你设定一个sa的密码sa密码设定方法，开打SQL“企业管理器”，点本机数据库 ----安全性-----登陆。在右边的看到SA的用户名，该你喜欢的密码，或者干脆是空密码下面以空密码为例子：改成这样就可以了<table cellspacing="0" cellpadding="0" width="305" border="0" style="WIDTH: 229pt; BORDER-COLLAPSE: collapse;"><tbody><tr height="19" style="HEIGHT: 14.25pt;"><td class="xl25" width="120" height="19" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; WIDTH: 90pt; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent;">服务器名称</td><td class="xl26" width="185" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext 0.5pt solid; BORDER-LEFT-COLOR: windowtext; WIDTH: 139pt; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ccffcc;">zhanghuaj</td></tr><tr height="19" style="HEIGHT: 14.25pt;"><td class="xl25" height="19" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BORDER-TOP-COLOR: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent;">服务器SQL账户</td><td class="xl26" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-LEFT-COLOR: windowtext; BORDER-TOP-COLOR: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ccffcc;">SA</td></tr><tr height="19" style="HEIGHT: 14.25pt;"><td class="xl25" height="19" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BORDER-TOP-COLOR: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent;">服务器SQL密码</td><td class="xl26" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-LEFT-COLOR: windowtext; BORDER-TOP-COLOR: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ccffcc;"></td></tr><tr height="19" style="HEIGHT: 14.25pt;"><td class="xl25" height="19" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BORDER-TOP-COLOR: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 14.25pt; BACKGROUND-COLOR: transparent;">库名</td><td class="xl26" style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-LEFT-COLOR: windowtext; BORDER-TOP-COLOR: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ccffcc;">

msystem</td></tr></tbody></table>(库名你喜欢什么样都行）

dy5453 · 发表于 2010-11-4 14:19

[em02][em02]

		自动登录	找回密码
密码			注册

[待分类] VBA+SQL做的采购系统

本帖子中包含更多资源

浏览过的版块