超市收費(fèi)管理系統(tǒng)【畢業(yè)設(shè)計(jì)】【論文】-資料下載頁
2024-12-03 17:02本頁面
【導(dǎo)讀】數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性。強(qiáng)、數(shù)據(jù)安全性好的庫。對(duì)于后者要求應(yīng)用程序功能完備,易使用等特點(diǎn)。統(tǒng)應(yīng)用原型,然后對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。商品進(jìn)銷存管理是商品流通領(lǐng)域一個(gè)重要的基礎(chǔ)性工作。在管理中引入計(jì)算機(jī)和進(jìn)銷存管理信。息系統(tǒng)已經(jīng)得到各商業(yè)企業(yè)業(yè)主的認(rèn)識(shí)，并將逐漸成為一種管理手段。率，是提高企業(yè)效率的主要任務(wù)。它使各級(jí)管理人員在面對(duì)日益繁多、日益復(fù)雜的問題和業(yè)務(wù)時(shí)，能夠充分認(rèn)識(shí)問題，及時(shí)準(zhǔn)確地把握、分析問題，進(jìn)行有效地組織和管理，以達(dá)到最高的經(jīng)濟(jì)效益。為例,談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。第七章系統(tǒng)具體實(shí)現(xiàn)．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．9
【正文】 有一種巨大的 動(dòng)力 ，感謝他耐心的輔導(dǎo)。 四、參考書目 [1] Visual Basic程序設(shè)計(jì)教程 作者： 譚浩強(qiáng) 出版社：清華大學(xué)出版社 出版日期： 2021年 8月 [2] 數(shù)據(jù)庫原理及應(yīng)用（ Access 2021） 作者： 沈祥玖 出版社： 高等教育出版社 出版日期： 2021年 8月 [3] Visual Basic 中文版控件大全 作者： Microsoft 出版社 ： 電子工業(yè)出版社 出版日期： 2021年 4月 [4] 信息管理系統(tǒng) 作者：侯炳輝 出版社：中央廣播電視大學(xué) 出版日期： 2021年 6月 程序清單：（業(yè)務(wù)處理部分） 16 第一部分：采購入庫 Private Sub Command1_Click() 39。當(dāng)前庫存表 .庫存量 =當(dāng)前庫存表 .庫存量 +入庫表 .入庫數(shù)量 39。=+ FROM STOCK INNER JOIN INSTOCK ON = 。 End Sub Private Sub Command2_Click() If = True And 0 Then Else MsgBox 庫中無記錄 , vbCritical, 錯(cuò)誤 End If 39。當(dāng)前庫存表 .庫存量 =當(dāng)前庫存表 .庫存量 入庫表 .入庫數(shù)量 39。= FROM STOCK INNER JOIN INSTOCK ON = 。 End Sub Private Sub Command3_Click() 1 End Sub Private Sub Command4_Click() 1 End Sub Private Sub Command5_Click() 39。打印入庫單 17 End Sub 第二部分：銷售商品 Private Sub Command1_Click() End Sub Private Sub Command2_Click() If = True And 0 Then Else MsgBox 庫中無記錄 , vbCritical, 錯(cuò)誤 End If End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command4_Click() 39。打印小票 Print Print 銷售 ID Print (0).Value Print 小票 ID Print (1).Value Print 商品 ID Print (2).Value Print 銷售數(shù)量 Print (3).Value Print 操作員 ID Print (4).Value Print 商品編號(hào) Print (5).Value Print On Error GoTo checkerr If ( 0) And ( 1) Then MsgBox 應(yīng)找回 0 amp。 amp。 元零錢。歡迎再次惠顧。 , vbOKOnly, SuperMarket Server Report = amp。 元 amp。 Chr(10) amp。 總計(jì)： amp。 amp。 元 amp。 Chr(10) amp。 實(shí)付： amp。 amp。 元 amp。 Chr(10) amp。 找回零錢：0. amp。 amp。 元 amp。 Chr(10) = 0 = 0 = = = = Call printpage ElseIf ( = 1) Then MsgBox 應(yīng)找回 amp。 amp。 元錢。歡迎再次惠顧。 , vbOKOnly, SuperMarket Server Report = amp。 元 amp。 Chr(10) amp。 總計(jì)： amp。 amp。 元 amp。 Chr(10) amp。 實(shí)付： amp。 amp。 元 amp。 Chr(10) amp。 找回零錢： amp。 amp。 元 amp。 Chr(10) = 0 = 0 = = = = Call printpage ElseIf ( 0) Then 18 MsgBox 您付的錢不足！還欠 amp。 0 ( ) amp。 元錢。 , vbOKOnly, SuperMarket Server Report Else If 0 And 0 Then MsgBox 歡迎再次惠顧！ , vbOKOnly, SuperMarket Server Report = amp。 元 amp。 Chr(10) amp。 總計(jì)： amp。 amp。 元 amp。 Chr(10) amp。 實(shí)付： amp。 amp。 元 amp。 Chr(10) amp。 找回零錢： amp。 amp。 元 amp。 Chr(10) = 0 = 0 = = = = Call printpage End If End If Exit Sub checkerr: MsgBox 數(shù)據(jù)錯(cuò)誤。 End Sub 第三部分：其它庫存變動(dòng) Private Sub cmdUpdate_Click() On Error GoTo updateerr (4).Value = MsgBox 修改成功！ Exit Sub updateerr: MsgBox 修改成功！ End Sub Private Sub Form_Activate() (2).text = End Sub Private Sub Form_Load() On Error Resume Next Dim i As Long = picLogo = SUPERMARKET SERVER = DatabaseName = 商品信息 = ( ) / 2 = ( ) / 2 (0) = 條形碼 (1) = 商品名稱 = 條形碼 = (1).Value End Sub Private Sub Form_Resize() On Error Resume Next = On Error GoTo 0 End Sub 19
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1