【文章內(nèi)容簡(jiǎn)介】 Private Sub cmd_yes_Click()Dim sql1 As StringDim rst_psd As New 39。新密碼不能為空If = ThenMsgBox 密碼不能為空, vbInformation, 密碼不能為空Else If = Then MsgBox 不能和原來(lái)的密碼一樣, vbInformation, 39。密碼不能和原來(lái)的密碼一樣 = = Else If Len() 6 Then 39。密碼長(zhǎng)度不能低于六位 MsgBox 密碼的長(zhǎng)度不能小于6位, vbInformation, 密碼長(zhǎng)度過(guò)短 = Else If = Then 39。檢查是否輸入了確認(rèn)密碼 MsgBox 請(qǐng)輸入確認(rèn)密碼, vbInformation, Else 39。檢驗(yàn)兩次輸入的密碼是否一致 If Or Then MsgBox 兩次輸入的密碼不一致，請(qǐng)重新輸入, vbInformation, 密碼設(shè)定錯(cuò)誤 = = Else Dim sql As String 39。設(shè)置新的用戶密碼 Dim rst_login As New sql = update Operator set password=39。 amp。 amp。 39。 sql = sql amp。 where operator_name like39。 amp。 amp。 39。 sql, n, adOpenKeyset, adLockPessimistic MsgBox 密碼修改成功，請(qǐng)牢記您的新密碼!, vbInformation, End If End If End If End IfEnd IfEnd SubPrivate Sub Form_Load()Dim strn As Stringstrn = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=School。Data Source= Set n = New strni = 0End SubPrivate Sub opt_no_Click() 39。修改密碼時(shí)新密碼不可見(jiàn) = * = *End SubPrivate Sub opt_yes_Click() 39。修改密碼時(shí)新密碼可見(jiàn) = = End Sub 用戶注冊(cè)用戶注冊(cè)模塊的實(shí)現(xiàn)方式和修改密碼模塊相似，此處給出該模塊的界面，代碼略去，在vb工程源文件中可以查找。下面是用戶注冊(cè)界面：第三章 信息維護(hù)無(wú)論是學(xué)生信息教師信息，還是班級(jí)信息課程信息，他們的添加、修改、查詢、刪除，功能和實(shí)現(xiàn)方式都是相似的。下面給出學(xué)生信息維護(hù)模塊的主要代碼。 添加學(xué)生記錄 控件向SQL 2000 數(shù)據(jù)庫(kù)中寫入記錄。為了保證系統(tǒng)的正常運(yùn)行，在程序中對(duì)學(xué)生的學(xué)號(hào)、姓名和行唄進(jìn)行檢驗(yàn)，如果為空則不執(zhí)行寫入數(shù)據(jù)庫(kù)的命名，以降低系統(tǒng)出現(xiàn)錯(cuò)誤的可能。與課程信息、部門信息或班級(jí)信息相比，添加學(xué)生信息和教師信息要復(fù)雜的多，所以這兩項(xiàng)分別提供了單獨(dú)的添加記錄窗口，方便用戶進(jìn)行操作，也保障了用戶的安全。添加其他記錄時(shí)直接在DataGrid 控件進(jìn)行操作。下面是添加學(xué)生信息模塊的界面：這一部分的代碼為：考慮到在實(shí)際操作過(guò)程中可能會(huì)連續(xù)甚至大量添加屬于同一班級(jí)同學(xué)的信息，所以此處添加班級(jí)信息選擇了列表框單擊選擇的方式。系統(tǒng)在啟動(dòng)時(shí)會(huì)默認(rèn)添加幾個(gè)班級(jí)的信息，僅為測(cè)試軟件功能之用，用戶可以添加自己需要的班級(jí)信息，如果所要添加的信息已經(jīng)在列表框中，則不能重復(fù)添加相同的信息，并且焦點(diǎn)會(huì)定位到該條記錄，方便用戶進(jìn)行查找。此處添加班級(jí)信息采用了InputBox 函數(shù)，方便靈活，增強(qiáng)了程序的趣味性。Option ExplicitDim ssex As StringPrivate Sub cmd_addsdept_Click() 39。添加學(xué)生所屬的院系和班級(jí)時(shí)，采用列表框選擇的方 39。式，這樣一個(gè)班級(jí)只需輸入一次，可以節(jié)省時(shí)間，減 39。少輸入錯(cuò)誤Dim sdept As StringDim i As IntegerDim permission As Booleanpermission = True 39。用對(duì)話框輸入要添加的班級(jí)和學(xué)院的名稱，如果要添 39。的單位已經(jīng)在列表框中，則不再重復(fù)添加，并將焦點(diǎn) 39。停留在該單位上sdept = InputBox(請(qǐng)輸入你要添加的學(xué)院或班級(jí)的名稱, 添加班級(jí)名稱, )For i = 0 To 1If (i) = sdept ThenMsgBox 您所輸入的班級(jí)已在列表中，不能重復(fù)添加！, vbExclamation + vbOKOnly, (i) = Truepermission = False 39。要添加的單位已經(jīng)在列表框中，不允許再次重復(fù)添加End IfNext iIf permission = True Then sdept MsgBox 添加成功！, vbInformation, End IfEnd SubPrivate Sub cmd_clear_Click() 39。再次添加一條記錄時(shí)，可以點(diǎn)擊“清除”按鈕， = 39。快速清除上一次輸入的數(shù)據(jù) = = = = = = False = FalseEnd SubPrivate Sub cmd_exit_Click()Unload MeEnd SubPrivate Sub cmd_yes_Click() 39。添加學(xué)生記錄的主要操作，因?yàn)閷W(xué)號(hào)、姓名和性別為 39。必須輸入項(xiàng)，所以寫入數(shù)據(jù)之前要進(jìn)行判斷，考慮到 39。實(shí)際情況，學(xué)號(hào)不會(huì)過(guò)長(zhǎng)，所以設(shè)最大長(zhǎng)度為10位。Dim rst_add As New Dim sql As Stringsql = select* from Student sql, n, adOpenDynamic, adLockPessimisticIf = ThenMsgBox 學(xué)號(hào)不能為空, vbInformation, Else If Len() 10 Then MsgBox 學(xué)號(hào)的長(zhǎng)度不能大于10位, vbExclamation + vbOKOnly, Else If txt_sname = Then MsgBox 姓名不能為空, vbInformation, Else If = False And opt_girl = False Then MsgBox 請(qǐng)選擇男生或是女生, vbInformation, Else If = True Then ssex = 男 Else ssex = 女 End If 39。完成數(shù)據(jù)的檢驗(yàn)以后，向SQL數(shù)據(jù)庫(kù)中寫入數(shù)據(jù) (Sno) = Trim() (Sname) = Trim() (Ssex) = ssex (Sbirth) = Trim() (Sclass) = () (Saddress) = Trim()