【正文】 碼，請(qǐng)重新輸入第二組：用戶名：C ，密碼為 12測(cè)試結(jié)果：進(jìn)入工作記錄界面⑵ 工作記錄查詢功能測(cè)試輸入記錄日期，期望結(jié)果顯示查詢信息，以此測(cè)試查詢功能是否有效。測(cè)試用例：第一組：記錄日期：202231 測(cè)試結(jié)果：表中信息為空第二組：記錄日期：202259 測(cè)試結(jié)果：100，202259,n,11:00,H,C[3] 工作記錄提醒功能測(cè)試輸入提醒時(shí)間，期望結(jié)果顯示提醒事件并播放音樂(lè)，以此測(cè)試提醒功能是否有效。測(cè)試用例：第一組：工作備忘錄22提醒時(shí)間：18：00：00測(cè)試結(jié)果：表中信息為空第二組：提醒時(shí)間：18：00：43測(cè)試結(jié)果：44444444444444 播放“姻緣劫”測(cè)試該系統(tǒng)中的功能基本上符合設(shè)計(jì)要求，系統(tǒng)穩(wěn)定性良好，運(yùn)行正常。至此，本次測(cè)試圓滿結(jié)束。6. 結(jié)論經(jīng)過(guò)兩周的努力，課程設(shè)計(jì)終于順利完成，課程設(shè)計(jì)的任務(wù)書(shū)上要求的功能也都成功實(shí)現(xiàn)。工作備忘錄可以對(duì)數(shù)據(jù)庫(kù)中工作記錄進(jìn)行添加、修改、刪除以及其他不同條件的查詢并將查詢結(jié)果顯示到 DateGrid1 上。本次課程設(shè)計(jì)將用戶管理和工作記錄管理集為一體，不僅能注冊(cè)用戶，還可對(duì)用戶身份進(jìn)行驗(yàn)證，也可幫助用戶適時(shí)地對(duì)工作記錄進(jìn)行添加、刪除，修改，查詢等操作。本系統(tǒng)大大減輕了用戶的工作壓力，有效地提高了人們工作的效率，也對(duì)提高人們工作積極性的起到了促進(jìn)作用。本系統(tǒng)當(dāng)然也還存在可以擴(kuò)展的地方，雖然基本上完成了課程設(shè)計(jì)任務(wù)書(shū)中提出的要求，能夠?qū)崿F(xiàn)對(duì)用戶和對(duì)工作記錄的管理。不過(guò)對(duì)于一個(gè)工作任務(wù)繁重的用戶來(lái)說(shuō)，這樣的一個(gè)軟件系統(tǒng)只能滿足一定數(shù)量的事件提醒和記錄功能，但所有記錄擠在一起，沒(méi)有輕重緩急，因此需要對(duì)工作記錄進(jìn)行分類管理，程序還需要進(jìn)一步去完善。比如:可以添加選擇音樂(lè)的功能，當(dāng)系統(tǒng)時(shí)間等于提醒時(shí)間時(shí)播放選擇的音樂(lè)；也可以把屬于一類的工作記錄放在一起，做成總的工作記錄管理系統(tǒng)，這樣不僅使程序應(yīng)用的更廣泛，也讓用戶操作更為方便。結(jié)束語(yǔ)通過(guò)這為期兩個(gè)禮拜的軟件綜合課程設(shè)計(jì)，使我對(duì) VB 和數(shù)據(jù)庫(kù)操作有了更深刻的了解，也鍛煉了自己的編程能力。在做課設(shè)之前我們?cè)鴮W(xué)過(guò) VB、VC等有關(guān)系統(tǒng)開(kāi)發(fā)工具，還有數(shù)據(jù)庫(kù)使用 Access 或者 SQL。剛開(kāi)始完全自己獨(dú)立工作備忘錄23編程序有點(diǎn)無(wú)從下手，因?yàn)閷?duì) VB 和 ACCESS 雖學(xué)過(guò)但不是很熟悉，所以遇到了不少麻煩，不僅到網(wǎng)上查相關(guān)內(nèi)容，還每天去圖書(shū)館查資料，包括 VB 的使用和 VB 連接數(shù)據(jù)庫(kù)的方法等等。經(jīng)過(guò)這些準(zhǔn)備工作后，我才正式開(kāi)始做起課程設(shè)計(jì)來(lái)。由于之前使用 VB 連接數(shù)據(jù)庫(kù)是在暑假之前，現(xiàn)在有些淡忘，因此對(duì) VB 還是有點(diǎn)不順手，也遇到了很多麻煩。每天下午在實(shí)驗(yàn)室里做程序，遇到不懂的問(wèn)題就請(qǐng)教老師或是去圖書(shū)館查資料，沒(méi)解決的問(wèn)題晚上便上網(wǎng)繼續(xù)查資料。終于功夫不負(fù)有心人，當(dāng)我拿著自己所編寫的程序給老師檢查時(shí)，不禁傻了眼，因?yàn)槔蠋熖舫隽撕芏喑绦蚬δ苤械拿〔⒁笪覍?duì)其進(jìn)行修改，這可不是一次簡(jiǎn)單的修改，雖然有些功能可以變換位置一下也可以實(shí)現(xiàn)，但有些就不是那么好改，當(dāng)時(shí)我滿泄氣的，覺(jué)得老師檢查有點(diǎn)嚴(yán)，自己花費(fèi)了大量時(shí)間做出的成果被否認(rèn)了，但是又一想，如果自己以后工作還不追求完善，那么也很容易讓社會(huì)淘汰的，再就是自己不能半途而廢，只要再將程序修改一下就好了。然后我又花費(fèi)了兩天時(shí)間上網(wǎng)查程序的含義，及代碼的具體用途和含義。終于在兩天后將自己改完后的程序再次拿給老師檢查，雖然還不太完善，也有一點(diǎn)小改動(dòng)，但是老師說(shuō)現(xiàn)在可以過(guò)了，當(dāng)時(shí)心情特激動(dòng)。通過(guò)這次軟件綜合課程設(shè)計(jì)實(shí)習(xí)，我學(xué)會(huì)了很多知識(shí)，也鍛煉了自己動(dòng)手和動(dòng)腦的能力，這在我今后生活、學(xué)習(xí)和工作上有很大的幫助。參考文獻(xiàn)[1] 薩師煊，王珊．?dāng)?shù)據(jù)庫(kù)系統(tǒng)概論．北京：高等教育出版社，2022[2]　劉瑞新，汪遠(yuǎn)征等． Visual Basic 程序設(shè)計(jì)教程．北京：機(jī)械工業(yè)出版社，[3] 孔鵬等． Visual C++安全手冊(cè)．北京：機(jī)械工業(yè)出版社， [4] 楊繼平, 吳華. SQL Server 2022 :清華大學(xué)出版社, [5] 許家珆．軟件工程 —理論與實(shí)踐．北京：高等教育出版社，工作備忘錄24附錄 1－用戶手冊(cè)點(diǎn)擊運(yùn)行，首先出現(xiàn)的是登錄界面，選擇用戶名稱，正確的輸入密碼即可，如圖 14 所示。圖 14 用戶登錄界面點(diǎn)擊登錄，進(jìn)入工作記錄界面工作備忘錄25圖 15 工作記錄界面如圖顯示工作記錄信息，點(diǎn)擊界面上的菜單可分別對(duì)工作記錄進(jìn)行添加、刪除、修改和查詢。點(diǎn)擊添加，可將信息添加到工作記錄表中，同時(shí)到所填寫的提醒時(shí)間，則會(huì)彈出窗體播放音樂(lè)并顯示提醒事件。添加界面如圖 16 所示：工作備忘錄26圖 16 添加界面到提醒時(shí)間彈出的界面如圖 17 所示：圖 17 時(shí)間提醒界面刪除工作記錄的界面如圖 18 所示：工作備忘錄27圖 18 刪除界面修改記錄的界面如圖 19 所示：圖 19 修改界面工作備忘錄28日期查詢界面如圖 20 所示：圖 20 查詢界面工作備忘錄29附錄 2－源程序 主要模塊源代碼清單：（1）用戶注冊(cè) Private Sub Command2_Click() Dim strInsert As String Dim r As New Dim str As String If flag = False Then End If str = select * from u where uname=39。 amp。 amp。 39。 str, Mycon, adOpenStatic If = False Then MsgBox 該用戶用戶已存在 Else strInsert = INSERT INTO u VALUES (39。 amp。 amp。 39。,39。 amp。 amp。 39。) strInsert u, Mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect MsgBox 注冊(cè)成功 工作備忘錄30 flag = False End IfEnd Sub(2)工作記錄的添加：Dim strInsert As String If flag = False Then End If strInsert = INSERT INTO record VALUES (39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。, 39。 amp。 amp。 39。,39。 amp。 amp。 39。) strInsert record, Mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect Set = MyRS MsgBox 添加成功 flag = False If flag = False Then End If = adUseClient工作備忘錄31 = Mycon select rcon from record where tim=39。 amp。 amp。 39。 flag = FalseEnd Sub定時(shí)功能代碼：Private Sub Timer1_Timer() = 當(dāng)前時(shí)間 amp。 amp。 Time() If = CStr(Time()) Then End IfEnd Sub播放音樂(lè)代碼：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load() Set = MyRS = C:\Documents and Settings\gaoquanmiao\桌面\WorkRecord\\ = wav|*.wav|mp3|*.mp3End Sub（3）刪除記錄Private Sub 刪除記錄_Click()Dim strdel As StringIf flag = False Then工作備忘錄32 End If rno = InputBox(請(qǐng)輸入要?jiǎng)h除的工作記錄的記錄號(hào) ) If Trim(rno) = Then Exit Sub strdel = delete from record where rno like 39。 amp。 Trim(rno) amp。 39。 strdel a = MsgBox(刪除 record 表中的該記錄 amp。 Chr(13) amp。 確定嗎?, vbOKCancel + vbExclamation, 注意) If a = vbOK Then MsgBox 指定的記錄編號(hào) amp。 rno amp。 的工作記錄信息已經(jīng)從數(shù)據(jù)庫(kù)中刪除, vbInformation, 注意 Else MsgBox 刪除被取消, vbExclamation, 注意 End If record, Mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect Set = MyRSflag = FalseEnd Sub工作備忘錄33完成日期：2022 年 9 月 21 日