商品交易信息管理系统

1、目录目录 第一章第一章 系统功能概述系统功能概述 .2 1.1.系统功能.2 1.2.系统结构总图.2 第二章第二章 数据库设计数据库设计 .3 2.1 需求分析.3 2.2.商品交易信息系统的 E-R 模型.4 2.3.商品交易信息系统关系模型.4 2.4.商品交易信息管理系统表结构设计.6 第三章第三章 系统各功能模块的详细设计系统各功能模块的详细设计 .9 3.1.欢迎界面.9 3.2.用户登录界面与注册新用户界面.10 3.3主界面.14 3.4.浏览界面.16 3.5.查询界面.20 第四章总结第四章总结 .22 参考文献参考文献 .22 沈阳理工大学课程设计专用纸 No2 沈阳理工

2、大学 2 第一章第一章 系统功能概述系统功能概述 1.1.系统功能系统功能 商品交易信息管理系统就是利用计算机对商品交易的信息进行管理，其中包括对商 品信息的管理，交易信息的管理，进货信息的管理，供货商信息的管理，营业员信息管 理，以便对商品交易进行统筹管理。 商品交易信息管理系统主要有以下功能： （1）商品信息管理：对商品的基本信息进行管理及维护，能够实现商品的各种信息 的添加、修改或删除，也能过通过查询某条信息对此商品的基本信息进行查找。 （2）交易信息管理：对交易的基本信息进行管理及维护，能够实现商品交易的各种 信息的添加、修改或删除，也能过通过查询某条信息对此商品交易的基本信息进行查找

3、。 （3）进货信息管理：对进货的基本信息进行管理及维护，能够实现商品进货的各种 信息的添加、修改或删除，也能过通过查询某条信息对此进货基本信息进行查找。 （4）供货商信息管理：对供货商的基本信息进行管理及维护，能够实现供货商的各 种信息的添加、修改或删除，也能过通过查询某条信息对此供货商基本信息进行查找。 （5）营业员信息管理：对营业员的基本信息进行管理及维护，能够实现营业员的各 种信息的添加、修改或删除，也能过通过查询某条信息对此营业员的基本信息进行查找。 1.2.系统结构总图系统结构总图 商品信息管理系统结构总图如图一所示： 图一 沈阳理工大学课程设计专用纸 No3 沈阳理工大学 3 第二

4、章第二章 数据库设计数据库设计 2.1 需求分析需求分析 本系统是用于从事于商业的企业对所拥有的商品的信息进行统筹规划，使利益最大 化。本系统有两大主要组成部分，一部分为数据库设计部分，另一部分为窗体设计部分。 数据库中数据包括六个表，系统信息（用户名，密码） ，商品信息（商品编号、商品 名称、种类、库存量），营业员信息（营业员编号，姓名，性别，联系电话） ，供货商信息 （供货商号、供货商名称、地址、联系人、联系电话、电子邮件） ，商品交易信息（商品 编号、商品名称、交易日期、交易件数、售价） ，进货信息（商品信息、商品编号、进货 日期、进货件数、进价） 。 启动封面窗体及登录对话框的设计要求

5、：图片背景、欢迎类文字、单击显示“进入 系统”标题的标签或按钮，将打开“登录”对话框，用户输入用户名和密码，若正确则 打开下面的主窗体；否则提示密码错误，请重新输入。最多允许输入 3 次；单击“注册 新用户”标签或按钮。 主控窗体设计为 MDI 窗体，含有主菜单：文件、数据管理、数据查询。 文件菜单包含以下子菜单及其功能： 注册新用户菜单：打开“注册新用户”窗体 退出：结束程序运行 数据管理 包含以下子菜单： 商品信息菜单：显示商品信息浏览窗体 营业员信息菜单：显示营业员信息窗体 供货商信息菜单：显示供货商信息窗体 商品交易信息菜单：显示商品交易信息窗体 数据查询包含以下子菜单： 查询供货商信

