计算软件毕业论文-电子商务信息管理系统.doc

摘要 随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业的商品管理，已经成为信息时代发展的必然趋势。本系统结合公司实际的进销情况，经过实际的需求分析，采用功能强大的Visual Basic6.0作为开发工具而开发出来的版商品管理系统。整个系统从符合操作简便、界面美观、灵活实用的要求出发，完成商品管理的全过程，包括添加销售记录、添加进货记录、修改登录口令、查询销记录、销售报表、存库报表等商品管理工作。经过实际使用证明，本文所设计的商品管理系统可以满足公司商品管理方面的需要。关键词 信息时代、商品管理、商品管理系统ABSTRACT With the rapid development of computer technology, computer applications in the enterprise management of thepopularity of computer goods enterprise management, the information age has become an inevitable trend. Combination of the system into the sales of the companys actual situation, the demand for actual analysis, the use of powerful development tools as Visual Basic6.0 developed version of the product management system. From the whole system in line with the simple, beautiful interface, flexible and practical requirements to complete the entire process of product management, including sales records to add, add the stock records, to modify the registry password, query sales records, sales reports, bank statements, deposit products, such as the management of . Proof of actual use, the paper designed to meet the company Commodity Management Commodity Management system needs.KEY WORDS Information Age；Commodity Management System目 录1.前 言52.需求分析52.1需求分析52.1.1开发的意义。62.1.2系统的功能62.1可行性分析63.系统总体设计73.1总体设计73.1.1项目规划73.1.2系统功能结构73.2系统设计83.2.1设计目标83.2.2开发及运行环境83.2.3数据库设计94.主要功能模块设计104.1程序界面设计104.1.1程序主界面设计104.1.2系统登录模块设计154.1.3销售管理模块设计174.1.4入库管理模块设计194.1.5进销查询模块设计234.2程序公共模块的设计254.3报表打印264.4数据备份284.4.1表单设计284.4.2代码设计285结 论29参考文献30致 谢31281.前 言随着全球经济一体化，国内经济改革的逐年深化，使得国内中小企业都面临着巨大的挑战，管理体制的不完善、生产技术不能和集团性质的大公司相竞争，成为中小企业发展需要解决的首要问题，而即使企业具有了一定先进的技术，由于管理体制中种种问题的制约，也不能使企业在激烈的竞争中占有一席之地。 计算机技术的全面普及，给中小企业带来新鲜的血液，利用计算机对企业进行管理，不仅解决了传统管理方式中的管理效率低下、管理不全面，数据信息不能得到统计等问题。管理方式的转变，提高整个企业的工作效率，在某种意义上讲，给中小企业提供了新的有利条件，增强了企业的核心竞争力，成为企业管理的必备工具。本系统的开发适用于多个行业，可以帮助企业快速有效管理进货、销售、库存等各项业务，合理控制进销存各个环节，提高资金利用率，实现管理高效率和实时性。 2.需求分析 2.1需求分析随着时光的流逝，人类社会悄然已经进入21世纪。21世纪是知识经济时代，是信息技术时代，是数字化时代。企业管理的现代化办公自动化和决策科学化，是现代化办公管理发展的必然趋势。也是衡量一个单位信息化的重要标志。企业的商品管理作为一个企业管理的重要方面，其可变因素多，管理复杂，繁琐，时间跨度大，再加上固定的基数大，形成巨大的数据量，人工管理困难。为此，开发企业商品管理系统成为了当务之需。2.1.1开发的意义1）提高企业商品管理的准确性，将本企业商品的基本信息经过核实之后输入计算机，并存储起来。按照规范设定标准代码。这大大保证了统计原始数据的准确性，在进行的统计分析工作中能最大限度的减少人的因素。2）可以大大的提高工作效率。企业商品管理系统可以集基本信息的修改、存储查询打印于一身，不仅节省人力和时间，而且调用方便，统计快捷，准确性高。3）可以充分发挥管理系统的统计和分析功能。商品管理系统可以根据实际的需要，开发出各种统计查询报表输出等功能模块。2.1.2系统的功能根据市场的需求，要求系统具有以下功能：l 系统操作简单，界面美观。l 规范、完善的基础信息设置。l 支持多人操作，要求有较好的权限分配功能。l 为了方便用户，要求系统支持多条件查询。l 支持多种报表打印功能。l 图表分析销售状况l 具有数据备份及数据恢复功能，保证系统数据的安全。2.1可行性分析 随着经济的全球化以及中国经济改革的逐渐深化，中小企业面临着越来越激烈的竞争，改善企业内部以及整个供应链各个环节的管理、调度及资源配置，迅速适应客户的新需求和市场新机遇的能力，是企业赢得竞争胜利的决定性因素，进销存管理系统的开发是提高企业竞争力的最有效的方法之一。进销存管理系统的开发实现了从进货、库存、到销售的一体化管理。提高了管理水平和工作效率，最大限度减少了手工操作带来的错误。3.系统总体设计3.1总体设计3.1.1项目规划商品管理系统是一款将进货、销售、库存进行一体化管理的系统。系统由商品进销、查询、报表、系统维护等模块组成。各模块功能如下：l 商品进销模块商品进销模块：进货记录、销售记录l 查询模块查询模块：销售查询、进货查询l 报表模块报表模块：销售报表、存库报表l 系统维护模块系统维护模块：修改口令、数据备份3.1.2系统功能结构本系统共分5大部分、8个完整的功能模块。系统结构图如图3.1所示商品管理系统商品进销售查询 报表系统维护退出进货记录销售记录进货查询销售查询销售报表存库报表修改口令数据备份图3.13.2系统设计3.2.1设计目标本系统是根据企业在日常运作中的实际需求而开发的，完全能够实现人们对商品查询的功能，通过本系统可以达到以下目标：l 系统最大限度地实现了易维护性和易操作性。l 系统运行稳定，安全可靠。l 操作灵活，界面美观，充分满足各类企业的进销存管理需求l 实施规范的进、销、存一体化业务管理。l 强大的库存功能，了解当前库存的最新状况。l 强大的查询分析功能。l 灵活、简易的权限控制功能。l 强大的报表功能，让您随时了解企业经营情况。3.2.2开发及运行环境系统开发平台：Microsoft Visual FoxPro 6.0。运行平台：Windows XP/ Windows 2000/ Windows 2003分辨率：最佳效果1024768像素3.2.3数据库设计商品管理系统采用的是Acess2003数据库，系统数据库名为db1。商品管理系统数据库中各个表的设计结果如表 3.2至3.5所示。每个表格标识在数据库中的一个表。数据库由四个表组成，第一个是用户数据表,命名为登录；第二个就是进货 数据表，我们命名为进货单；第三个是存库数据表,命名为存库表。第四个是销售数据表，我们命名为销售单。商品管理系统的数据表设计如图3.2至3.5所示字段名数据类型字段长度必填字段主键用户文本8NY密码文本6NN图3.2字段名数据类型字段长度必填字段主键进货单编号自动编码长整型NYcode文本50NNname文本50NNrate货币NNdate日期/时间NNnumber数字长整型NN图3.3字段名数据类型字段长度必填字段主键商品编码文本50NY商品名称文本50NY库存数量数字长整型NN图3.4字段名数据类型字段长度必填字段主键code文本50NNcount数字长整型NNoutdate日期/时间NNtype文本50NNprice货币NN销售单编号自动编码长整型NY图3.54.主要功能模块设计4.1程序界面设计4.1.1程序主界面设计程序主界面的设计的好坏往往影响到软件的整体形象，因此首先要处理好程序主界面的设计问题。同时，程序主界面的设计也是程序控制的核心，操作权限、程序功能调用等都要通过主程序调用实现。通用商品管理系统程序主界面设计的运行结果如图4.1所示。图4.11创建程序主界面（1）新建一个项目，命名为“商品进销存”，在该项目中添加一个新表单，命名为“MDIForm1”，并设置表单的Caption属性为“商品进销存管理，设置Icon属性为“Icon1” ，设置Picture属性为“天空1.jpg”, 设置WindowState属性为“2-最大化”。（2）创建程序菜单1.“商品管理系统”的菜单是通过5个快捷菜单拼成的,分别是商品进销、查询、报表、系统维护、退出。其集体程序层次如图4.2：商品管理系统商品进销售查询 报表系统维护退出进货记录销售记录进货查询销售查询销售报表存库报表修改口令数据备份图4.22.在菜单控件的Click事件下添加如下代码：Private Sub mnuHorizonta_Click() MDIForm1.Arrange (vbHorizontal)End SubPrivate Sub mnuJH_Click() frmPutin.ShowEnd SubPrivate Sub mnuJHCX_Click() frmJHCX.ShowEnd SubPrivate Sub mnuReportKC_Click() DataReportKC.ShowEnd SubPrivate Sub mnuReportXS_Click() DataReportXS.ShowEnd SubPrivate Sub mnuVertical_Click() MDIForm1.Arrange (vbVertical)End SubPrivate Sub mnuXGKL_Click() frmChange.ShowEnd SubPrivate Sub mnuXS_Click() frmXS.ShowEnd SubPrivate Sub mnuXSCX_Click() frmXSCX.ShowEnd SubPrivate Sub mnuExit_Click() mnuBackup_Click Denglu_exit = Now RiZhi1 EndEnd Sub （3）创建工具栏本程序的工具栏中共有7个按钮，分别是添加销项记录、添加进货记录、修改登录口令、查询销货记录、销售报表、存库报表、退出程序。创建工具栏的方法是通过ToolBar控件与ImageList控件来完成的。1.在表单中增加ToolBar控件，命名为“ToolBar1”，ImageList控件，命名为“ImageList2”，将制作完成的图片添加到ImageList2中。2.更改ToolBar1控件的属性，如表4.3所示。对象属性值ToolBar1Appearance1-cc3DToolBar1BorderStyle0-NoneToolBar1Style0-standard图4.33.将ToolBar1控件与ImageList2控件联系起来，在ToolBara控件中添加14个按钮，将1、3、5、7、9、11、13按钮的样式设为“3-trbSeprator”, 将2、4、6、8、10、12、14按钮的样式设为“0-trbDefault”。并将ImageList2控件中的Icon分别与2、4、6、8、10、12、14按钮一一对应。4.在ToolBar1控件的ButtonClick事件下添加如下代码： Select Case Button.Index Case 2 frmXS.Show Case 4 frmPutin.Show Case 6 frmChange.Show Case 8 frmXSCX.Show Case 10 DataReportXS.Show Case 12 DataReportKC.Show Case 14 mnuExit_Click End SelectEnd Sub5创建状态栏（1）在表单中添加一个StatusBar控件，并在该控件上单击鼠标右键，在弹出的快捷菜单中选择“属性”菜单项，将打开“属性页”对话框。（2）选择“窗体”，单击“插入窗格”按钮，向StatusBar控件中添加一个窗格对象，设置此窗体对象的宽度为“7290.14”。（3）按照上面的方法，再为StatusBar控件添加2个窗格对象，它们的宽度分别为“1440、1440”，如图4.4所示。图4.44.1.2系统登录模块设计为了保证应用程序的安全，通常要设计系统登录表单验证用户是否合法。只有合法的用户才可进入系统。系统登录模块运行结果。如图4.5所示。图4.51表单设计（1）新建一个表单，命名为FrmLogin。（2）向表单内添加Label控件、Image控件、Text控件、Command控件、Line控件。（3）重要控件的属性设置如表4.6所示。对象属性值FormCaption系统登录LabelBackStyle0-TransparentLineBorderColor&H80000002&图4.62. 代码设计在“登录”按钮的Click事件下添加如下代码：Private Sub Command1_Click() Static i As Integer 控制登陆的次数 Dim Username As String Dim Password As String i = i + 1 Username = txtUser Password = txtPassword 判断用户名是否存在 sql = select * from 登陆 where 用户名= & Username & Set Db = OpenDatabase(App.Path + db1.mdb) Set RS = Db.OpenRecordset(sql) If RS.EOF = False Then Username = RS.Fields(用户名) ElseIf i 3 Then MsgBox 无效的用户名, , 系统登陆 txtUser.SetFocus SendKeys Home+end Exit Sub Else MsgBox 多次错误登陆，再见！, , 系统登陆 End End If 判断密码是否正确 sql = select * from 登陆 where 用户名= & Username & and 密码= & Password & Set RS = Db.OpenRecordset(sql) If RS.EOF = False Then frmPic.Show Denglu_name = Username Load MDIForm1 Unload Me ElseIf i 3 Then MsgBox 无效的密码, , 系统登陆 txtPassword.SetFocus SendKeys Home+end Else MsgBox 多次错误登陆，再见！, , 系统登陆 End End IfEnd Sub在“退出”按钮的Click事件下添加如下代码：Private Sub Command2_Click() Unload MeEnd Sub4.1.3销售管理模块设计销售管理模块主要用于进行商品销售信息的录入。销售管理模块运行结果。如图4.7所示。图4.71表单设计（1）在“商品管理系统”项目文件中添加一个表单，命名为FrmXS。（2）向表单内添加Label控件、Text控件、Line控件、Command控件、ComboBox控件、DTPicker控件。（3）重要控件的属性设置如表4.8所示。对象属性值FormCaption商品销售LabelBackStyle0-TransparentComboBoxText请选择图4.82.代码设计在“商品名称”组合框的Validate事件下添加如下代码：If cboName.Text = Or cboName.Text = 请选择 Then Cancel = True MsgBox 请选择商品 End If在“销售类型”组合框的Validate事件下添加如下代码：If cboType.Text = Or cboType.Text = 请选择 Then Cancel = True MsgBox 请选择商品销售类型 End If在“添加记录”按钮的Click事件下添加如下代码：Private Sub cmdAdd_Click() ZJ = True KJZT cboName.SetFocus cmdExit.Enabled = True cboName.Text = 请选择 cboType.Text = 请选择 txtJG = txtJE = txtNumber = DTdate.Value = Date RS.AddNewEnd Sub在“保存记录”按钮的Click事件下添加如下代码：Private Sub cmdSave_Click() Dim Icode As String 当销售发生时更新库存商品的数量 sql = select * from 库存表 where 商品名称= & cboName.Text & Set RSkc = Db.OpenRecordset(sql) 将销售数量与库存数量进行比较 If RSkc.Fields(库存数量).Value Val(txtNumber.Text) Then MsgBox 库存数量不足，该商品的库存数量为 & RSkc.Fields(库存数量) txtNumber.SetFocus Exit Sub End If Icode = RSkc.Fields(商品编号) RSkc.Edit RSkc.Fields(库存数量) = RSkc.Fields(库存数量).Value - Val(txtNumber.Text) RSkc.Update RSkc.Close 将销售记录写入表“销售单” RS.Fields(code) = Icode RS.Fields(count) = Val(txtNumber.Text) RS.Fields(outdate) = DTdate.Value RS.Fields(price) = Val(txtJG.Text) RS.Fields(type) = cboType.Text RS.Update重新设定控件的可用状态 ZJ = False KJZT End Sub在“关闭”按钮的Click事件下添加如下代码：Private Sub cmdExit_Click() Unload MeEnd Sub4.1.4入库管理模块设计入库管理模块是系统中重要的模块，它主要用于商品入库的添加、保存操作功能。入库管理模块运行结果如图4.9所示。图4.91表单设计（1）在“商品管理系统”项目文件中添加一个表单，命名为FrmPutin。（2）向表单内添加Label控件、Text控件、Line控件、Command控件、DTPicker控件。（3）重要控件的属性设置如表4.10所示。对象属性值FormCaption商品入库单LabelBackStyle0-TransparentLineBorderColor&H80000002&图4.102.代码设计在“添加”按钮的Click事件下添加如下代码：Private Sub cmdAdd_Click() ZJ = True KJZT txtIcode.SetFocus txtIcode.Text = txtIname.Text = txtJG.Text = txtNumber.Text = DTPdate.Value = Date cmdSave.Enabled = True RS.AddNewEnd Sub在“修改”按钮的Click事件下添加如下代码：Private Sub cmdUp_Click() Cnumber = Val(txtNumber.Text) ZJ = True KJZT txtIcode.Enabled = False txtIname.Enabled = False RS.EditEnd Sub在“保存”按钮的Click事件下添加如下代码：Private Sub cmdSave_Click() RS.Fields(code) = txtIcode.Text RS.Fields(name) = txtIname.Text RS.Fields(rate) = txtJG.Text RS.Fields(date) = DTPdate.Value RS.Fields(number) = txtNumber.Text RS.Update RS.MoveLast sql = select * from 库存表 where 商品编号= & txtIcode.Text & Set RSUP = Db.OpenRecordset(sql) If RSUP.EOF Then RSUP.AddNew RSUP.Fields(商品编号) = txtIcode.Text RSUP.Fields(商品名称) = txtIname.Text RSUP.Fields(库存数量) = txtNumber.Text RSUP.Update Else RSUP.Edit RSUP.Fields(库存数量) = Val(txtNumber.Text) + RSUP.Fields(库存数量).Value - Cnumber RSUP.Update Cnumber = 0 End If RSUP.Close cmdSave.Enabled = False ZJ = False KJZTEnd Sub在“删除”按钮的Click事件下添加如下代码：Private Sub cmdDel_Click() Dim Queren As Integer Queren = MsgBox(记录删除后将无法恢复，请谨慎使用此功能, vbYesNo + vbExclamation) If Queren = vbYes Then sql = select * from 库存表 where 商品编号= & txtIcode.Text & Set RSUP = Db.OpenRecordset(sql) RSUP.Edit RSUP.Fields(库存数量) = RSUP.Fields(库存数量).Value - Val(txtNumber.Text) RSUP.Update RSUP.Close RS.Delete cmdMoveN_Click End IfEnd Sub在“关闭”按钮的Click事件下添加如下代码：Private Sub cmdClose_Click() Unload MeEnd Sub在“第一条记录”按钮的Click事件下添加如下代码：Private Sub cmdMoveF_Click() RS.MoveFirst cmdMoveP.Enabled = False cmdMoveN.Enabled = True DisplayEnd Sub在“前一条记录”按钮的Click事件下添加如下代码：Private Sub cmdMoveP_Click() RS.MovePrevious cmdMoveN.Enabled = True If RS.BOF Then RS.MoveFirst cmdMoveP.Enabled = False End If DisplayEnd Sub在“后一条记录”按钮的Click事件下添加如下代码：Private Sub cmdMoveN_Click() RS.MoveNext cmdMoveP.Enabled = True If RS.EOF Then RS.MoveLast cmdMoveN.Enabled = False End If DisplayEnd Sub在“最后一条记录”按钮的Click事件下添加如下代码：Private Sub cmdMoveL_Click() RS.MoveLast cmdMoveP.Enabled = True cmdMoveN.Enabled = False DisplayEnd Sub4.1.5进销查询模块设计进销查询模块也是系统中重要的模块，它主要用于商品的查询、销售记录。进销查询模块运行结果如图4.11所示。图4.111表单设计（1）在“商品管理系统”项目文件中添加一个表单，命名为frmXSCS。（2）向表单内添加Label控件、Text控件、Line控件、Command控件、ComboBox控件、MSFlexGrid控件、DTPicker控件。（3）重要控件的属性设置如表4.12所示。对象属性值ComboBoxText请选择FormCaption商品销售查询LabelBackStyle0-Transparent图4.122.代码设计在“开始查找”按钮的Click事件下添加如下代码：Private Sub cmdOK_Click() If cboType.Text = 分类汇总 Then sql = SELECT 库存表.商品名称, Sum(销售单.count) AS 销量合计, 销售单.type, 销售单.price From 库存表 INNER JOIN 销售单 ON 库存表.商品编号 = 销售单.code GROUP BY 库存表.商品名称, 销售单.outdate, 销售单.type, 销售单.price HAVING 库存表.商品名称= & cboName.Text & AND 销售单.outdate Between # & DTStar.Value & # And # & DTEnd.Value & # ORDER BY 销售单.outdate Set RS = Db.OpenRecordset(sql) Search Exit Sub End If If cboType.Text = 查询明细 Then sql = SELECT 库存表.商品名称, 销售单.count, 销售单.type, 销售单.price FROM 库存表 INNER JOIN 销售单 ON 库存表.商品编号 = 销售单.code WHERE 库存表.商品名称= & cboName.Text & AND 销售单.outdate Between # & DTStar.Value & # And # & DTEnd.Value & # Set RS = Db.OpenRecordset(sql) Search Exit Sub End If MsgBox 请先设定查询的条件End Sub在“退出”按钮的Click事件下添加如下代码：Private Sub cmdExit_Click() Unload MeEnd Sub4.2程序公共模块的设计公共模块代码设计：Option ExplicitPublic Db As Database DAO对象Public RS As Recordset 纪录集Public RSUP As Recordset 同步更新用记录集Public sql As String SQL语句字符串Public ZJ As Boolean 控件是否可用状态控制变量Public Denglu_name As String 登陆用户名Public Denglu_time As Date 登陆时间Public Denglu_exit As Date 退出时间Type User user_name As String user_pwd As StringEnd Type在日志文件中记录登陆时间和用户名Public Sub RiZhi() Dim fos As New FileSystemObject Dim ts As TextStream Set ts = fos.OpenTextFile(App.Path + backrizhi.txt, ForAppending, True) ts.WriteLine (用户 & Denglu_name & 登陆时间 & Denglu_time)End Sub在日志文件中记录退出时间和用户名Public Sub RiZhi1() Dim fos As New FileSystemObject Dim ts As TextStream Set ts = fos.OpenTextFile(App.Path + backrizhi.txt, ForAppending, True) ts.WriteLine (用户 & Denglu_name & 退出时间 & Denglu_exit)End Sub4.3报表打印数据环境设计器1.单击【工程】-【添加Data Environment】选项，新建数据环境设计器；添加连接对象，创建一个Connection连接对象，使Connection1连接数据库；添加Command命令对象，分别对销售表、库存表、cmduser三个数据表进行连接。其设计情况如4.13图。图4.132.单击【工程】-【添加DataReport】选项，添加两个DataReport,分别命名为DataReportKC和DataReportXS，运用Label和Text分别对报表标头、页标头、细节等进行设置。其具体设计如图4.14和4.15。图4.14图4.154.4数据备份数据备份模块是系统中重要的模块，它主要用于数据的备份。数据备份模块运行结果如图4.16所示。图4.164.4.1表单设计（1）在“商品管理系统”项目文件中添加一个表单，命名为FrmSJBF。（2）向表单内添加Label控件、Command控件、DTPicker控件。（3）重要控件的属性设置如表4.17所示。对象属性值FormCaption自动备份LabelBackStyle0-Transparent表4.174.4.2代码设计在“确定”按钮的Click事件下添加如下代码：Private Sub Command1_Click()If DTPicker1.Value = Now() Then On Error GoTo A: Dim Fso As New FileSystemObject Fso.CreateFolder (App.Path + back) Fso.CopyFile App.Path + db1.mdb, App.Path + backdbback.mdb MsgBox 系统已经将数据文件进行了备份！ Exit SubA: Fso.CopyFile App.Path + db1.mdb, App.Path + backdbback.mdb MsgBox 系统已经将数据文件进行了备份！ Else MsgBox 系统将对数据文件进行了备份！ Timer1.Enabled = True End If End SubTimer事件的代码设计如下：Private Sub Timer1_Timer()Dim SJ As DTPicker.ValueDo While Now() = SJ On Error GoTo A: Dim Fso As New FileSystemObject Fso.CreateFolder (App.Path + back) Fso.CopyFile App.Path + db1.mdb, App.Path + backdb