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

正文內(nèi)容

vb課程設(shè)計報告--小型學(xué)生成績管理系統(tǒng)-在線瀏覽

2025-03-25 20:41本頁面
  

【正文】 vate Sub Command2_Click() 進入教師登陸界面 End Sub Private Sub Form_Load() = = 設(shè)定標簽(歡迎使用成績管理系統(tǒng))的起始值 End Sub Private Sub Timer1_Timer() If + = 0 Then = 50 Else 第 9 頁 共 30 頁 = 使上述標簽以一定的時間運動 End If End Sub 學(xué)生登陸界面 核心代碼如下: Private Sub Command1_Click() UserName = If Trim() = Then MsgBox 用戶名不能為空,請重新輸入! , vbOKOnly + vbExclamation, 警告 ‘ 判斷輸入是否為空,若是,則彈出窗體警告! Else = select * from 密碼表 where 用戶名 =39。 amp。 and 密碼 =39。 amp。 連接數(shù)據(jù)庫,查找滿足條件的記錄。 第 10 頁 共 30 頁 End If End If End Sub Private Sub Command2_Click() = = End Sub “取消”按鈕,使兩個文本框內(nèi)容為空。 End If End Sub 教師登陸界面 : 核心代碼如下所示; 該界面代碼與上個界面基本一致。 amp。 39。 amp。 39。 代碼如下: Private Sub Command1_Click() End End Sub 單擊“退出系統(tǒng)”按鈕,結(jié)束程序。 End Sub Private Sub Form_Load() = select * from 成績表 where 學(xué)號 =39。 amp。 End Sub 當(dāng)界面載入的時候,就連接數(shù)據(jù)庫,并查找出滿足學(xué)號等于學(xué)生登陸窗體中的用戶名的記錄。 amp。 39。 End Sub Private Sub Command2_Click() = = End Sub 單擊“取消”按鈕,將文本框清空。 End Sub 主窗體界面 : 第 14 頁 共 30 頁 代碼如下: Private Sub tcxt_Click() End 單擊“退出系統(tǒng)”按鈕, 結(jié)束程序。 End Sub Private Sub xgmm_Click() 單擊“修改密碼”按鈕,當(dāng)前窗體隱藏,“教師修改密碼”窗體出現(xiàn)。 End Sub 第 15 頁 共 30 頁 Private Sub xxtj_Click() 單擊“信息添加”按鈕,進入“學(xué)生信息添加”界面。 End Sub Private Sub cjcx_Click() End Sub 單擊“成績查詢”按鈕,進入“成績查詢”界面。 Private Sub cjxg_Click() 單擊“成績修改”按鈕,進入成績修改界面。 amp。 39。 Exit Sub Else With Data1 . .(0) = Trim() .(1) = Trim() . End With MsgBox 添加用戶成功! , vbOKOnly + vbExclamation, 添加用戶 End If End Sub 若上述情況均沒有,則連接數(shù)據(jù)庫,將輸入的用戶信息添加到“教師密碼表”中去。 End Sub Private Sub Command3_Click() 單擊“返回”按鈕,返回到主界面。 Else = select * from 密碼表 where 用戶名 =39。 amp。 (密碼 ) = 若一致,連接數(shù)據(jù)庫,進行修改,將所輸入密碼保存到數(shù)據(jù)庫中去。 Private Sub Command2_Click() = = End Sub 清空文本框。 添加學(xué)生信息界面: 第 18 頁 共 30 頁 代碼如下: Private Sub Command1_Click() If = Or = Then MsgBox 學(xué)號和姓名不能為空! , vbOKOnly + vbExclamation, 警告 Exit Sub 判斷“學(xué)號”和“姓名”是否為空,若是,則彈出警告,重新輸入 ! Else = select * from 基本信息表 where 學(xué)號 =39。 Trim() amp。 If = False And = False Then MsgBox 輸入的學(xué)號已經(jīng)存在,請重新輸入! , vbOKOnly + vbExclamation, 警告 = = 若不為空,連接數(shù)據(jù)庫,判斷輸入的學(xué)號是否已經(jīng)存在,若存在,彈出警告,重新輸入! Else (0) = (1) = (2) = (3) = (4) = (5) = (6) = 第 19 頁 共 30 頁 MsgBox 添加成功! 若不為空,且輸入的學(xué)號不存在,則連接數(shù)據(jù)庫,將所輸入的信息添加到“基本信息表”中。 amp。 39。 amp。 39。 End If End Sub Private Sub Command2_Click() End Sub 修改學(xué)生信息界面: 第 20 頁 共 30 頁 代碼如下: Private Sub Command1_Click() If = Then MsgBox 請輸入內(nèi)容! Else 判斷輸入內(nèi)容是否為空 (0) = (1) = (2) = (3) = (4) = (5) = (6) = = Str((Val() + Val() + Val()) / 3) (7) = MsgBox 修改成功 不為空時,對數(shù)據(jù)庫進行修改,并保存入數(shù)據(jù)庫。 amp。 39。 Else = (0) = (1) = (2) 第 21 頁 共 30 頁 = (3) = (4) = (5) = (6) End If 由此記錄的話,直接顯示在文本框中。 amp。 39。 amp。 39。 If = Then = select * from 基本信息表 End If End Sub
點擊復(fù)制文檔內(nèi)容
試題試卷相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號-1