6、息：显示供货商信息查询窗体 查询商品信息：显示商品信息查询窗体 查询商品交易信息：显示商品交易信息查询窗体 查询营业员信息：显示营业员信息查询窗体 注册新用户窗体用于添加新的用户名和密码。要求：若新用户名与系统信息表原有 用户名相同，则提示“用户名已存在，重新输入” ；判断二次输入密码若不一致，则提示 用户“输入密码不一致，重新输入密码” ；判断若输入密码为空，则提示“密码不能为空” ；若输入正确，则将输入的用户名保存到“系统信息”表，并提示“注册用户成功” ，关 闭本窗体。 以下各窗体设为 MDI 主窗体的子窗体 分别设计各个信息窗体功能：浏览和录入各信息。该窗体以文本框显示当前记录， 用按

7、钮首记录、末记录、前一个、后一个，控制记录指针的移动；用一个标签 Label 显示：当前记录号/记录总数；单击表格显示按钮，显示 DataGrid 控件 (Visible=True)，以表格形式显示商品信息表，单击返回按钮，可以关闭本窗体，返回主 窗体。可以对记录进行新增、确认、删除、取消操作。 沈阳理工大学课程设计专用纸 No4 沈阳理工大学 4 各种信息的查询窗体可以按各种条件查找，这些条件放在组合列表框 Combo 中,供用 户选择。在文本框中输入要查询的内容，单击查询按钮，查询结果用网格控件显示.。 2.2.商品交易信息系统的商品交易信息系统的 E-R 模型模型 供应商 商品 营业员

8、进货交易 2.3.商品交易信息系统关系模型商品交易信息系统关系模型 （1）系统信息（用户名用户名、密码）如图二 （2）商品信息（商品编号商品编号、商品名称、种类、库存量）如图三 （3）交易信息（商品编号商品编号、商品名称、交易日期、交易件数、售价）如图四 （4）进货信息（商品编号商品编号、商品名称、进货日期、进货件数、进价）如图五 （5）供货商信息（供货商号供货商号、供货商姓名、地址、联系人、联系电话、电子邮件）如图 六 （6）营业员信息（营业员编号营业员编号、姓名、性别、联系电话）如图七 系统信息 用户名密码 图二 沈阳理工大学课程设计专用纸 No5 沈阳理工大学 5 商品信息 商品编号商品

9、名称 种类库存量 图三 交易信息 商品编号商品名称 交易日期 交易件数 售价 图四 进货信息 商品编号商品名称 进货日期 进货件数 进价 图五 沈阳理工大学课程设计专用纸 No6 沈阳理工大学 6 供货商信息 供货商号 供货商名称 地址 联系人 联系人电话 电子邮件 图六 营业员信息 营业员编号姓名 性别联系电话 图七 2.4.商品交易信息管理系统表结构设计商品交易信息管理系统表结构设计 （1）表的建立 create table 系统信息 (用户名 char(20), 密码 char(6), ); create table 商品信息 (商品编号 char(7) primary key, 商品名

10、称 char(20), 种类 char(2), 沈阳理工大学课程设计专用纸 No7 沈阳理工大学 7 库存量 char(2), ); create table 营业员信息 (营业员编号 char(7) primary key, 姓名 char(20), 性别 char(2), 联系电话 char(11), ); create table 供货商信息 (供货商号 char(7) primary key, 供货商名称 char(20), 地址 char(10), 联系人 char(10), 联系电话 char(10), 电子邮件 char(20), ); create table 交易信息 (商品

11、编号 char(7) primary key, 商品名称 char(20), 交易日期 char(20), 交易件数 char(10), 售价 char(10) ); create table 进货信息 (商品编号 char(7) primary key, 商品名称 char(20), 进货日期 char(20), 进货件数 char(10), 进价 char(10) ); （2）基本数据如下： 沈阳理工大学课程设计专用纸 No8 沈阳理工大学 8 按如下步骤，根据向导配置系统数据源。 开始设置 控制面板 管理工具 数据源（ODBC） 系统 DSN添加驱动程 序选为 SQL Server成功

