江蘇科技大學(xué)會(huì)計(jì)信息系統(tǒng)課程設(shè)計(jì)報(bào)告模板

第2頁(yè)共20頁(yè)江蘇科技大學(xué)經(jīng)濟(jì)管理學(xué)院2014至2015學(xué)年第一學(xué)期會(huì)計(jì)信息系統(tǒng)課程設(shè)計(jì)報(bào)告班級(jí)學(xué)號(hào)姓名成績(jī)模塊名稱：銷(xiāo)售管理系統(tǒng)1、數(shù)據(jù)庫(kù)分析（配合圖形作簡(jiǎn)要說(shuō)明）1.1數(shù)據(jù)流圖：1.2E-R圖1.3數(shù)據(jù)庫(kù)表2、系統(tǒng)設(shè)計(jì)2.1系統(tǒng)功能結(jié)構(gòu)圖2.2系統(tǒng)功能說(shuō)明銷(xiāo)售管理系統(tǒng)作為一種信息管理軟件，既可以幫助快速有效地完成各種信息錄入、查詢和修改的計(jì)算機(jī)管理，又可以對(duì)信息進(jìn)行簡(jiǎn)單地分析。銷(xiāo)售管理系統(tǒng)的主要任務(wù)是實(shí)現(xiàn)訂購(gòu)和銷(xiāo)售的管理。主要功能模塊包括：1.基本信息管理功能：客戶信息的錄入、修改和刪除。倉(cāng)庫(kù)信息的錄入、修改和刪除。用戶信息的錄入、修改和刪除。2.產(chǎn)品信息管理功能：產(chǎn)品類(lèi)目的添加、修改和刪除。產(chǎn)品信息的管理。3.商品訂購(gòu)管理功能：訂購(gòu)單的添加、修改和刪除。訂購(gòu)?fù)素泦喂芾怼?.商品銷(xiāo)售管理功能：銷(xiāo)售單的添加、修改和刪除。銷(xiāo)售退貨管理。5.庫(kù)存管理功能：入庫(kù)管理。出庫(kù)管理。庫(kù)存管理。3優(yōu)化分析與設(shè)計(jì)3.1數(shù)據(jù)庫(kù)方面數(shù)據(jù)庫(kù)的詳細(xì)設(shè)計(jì)，其基本表的設(shè)計(jì)如下：根據(jù)主體流程圖，基本表設(shè)計(jì)情況如下：表3.1用戶信息表（Users）列名數(shù)據(jù)類(lèi)型長(zhǎng)度說(shuō)明UserNameVarchar250用戶名PwdVarchar250密碼UserTypeNumber1用戶類(lèi)型EmpNameVarchar250員工姓名表3.2倉(cāng)庫(kù)信息表（Storehouse）列名數(shù)據(jù)類(lèi)型長(zhǎng)度說(shuō)明StoreIdNumber1倉(cāng)庫(kù)編號(hào)StoreNameVarchar250倉(cāng)庫(kù)名稱DescribeVarchar250倉(cāng)庫(kù)說(shuō)明表3.3商品類(lèi)目表(ProType)列名數(shù)據(jù)類(lèi)型長(zhǎng)度說(shuō)明TypeIdNumber1商品類(lèi)目編號(hào)TypeNameVarchar250商品類(lèi)目名稱UpperIdNumber1上級(jí)商品類(lèi)目表3.4商品信息表(Product)列名數(shù)據(jù)類(lèi)型長(zhǎng)度說(shuō)明ProIdNumber1商品編號(hào)ProNameVarchar250商品名稱TypeIdNumber1商品類(lèi)型編號(hào)ProStyleVarchar250商品規(guī)格ProUnitVarchar210計(jì)量單位ProLowNumber5商品數(shù)量下限ProHighNumber10商品數(shù)量上限表3.5訂購(gòu)信息表（Orders）列名數(shù)據(jù)類(lèi)型長(zhǎng)度說(shuō)明OrderIdNumber2訂購(gòu)單號(hào)OrderTypeVarchar220訂購(gòu)類(lèi)型ProIdNumber3訂購(gòu)商品編號(hào)ProPriceNumber15訂購(gòu)商品單價(jià)ProNumNumber10訂購(gòu)商品數(shù)量ProAmountNumber15訂購(gòu)商品總金額OptDateChar10訂購(gòu)日期EmpNameVarchar250經(jīng)辦人StoredNumber1出/入庫(kù)標(biāo)記表3.6銷(xiāo)售信息表（Sales）列名數(shù)據(jù)類(lèi)型長(zhǎng)度說(shuō)明SaleIdNumber1銷(xiāo)售單號(hào)SaleTypeVarchar220銷(xiāo)售類(lèi)型ProIdNumber3銷(xiāo)售商品編號(hào)ProPriceNumber15銷(xiāo)售商品單價(jià)ProNumNumber5銷(xiāo)售商品數(shù)量ProAmountNumber15銷(xiāo)售商品總金額ClientIdNumber1客戶編號(hào)OptDateChar10訂購(gòu)日期EmpNameVarchar250經(jīng)辦人StoredNumber1出/入庫(kù)標(biāo)記表3.7入庫(kù)操作信息表(StoreIn)列名數(shù)據(jù)類(lèi)型長(zhǎng)度說(shuō)明StoreinIdNumber1入庫(kù)編號(hào)StoreinTypeVarchar220入庫(kù)類(lèi)型StoreIdNumber1倉(cāng)庫(kù)編號(hào)EmpNameVarchar250經(jīng)辦人OptDateChar10入庫(kù)日期表3.8出庫(kù)操作信息表(TakeOut)列名數(shù)據(jù)類(lèi)型長(zhǎng)度說(shuō)明TakeoutIdNumber1出庫(kù)編號(hào)TakeoutTypeVarchar220出庫(kù)類(lèi)型StoreIdNumber1倉(cāng)庫(kù)編號(hào)EmpNameVarchar250經(jīng)辦人OptDateChar10入庫(kù)日期表3.9庫(kù)存商品信息表(ProInStore)列名數(shù)據(jù)類(lèi)型長(zhǎng)度說(shuō)明StoreProIdNumber1商品存儲(chǔ)編號(hào)ProIdNumber1商品編號(hào)ProPriceNumber15商品入庫(kù)單價(jià)ProNumNumber10商品數(shù)量StoreIdNumber1倉(cāng)庫(kù)編號(hào)表3.10客戶信息表(Client)列名數(shù)據(jù)類(lèi)型長(zhǎng)度說(shuō)明ClientIdNumber1客戶編號(hào)ClientNameVarchar250客戶名稱ClientTypeNumber1客戶類(lèi)型BankVarchar250開(kāi)戶銀行BankAccountVarchar250銀行帳號(hào)ContactVarchar230聯(lián)系人AddressVarchar250通信地址PostcodeVarchar210郵政編碼PhoneVarchar230聯(lián)系電話FaxVarchar230傳真電話DescribeVarchar2100客戶描述3.2交互界面方面產(chǎn)品信息管理模塊可以實(shí)現(xiàn)以下功能：產(chǎn)品類(lèi)別管理，包括添加、修改、刪除和查看產(chǎn)品類(lèi)別信息等功能。產(chǎn)品信息管理，包括添加、修改、刪除和查看產(chǎn)品信息等功能。圖5.4產(chǎn)品類(lèi)目管理窗口Cmd_Add_Click過(guò)程：當(dāng)用戶單擊“添加”按鈕時(shí)，對(duì)應(yīng)的代碼如下：PrivateSubCmd_Add_Click()'如果當(dāng)前選擇添加二級(jí)產(chǎn)品類(lèi)目,則判斷是否選擇了一級(jí)類(lèi)目IfOption1.Value=FalseAndList1.ListIndex<0ThenMsgBox"請(qǐng)選擇上級(jí)類(lèi)目"ExitSubEndIf'選擇添加一級(jí)產(chǎn)品類(lèi)目IfOption1.Value=TrueThen'上級(jí)產(chǎn)品類(lèi)目編號(hào)為0FrmProTypeEdit.OriUpper=0'上級(jí)產(chǎn)品類(lèi)目名稱為空FrmProTypeEdit.lblUpper=""'選擇添加二級(jí)產(chǎn)品類(lèi)目Else'設(shè)置上級(jí)產(chǎn)品類(lèi)目編號(hào)FrmProTypeEdit.OriUpper=Id1'設(shè)置上級(jí)產(chǎn)品類(lèi)目名稱FrmProTypeEdit.lblUpper=List1.TextEndIf'設(shè)置修改標(biāo)記FrmProTypeEdit.Modify=False'啟動(dòng)產(chǎn)品類(lèi)目編輯窗體FrmProTypeEdit.Show1'重新裝入產(chǎn)品類(lèi)目信息Load_Type1Load_Type2EndSubCmd_Modi_Click過(guò)程：PrivateSubCmd_Modi_Click()'如果選擇要修改一級(jí)產(chǎn)品類(lèi)目，則判斷List1列表框中是否有項(xiàng)目被選中'如果選擇要修改二級(jí)產(chǎn)品類(lèi)目，則判斷List2列表框中是否有項(xiàng)目被選中If(Option1.Value=TrueAndList1.ListIndex<0)_Or(Option2.Value=TrueAndList2.ListIndex<0)ThenMsgBox"請(qǐng)選擇要修改類(lèi)目"ExitSubEndIf'選擇修改一級(jí)產(chǎn)品類(lèi)目IfOption1.Value=TrueThen'設(shè)置上級(jí)產(chǎn)品類(lèi)目編號(hào)為0FrmProTypeEdit.OriUpper=0'設(shè)置當(dāng)前編輯的產(chǎn)品類(lèi)目編號(hào)FrmProTypeEdit.OriId=Id1'設(shè)置當(dāng)前編輯的產(chǎn)品類(lèi)目名稱FrmProTypeEdit.OriName=List1.TextFrmProTypeEdit.txtTypeName=List1.Text'設(shè)置上級(jí)產(chǎn)品類(lèi)目名稱為空FrmProTypeEdit.lblUpper=""'選擇修改二級(jí)產(chǎn)品類(lèi)目Else'設(shè)置上級(jí)產(chǎn)品類(lèi)目編號(hào)FrmProTypeEdit.OriUpper=Id1'設(shè)置當(dāng)前編輯的產(chǎn)品類(lèi)目編號(hào)FrmProTypeEdit.OriId=Id2'設(shè)置當(dāng)前編輯的產(chǎn)品類(lèi)目名稱FrmProTypeEdit.OriName=List2.TextFrmProTypeEdit.txtTypeName=List2.Text'設(shè)置上級(jí)產(chǎn)品類(lèi)目名稱FrmProTypeEdit.lblUpper=List1.TextEndIf'設(shè)置修改標(biāo)記FrmProTypeEdit.Modify=True'啟動(dòng)產(chǎn)品類(lèi)目編輯窗體FrmProTypeEdit.Show1'重新裝入產(chǎn)品類(lèi)目信息Load_Type1Load_Type2EndSubCmd_Del_Click過(guò)程：PrivateSubCmd_Del_Click()DimTmpIdAsLong'如果選擇要?jiǎng)h除一級(jí)產(chǎn)品類(lèi)目，則判斷List1列表框中是否有項(xiàng)目被選中'如果選擇要?jiǎng)h除二級(jí)產(chǎn)品類(lèi)目，則判斷List2列表框中是否有項(xiàng)目被選中If(Option1.Value=TrueAndList1.ListIndex<0)_Or(Option2.Value=TrueAndList2.ListIndex<0)ThenMsgBox"請(qǐng)選擇要修改類(lèi)目"ExitSubEndIf'判斷一級(jí)類(lèi)目是否包含子類(lèi)目IfOption1.Value=TrueThenIfMyProType.HaveSon(TmpId)=TrueThenMsgBox"此類(lèi)目包含子類(lèi)目，不能刪除"ExitSubEndIfEndIf'判斷類(lèi)目中是否包含產(chǎn)品IfMyPro.HaveType(TmpId)=TrueOr_MyPro.HaveType(TmpId)=TrueThenMsgBox"此類(lèi)目中包含產(chǎn)品，不能刪除"ExitSubEndIf'確認(rèn)刪除IfMsgBox("是否刪除此類(lèi)目？",vbYesNo,"請(qǐng)確認(rèn)")=vbYesThenMyProType.Delete(TmpId)Load_Type1Load_Type2EndIfEndSub銷(xiāo)售管理模塊可以實(shí)現(xiàn)以下功能：銷(xiāo)售管理。銷(xiāo)售退貨管理。圖5.7商品銷(xiāo)售管理窗口圖5.8添加銷(xiāo)售單窗口Cmd_Add_Click過(guò)程：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="銷(xiāo)售"ElseFrm_SaleEdit.OriType="銷(xiāo)售退貨"Frm_SaleEdit.Caption="編輯銷(xiāo)售退貨單"EndIfFrm_SaleEdit.Show1Refresh_SalesEndSubCmd_Edit_Click過(guò)程：PrivateSubCmd_Edit_Click()IfAdodc1.Recordset.EOF=TrueThenMsgBox"請(qǐng)選擇銷(xiāo)售單"ExitSubEndIfFrm_SaleEdit.Modify=TrueIfFlag=1ThenFrm_SaleEdit.OriType="銷(xiāo)售"ElseFrm_SaleEdit.OriType="銷(xiāo)售退貨"Frm_SaleEdit.Caption="編輯銷(xiāo)售退貨單"EndIfFrm_SaleEdit.Show1Refresh_SalesEndSubCmd_Del_Click過(guò)程：PrivateSubCmd_Del_Click()IfAdodc1.Recordset.EOF=TrueThenMsgBox"請(qǐng)選擇銷(xiāo)售單"ExitSubEndIfIfMsgBox("是否刪除當(dāng)前行?",vbYesNo,"請(qǐng)確認(rèn)")=vbYesThenMySales.Delete(Adodc1.Recordset.Fields(0))EndIfRefresh_SalesEndSub具體添加銷(xiāo)售單代碼實(shí)現(xiàn)如下：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"請(qǐng)選擇客戶單位"Check=FalseExitFunctionEndIfIfTrim(ComboPro.Text)=""ThenMsgBox"請(qǐng)選擇產(chǎn)品名稱"Check=FalseExitFunctionEndIfIftxtNum=""ThenMsgBox"請(qǐng)輸入產(chǎn)品數(shù)量"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()'裝入客戶數(shù)據(jù)MyClt.Load_Client(ComboType.ListIndex+1)ComboClt.Cleari=0DoWhileArr_Client(i)<>""ComboClt.AddItemArr_Client(i)i=i+1LoopIfComboClt.ListCount>0ThenComboClt.ListIndex=0EndIfFill_CltEndSubPrivateSubComboType1_Click()'裝入二級(jí)類(lèi)目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'裝入產(chǎn)品名稱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()'裝入產(chǎn)品名稱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'讀取產(chǎn)品名稱和類(lèi)目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'裝入客戶數(shù)據(jù)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'裝入產(chǎn)品信息'裝入一級(jí)類(lèi)目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