商品交易信息管理系统

沈阳理工大学课程设计专用纸NoPAGE8PAGEPAGE8沈阳理工大学目录第一章系统功能概述 21.1.系统功能 21.2.系统结构总图 2第二章数据库设计 32.1需求分析 32.2.商品交易信息系统的E-R模型 42.3.商品交易信息系统关系模型 42.4.商品交易信息管理系统表结构设计 6第三章系统各功能模块的详细设计 93.1.欢迎界面 93.2.用户登录界面与注册新用户界面 103.3．主界面 143.4.浏览界面 163.5.查询界面 20第四章．总结 22参考文献 22第一章系统功能概述1.1.系统功能商品交易信息管理系统就是利用计算机对商品交易的信息进行管理，其中包括对商品信息的管理，交易信息的管理，进货信息的管理，供货商信息的管理，营业员信息管理，以便对商品交易进行统筹管理。商品交易信息管理系统主要有以下功能：（1）商品信息管理：对商品的基本信息进行管理及维护，能够实现商品的各种信息的添加、修改或删除，也能过通过查询某条信息对此商品的基本信息进行查找。（2）交易信息管理：对交易的基本信息进行管理及维护，能够实现商品交易的各种信息的添加、修改或删除，也能过通过查询某条信息对此商品交易的基本信息进行查找。（3）进货信息管理：对进货的基本信息进行管理及维护，能够实现商品进货的各种信息的添加、修改或删除，也能过通过查询某条信息对此进货基本信息进行查找。（4）供货商信息管理：对供货商的基本信息进行管理及维护，能够实现供货商的各种信息的添加、修改或删除，也能过通过查询某条信息对此供货商基本信息进行查找。（5）营业员信息管理：对营业员的基本信息进行管理及维护，能够实现营业员的各种信息的添加、修改或删除，也能过通过查询某条信息对此营业员的基本信息进行查找。1.2.系统结构总图商品信息管理系统结构总图如图一所示：图一第二章数据库设计2.1需求分析本系统是用于从事于商业的企业对所拥有的商品的信息进行统筹规划，使利益最大化。本系统有两大主要组成部分，一部分为数据库设计部分，另一部分为窗体设计部分。数据库中数据包括六个表，系统信息（用户名，密码），商品信息（商品编号、商品名称、种类、库存量），营业员信息（营业员编号，姓名，性别，联系电话），供货商信息（供货商号、供货商名称、地址、联系人、联系电话、电子邮件），商品交易信息（商品编号、商品名称、交易日期、交易件数、售价），进货信息（商品信息、商品编号、进货日期、进货件数、进价）。启动封面窗体及登录对话框的设计要求：图片背景、欢迎类文字、单击显示“进入系统”标题的标签或按钮，将打开“登录”对话框，用户输入用户名和密码，若正确则打开下面的主窗体；否则提示密码错误，请重新输入。最多允许输入3次；单击“注册新用户”标签或按钮。主控窗体设计为MDI窗体，含有主菜单：[文件]、[数据管理]、[数据查询]。[文件]菜单包含以下子菜单及其功能：[注册新用户]菜单：打开“注册新用户”窗体[退出]：结束程序运行[数据管理]包含以下子菜单：[商品信息]菜单：显示商品信息浏览窗体[营业员信息]菜单：显示营业员信息窗体[供货商信息]菜单：显示供货商信息窗体[商品交易信息]菜单：显示商品交易信息窗体[数据查询]包含以下子菜单：[查询供货商信息]：显示供货商信息查询窗体[查询商品信息]：显示商品信息查询窗体[查询商品交易信息]：显示商品交易信息查询窗体[查询营业员信息]：显示营业员信息查询窗体注册新用户窗体用于添加新的用户名和密码。要求：若新用户名与系统信息表原有用户名相同，则提示“用户名已存在，重新输入”；判断二次输入密码若不一致，则提示用户“输入密码不一致，重新输入密码”；判断若输入密码为空，则提示“密码不能为空”；若输入正确，则将输入的用户名保存到“系统信息”表，并提示“注册用户成功”，关闭本窗体。以下各窗体设为MDI主窗体的子窗体分别设计各个信息窗体功能：浏览和录入各信息。该窗体以文本框显示当前记录，用按钮[首记录]、[末记录]、[前一个]、[后一个]，控制记录指针的移动；用一个标签Label显示：当前记录号/记录总数；单击[表格显示]按钮，显示DataGrid控件(Visible=True)，以表格形式显示商品信息表，单击[返回]按钮，可以关闭本窗体，返回主窗体。可以对记录进行新增、确认、删除、取消操作。各种信息的查询窗体可以按各种条件查找，这些条件放在组合列表框Combo中,供用户选择。在文本框中输入要查询的内容，单击[查询]按钮，查询结果用网格控件显示.。2.2.商品交易信息系统的E-R模型供应商供应商商品营业员进货交易2.3.商品交易信息系统关系模型（1）系统信息（用户名、密码）如图二（2）商品信息（商品编号、商品名称、种类、库存量）如图三（3）交易信息（商品编号、商品名称、交易日期、交易件数、售价）如图四（4）进货信息（商品编号、商品名称、进货日期、进货件数、进价）如图五（5）供货商信息（供货商号、供货商姓名、地址、联系人、联系电话、电子邮件）如图六（6）营业员信息（营业员编号、姓名、性别、联系电话）如图七系统信息系统信息用户名密码图二商品信息商品信息商品编号商品名称种类库存量图三交易信息交易信息商品编号商品名称交易日期交易件数售价图四进货进货信息商品编号商品名称进货日期进货件数进价图五供货商信息供货商信息供货商号供货商名称地址联系人联系人电话电子邮件图六营业员信息营业员信息营业员编号姓名性别联系电话图七2.4.商品交易信息管理系统表结构设计（1）表的建立createtable系统信息(用户名char(20),密码char(6),);createtable商品信息(商品编号char(7)primarykey,商品名称char(20),种类char(2),库存量char(2),);createtable营业员信息(营业员编号char(7)primarykey,姓名char(20),性别char(2),联系电话char(11),);createtable供货商信息(供货商号char(7)primarykey,供货商名称char(20),地址char(10),联系人char(10),联系电话char(10),电子邮件char(20),);createtable交易信息(商品编号char(7)primarykey,商品名称char(20),交易日期char(20),交易件数char(10),售价char(10));createtable进货信息(商品编号char(7)primarykey,商品名称char(20),进货日期char(20),进货件数char(10),进价char(10));（2）基本数据如下：按如下步骤，根据向导配置系统数据源。开始→设置→控制面板→管理工具→数据源（ODBC）→系统DSN→添加→驱动程序选为SQLServer→成功→给出该数据源的名称、描述、服务器→更改默认数据库为（自己所建的数据库）→测试→成功→确定→确定。第三章系统各功能模块的详细设计3.1.欢迎界面本界面应用VB中的Label控件输入以下字符，背景设为透明。在本窗体中加入一个Timer控件来控制“欢迎进入商品交易信息管理系统”字符的颜色变化，设置间隔时间为500毫秒。点击“点击此处进入”便可进去本系统。代码如下：PrivateSubLabel3_Click()登陆.ShowEndSubPrivateSubTimer1_Timer()StaticnAsIntegern=n+1Ifn>15Thenn=0EndIfLabel2.ForeColor=QBColor(n)Label1.ForeColor=QBColor(n)EndSub3.2.用户登录界面与注册新用户界面“用户名”、“密码”均由Label控件输入，背景设为透明，之后介绍的界面中的字符均由此方法输入，故将不做说明。给出可以输入字符的空白由TextBox控件做成，可进行字体大小与颜色的修改。按钮由CommandButton设置，通过设置属性可改变按钮的视觉效果，可更改按键上的字符，颜色等。添加Adodc（Visible=False），用来与数据库相连。验证用户信息截图如下代码如下：PrivateSubCommand1_Click()DimsqlstrAsStringsqlstr="Select*From系统信息Where用户名='"&Text1&"'"Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.BOFThenMsgBox"用户名错误，重新输入",vbExclamation,"警告"Text1.Text=""Text1.SetFocus'Text1获得焦点Else'判断密码是否正确IfAdodc1.Recordset.Fields("密码")=Text2Then主界面.ShowUnloadMeElseMsgBox"密码错误，重新输入",vbExclamation,"警告"Text2.Text=""Text2.SetFocusEndIfEndIfmiCount=miCount+1IfmiCount=3ThenUnloadMe‘判断输入次数是否超过三次EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand3_Click()注册新用户.ShowEndSub注册新用户设计与用户登记界面设计基本相同。注册新用户截图如下代码如下：PrivateSubCommand1_Click(IndexAsInteger)DimsqlstrAsStringIfText1=""ThenMsgBox"请输入用户名！",vbExclamation,"确认用户名"Text1.SetFocusExitSubElsesqlstr="Select*from系统信息where用户名='"&Text1&"'"Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"用户名已存在，请重新输入！",vbExclamation,"检验用户名"Text1=""Text1.SetFocusExitSubEndIfEndIfIfText2<>Text3ThenMsgBox"二次输入的密码不一致，请重新输入",vbExclamation,"检验密码"Text2="":Text3=""Text2.SetFocusExitSubElseIfText2=""ThenMsgBox"密码不能为空！",vbExclamation,"检验密码"Text2.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("用户名")=Trim(Text1)Adodc1.Recordset.Fields("密码")=Trim(Text2)Adodc1.Recordset.UpdateMe.HideMsgBox"成功注册新用户！",vbInformation,"添加用户"EndIfEndSubPrivateSubCommand2_Click(IndexAsInteger)UnloadMeEndSub3.3．主界面主界面是MDI窗体，含有主菜单：文件、数据管理、数据查询。[文件]菜单包含以下子菜单及其功能：[注册新用户]菜单：打开“注册新用户”窗体[退出]：结束程序运行[数据管理]包含以下子菜单：[商品信息]菜单：显示商品信息浏览窗体[营业员信息]菜单：显示营业员信息窗体[供货商信息]菜单：显示供货商信息窗体[商品交易信息]菜单：显示商品交易信息窗体[数据查询]包含以下子菜单：[查询供货商信息]：显示供货商信息查询窗体[查询商品信息]：显示商品信息查询窗体[查询商品交易信息]：显示商品交易信息查询窗体[查询营业员信息]：显示营业员信息查询窗体在菜单编辑器中编辑以上菜单栏。单击相应选项，就会弹出相应窗口。代码现实如下：PrivateSubdeal_Click()交易信息.ShowEndSubPrivateSubexit_Click()UnloadMeEndSubPrivateSubgonghuo_Click()供货商信息.ShowEndSubPrivateSubjinhuo_Click()进货信息.ShowEndSubPrivateSubMDIForm_Load()EndSubPrivateSubnew_Click()注册新用户.ShowEndSubPrivateSubsaler_Click()营业员信息.ShowEndSubPrivateSubsdeal_Click()交易信息查询.ShowEndSubPrivateSubsgh_Click()供货商信息查询.ShowEndSubPrivateSubshangpin_Click()商品信息.ShowEndSubPrivateSubsjinhuo_Click()进货信息查询.ShowEndSubPrivateSubssaler_Click()营业员信息查询.ShowEndSubPrivateSubsshanpin_Click()商品信息查询.ShowEndSub3.4.浏览界面在浏览界面中可以对数据库中的数据进行浏览，添加与删除，要实现此功能则必须用Adodc（Visible=False）控件与数据库相连，在运行中隐藏此控件。还可在空格中输入要移动的数量，进行隔条浏览。在点击表格显示时，弹出另一个窗口，显示含有所有数据的表格，单击返回，回到浏览窗口。以下为商品信息浏览窗口运行时的截图表格显示截图如下添加记录截图如下删除记录截图如下代码如下：PrivateSubForm_Load()CmdFirst.Enabled=False'[首记录]按钮无效CmdPre.Enabled=False'[前移]按钮无效CmdNext.Enabled=True'[后移]按钮有效CmdLast.Enabled=True'[末记录]按钮有效CmdAdd.Enabled=True'[添加]按钮有效CmdDel.Enabled=True'[删除]按钮有效CmdOk.Enabled=False'[确定]按钮无效CmdEsc.Enabled=False'[取消]按钮无效Label6.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdAdd_Click()'[添加]按钮的单击事件Adodc1.Recordset.AddNewCmdAdd.Enabled=FalseCmdDel.Enabled=FalseCmdOk.Enabled=TrueCmdEsc.Enabled=TrueEndSubPrivateSubCmdOk_Click()'单击[确认]按钮Adodc1.Recordset.UpdateCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSubPrivateSubCmdDel_Click()'单击[删除]按钮x=MsgBox("确实要删除当前记录吗？",vbYesNo+vbQuestion,"确认")Ifx=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfElseAdodc1.RefreshEndIfEndSubPrivateSubCmdEsc_Click()'取消按钮Adodc1.RefreshCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSubPrivateSubCmdN_Click()DimnAsIntegern=Text6.TextAdodc1.Recordset.MovenLabel6.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountIfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveLastCmdLast.Enabled=FalseCmdNext.Enabled=FalseEndIfEndSub3.5.查询界面在查询界面中，可以通过每条记录的