江苏科技大学会计信息系统课程设计报告模板

第2页共20页江苏科技大学经济管理学院2014至2015学年第一学期会计信息系统课程设计报告班级学号姓名成绩模块名称：销售管理系统1、数据库分析（配合图形作简要说明）1.1数据流图：1.2E-R图1.3数据库表2、系统设计2.1系统功能结构图2.2系统功能说明销售管理系统作为一种信息管理软件，既可以帮助快速有效地完成各种信息录入、查询和修改的计算机管理，又可以对信息进行简单地分析。销售管理系统的主要任务是实现订购和销售的管理。主要功能模块包括：1.基本信息管理功能：客户信息的录入、修改和删除。仓库信息的录入、修改和删除。用户信息的录入、修改和删除。2.产品信息管理功能：产品类目的添加、修改和删除。产品信息的管理。3.商品订购管理功能：订购单的添加、修改和删除。订购退货单管理。4.商品销售管理功能：销售单的添加、修改和删除。销售退货管理。5.库存管理功能：入库管理。出库管理。库存管理。3优化分析与设计3.1数据库方面数据库的详细设计，其基本表的设计如下：根据主体流程图，基本表设计情况如下：表3.1用户信息表（Users）列名数据类型长度说明UserNameVarchar250用户名PwdVarchar250密码UserTypeNumber1用户类型EmpNameVarchar250员工姓名表3.2仓库信息表（Storehouse）列名数据类型长度说明StoreIdNumber1仓库编号StoreNameVarchar250仓库名称DescribeVarchar250仓库说明表3.3商品类目表(ProType)列名数据类型长度说明TypeIdNumber1商品类目编号TypeNameVarchar250商品类目名称UpperIdNumber1上级商品类目表3.4商品信息表(Product)列名数据类型长度说明ProIdNumber1商品编号ProNameVarchar250商品名称TypeIdNumber1商品类型编号ProStyleVarchar250商品规格ProUnitVarchar210计量单位ProLowNumber5商品数量下限ProHighNumber10商品数量上限表3.5订购信息表（Orders）列名数据类型长度说明OrderIdNumber2订购单号OrderTypeVarchar220订购类型ProIdNumber3订购商品编号ProPriceNumber15订购商品单价ProNumNumber10订购商品数量ProAmountNumber15订购商品总金额OptDateChar10订购日期EmpNameVarchar250经办人StoredNumber1出/入库标记表3.6销售信息表（Sales）列名数据类型长度说明SaleIdNumber1销售单号SaleTypeVarchar220销售类型ProIdNumber3销售商品编号ProPriceNumber15销售商品单价ProNumNumber5销售商品数量ProAmountNumber15销售商品总金额ClientIdNumber1客户编号OptDateChar10订购日期EmpNameVarchar250经办人StoredNumber1出/入库标记表3.7入库操作信息表(StoreIn)列名数据类型长度说明StoreinIdNumber1入库编号StoreinTypeVarchar220入库类型StoreIdNumber1仓库编号EmpNameVarchar250经办人OptDateChar10入库日期表3.8出库操作信息表(TakeOut)列名数据类型长度说明TakeoutIdNumber1出库编号TakeoutTypeVarchar220出库类型StoreIdNumber1仓库编号EmpNameVarchar250经办人OptDateChar10入库日期表3.9库存商品信息表(ProInStore)列名数据类型长度说明StoreProIdNumber1商品存储编号ProIdNumber1商品编号ProPriceNumber15商品入库单价ProNumNumber10商品数量StoreIdNumber1仓库编号表3.10客户信息表(Client)列名数据类型长度说明ClientIdNumber1客户编号ClientNameVarchar250客户名称ClientTypeNumber1客户类型BankVarchar250开户银行BankAccountVarchar250银行帐号ContactVarchar230联系人AddressVarchar250通信地址PostcodeVarchar210邮政编码PhoneVarchar230联系电话FaxVarchar230传真电话DescribeVarchar2100客户描述3.2交互界面方面产品信息管理模块可以实现以下功能：产品类别管理，包括添加、修改、删除和查看产品类别信息等功能。产品信息管理，包括添加、修改、删除和查看产品信息等功能。图5.4产品类目管理窗口Cmd_Add_Click过程：当用户单击“添加”按钮时，对应的代码如下：PrivateSubCmd_Add_Click()'如果当前选择添加二级产品类目,则判断是否选择了一级类目IfOption1.Value=FalseAndList1.ListIndex<0ThenMsgBox"请选择上级类目"ExitSubEndIf'选择添加一级产品类目IfOption1.Value=TrueThen'上级产品类目编号为0FrmProTypeEdit.OriUpper=0'上级产品类目名称为空FrmProTypeEdit.lblUpper=""'选择添加二级产品类目Else'设置上级产品类目编号FrmProTypeEdit.OriUpper=Id1'设置上级产品类目名称FrmProTypeEdit.lblUpper=List1.TextEndIf'设置修改标记FrmProTypeEdit.Modify=False'启动产品类目编辑窗体FrmProTypeEdit.Show1'重新装入产品类目信息Load_Type1Load_Type2EndSubCmd_Modi_Click过程：PrivateSubCmd_Modi_Click()'如果选择要修改一级产品类目，则判断List1列表框中是否有项目被选中'如果选择要修改二级产品类目，则判断List2列表框中是否有项目被选中If(Option1.Value=TrueAndList1.ListIndex<0)_Or(Option2.Value=TrueAndList2.ListIndex<0)ThenMsgBox"请选择要修改类目"ExitSubEndIf'选择修改一级产品类目IfOption1.Value=TrueThen'设置上级产品类目编号为0FrmProTypeEdit.OriUpper=0'设置当前编辑的产品类目编号FrmProTypeEdit.OriId=Id1'设置当前编辑的产品类目名称FrmProTypeEdit.OriName=List1.TextFrmProTypeEdit.txtTypeName=List1.Text'设置上级产品类目名称为空FrmProTypeEdit.lblUpper=""'选择修改二级产品类目Else'设置上级产品类目编号FrmProTypeEdit.OriUpper=Id1'设置当前编辑的产品类目编号FrmProTypeEdit.OriId=Id2'设置当前编辑的产品类目名称FrmProTypeEdit.OriName=List2.TextFrmProTypeEdit.txtTypeName=List2.Text'设置上级产品类目名称FrmProTypeEdit.lblUpper=List1.TextEndIf'设置修改标记FrmProTypeEdit.Modify=True'启动产品类目编辑窗体FrmProTypeEdit.Show1'重新装入产品类目信息Load_Type1Load_Type2EndSubCmd_Del_Click过程：PrivateSubCmd_Del_Click()DimTmpIdAsLong'如果选择要删除一级产品类目，则判断List1列表框中是否有项目被选中'如果选择要删除二级产品类目，则判断List2列表框中是否有项目被选中If(Option1.Value=TrueAndList1.ListIndex<0)_Or(Option2.Value=TrueAndList2.ListIndex<0)ThenMsgBox"请选择要修改类目"ExitSubEndIf'判断一级类目是否包含子类目IfOption1.Value=TrueThenIfMyProType.HaveSon(TmpId)=TrueThenMsgBox"此类目包含子类目，不能删除"ExitSubEndIfEndIf'判断类目中是否包含产品IfMyPro.HaveType(TmpId)=TrueOr_MyPro.HaveType(TmpId)=TrueThenMsgBox"此类目中包含产品，不能删除"ExitSubEndIf'确认删除IfMsgBox("是否删除此类目？",vbYesNo,"请确认")=vbYesThenMyProType.Delete(TmpId)Load_Type1Load_Type2EndIfEndSub销售管理模块可以实现以下功能：销售管理。销售退货管理。图5.7商品销售管理窗口图5.8添加销售单窗口Cmd_Add_Click过程：PrivateSubCmd_Add_Click()Frm_SaleEdit.Modify=FalseFrm_SaleEdit.OriCltType=1Frm_SaleEdit.OriId=0Frm_SaleEdit.lblStatus="未处理"Frm_SaleEdit.lblEmpName=CurUser.EmpNameFrm_SaleEdit.lblOptDate=Format(Now,"yyyy-mm-dd")IfFlag=1ThenFrm_SaleEdit.OriType="销售"ElseFrm_SaleEdit.OriType="销售退货"Frm_SaleEdit.Caption="编辑销售退货单"EndIfFrm_SaleEdit.Show1Refresh_SalesEndSubCmd_Edit_Click过程：PrivateSubCmd_Edit_Click()IfAdodc1.Recordset.EOF=TrueThenMsgBox"请选择销售单"ExitSubEndIfFrm_SaleEdit.Modify=TrueIfFlag=1ThenFrm_SaleEdit.OriType="销售"ElseFrm_SaleEdit.OriType="销售退货"Frm_SaleEdit.Caption="编辑销售退货单"EndIfFrm_SaleEdit.Show1Refresh_SalesEndSubCmd_Del_Click过程：PrivateSubCmd_Del_Click()IfAdodc1.Recordset.EOF=TrueThenMsgBox"请选择销售单"ExitSubEndIfIfMsgBox("是否删除当前行?",vbYesNo,"请确认")=vbYesThenMySales.Delete(Adodc1.Recordset.Fields(0))EndIfRefresh_SalesEndSub具体添加销售单代码实现如下：PrivateSubFill_Clt()IfComboClt.Text=""ThentxtContact=""txtAddr=""txtCode=""txtPhone=""txtFax=""txtBank=""txtAccount=""ElseMyClt.GetInfo(MyClt.GetId(ComboClt.Text))txtContact=MyClt.ContacttxtAddr=MyClt.AddresstxtCode=MyClt.PostcodetxtPhone=MyClt.PhonetxtFax=MyClt.FaxtxtBank=MyClt.BanktxtAccount=MyClt.BankAccountEndIfEndSubPrivateSubFill_Pro()IfComboPro.Text=""ThentxtStyle=""txtUnit=""txtPrice=""txtMin=""txtMax=""ElseMyPro.GetInfo(MyPro.GetId(ComboPro.Text))txtStyle=MyPro.ProStyletxtUnit=MyPro.ProUnittxtPrice=MyPro.ProPricetxtMin=MyPro.ProLowtxtMax=MyPro.ProHighEndIfEndSubPrivateFunctionCheck()AsBooleanIfTrim(ComboClt.Text)=""ThenMsgBox"请选择客户单位"Check=FalseExitFunctionEndIfIfTrim(ComboPro.Text)=""ThenMsgBox"请选择产品名称"Check=FalseExitFunctionEndIfIftxtNum=""ThenMsgBox"请输入产品数量"txtNum.SetFocusCheck=FalseExitFunctionEndIfCheck=TrueEndFunctionPrivateSubCmd_OK_Click()DimTmpIdAsLongIfCheck=FalseThenExitSubEndIfWithMySales.SaleType=OriType.ProId=MyPro.GetId(ComboPro.Text).ProPrice=Val(txtPrice1).ProNum=Val(txtNum).ProAmount=Val(txtAmount).ClientId=MyClt.GetId(ComboClt.Text).EmpName=CurUser.EmpName.OptDate=Format(Now,"yyyy-mm-dd")IfModify=FalseThen.InsertElse.Update(OriId)EndIfEndWithUnloadMeEndSubPrivateSubComboType_Click()'装入客户数据MyClt.Load_Client(ComboType.ListIndex+1)ComboClt.Cleari=0DoWhileArr_Client(i)<>""ComboClt.AddItemArr_Client(i)i=i+1LoopIfComboClt.ListCount>0ThenComboClt.ListIndex=0EndIfFill_CltEndSubPrivateSubComboType1_Click()'装入二级类目TmpType=MyProType.GetId(ComboType1.Text)MyProType.Load_by_Upper(TmpType)ComboType2.Cleari=0DoWhileArr_ProType(i)<>""ComboType2.AddItemArr_ProType(i)i=i+1LoopIfComboType2.ListCount>0ThenComboType2.ListIndex=0EndIf'装入产品名称TmpType=MyProType.GetId(ComboType2.Text)MyPro.Load_by_Type(TmpType)ComboPro.Cleari=0DoWhileArr_Product(i)<>""ComboPro.AddItemArr_Product(i)i=i+1LoopIfComboPro.ListCount>0ThenComboPro.ListIndex=0EndIfFill_ProEndSubPrivateSubComboType2_Click()'装入产品名称TmpType=MyProType.GetId(ComboType2.Text)MyPro.Load_by_Type(TmpType)ComboPro.Cleari=0DoWhileArr_Product(i)<>""ComboPro.AddItemArr_Product(i)i=i+1LoopIfComboPro.ListCount>0ThenComboPro.ListIndex=0EndIfFill_ProEndSubPrivateSubForm_Load()DimTmpTypeAsLongDimiAsIntegerIfModify=TrueThenOriId=Frm_SaleMan.Adodc1.Recordset.Fields(0)lblStatus=Frm_SaleMan.ComboType.Text'读取产品名称和类目OriPro=Trim(Frm_SaleMan.Adodc1.Recordset.Fields(1))MyPro.GetInfo(MyPro.GetId(Trim(Frm_SaleMan.Adodc1.Recordset.Fields(1))))OriType2=MyProType.GetName(MyPro.TypeId)MyProType.GetInfo(MyPro.TypeId)OriType1=MyProType.GetName(MyProType.UpperId)ComboPro.Enabled=FalseComboType1.Enabled=FalseComboType2.Enabled=FalsetxtPrice1=Frm_SaleMan.Adodc1.Recordset.Fields(3)txtNum=Frm_SaleMan.Adodc1.Recordset.Fields(4)txtAmount=Frm_SaleMan.Adodc1.Recordset.Fields(5)OriClt=Trim(Frm_SaleMan.Adodc1.Recordset.Fields(6))MyClt.GetInfo(MyClt.GetId(Trim(Frm_SaleMan.Adodc1.Recordset.Fields(6))))OriCltType=MyClt.ClientTypeComboClt.Enabled=FalseComboType.Enabled=FalselblEmpName=Trim(Frm_SaleMan.Adodc1.Recordset.Fields(7))lblOptDate=Trim(Frm_SaleMan.Adodc1.Recordset.Fields(8))EndIf'装入客户数据ComboType.ListIndex=OriCltType-1MyClt.Load_Client(OriCltType)i=0ComboClt.ClearDoWhileArr_Client(i)<>""ComboClt.AddItemArr_Client(i)i=i+1LoopIfModify=FalseThenIfComboClt.ListCount>0ThenComboClt.ListIndex=0EndIfElseIfInCombo(OriClt,ComboClt)=TrueThenComboClt.Text=OriCltEndIfEndIfFill_Clt'装入产品信息'装入一级类目MyProType.Load_by_Upper(0)i=0ComboType1.ClearDoWhileArr_ProType(i)<>""ComboType1.AddItemArr_ProType(i)i=i+1LoopIfOriType1=""ThenIfComboType1.ListCount>0ThenComboType1.ListIndex=0EndIfElseIfInCombo(OriType1,ComboType1)=TrueThenComboType1.Text=OriType1