《Access公司货物采购与销售管理系统说明书》由会员分享，可在线阅读，更多相关《Access公司货物采购与销售管理系统说明书（10页珍藏版）》请在金锄头文库上搜索。
1、公司货物采购与销售管理系统设计说明书一、引言公司货物采购与销售管理系统从功能来说，主要是实现对公司货物的信息化管理系统。专门为公司职工设计使用，主要用于职工个人信息查询，了解公司货物进出货情况及库存状况，有利于提高公司职工工作效率，从而增加公司收益。二、系统功能1.职工可以凭自己的职工编号和密码登录公司货物采购与销售管理系统。2职工登陆后，可以查询自己的个人信息及工资情况。3.在系统首页可以便捷地了解公司货物运转及管理情况。4.职工可以自行修改个人登录密码。5. 公司货物采购与销售管理系统拥有丰富的查询信息，内容详细，界面美观。三、数据表设计1、创建表如下： 2、设计表间的关系在Access中
2、要想管理和使用好表格中的数据，就必须建立表与表之间的关系，只有这样才能将不同表中的数据连接在一起，并为建立查询、创建窗体打下良好的基础。（1） 单击“工具”菜单，选择“关系”菜单项，或直接单击快捷键。（2） 在“显示表”对话框中，单击需创建关系的表添加到“关系”窗口中。（3） 选定“课级表”中的“班级号”字段，然后按住鼠标将去拖到“学生表”中的“班级号”上。在出现的对话框中，选中“实施参照完整性”选项，然后单击“创建”。用同样的方法创建其他表之间的关系，其最终的关系图如下：四、关键技术说明1.登录界面窗体的判断代码：Private Sub 登录_Click()判断是否输入密码，若否给出提示If
3、 IsNull(Me!密码) ThenIf MsgBox(您没有输入密码！, vbOKOnly, 请确定) = vbOK ThenMe!密码.SetFocusExit SubEnd IfEnd If判断学号或教师号是否存在，若不存在给出提示；若存在，继续判断密码是否正确，若不正确，给出提示；若正确，进入系统。Dim SQLstring As StringDim rs As ADODB.RecordsetSet rs = New ADODB.RecordsetSQLstring = select * from 登录用户 where 职工编号= + Me!用户名 + rs.Open SQLstri
4、ng, CurrentProject.Connection, adOpenKeyset, adLockOptimisticIf rs.RecordCount = 0 ThenIf MsgBox(用户名不存在或选择类型错误, vbOKOnly, 请确定) = vbOK ThenMe!用户名.SetFocusExit SubEnd IfEnd Ifrs.MoveFirstIf StrComp(rs(密码), Me!密码, vbBinaryCompare) 0 ThenIf MsgBox(密码错误, vbOKOnly, 请确定) = vbOK ThenMe!密码.SetFocusExit SubEn
5、d IfEnd Ifusername = Trim(rs(姓名)usersno = rs(职工编号)DoCmd.OpenForm 主窗体DoCmd.Close acForm, 登录界面End SubPrivate Sub 退出_Click()If MsgBox(您确定需要退出公司货物采购与销售管理系统吗, vbOKCancel, 请确定) = vbOK Then DoCmd.QuitEnd Sub2.模块定义全局变量的运用代码：Public username As StringPublic usersno As StringPublic selectinsertcoursecno As Str
6、ingFunction SQLusersno()SQLusersno = usersnoEnd Function3.设计修改密码的窗体：Private Sub 修改密码_Click()If IsNull(Me!原密码文本框) ThenMsgBox 请输入原来的密码!, vbOKOnly, 请确定Me!原密码文本框.SetFocusExit SubEnd IfIf IsNull(Me!新密码1文本框) ThenMsgBox 请输入新密码!, vbOKOnly, 请确定Me!新密码1文本框.SetFocusExit SubEnd IfIf IsNull(Me!新密码2文本框) ThenMsgBox
7、 请再次输入新密码!, vbOKOnly, 请确定Me!新密码2文本框.SetFocusExit SubEnd IfIf StrComp(Me!新密码1文本框, Me!新密码2文本框, vbBinaryCompare) 0 ThenMsgBox 你两次输入的新密码不一致!, vbOKOnly, 请确定Me!新密码1文本框.SetFocusExit SubEnd IfDim rs As ADODB.RecordsetSet rs = New ADODB.RecordsetDim SQLstring As StringSQLstring = select * from 登录用户 where 职工编
8、号= + usersno + rs.Open SQLstring, CurrentProject.Connection, adOpenKeyset, adLockOptimisticrs.MoveFirstIf StrComp(rs(密码), Me!原密码文本框, vbBinaryCompare) 0 ThenMsgBox 你输入的原密码错误!, vbOKOnly, 警告!Me!原密码文本框.SetFocusExit SubEnd IfSet rs = NothingDim updatesqlstring As Stringupdatesqlstring = update 登录用户 set 密
9、码= + Me!新密码1文本框 + where 职工编号= + usersno + DoCmd.SetWarnings FalseDoCmd.RunSQL updatesqlstringMsgBox 密码修改成功!, vbOKOnly, 恭喜!Me!原密码文本框 = Me!新密码1文本框 = Me!新密码2文本框 = End Sub五窗体设计1.登陆窗体，职工可以通过此窗体登陆：2.登陆成功后，显示主窗体：3.点击职工，可以查看对应职位的个人信息：4.点击工资，职工可以查看到自己的工资情况：5.点击货物，可以查看公司的货物种类：6.点击进/出货单，可以查看公司进出货情况：7.点击库存量，可以查看公司的货物储存情况：8.通过修改密码窗体，职工可以更改自己的用户密码：
