【正文】 End If Next Return End Function Private Sub MOption_Load(ByVal sender As , ByVal e As ) Handles For i As Integer = 0 To 2 Select Case i Case 0 Dim DX As New ( amp。 \, , ) Dim du As New StreamReader(DX) = ReadLineAt(2, du) () () Case 1 Dim DX As New ( amp。 \, , ) Dim du As New StreamReader(DX, True) = ReadLineAt(3, du) () () Case 2 Dim DX As New ( amp。 \, , ) Dim du As New StreamReader(DX, True) = ReadLineAt(4, du) () () End Select Next End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles Try Dim md As New SqlCommand(, MyConn) () = IF EXISTS (SELECT name FROM WHERE name = 39。zj39。 AND type = 39。D39。) BEGIN EXEC sp_unbindefault 39。39。 DROP DEFAULT zj End。IF EXISTS (SELECT name FROM WHERE name = 39。gdt39。 AND type = 39。D39。) BEGIN EXEC sp_unbindefault 39。39。 DROP DEFAULT gdt END () = create default zj as amp。 CInt() amp。 () = exec sp_bindefault 39。zj39。,39。39。 () = create default gdt as getdate()+ amp。 CInt() amp。 () = exec sp_bindefault 39。gdt39。,39。39。 () ( amp。 \, setting[qx,zj,fj]: amp。 Chr(13) amp。 amp。 amp。 amp。 Chr(13) amp。 amp。 amp。 amp。 Chr(13) amp。 amp。 amp。 , False) MsgBox(設置成功！, , 提示) Catch ex As Exception MsgBox(失??！原因： amp。 , , 提示) Finally () End Try End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles () End SubEnd Class六 實訓心得經(jīng)過半個月的艱苦努力，我終于完成了此課題的設計，并使該系統(tǒng)達到可實際應用的階段。軟件設計是一個精細漫長的過程，在整個過程中都需要周密的計劃和按排，每一步驟都需要按照軟件工程標準來完成。在設計中我始終堅持理論指導實踐原則，并通過實踐來加強理論的學習，通過實踐鍛煉，我熟悉了軟件開發(fā)的一般過程，加強了對實際問題的處理能力。實踐證明，在搞科技突飛猛進的時代，光靠課堂所學的知識是遠遠不夠得，必須依靠實踐去不斷的深化知識，尤其是計算機科學，操作性和實踐性很強，只有加強實際的動手能力，才能更好的掌握這一現(xiàn)代化工具。數(shù)據(jù)庫用SQL 2005實現(xiàn)，但未對其用戶權限做過多設置，而是通過菜單來實現(xiàn)。當以高級管理員身份登錄時，其擁有全部的權限，所以菜單上的功能使對其可用的。當以普通用戶身份登錄時，則某些菜單功能對其隱藏，通過這可以實現(xiàn)權限管理。2. 數(shù)據(jù)類型不匹配。SQL 2005 中Money 和Image ，Image數(shù)據(jù) 無法通過系統(tǒng)操作向數(shù)據(jù)庫插入圖片格式數(shù)據(jù)。參閱相關的資料仍無法解決，所以有關Money變量和Image未實現(xiàn)。 文件 不知知道怎么修改其中的值，參閱相關的資料仍無法解決。這次的課題研究設計，無論是從技術上還是對環(huán)境的適應能力上講，對我今后步入社會都打下了一個良好的基礎。在設計過程中我也遇到了一些困難，主要表現(xiàn)在技術和經(jīng)驗的欠缺上，但通過努力終于一一克服了。 在整個課題研究設計期間，曾得到了胡老師和同學的大力支持和幫助，在此表示衷心的感謝。附錄圖 碟片出租管理系統(tǒng)主界面設計為MDI窗體，代碼如下：Imports Public Class FrmMain Private Sub FrmMain_FormClosing(ByVal sender As Object, ByVal e As ) Handles () End Sub Private Sub FrmMain_Load(ByVal sender As , ByVal e As ) Handles 39。根據(jù)用戶權限，對菜單項的顯示進行控制 = = select 權限級別from 用戶信息表where 用戶名=39。 amp。 UserN amp。 39。 () If = 低 Then = False = False End If = True () 39。獲取用戶自行設置的罰金 Dim DX As New ( amp。 \, , ) Dim du As New StreamReader(DX) = CDbl((4, du)) () () End Sub Private Sub 用戶管理ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub 數(shù)據(jù)庫參數(shù)配置ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub TabPage1_Click(ByVal sender As , ByVal e As ) End SubPrivate Sub Timer1_Tick(ByVal sender As , ByVal e As ) Handles = 你好！ amp。 UserN = 現(xiàn)在時間是： amp。 End Sub Private Sub 安全退出ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub 會員管理CToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles = Me () End Sub Private Sub 碟片出租歸還管理ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles = Me () End Sub Private Sub 碟片管理RToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles = Me () End Sub Private Sub 會員租碟統(tǒng)計TToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles = Me () End Sub Private Sub 碟片出租統(tǒng)計JToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles = Me () End Sub Private Sub 高級選項ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles () End SubEnd Class以下是同組的同學研究設計的課題（碟片出租管理的其他模塊：會員管理模塊，碟片管理模塊，碟片出租歸還模塊等）,在主界面都可以通過點擊菜單啟動。 會員管理界面圖 會員充值界面