第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