资源描述：
《Access公司货物采购与销售管理系统说明书.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、公司货物采购与销售管理系统设计说明书一、引言公司货物采购与销售管理系统从功能来说，主要是实现对公司货物的信息化管理系统。专门为公司职工设计使用，主要用于职工个人信息查询，了解公司货物进出货情况及库存状况，有利于提高公司职工工作效率，从而增加公司收益。二、系统功能1.职工可以凭自己的职工编号和密码登录公司货物采购与销售管理系统。2职工登陆后，可以查询自己的个人信息及工资情况。3.在系统首页可以便捷地了解公司货物运转及管理情况。4.职工可以自行修改个人登录密码。5.公司货物采购与销售管理系统拥有丰富的查询信息，内容详细，界面美观。三、数据表设计1、创建表如下：
2、2、设计表间的关系在Access中要想管理和使用好表格中的数据，就必须建立表与表之间的关系，只有这样才能将不同表中的数据连接在一起，并为建立查询、创建窗体打下良好的基础。（1）单击“工具”菜单，选择“关系”菜单项，或直接单击快捷键。（2）在“显示表”对话框中，单击需创建关系的表添加到“关系”窗口中。（3）选定“课级表”中的“班级号”字段，然后按住鼠标将去拖到“学生表”中的“班级号”上。在出现的对话框中，选中“实施参照完整性”选项，然后单击“创建”。用同样的方法创建其他表之间的关系，其最终的关系图如下：四、关键技术说明1.登录界面窗体的判断代码：Privat
3、eSub登录_Click()'判断是否输入密码，若否给出提示IfIsNull(Me!密码)ThenIfMsgBox("您没有输入密码！",vbOKOnly,"请确定")=vbOKThenMe!密码.SetFocusExitSubEndIfEndIf'判断学号或教师号是否存在，若不存在给出提示；若存在，继续判断密码是否正确，若不正确，给出提示；若正确，进入系统。DimSQLstringAsStringDimrsAsADODB.RecordsetSetrs=NewADODB.RecordsetSQLstring="select*from登录用户where职工编
4、号='"+Me!用户名+"'"rs.OpenSQLstring,CurrentProject.Connection,adOpenKeyset,adLockOptimisticIfrs.RecordCount=0ThenIfMsgBox("用户名不存在或选择类型错误",vbOKOnly,"请确定")=vbOKThenMe!用户名.SetFocusExitSubEndIfEndIfrs.MoveFirstIfStrComp(rs("密码"),Me!密码,vbBinaryCompare)<>0ThenIfMsgBox("密码错误",vbOKOnly,"请确定")
5、=vbOKThenMe!密码.SetFocusExitSubEndIfEndIfusername=Trim(rs("姓名"))usersno=rs("职工编号")DoCmd.OpenForm"主窗体"DoCmd.CloseacForm,"登录界面"EndSubPrivateSub退出_Click()IfMsgBox("您确定需要退出公司货物采购与销售管理系统吗",vbOKCancel,"请确定")=vbOKThenDoCmd.QuitEndSub2.模块定义全局变量的运用代码：PublicusernameAsStringPublicusersnoAsStr
6、ingPublicselectinsertcoursecnoAsStringFunctionSQLusersno()SQLusersno=usersnoEndFunction3.设计修改密码的窗体：PrivateSub修改密码_Click()IfIsNull(Me!原密码文本框)ThenMsgBox"请输入原来的密码!",vbOKOnly,"请确定"Me!原密码文本框.SetFocusExitSubEndIfIfIsNull(Me!新密码1文本框)ThenMsgBox"请输入新密码!",vbOKOnly,"请确定"Me!新密码1文本框.SetFocusEx
7、itSubEndIfIfIsNull(Me!新密码2文本框)ThenMsgBox"请再次输入新密码!",vbOKOnly,"请确定"Me!新密码2文本框.SetFocusExitSubEndIfIfStrComp(Me!新密码1文本框,Me!新密码2文本框,vbBinaryCompare)<>0ThenMsgBox"你两次输入的新密码不一致!",vbOKOnly,"请确定"Me!新密码1文本框.SetFocusExitSubEndIfDimrsAsADODB.RecordsetSetrs=NewADODB.RecordsetDimSQLstringAsSt
8、ringSQLstring="select*from登录用户whe
