Access公司货物采购与销售管理系统说明书

公司货物采购与销售管理系统设计说明书

一、引言

公司货物采购与销售管理系统从功能来说，主要是实现对公司货物的信息化管理系统。专门为公司职工设计使用，主要用于职工个人信息查询，了解公司货物进出货情况及库存状况，有利于提高公司职工工作效率，从而增加公司收益。

二、系统功能

1.职工可以凭自己的职工编号和密码登录公司货物采购与销售管理系统。

2职工登陆后，可以查询自己的个人信息及工资情况。

3.在系统首页可以便捷地了解公司货物运转及管理情况。

4.职工可以自行修改个人登录密码。

5. 公司货物采购与销售管理系统拥有丰富的查询信息，内容详细，界面美观。

三、数据表设计

1、创建表如下：

2、设计表间的关系

在Access中要想管理和使用好表格中的数据，就必须建立表与表之间的关系，只有这样才能将不同表中的数据连接在一起，并为建立查询、创建窗体打下良好的基础。

（1）单击“工具”菜单，选择“关系”菜单项，或直接单击快捷键。

（2）在“显示表”对话框中，单击需创建关系的表添加到“关系”窗口中。

（3）选定“课级表”中的“班级号”字段，然后按住鼠标将去拖到“学生表”中的“班级号”上。在出现的对话框中，选中“实施参照完整性”选项，然后单击“创建”。

用同样的方法创建其他表之间的关系，其最终的关系图如下：

四、关键技术说明

1.登录界面窗体的判断代码：

Private Sub 登录_Click()

'判断是否输入密码，若否给出提示

If IsNull(Me!密码) Then

If MsgBox("您没有输入密码！", vbOKOnly, "请确定") = vbOK Then

Me!密码.SetFocus

Exit Sub

End If

End If

'判断学号或教师号是否存在，若不存在给出提示；若存在，继续判断密码是否正确，若不正确，给出提示；若正确，进入系统。

Dim SQLstring As String

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

SQLstring = "select * from 登录用户 where 职工编号='" + Me!用户名 + "'"

rs.Open SQLstring, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rs.RecordCount = 0 Then

If MsgBox("用户名不存在或选择类型错误", vbOKOnly, "请确定") = vbOK Then

Me!用户名.SetFocus

Exit Sub

End If

End If

rs.MoveFirst

If StrComp(rs("密码"), Me!密码, vbBinaryCompare) <> 0 Then

If MsgBox("密码错误", vbOKOnly, "请确定") = vbOK Then

Me!密码.SetFocus

Exit Sub

End If

End If

username = Trim(rs("姓名"))

usersno = rs("职工编号")

DoCmd.OpenForm "主窗体"

DoCmd.Close acForm, "登录界面"

End Sub

Private Sub 退出_Click()

If MsgBox("您确定需要退出公司货物采购与销售管理系统吗", vbOKCancel, "请确定") = vbOK Then DoCmd.Quit

End Sub

2.模块定义全局变量的运用代码：

Public username As String

Public usersno As String

Public selectinsertcoursecno As String

Function SQLusersno()

SQLusersno = usersno

End Function

3.设计修改密码的窗体：

Private Sub 修改密码_Click()

If IsNull(Me!原密码文本框) Then

MsgBox "请输入原来的密码!", vbOKOnly, "请确定"

Me!原密码文本框.SetFocus

Exit Sub

End If

If IsNull(Me!新密码1文本框) Then

MsgBox "请输入新密码!", vbOKOnly, "请确定"

Me!新密码1文本框.SetFocus

Exit Sub

End If

If IsNull(Me!新密码2文本框) Then

MsgBox "请再次输入新密码!", vbOKOnly, "请确定"

Me!新密码2文本框.SetFocus

Exit Sub

End If

If StrComp(Me!新密码1文本框, Me!新密码2文本框, vbBinaryCompare) <> 0 Then MsgBox "你两次输入的新密码不一致!", vbOKOnly, "请确定"

Me!新密码1文本框.SetFocus

Exit Sub

End If

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

Dim SQLstring As String

SQLstring = "select * from 登录用户 where 职工编号='" + usersno + "'"

rs.Open SQLstring, CurrentProject.Connection, adOpenKeyset, adLockOptimistic rs.MoveFirst

If StrComp(rs("密码"), Me!原密码文本框, vbBinaryCompare) <> 0 Then

MsgBox "你输入的原密码错误!", vbOKOnly, "警告!"

Me!原密码文本框.SetFocus

Exit Sub

End If

Set rs = Nothing

Dim updatesqlstring As String

updatesqlstring = "update 登录用户 set 密码='" + Me!新密码1文本框 + "' where 职工编号='" + usersno + "'"

DoCmd.SetWarnings False

DoCmd.RunSQL updatesqlstring

MsgBox "密码修改成功!", vbOKOnly, "恭喜!"

Me!原密码文本框 = ""

Me!新密码1文本框 = ""

Me!新密码2文本框 = ""

End Sub

五．窗体设计