【正文】 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)計(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 高級選項(xiàng)ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles () End SubEnd Class以下是同組的同學(xué)研究設(shè)計(jì)的課題（碟片出租管理的其他模塊：會員管理模塊，碟片管理模塊，碟片出租歸還模塊等）,在主界面都可以通過點(diǎn)擊菜單啟動。 \, , ) 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。 () If = 低 Then = False = False End If = True () 39。 UserN amp。根據(jù)用戶權(quán)限，對菜單項(xiàng)的顯示進(jìn)行控制 = = select 權(quán)限級別from 用戶信息表where 用戶名=39。 在整個(gè)課題研究設(shè)計(jì)期間，曾得到了胡老師和同學(xué)的大力支持和幫助，在此表示衷心的感謝。這次的課題研究設(shè)計(jì)，無論是從技術(shù)上還是對環(huán)境的適應(yīng)能力上講，對我今后步入社會都打下了一個(gè)良好的基礎(chǔ)。參閱相關(guān)的資料仍無法解決，所以有關(guān)Money變量和Image未實(shí)現(xiàn)。2. 數(shù)據(jù)類型不匹配。當(dāng)以高級管理員身份登錄時(shí)，其擁有全部的權(quán)限，所以菜單上的功能使對其可用的。在設(shè)計(jì)中我始終堅(jiān)持理論指導(dǎo)實(shí)踐原則，并通過實(shí)踐來加強(qiáng)理論的學(xué)習(xí)，通過實(shí)踐鍛煉，我熟悉了軟件開發(fā)的一般過程，加強(qiáng)了對實(shí)際問題的處理能力。 , , 提示) 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)用的階段。 amp。 Chr(13) amp。 amp。 Chr(13) amp。 amp。 Chr(13) amp。 () ( amp。,39。 () = exec sp_bindefault 39。 () = create default gdt as getdate()+ amp。,39。 () = exec sp_bindefault 39。 DROP DEFAULT gdt END () = create default zj as amp。) BEGIN EXEC sp_unbindefault 39。 AND type = 39。IF EXISTS (SELECT name FROM WHERE name = 39。39。D39。zj39。 \, , ) Dim du As New StreamReader(DX, True) = ReadLineAt(3, du) () () Case 2 Dim DX As New ( amp。高級選項(xiàng)模塊界面設(shè)計(jì)圖如下：圖 右擊窗體點(diǎn)擊“查看代碼”進(jìn)入代碼編寫窗體輸入以下代碼：Imports Imports Imports Public Class MOption Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles = 7 = 2 = End Sub Public Function ReadLineAt(ByVal LineNumber As Integer, ByVal d1 As StreamReader) As String For i As Integer = 1 To LineNumber If i = LineNumber Then Return () Else () 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。 If GX(修改, sqlstr) = True Then MsgBox(密碼修改成功！在下次登錄的時(shí)候請使用新密碼！, , 恭喜) End If Else MsgBox(修改失??！新密碼兩次輸入不一樣！, , 失敗) End If End IfEnd SubEnd Class 高級選項(xiàng)模塊設(shè)計(jì)高級選項(xiàng)設(shè)計(jì)的目的是為了用戶可以根據(jù)市場經(jīng)濟(jì)情況調(diào)整租碟情況。 amp。 where 用戶名=39。 () amp。調(diào)用share 中的方法GX 修改語句，來實(shí)現(xiàn)對舊密碼的更改 Dim sqlstr As String = update 用戶信息表 set 密碼=39。 39。 amp。 39。 amp。) End If 39。 amp。,39。 () amp。,39。 amp。) Else sql = insert into 用戶信息表 values (39。 amp。,39。 () amp。,39。 amp。實(shí)例化加密類 () Dim crypt As New CryptInfo() Dim sql As String If = True Then sql = insert into 用戶信息表 values (39。 39。 amp。同上 Dim sql As String sql = select * from 用戶信息表 Dim dt As New DataTable = = sql (dt) = dt End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles (0) End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles 39。 39。 amp。執(zhí)行刪除語句，來實(shí)現(xiàn)對用戶的刪除