數(shù)據(jù)庫課程設(shè)計--門診收費管理系統(tǒng)(編輯修改稿)
2025-07-09 13:57 本頁面
【文章內(nèi)容簡介】 clamation, 警告 = : Else If (密碼 ) = Then Unload Me Else MsgBox 密碼錯誤，請重新輸入！ , vbExclamation, 警告 = : End If End If miCount = miCount + 1 If miCount = 3 Then Unload Me End Sub 注冊新用戶 在上面主窗體點擊菜單文件下的注冊新用戶，進(jìn)入注冊新用戶界面，輸入用戶名、密碼、再次輸入密碼確認(rèn)，注冊成功。注冊成功后會有提示，密碼不一致也會有提示。 圖 新用戶注冊 圖 注冊成功提示 圖 密碼不一致提示 源代碼： Private Sub Command1_Click() Static miCout As Integer Dim sqlstr As String sqlstr = Select * from 密碼表 Where 用戶名 =39。 amp。 amp。 39。 = sqlstr If Then MsgBox 用戶名錯誤，請重新輸入！ , vbExclamation, 警告 = : Else If (密碼 ) = Then Unload Me Else MsgBox 密碼錯誤，請重新輸入！ , vbExclamation, 警告 = : End If End If miCount = miCount + 1 If miCount = 3 Then Unload Me End Sub 藥品信息管理 點擊 MDI 主窗體的管理菜單下的藥品信息管理，出現(xiàn)藥品信息管理界面，可以進(jìn)行增加，刪除，前移，后移，添加，修改，刪除等功能。 圖 藥品信息管理 源代碼： Private Sub Command1_Click() 39。 記錄指針移到首記錄（顯示首記錄） = False 39。 讓 [首記錄 ]按鈕無效 = False 39。 讓 [前移 ]按鈕無效 = True 39。 讓 [后移 ]按鈕有效 = True 39。 讓 [末記錄 ]按鈕有效 39。在 Label6 上顯示當(dāng)前記錄號 /記錄總數(shù)： End Sub Private Sub Command2_Click() 39。記錄指針移到前一條記錄 = True = True If Then 39。如果記錄指針移到首記錄之前 , 39。則記錄指針移到首記錄上 = False = False End If End Sub Private Sub Command3_Click() 39。記錄指針移到下一條記錄 = True = True If Then 39。 如果記錄指針移到了末記錄之后 39。則記錄指針移到末記錄上 = False = False End If End Sub Private Sub Command4_Click() 39。 移到末記錄 = True = True = False = False End Sub Private Sub Command5_Click() = False = False = True = True End Sub Private Sub Command6_Click() = True = True = False = False End Sub Private Sub Command7_Click() x = MsgBox(確實要刪除當(dāng)前記錄嗎？ , vbYesNo + vbQuestion, 確認(rèn) ) If x = vbYes Then If Then End If Else End If End Sub Private Sub Command8_Click() = True = True = False = False End Sub Private Sub Command9_Click() Unload Me End Sub Private Sub Form_Load() = False 39。 [首記錄 ]按鈕無效 = False 39。 [上一個 ]按鈕無效 = True 39。 [下一個 ]按鈕有效 = True 39。 [末記錄 ]按鈕有效 = True 39。 [添加 ]按鈕有效 = True 39。 [刪除 ]按鈕有效 = False 39。 [確定 ]按鈕無效 = False 39。 [取消 ]按鈕無效 End Sub
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1