设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 3114|回复: 14
打印 上一主题 下一主题

[Access本身] 本人正在建一个有关生产管理方面的数据库,现在在建库中存在很严重的编码问题,请赐教

[复制链接]
跳转到指定楼层
1#
发表于 2015-3-6 22:52:45 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 山东小妮子 于 2015-3-13 22:00 编辑

我现在将数据库中存在的问题具体表述如下,希望得到各路高人的指点:
1.请打开窗体“人机交互界面1”,该窗体为该数据库的窗口,进入该窗体则数据库的各项有关功能都能以此得知,其中:
    A.请打开窗体“设置用户权限”(分为三个板块:权限管理,用户管理,窗体管理),其中的用户权限管理的功能仍然不能实现,即在这个选项页中给不同的用户设置不同的权限(具体相关表有:用户,窗体汇总,用户权限)   B.请打开“操作日记”窗体,只是建了几张相关的表:如操作日记及建了部分模块:请指导操作日记实现的一个具体思路

2.请打开窗体“人机交互界面1”,再输入所有数据之后,点击“New/新建”进入下一窗体“人机交互界面2”,在窗体“人机交互界面2”中填完数据后,点击“Save/保存”按钮,则又出现了代码错误提示,之后请帮忙进行调试~~~主要使用了ADO导出数据的功能(该按钮的作用是将该窗体中输入的数据输出储存在相应的表格中)。PS:当表为rst6时:
  'rst6.Fields("scrap报废") =                '为Child138中的当type值为“scrap”时的数值
这可能涉及到一个有条件的问题
,因为type值可能有好多种,但只有当值为“scrap”时,数据才导出到表6的字段中,不知道该如何实现


3.请打开“用户登陆”窗体,登陆界面的设计如何与权限相联系(已下载“权限麻雀”,正准备研究)

4.
很惭愧将这种满是错误的Broken作品发到我们这么高大上的平台上来,但作为菜鸟的我编程能力实在欠缺,虽然看过本站好多优秀的作品但还是没有发现我作品中的代码错误,悟性实在是低,所以发表帖子以求助各路高人,也是想让自己在access上得到指点,已得到能力上的飞跃以能够在接下来的时间为其他人提供帮助{:soso_e176:}{:soso_e176:}{:soso_e176:}




本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

点评

麻烦把密码给出来。版友应该不太喜欢去调试MD5加解密的结果。  发表于 2015-3-14 17:10
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2015-3-7 08:35:12 | 只看该作者
叔一直梦想成为高富帅,所以先来这个高大上的论坛培养下气质.
也是山东来的,想帮你这小忙,可是水平有限,帮顶
3#
发表于 2015-3-7 08:53:49 | 只看该作者
本帖最后由 风中漫步 于 2015-3-19 13:16 编辑

欢迎老乡
回复

使用道具 举报

4#
发表于 2015-3-7 09:39:06 | 只看该作者
可以使用本论坛的开放平台,http://www.office-cn.net/thread-118270-1-1.html
5#
发表于 2015-3-7 16:43:25 | 只看该作者
本帖最后由 roych 于 2015-3-7 16:44 编辑

昨天我还以为只有一丁点问题……我错了
现在先总结下,你改好了我再看看。
1、A:建议把用户权限的用户名改为文本,因为用户表的用户名也是文本,而不是数字。同时注意把里面所有涉及到用户名字段的sql语句修改为文本格式(前后加上单引号)。那么A的问题应该基本解决了。
    B:把操作日记的Form_Load()事件中这两个调用过程去掉(加载时不必更新数据):   
    'Call chkUseDate_AfterUpdate
    'Call cmdQuery_Click
2、SQL语句全部改为这个格式:
a、strSQL1 = "select * from [output] where IDmain生产批号= DMax('IDmain生产批号', 'output')"
b、要么删掉所有的Movefirst,要么加上RecordCount进行判断(If RecordCount>0 Then MoveFirst……)。否则0记录时出错。
c、加上rstn.AddNew(n=1~6)
d、rst6.Fields("waiting for the material等料") = Me.E.Value这类型的字段,全部改为:
rst6.Fields("[waiting for the material等料]") = Me.E.Value

最后给点建议。不要一大串text1、text2……尽量把控件名称改为跟字段匹配的名称。这样的话,可以写个通用模块。把字段名称跟控件名称相同作为条件进行数据的读写。例如
rst(ctr1.Name)=me.ctr1.value
………………

6#
 楼主| 发表于 2015-3-7 18:46:02 | 只看该作者
roych 发表于 2015-3-7 16:43
昨天我还以为只有一丁点问题……我错了
现在先总结下,你改好了我再看看。
1、A:建议把用户权限的用 ...

好耶好耶,我赶紧改改去
7#
 楼主| 发表于 2015-3-7 18:46:26 | 只看该作者
yanwei82123300 发表于 2015-3-7 09:39
可以使用本论坛的开放平台,http://www.office-cn.net/thread-118270-1-1.html

谢谢推荐
8#
 楼主| 发表于 2015-3-7 18:46:41 | 只看该作者
风中漫步 发表于 2015-3-7 08:53
欢迎老乡加我QQ
e24933c852f33,去掉字母就是

已加
9#
 楼主| 发表于 2015-3-7 18:47:12 | 只看该作者
风中漫步 发表于 2015-3-7 08:35
叔一直梦想成为高富帅,所以先来这个高大上的论坛培养下气质.
也是山东来的,想帮你这小忙,可是水平有限,帮 ...

老乡,谢啦谢啦
10#
 楼主| 发表于 2015-3-17 19:29:26 | 只看该作者
全是“123456”
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-5 14:22 , Processed in 0.089888 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表