【正文】 UserN = 現(xiàn)在時間是： amp。 39。附錄圖 碟片出租管理系統(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。 文件 不知知道怎么修改其中的值，參閱相關的資料仍無法解決。當以普通用戶身份登錄時，則某些菜單功能對其隱藏，通過這可以實現(xiàn)權限管理。實踐證明，在搞科技突飛猛進的時代，光靠課堂所學的知識是遠遠不夠得，必須依靠實踐去不斷的深化知識，尤其是計算機科學，操作性和實踐性很強，只有加強實際的動手能力，才能更好的掌握這一現(xiàn)代化工具。 , False) MsgBox(設置成功！, , 提示) Catch ex As Exception MsgBox(失?。≡颍?amp。 amp。 amp。 \, setting[qx,zj,fj]: amp。gdt39。39。 CInt() amp。D39。 DROP DEFAULT zj End。 AND type = 39。 \, , ) Dim du As New StreamReader(DX) = ReadLineAt(2, du) () () Case 1 Dim DX As New ( amp。 39。 39。 = = sql () If () Is Nothing Then () MsgBox(舊密碼不正確！請重新輸入！, , 失敗) () = Else () If = Then 39。 and 密碼=39。執(zhí)行share 中方法GX 添加語句，來實現(xiàn)對用戶的添加 If GX(添加, sql) = True Then MsgBox(新用戶創(chuàng)建成功！, , 提示) = = = End If Else MsgBox(用戶名不可用！, , 失敗) () End If End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles Dim crypt As New CryptInfo() Dim sql As String = select * from 用戶信息表 where 用戶名=39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 If GX(刪除, sqlstr) = True Then () End If End If End Sub Private Sub 刷新ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 39。調(diào)用share 中方法GX 刪除語句，來實現(xiàn)對用戶的刪除 Dim sqlstr As String = delete from 用戶信息表 where 用戶名=39。選定TabPage (1) End Sub Private Sub 修改密碼ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 39。三個TabPage 的 BorderStlye 屬性都設置為Fix3D,選定TabPage1，向其添加一個DataGridView選定TabPage2，向其添加三個Label控件，三個TexBox控件兩個RadionButton控件一個GroupBox以及兩個Button按鈕。FrmMain 是主界面窗體 () End If If i = 3 Then MsgBox(登錄失敗超過3次，系統(tǒng)自動關閉!, , 錯誤) () End If End If Catch ex As Exception MsgBox(無法連接數(shù)據(jù)庫！請重新進行數(shù)據(jù)庫連接配置 amp。 () amp。 amp。將獲取的字符串進行解密 = (cs) 39。實例化加密類 Dim crypt As New CryptInfo() 39。打開數(shù)據(jù)庫，如果成功則返回true,否則…… () chk = True Catch ex As Exception MsgBox(服務器參數(shù)配置有誤,請重新配置！原因： amp。 , , 錯誤) End Try End IfEnd Sub 39。實例化加密類 Dim crypt As New CryptInfo()39。 。 。 amp。添加為字符串解密的函數(shù)Decrytptstring ，參數(shù)Mytext為要解密的字符串 Public Function Decrytptstring(ByVal Mytext As String) As String Try39。用緩沖區(qū)的當前狀態(tài)跟新基礎數(shù)據(jù)源和儲存區(qū)，隨后清除緩沖區(qū) ()39。Mytextbytes 儲存從Mytext編碼獲得的一個字節(jié)序列 Dim Mytextbytes() As Byte = (Mytext)39。重新給Hash數(shù)組分配空間 ReDim Preserve Hash(Length 1) Return HashEnd Function39。參數(shù)Key 為制定密鑰，length為指定長度Private Function Truncatehash(ByVal Key As String, ByVal Length As Integer) As Byte()39。 , , 提示) Return False Finally () End Try End Select End FunctionEnd RegionEnd Module◆為了數(shù)據(jù)庫的安全，我們要用的加密類，所以在項目里面點擊“添加類“，為項目添加一個類文件”“，此加密類使用的加密技術為私鑰對稱加密。罰金Public UserN As String39。加密密鑰Public key As String = DPCZGL39?！粑募簳T信息表組成：會員號、姓名、性別、身份證、聯(lián)系方式、金額、注冊時間、租碟數(shù)量及延期次數(shù)；解析：金額—此系統(tǒng)可為用戶充值，當用戶歸還碟片時，應交金額從金額里扣除（用戶也可付現(xiàn)金） 租碟數(shù)量—會員自注冊到現(xiàn)在所租碟總數(shù)； 延期次數(shù)—當會員歸還日期超過應還日期時，延期次數(shù)加1◆文件名：碟片信息表組成：碟片編號、碟片片名、導演、主演、影片類型、產(chǎn)地、播放格式、上影日期、應交押金、庫存總數(shù)及碟片說明解析：影片類型即愛情片、動作片、科幻片等 產(chǎn)地即影片屬于港臺還是內(nèi)地還是歐美等 播放格式即DVD 或VCD◆文件名：碟片出租情況表 組成：碟片編號、會員號、借出日期、應還日期及押金 解析：借出日期與應還日期間隔為2個星期即14天押金可由工作人員自行設定◆文件名：碟片歸還情況表 組成：碟片編號、會員號、歸還日期、租金、延期天數(shù)、應交金額解析：租金為規(guī)定時間內(nèi)租每份碟交付的金額，可由工作人員設定；延期天數(shù)即應還日期與歸還日期的間隔，若是歸還日期小于應還日期則延期天數(shù)為0； 應交金額=租金+（延期天數(shù)*M） M 為工作人員設定的值，延期每天應交的金額。手機基本數(shù)據(jù)、數(shù)據(jù)結構數(shù)據(jù)處理的流程，組成一份詳細的數(shù)據(jù)字典為后面的具體設計打下基礎。具體包括以下功能：1：數(shù)據(jù)庫設計2：數(shù)據(jù)庫連接配置模塊3：用戶登錄模塊設計4：用戶管理模塊設計對用戶操作有添加，修改，刪除。主要研究的目的及內(nèi)容:主要完成對管理系統(tǒng)的需求分析、功能模塊劃分、數(shù)據(jù)庫模式分析，并由此設計了數(shù)據(jù)庫結構和應用程序。而整個碟片管理系統(tǒng)采用最友好的交互界面，簡介明了，不需要對數(shù)據(jù)庫進行深入的了解。管理系統(tǒng)是一個信息化，智能化和先進管理理念的集合體。 為系統(tǒng)前臺開發(fā)工具，以 SQL 2005 Server 為后臺數(shù)據(jù)庫開發(fā)程序，開發(fā)人員只需熟悉這兩個軟件即可。碟片出租組織進行的是盈利性的商業(yè)活動。有租借者、數(shù)據(jù)處理系統(tǒng)和碟片出租者三方組成。在開發(fā)過程中，我們正對當前各碟片出租管理的特點和技術人員的實際水平，采用Windows圖形用戶界面這一易學和操作環(huán)境，在系統(tǒng)設計過程中，我們盡量才用易懂易讀的人機界面，是用戶可以再短期內(nèi)完全掌握。我們又始終把系統(tǒng)的正確性放在首位，力求數(shù)據(jù)的完整和處理的正確性。該系統(tǒng)的工作目標就是要使碟片的出租能有計劃第進行，以利于出租者的管理。碟片出租組織的業(yè)務主要是與租借者進行交換活動。由于碟