12、给出该数据源的名称、描述、服务器 更改默认数据库为 （自己所建的数据库） 测试 成功 确定 确定。 沈阳理工大学课程设计专用纸 No9 沈阳理工大学 9 第三章第三章 系统各功能模块的详细设计系统各功能模块的详细设计 3.1.欢迎界面欢迎界面 本界面应用 VB 中的 Label控件输入以下字符，背景设为透明。在本窗体中加入 一个 Timer控件来控制“欢迎进入商品交易信息管理系统”字符的颜色变化，设置间 隔时间为 500 毫秒。点击“点击此处进入”便可进去本系统。 代码如下： Private Sub Label3_Click() 登陆.Show End Sub Private Sub Time

13、r1_Timer() Static n As Integer n = n + 1 If n 15 Then n = 0 End If Label2.ForeColor = QBColor(n) 沈阳理工大学课程设计专用纸 No10 沈阳理工大学 10 Label1.ForeColor = QBColor(n) End Sub 3.2.用户登录界面与注册新用户界面用户登录界面与注册新用户界面 “用户名” 、 “密码”均由 Label控件输入，背景设为透明，之后介绍的界面中的 字符均由此方法输入，故将不做说明。给出可以输入字符的空白由 TextBox控件做成， 可进行字体大小与颜色的修改。按钮由

14、CommandButton设置，通过设置属性可改变按 钮的视觉效果，可更改按键上的字符，颜色等。添加 Adodc（Visible=False） ，用来与 数据库相连。 验证用户信息截图如下 沈阳理工大学课程设计专用纸 No11 沈阳理工大学 11 代码如下： Private Sub Command1_Click() Dim sqlstr As String sqlstr = Select * From 系统信息 Where 用户名 = & Text1 & Adodc1.RecordSource = sqlstr Adodc1.Refresh If Adodc1.Recordset.BOF Th

15、en MsgBox 用户名错误，重新输入, vbExclamation, 警告 Text1.Text = Text1.SetFocus Text1 获得焦点 Else 判断密码是否正确 If Adodc1.Recordset.Fields(密码) = Text2 Then 主界面.Show Unload Me Else MsgBox 密码错误，重新输入 , vbExclamation, 警告 Text2.Text = Text2.SetFocus End If End If miCount = miCount + 1 沈阳理工大学课程设计专用纸 No12 沈阳理工大学 12 If miCoun

16、t = 3 Then Unload Me 判断输入次数是否超过三次 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() 注册新用户.Show End Sub 注册新用户设计与用户登记界面设计基本相同。 注册新用户截图如下 沈阳理工大学课程设计专用纸 No13 沈阳理工大学 13 代码如下： Private Sub Command1_Click(Index As Integer) Dim sqlstr As String If Text1 = Then MsgBox 请输入用户名！

17、, vbExclamation, 确认用户名 Text1.SetFocus Exit Sub Else sqlstr = Select * from 系统信息 where 用户名= & Text1 & Adodc1.RecordSource = sqlstr Adodc1.Refresh If Adodc1.Recordset.EOF = False Then MsgBox 用户名已存在，请重新输入！, vbExclamation, 检验用户名 Text1 = Text1.SetFocus Exit Sub End If End If If Text2 Text3 Then MsgBox 二次

18、输入的密码不一致，请重新输入, vbExclamation, 检验密码 Text2 = : Text3 = Text2.SetFocus Exit Sub ElseIf Text2 = Then 沈阳理工大学课程设计专用纸 No14 沈阳理工大学 14 MsgBox 密码不能为空！, vbExclamation, 检验密码 Text2.SetFocus Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用户名) = Trim(Text1) Adodc1.Recordset.Fields(密码) = Trim(Text2) Adodc1.R

19、ecordset.Update Me.Hide MsgBox 成功注册新用户！, vbInformation, 添加用户 End If End Sub Private Sub Command2_Click(Index As Integer) Unload Me End Sub 3.3主界面主界面 主界面是 MDI 窗体，含有主菜单：文件、数据管理、数据查询。 文件菜单包含以下子菜单及其功能： 注册新用户菜单：打开“注册新用户”窗体 退出：结束程序运行 数据管理 包含以下子菜单： 商品信息菜单：显示商品信息浏览窗体 营业员信息菜单：显示营业员信息窗体 供货商信息菜单：显示供货商信息窗体 商品交易

