freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

數(shù)據(jù)庫技術(shù)與應(yīng)用課程設(shè)計--成績管理系統(tǒng)(編輯修改稿)

2025-02-14 15:47 本頁面
 

【文章內(nèi)容簡介】 Private Sub cmd_yes_Click()Dim sql1 As StringDim rst_psd As New 39。新密碼不能為空If = ThenMsgBox 密碼不能為空, vbInformation, 密碼不能為空Else If = Then MsgBox 不能和原來的密碼一樣, vbInformation, 39。密碼不能和原來的密碼一樣 = = Else If Len() 6 Then 39。密碼長度不能低于六位 MsgBox 密碼的長度不能小于6位, vbInformation, 密碼長度過短 = Else If = Then 39。檢查是否輸入了確認(rèn)密碼 MsgBox 請輸入確認(rèn)密碼, vbInformation, Else 39。檢驗兩次輸入的密碼是否一致 If Or Then MsgBox 兩次輸入的密碼不一致,請重新輸入, vbInformation, 密碼設(shè)定錯誤 = = 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 密碼修改成功,請牢記您的新密碼!, 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。修改密碼時新密碼不可見 = * = *End SubPrivate Sub opt_yes_Click() 39。修改密碼時新密碼可見 = = End Sub 用戶注冊用戶注冊模塊的實現(xiàn)方式和修改密碼模塊相似,此處給出該模塊的界面,代碼略去,在vb工程源文件中可以查找。下面是用戶注冊界面:第三章 信息維護(hù)無論是學(xué)生信息教師信息,還是班級信息課程信息,他們的添加、修改、查詢、刪除,功能和實現(xiàn)方式都是相似的。下面給出學(xué)生信息維護(hù)模塊的主要代碼。 添加學(xué)生記錄 控件向SQL 2000 數(shù)據(jù)庫中寫入記錄。為了保證系統(tǒng)的正常運(yùn)行,在程序中對學(xué)生的學(xué)號、姓名和行唄進(jìn)行檢驗,如果為空則不執(zhí)行寫入數(shù)據(jù)庫的命名,以降低系統(tǒng)出現(xiàn)錯誤的可能。與課程信息、部門信息或班級信息相比,添加學(xué)生信息和教師信息要復(fù)雜的多,所以這兩項分別提供了單獨的添加記錄窗口,方便用戶進(jìn)行操作,也保障了用戶的安全。添加其他記錄時直接在DataGrid 控件進(jìn)行操作。下面是添加學(xué)生信息模塊的界面:這一部分的代碼為:考慮到在實際操作過程中可能會連續(xù)甚至大量添加屬于同一班級同學(xué)的信息,所以此處添加班級信息選擇了列表框單擊選擇的方式。系統(tǒng)在啟動時會默認(rèn)添加幾個班級的信息,僅為測試軟件功能之用,用戶可以添加自己需要的班級信息,如果所要添加的信息已經(jīng)在列表框中,則不能重復(fù)添加相同的信息,并且焦點會定位到該條記錄,方便用戶進(jìn)行查找。此處添加班級信息采用了InputBox 函數(shù),方便靈活,增強(qiáng)了程序的趣味性。Option ExplicitDim ssex As StringPrivate Sub cmd_addsdept_Click() 39。添加學(xué)生所屬的院系和班級時,采用列表框選擇的方 39。式,這樣一個班級只需輸入一次,可以節(jié)省時間,減 39。少輸入錯誤Dim sdept As StringDim i As IntegerDim permission As Booleanpermission = True 39。用對話框輸入要添加的班級和學(xué)院的名稱,如果要添 39。的單位已經(jīng)在列表框中,則不再重復(fù)添加,并將焦點 39。停留在該單位上sdept = InputBox(請輸入你要添加的學(xué)院或班級的名稱, 添加班級名稱, )For i = 0 To 1If (i) = sdept ThenMsgBox 您所輸入的班級已在列表中,不能重復(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。再次添加一條記錄時,可以點擊“清除”按鈕, = 39??焖偾宄弦淮屋斎氲臄?shù)據(jù) = = = = = = False = FalseEnd SubPrivate Sub cmd_exit_Click()Unload MeEnd SubPrivate Sub cmd_yes_Click() 39。添加學(xué)生記錄的主要操作,因為學(xué)號、姓名和性別為 39。必須輸入項,所以寫入數(shù)據(jù)之前要進(jìn)行判斷,考慮到 39。實際情況,學(xué)號不會過長,所以設(shè)最大長度為10位。Dim rst_add As New Dim sql As Stringsql = select* from Student sql, n, adOpenDynamic, adLockPessimisticIf = ThenMsgBox 學(xué)號不能為空, vbInformation, Else If Len() 10 Then MsgBox 學(xué)號的長度不能大于10位, vbExclamation + vbOKOnly, Else If txt_sname = Then MsgBox 姓名不能為空, vbInformation, Else If = False And opt_girl = False Then MsgBox 請選擇男生或是女生, vbInformation, Else If = True Then ssex = 男 Else ssex = 女 End If 39。完成數(shù)據(jù)的檢驗以后,向SQL數(shù)據(jù)庫中寫入數(shù)據(jù) (Sno) = Trim() (Sname) = Trim() (Ssex) = ssex (Sbirth) = Trim() (Sclass) = () (Saddress) = Trim()
點擊復(fù)制文檔內(nèi)容
教學(xué)課件相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖片鄂ICP備17016276號-1