【導(dǎo)讀】電子商務(wù)是在Inter的廣闊聯(lián)系與傳統(tǒng)信息技術(shù)系統(tǒng)的豐富。式進行的交易方式，而是一種系統(tǒng)的、完整的電子化運作。經(jīng)成為電子商務(wù)應(yīng)用的一個核心平臺，它的進步將會推進電子商務(wù)的全面發(fā)展。的方式、時間、地點。可選擇的商品和更便捷的購物方式。電子商務(wù)這個概念起源于20世紀70年代?，F(xiàn)在大家公認的“電子商務(wù)”的。概念是由著名的IBM公司于1998年率先提出并迅速得到廣泛認同。電子商務(wù)提出了一種全新的商業(yè)機會、需求、規(guī)劃和挑戰(zhàn)，正是新世。紀全球經(jīng)濟與社會發(fā)展的朝陽領(lǐng)域。雖然從總體而言，我國的電子商務(wù)仍處在初級階段，企業(yè)和企業(yè)之間的網(wǎng)絡(luò)。讀者覆蓋面占全市20%。管理部門有監(jiān)察審計部，客戶顧客基本信息。財務(wù)部門主要負責成本核算，利潤核算，賬目管理。部門主要包括入庫管理，出庫管理，庫存統(tǒng)計，圖書基本信息管理。另外，書店信息系統(tǒng)所采用的操作和工作方式符合工作人員和讀者的日。要，而且是可行的，可以立項開發(fā)。

　　

【正文】 = CStr(i) Else MsgBox , vbInformation, 信息提示 End If End Sub Private Sub List1_Click() Dim i, j, s1, s2 As Integer s1 = 0 s2 = 0 Dim str1, str2, str3 As String str1 = select * from M_Book_CurAcc where M_Book_ISBN = 39。 amp。 () amp。 39。 Set rs1 = (str1) If 0 Then For i = 1 To 25 (ISBN 為 amp。 () amp。 的書于 amp。 amp。 進貨 amp。 rs1(M_Book_Num).Value amp。 本 ) () s = s + CInt(rs1(M_Book_Num).Value) Next i Else MsgBox 對不起 ,暫無入庫記錄！ , vbInformation, 信息提示 End If = CStr(s) Set rs1 = Nothing str2 = select * from M_Book_Bill where M_Book_ISBN = 39。 amp。 () amp。 39。 Set rs2 = (str2) If 0 Then For j = 1 To (ISBN 為 amp。 () amp。 的書于 amp。 amp。 售出 amp。 rs2(M_Book_Num).Value amp。 本 ) () s2 = s2 + CInt(rs2(M_Book_Num).Value) Next j Else MsgBox 對不起 ,此書暫無售出記錄！ , vbInformation, 信息提示 End If = CStr(s2) Set rs2 = Nothing str3 = select * from M_Book_All where M_Book_ISBN = 39。 amp。 () amp。 39。 Set rs3 = (str3) = rs3(M_Book_Num).Value If Val() = Val() Val() Then = 庫存量正確，無需更新 = False Else = 庫存量不正確，可更新 = True End If Set rs3 = Nothing 26 End Sub 客戶信息 這是管理員可以操作的客戶信息，可以對客戶數(shù)據(jù)進行刪除，修改，查詢，添加等功能 。 圖 410 客戶信息管理界面圖示 其主要實現(xiàn)代碼如下： Private Sub Command1_Click(Index As Integer) If = Then MsgBox 請輸入查詢條件！ , 33, 信息提示 ElseIf = 1 Then MsgBox 請選擇查詢類別！ , 33, 信息提示 Else Dim str As String str = Select Case Case 0 = M_custom_phone =39。 + str + 39。 Case 1 = M_custom_name =39。 + str + 39。 Case 2 = M_custom_ID =39。 + str + 39。 End Select End If If = 0 Then MsgBox 數(shù)據(jù)庫中無此客戶信息 , vbInformation, 信息提示 End If 27 End Sub Private Sub Command2_Click() End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() If = Or = Or = Or = Or = Then MsgBox 客戶基本信息不完整！請檢查數(shù)據(jù)！ , 33, 信息提示 Exit Sub End If Call insertuser Call TRefresh End Sub Private Sub TRefresh() End Sub Private Sub insertuser() Dim strIn As String strIn = insert into M_user(M_custom_name,M_custom_address,M_custom_phone,M_custom_Email,M_Usr_Pwd) values(39。 amp。 _ + 39。,39。 + + 39。,39。 + + 39。,39。 + + 39。, 39。 + + 39。) On Err GoTo ERR_CONN (strIn) MsgBox 客戶信息更新完畢！ , 33, 信息提示 Exit Sub ERR_CONN: MsgBox , vbInformation, 信息提示 Exit Sub End Sub Private Sub Command6_Click() = = = = = 28 End Sub Private Sub Form_Load() = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False Dim strselect As String strselect = select * from M_user = adCmdText = strselect Set = Adodc1 = Nothing End Sub 為期一周 的 管理信息系統(tǒng) 課程設(shè)計結(jié)束了，通過這兩個星期的課設(shè)，使我對VB語言和 Access有了更深入、更全面的了解，同時也發(fā)現(xiàn)自己的 英文和函數(shù)基礎(chǔ)不是很好 ，對很多地方不是特別懂，甚至對有些概念都還很模糊，但通過這次課程設(shè)計，使我對 VB語言和 Access有了新的認識，在這兩周的時間里，經(jīng)過不斷的與同學(xué)之間進行探討以及老師的指導(dǎo)，使我的 VB語言水平有了很大程度的提高。 通過課設(shè)我還發(fā)現(xiàn) VB語言和 Access是一門非常實用的學(xué)科，像我的題目 書店圖書銷售系統(tǒng)，是與實際生活緊密相關(guān)的，在以后的工作當中都有可能會用的到。 這次課設(shè)使我對 VB語言和 Access產(chǎn)生了極大的興趣，相信通過我以后的學(xué)習(xí)，我的 VB語言和 Access水平一定會有很大的提高。 參考資料 1.《工程應(yīng)用軟件開發(fā)技術(shù)》 唐任仲 編著 . 化學(xué)工業(yè)出版社 . 2.《 Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航》 劉韜 等著 . 人民郵電出版社 . 3.《 Visual Basic 中文版 提高與應(yīng)用》 譚浩強 主編 . 電子工業(yè)出版社 . 4. 《實用軟件工程》 鄭人杰 等著 . 清華大學(xué)出版社 . 5. 《 Visual Basic 高級編程技巧》 李善茂 等著 . 電子工業(yè)出版社 . 6. 《 Visual Basic 教育信息化系統(tǒng)開發(fā)實例導(dǎo)航》 林陳雷 等著 . 人民郵電出版社 . 7. 《 Visual Basic + Access 數(shù)據(jù)庫開發(fā) 與 實例》 劉文濤 編著 . 清華大學(xué) 出版社 . 8. 《 Visual Basic 應(yīng)用 開發(fā) 完全手冊 》 高春艷 等著 . 人民郵電出版社 . 9. 《 Visual Basic 進銷存系統(tǒng)開發(fā)實例導(dǎo)航 》 劉韜 等著 . 人民郵 電出版社 . 29 10． 《 管理信息系統(tǒng)（第三版） 》 黃梯云 等編 . 高等教育出版社 .