20、信息菜单：显示商品交易信息窗体 数据查询包含以下子菜单： 查询供货商信息：显示供货商信息查询窗体 查询商品信息：显示商品信息查询窗体 查询商品交易信息：显示商品交易信息查询窗体 查询营业员信息：显示营业员信息查询窗体 在菜单编辑器中编辑以上菜单栏。单击相应选项，就会弹出相应窗口。 沈阳理工大学课程设计专用纸 No15 沈阳理工大学 15 代码现实如下： Private Sub deal_Click() 交易信息.Show End Sub Private Sub exit_Click() Unload Me End Sub Private Sub gonghuo_Click() 供货商信息.Sh

21、ow End Sub Private Sub jinhuo_Click() 进货信息.Show End Sub Private Sub MDIForm_Load() End Sub Private Sub new_Click() 注册新用户.Show End Sub Private Sub saler_Click() 营业员信息.Show End Sub 沈阳理工大学课程设计专用纸 No16 沈阳理工大学 16 Private Sub sdeal_Click() 交易信息查询.Show End Sub Private Sub sgh_Click() 供货商信息查询.Show End Sub P

22、rivate Sub shangpin_Click() 商品信息.Show End Sub Private Sub sjinhuo_Click() 进货信息查询.Show End Sub Private Sub ssaler_Click() 营业员信息查询.Show End Sub Private Sub sshanpin_Click() 商品信息查询.Show End Sub 3.4.浏览界面浏览界面 在浏览界面中可以对数据库中的数据进行浏览，添加与删除，要实现此功能则必须 用 Adodc（Visible=False）控件与数据库相连，在运行中隐藏此控件。还可在空格中 输入要移动的数量，进行

23、隔条浏览。在点击表格显示时，弹出另一个窗口，显示含有所 有数据的表格，单击返回，回到浏览窗口。 以下为商品信息浏览窗口运行时的截图 沈阳理工大学课程设计专用纸 No17 沈阳理工大学 17 表格显示截图如下 沈阳理工大学课程设计专用纸 No18 沈阳理工大学 18 添加记录截图如下 删除记录截图如下 沈阳理工大学课程设计专用纸 No19 沈阳理工大学 19 代码如下： Private Sub Form_Load() CmdFirst.Enabled = False 首记录按钮无效 CmdPre.Enabled = False 前移按钮无效 CmdNext.Enabled = True 后移按钮

24、有效 CmdLast.Enabled = True 末记录按钮有效 CmdAdd.Enabled = True 添加按钮有效 CmdDel.Enabled = True 删除按钮有效 CmdOk.Enabled = False 确定按钮无效 CmdEsc.Enabled = False 取消按钮无效 Label6.Caption = 记录： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCount End Sub Private Sub CmdAdd_Click() 添加按钮的单击事件 Adodc1.Recor

25、dset.AddNew CmdAdd.Enabled = False CmdDel.Enabled = False CmdOk.Enabled = True CmdEsc.Enabled = True End Sub Private Sub CmdOk_Click() 单击确认按钮 Adodc1.Recordset.Update CmdAdd.Enabled = True CmdDel.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False End Sub Private Sub CmdDel_Click() 单击删除按钮 x =

26、 MsgBox(确实要删除当前记录吗？, vbYesNo + vbQuestion, 确认) If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else Adodc1.Refresh End If End Sub Private Sub CmdEsc_Click() 取消按钮 Adodc1.Refresh CmdAdd.Enabled = True CmdDel.Enabled = Tr

27、ue CmdOk.Enabled = False 沈阳理工大学课程设计专用纸 No20 沈阳理工大学 20 CmdEsc.Enabled = False End Sub Private Sub CmdN_Click() Dim n As Integer n = Text6.Text Adodc1.Recordset.Move n Label6.Caption = 记录： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCount If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast CmdLast.Enabled = False CmdNext.Enabled = False End If End Sub 3.5.查询界面查询界面 在查询界面中，可以通过每条记录的一项基本