简易汽车租赁管理系统（可本地可服务器）

519505667 · 发表于 2017-12-19 11:49:13

支持开源~！感谢分享

丹水剑客 · 发表于 2017-12-19 10:31:51

支持开源~！感谢分享

jy星空 · 发表于 2017-12-15 17:19:17

支持开源~！感谢分享

915宝宝老公 · 发表于 2017-12-15 10:30:14

下载下来研究下

915宝宝老公 · 发表于 2017-12-15 10:29:49

支持开源~！感谢分享

jxj060 · 发表于 2017-12-14 11:41:27

程序源码中的取表名方法失效了，更新一下

.版本 2

.子程序取Access表名, 逻辑型, 公开, 支持mdb及accdb,取表名到数组
.参数 Access文件名, 文本型
.参数 Access密码, 文本型, 可空
.参数 Access表名数组, 文本型, 数组
.局部变量 Mycat对象, 对象
.局部变量 Tables对象, 对象
.局部变量连接字符串, 文本型
.局部变量 i, 整数型
.局部变量表数量, 整数型
.局部变量表名, 文本型

清除数组 (Access表名数组)
.如果真 (是否为空 (Access密码))
Access密码＝ “”
.如果真结束
Mycat对象.创建 (“ADOX.Catalog”, )
.如果真 (到小写 (取文本右边 (Access文件名, 3)) ＝ “mdb”)
连接字符串＝ “Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=” ＋ Access文件名＋ “;Jet OLEDB:DataBase Password=” ＋ Access密码＋ “;Persist Security Info=False”
.如果真结束
.如果真 (到小写 (取文本右边 (Access文件名, 5)) ＝ “accdb”)
连接字符串＝ “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” ＋ Access文件名＋ “;Jet OLEDB:Database Password=” ＋ Access密码＋ “;”
.如果真结束

Mycat对象.写属性 (“ActiveConnection”, 连接字符串)
Tables对象＝ Mycat对象.读对象型属性 (“Tables”, )
表数量＝ Tables对象.读数值属性 (“Count”, )
.计次循环首 (表数量, i)
表名＝ Tables对象.读对象型属性 (“Item”, i － 1).读文本属性 (“Name”, )  ' 序号从0开始
.如果真 (取文本左边 (表名, 4) ≠ “MSys”)  ' 过虑掉系统表名
      加入成员 (Access表名数组, 表名)
.如果真结束

.计次循环尾 ()
Tables对象.清除 ()
Mycat对象.清除 ()
返回 (真)

jxj060 · 发表于 2017-12-14 09:09:30

740949011 发表于 2017-12-13 22:13
把MainDB.mdb发一份吧，不会弄

运行文件夹相关文件

740949011 · 发表于 2017-12-13 22:13:22

把MainDB.mdb发一份吧，不会弄

740949011 · 发表于 2017-12-13 20:44:51

不错不错谢谢分享

a62672 · 发表于 2017-12-13 19:09:06

666666666666666666666666

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

[2017开源大赛(第二届)] 简易汽车租赁管理系统（可本地可服务器）

评分