【正文】 cyear = 39。 amp。 Mid$(Trim(), 1, 4) amp。 39。 d = (cout).Value Val(Trim()) (cout).Value = d End If If = True Then End If Else MsgBox 不能將數據全部刪除 Exit Sub End If End IfEnd SubPrivate Sub Command7_Click()(ono).Value = a + 1If Len() 0 Then = adCmdText = select tno from type where tno = 39。 amp。 Trim() amp。 39。 If = True Then MsgBox 無此費用編號 = Exit Sub Else (tno).Value = Trim() End IfEnd IfIf IsNumeric(Trim()) = True Then(omoney).Value = Trim()ElseMsgBox 請輸入數字 = Exit SubEnd IfIf Len() 0 Then = adCmdText = select pno from partment where pno = 39。 amp。 Trim() amp。 39。 If = True Then MsgBox 無此部門編號 = Exit Sub Else (pno).Value = Trim() End IfEnd IfIf Len() = 0 ThenMsgBox 請輸入部門編號Exit SubEnd IfIf Len() = 0 ThenMsgBox 請輸入費用編號Exit SubEnd IfIf Len() 0 Then If IsDate(Trim()) = True Then (odate).Value = Trim() Else MsgBox 日期格式錯誤，請按XXXXXXXX輸入 = Exit Sub End IfEnd If39。將支出的費用金額加入到對應的總支出金額中If Len() 0 Thenb = Mid$(Trim(), 1, 4) 39。取日期的年份 = adCmdText = select * from control where pno = 39。 amp。 Trim() amp。 39。and cyear = 39。 amp。 b amp。 39。c = (cout).Value + Val(Trim()) 39。取支出金額和支出金額之和(cout).Value = cEnd IfMsgBox 更新成功 = True = True = FalseEnd SubPrivate Sub Command8_Click() = True = True = FalseEnd SubPrivate Sub Form_Load() = FalseEnd SubPrivate Sub Command1_Click()End SubPrivate Sub Command2_Click()If = True Then End IfEnd SubPrivate Sub Command3_Click()If = True Then End IfEnd SubPrivate Sub Command4_Click()End Sub 辦公費用申請界面此界面提供費用申請服務，需要用戶輸入申請信息。5．小結 兩個星期的課程設計圓滿結束，很慶幸我完成了辦公費用管理信息系統(tǒng)的設計，從這次的系統(tǒng)設計中我領略了一下幾點.（1）數據庫應用系統(tǒng)的開發(fā)設計是一個規(guī)范化的過程，需要遵循一定的方式方法與開發(fā)設計步驟；（2）開發(fā)一個數據庫應用系統(tǒng)，通常要經過調查分析、數據建模、功能設計、選擇數據庫系統(tǒng)、選擇數據庫訪問技術等5個階段；（3）數據庫關系模式的設計非常的重要，使整個系統(tǒng)的設計中心，其設計合理否，將全面影響整個系統(tǒng)的成功實現；（4）應用系統(tǒng)中數據庫操作的實質是設計、組織、遞交SQL命令，并根據SQL命令的執(zhí)行狀態(tài)決定后續(xù)的數據庫處理與操作。（5）本系統(tǒng)設計用的是被VB封裝起來的ADO對象，使用ADO訪問數據庫很方便，使用SQL語言可以實現數據庫的所有操作。終于將課程設計做完了，兩個星期，中間還伴隨著兩個學科的期末考試以及六級考試，其實時間還是有點緊的。覺得學校的安排不是很合理，幸好我還是挺過來了，沒有放棄它們中的任何一個，這與我的努力以及對程序設計的濃厚興趣分不開?；叵氲谝惶斓臅r候，不知道干什么，真是應了那句話，萬事開頭難。我從表單入手，把表的關系以及名稱的表示都畫在紙上，再通過需求分析，把VB的模塊理清，我的思路終于有點清晰了。編寫代碼是最難的，第一天，光是登錄代碼就讓我花了不少心思，期間還遇到了點困難。就是我的用戶信息表一開始的名字是User。結果在編寫登錄代碼的時候，就是不成功。我反復看了代碼，確定沒有錯。后來覺得是數據庫的問題，在查詢分析器里用Select語句查詢User表，令我吃驚的是提示錯誤。“User”的顏色是紅的，是表名字的問題，可能是與數據庫里的系統(tǒng)表有沖突。我把名字改為“Users”，問題解決了。當我運行登錄成功的那一刻，我真的感到由衷的興奮，因為我通過自己的努力，解決了一個雖然不大但卻能打擊人的情緒的問題。它讓我找到了自信。做完課程設計，看著自己做的程序正常的運作，感覺到一種無比的成就感。在實習以前，很少實際動手的我，光是靠看書，真的編不出什么像樣的代碼。通過兩個星期的實際操作，對于VB和SQL的功能掌握的比較熟練，熟悉了軟件的環(huán)境。忙碌的時光就要過去了，有點開心，更多的是不舍，期盼著下次的課程設計快快到來。6．參考文獻1 . 北京：北京機械工業(yè)出版社，20052 錢雪忠、黃學光、. 北京： 北京郵電大學版社，20053 Basic可視化程序設計. 北京：中國鐵道出版社，200526 /