vb課堂點名回答問題系統的設計與實現(編輯修改稿)
2025-04-23 23:42 本頁面
【文章內容簡介】 = End SubPrivate Sub Text1_LostFocus()If = Then = 教師編號End SubPrivate Sub Text2_GotFocus()If = 密碼 Then = = *End SubPrivate Sub Text2_LostFocus()If = Then = 密碼 = End Sub 注冊界面的設計創(chuàng)建系統注冊界面如圖23所示圖23 注冊界面在注冊界面中，同樣將label控件及text控件的背景樣式設置為透明，并將邊框樣式設置為None，將Adodc設置為不可見，本界面的控件有：Label1：點擊進行注冊操作Label2：點擊關閉注冊界面Text1：點擊進行用戶名（教師編號）的輸入Text2：點擊進行密碼輸入Text3：點擊進行密碼確認Text4：點擊進行教師姓名的輸入Text5：點擊進行教學科目的輸入Text6：點擊進行學院名稱的輸入Adodc1：與access數據庫進行連接 注冊界面的控件及屬性設置如表23所示控件屬性屬性取值Form2Borderstyle0NonePictureStartUpPosition2屏幕中心Caption注冊WindowState0NormalMaxbuttonfalseLabel1caption空Borderstyle0NoneBackstyle0TransparentLabel2caption空Borderstyle0NoneBackstyle0TransparentText1text空Borderstyle0NoneAppearance0FlatText2text空Borderstyle0NoneAppearance0Flat控件屬性屬性取值Text3text空Borderstyle0NoneAppearance0FlatTex4text空Borderstyle0NoneAppearance0FlatText5text空Borderstyle0NoneAppearance0FlatText6text空Borderstyle0NoneAppearance0FlatAdodc1Commandtype1adCmdTextRecordSource注冊信息表visiblefalseconnectionstringPrivider=。Data Source=’數據庫路徑’。persist security info=false表23 登陸界面控件屬性添加代碼：Private Sub Form_Load() = 請輸入教師編號 = 請輸入密碼 = 請確認密碼 = 請輸入教師姓名 = 請輸入教學科目 = 請輸入學院名稱End SubPrivate Sub Label1_Click()If = Or = Or = Or = Or = Or = ThenMsgBox 信息填寫不完整，請檢查！, , 提示ElseIf ThenMsgBox 您兩次輸入的密碼不一致，請重新輸入, , 提示 = Exit SubEnd If = select * from 注冊信息表 where 教師編號= amp。 Trim() amp。 If 0 Then 39。如果賬號已經存在 MsgBox 賬號已經存在, , 提示 = : = : = : = : = : = Exit SubElse(教師編號) = Trim()(密碼) = Trim()(教師姓名) = Trim()(教學科目) = Trim()(學院名稱) = Trim()MsgBox 恭喜您，您的信息已注冊成功, , 提示：Unload MeEnd IfEnd IfEnd SubPrivate Sub Label2_Click()Unload MeEnd SubPrivate Sub Text1_GotFocus()If = 請輸入教師編號 Then = End SubPrivate Sub Text1_LostFocus()If = Then = 請輸入教師編號End SubPrivate Sub Text2
環(huán)評公示相關推薦
鄂ICP備17016276號-1