【正文】 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(設(shè)置成功！, , 提示) 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六 實(shí)訓(xùn)心得經(jīng)過半個(gè)月的艱苦努力，我終于完成了此課題的設(shè)計(jì)，并使該系統(tǒng)達(dá)到可實(shí)際應(yīng)用的階段。軟件設(shè)計(jì)是一個(gè)精細(xì)漫長的過程，在整個(gè)過程中都需要周密的計(jì)劃和按排，每一步驟都需要按照軟件工程標(biāo)準(zhǔn)來完成。在設(shè)計(jì)中我始終堅(jiān)持理論指導(dǎo)實(shí)踐原則，并通過實(shí)踐來加強(qiáng)理論的學(xué)習(xí)，通過實(shí)踐鍛煉，我熟悉了軟件開發(fā)的一般過程，加強(qiáng)了對(duì)實(shí)際問題的處理能力。實(shí)踐證明，在搞科技突飛猛進(jìn)的時(shí)代，光靠課堂所學(xué)的知識(shí)是遠(yuǎn)遠(yuǎn)不夠得，必須依靠實(shí)踐去不斷的深化知識(shí)，尤其是計(jì)算機(jī)科學(xué)，操作性和實(shí)踐性很強(qiáng)，只有加強(qiáng)實(shí)際的動(dòng)手能力，才能更好的掌握這一現(xiàn)代化工具。數(shù)據(jù)庫用SQL 2005實(shí)現(xiàn)，但未對(duì)其用戶權(quán)限做過多設(shè)置，而是通過菜單來實(shí)現(xiàn)。當(dāng)以高級(jí)管理員身份登錄時(shí)，其擁有全部的權(quán)限，所以菜單上的功能使對(duì)其可用的。當(dāng)以普通用戶身份登錄時(shí)，則某些菜單功能對(duì)其隱藏，通過這可以實(shí)現(xiàn)權(quán)限管理。2. 數(shù)據(jù)類型不匹配。SQL 2005 中Money 和Image ，Image數(shù)據(jù) 無法通過系統(tǒng)操作向數(shù)據(jù)庫插入圖片格式數(shù)據(jù)。參閱相關(guān)的資料仍無法解決，所以有關(guān)Money變量和Image未實(shí)現(xiàn)。 文件 不知知道怎么修改其中的值，參閱相關(guān)的資料仍無法解決。這次的課題研究設(shè)計(jì)，無論是從技術(shù)上還是對(duì)環(huán)境的適應(yīng)能力上講，對(duì)我今后步入社會(huì)都打下了一個(gè)良好的基礎(chǔ)。在設(shè)計(jì)過程中我也遇到了一些困難，主要表現(xiàn)在技術(shù)和經(jīng)驗(yàn)的欠缺上，但通過努力終于一一克服了。 在整個(gè)課題研究設(shè)計(jì)期間，曾得到了胡老師和同學(xué)的大力支持和幫助，在此表示衷心的感謝。附錄圖 碟片出租管理系統(tǒng)主界面設(shè)計(jì)為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ù)用戶權(quán)限，對(duì)菜單項(xiàng)的顯示進(jìn)行控制 = = select 權(quán)限級(jí)別from 用戶信息表where 用戶名=39。 amp。 UserN amp。 39。 () If = 低 Then = False = False End If = True () 39。獲取用戶自行設(shè)置的罰金 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)在時(shí)間是： amp。 End Sub Private Sub 安全退出ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub 會(huì)員管理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 會(huì)員租碟統(tǒng)計(jì)TToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles = Me () End Sub Private Sub 碟片出租統(tǒng)計(jì)JToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles = Me () End Sub Private Sub 高級(jí)選項(xiàng)ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles () End SubEnd Class以下是同組的同學(xué)研究設(shè)計(jì)的課題（碟片出租管理的其他模塊：會(huì)員管理模塊，碟片管理模塊，碟片出租歸還模塊等）,在主界面都可以通過點(diǎn)擊菜單啟動(dòng)。 會(huì)員管理界面圖 會(huì)員充值界面