【正文】 參考資料 1.《工程應用軟件開發(fā)技術》 唐任仲 編著 . 化學工業(yè)出版社 . 2.《 Visual Basic 數據庫系統(tǒng)開發(fā)實例導航》 劉韜 等著 . 人民郵電出版社 . 3.《 Visual Basic 中文版 提高與應用》 譚浩強 主編 . 電子工業(yè)出版社 . 4. 《實用軟件工程》 鄭人杰 等著 . 清華大學出版社 . 5. 《 Visual Basic 高級編程技巧》 李善茂 等著 . 電子工業(yè)出版社 . 6. 《 Visual Basic 教育信息化系統(tǒng)開發(fā)實例導航》 林陳雷 等著 . 人民郵電出版社 . 7. 《 Visual Basic + Access 數據庫開發(fā) 與 實例》 劉文濤 編著 . 清華大學 出版社 . 8. 《 Visual Basic 應用 開發(fā) 完全手冊 》 高春艷 等著 . 人民郵電出版社 . 9. 《 Visual Basic 進銷存系統(tǒng)開發(fā)實例導航 》 劉韜 等著 . 人民郵 電出版社 . 29 10． 《 管理信息系統(tǒng)（第三版） 》 黃梯云 等編 . 高等教育出版社 . 。 通過課設我還發(fā)現(xiàn) VB語言和 Access是一門非常實用的學科，像我的題目 書店圖書銷售系統(tǒng)，是與實際生活緊密相關的，在以后的工作當中都有可能會用的到。 \。Data Source= amp。 + + 39。 + + 39。 + + 39。 + + 39。 _ + 39。 End Select End If If = 0 Then MsgBox 數據庫中無此客戶信息 , 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 客戶基本信息不完整！請檢查數據！ , 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。 Case 2 = M_custom_ID =39。 Case 1 = M_custom_name =39。 圖 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。 39。 amp。 rs2(M_Book_Num).Value amp。 amp。 () amp。 39。 amp。 rs1(M_Book_Num).Value amp。 amp。 () amp。 39。 amp。 39。 amp。這時庫存數量就正確了。 = adCmdText = str = False = False End Sub 記賬處理 這部分功能是根據入庫流水賬和賣書發(fā)票信息更新一次庫存，這個窗體里會顯示庫存書籍的 ISBN，然后選 擇要查詢的日期，就會知道圖書銷售和入庫情況。 () amp。Persist Security Info=False str = select * from M_Book_Bill where M_Book_ID = 39。 amp。 (M_Book_FMoney) Else MsgBox wrong, vbInformation, i End If End Sub Private Sub Command2_Click() = False On Error GoTo err_report err_report: MsgBox , vbInformation, 錯誤提示 = True End Sub Private Sub Form_Load() Dim str As String = Provider=。 Tab(70)。 折 扣 金 額 :。 (M_Book_TMoney)。 String(75, ) Print Tab(15)。 (M_Book_Num) Print Tab(14)。 (M_Book_Prise)。 (M_Book_Name)。 (M_Book_ISBN)。 String(75, _) 23 Print Tab(14)。 Tab(80)。 Tab(60)。 Tab(35)。 String(75, ) Print Tab(15)。 日期 : amp。 (M_Book_ChargeMan)。 Tab(45)。 編號 :。 月 amp。 年 amp。Persist Security Info=False Dim strselect As String strselect = select * from M_Book_Bill order by M_Book_ID asc = adCmdText = strselect Set = Adodc1 If = 0 Then MsgBox 數據庫中暫無記錄！ End If Do While = False 22 (M_Book_ID) Loop End Sub 圖 48 打印發(fā)票界面圖示 其 主要實現(xiàn) 代碼如下： Private Sub Command1_Click() = True = True If 0 Then Print = 14 = 華文行楷 CurrentY = 200 Print Tab(38)。 amp。 圖 47 購書處理界面圖示 其主要實現(xiàn)代碼如下： Private Sub Form_Load() = Provider=。 \。Data Source= amp。 \。Data Source= amp。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 39。 amp。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 + + 39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 str = str amp。如果采購單或是發(fā)票已存在系統(tǒng)會提示你已經存在。點擊開發(fā)票會出現(xiàn)讓你輸入折扣率。 \。Data Source= amp。 39。39。 Replace(Trim(), 39。 Case 3 strselect1 = select * from M_Book_Store where M_Book_Name = 39。 Case 1 strselect1 = select * from M_Book_Store where M_Book_Author = 39。 + + 39。 + + 39。 + +