數(shù)據(jù)庫(kù)課設(shè)報(bào)告房產(chǎn)管理系統(tǒng)-在線瀏覽
2025-03-30 01:42本頁(yè)面
【正文】 d Sub 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No9 沈陽(yáng)理工大學(xué) Private Sub CmdCancel_Click() Unload Me End Sub （ 2） 新用戶注冊(cè)窗體： 功能模塊設(shè)計(jì)代碼 ： Private Sub Command1_Click() Dim sqlstr As String If Text1 = Then MsgBox 請(qǐng)輸入用戶名！ , vbExclamation, 確認(rèn)用戶名 Exit Sub Else sqlstr = Select * from 系統(tǒng)信息 where 用戶名 =39。 Text1 amp。 = sqlstr If = False Then MsgBox 用戶名已存在，請(qǐng)重新輸入！ , vbExclamation, 檢驗(yàn)用戶名 Text1 = Exit Sub End If End If If Text2 Text3 Then MsgBox 二次輸入的密碼不一致，請(qǐng)重新輸入 , vbExclamation, 檢驗(yàn)密碼 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No10 沈陽(yáng)理工大學(xué) Text2 = : Text3 = Exit Sub ElseIf Text2 = Then MsgBox 密碼不能為空！ , vbExclamation, 檢驗(yàn)密碼 Else (用戶名 ) = Trim(Text1) (密碼 ) = Trim(Text2) MsgBox 成功注冊(cè)新用戶！ , vbInformation, 添加用戶 End If End Sub Private Sub Command2_Click() Unload Me End Sub （ 4） MIDF 主窗體： 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No11 沈陽(yáng)理工大學(xué) 瀏覽版塊 （ 1）樓盤信息 點(diǎn)擊添加按鈕： 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No12 沈陽(yáng)理工大學(xué) 添加功能的代碼： Private Sub Form_Load() = False = False = True = True = True = True = False = False = 記錄： amp。 / amp。記錄指針移到下一條記錄 = True = True If Then 39。則記錄指針移到末記錄上 = False = False 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No15 沈陽(yáng)理工大學(xué) End If = 記錄： amp。 / amp。 記錄指針移到首記錄（顯示首記錄） = False 39。 讓 [前移 ]按鈕無(wú)效 = True 39。 讓 [末記錄 ]按鈕有效 39。 amp。 End Sub Private Sub CmdLast_Click() 39。 amp。 End Sub Private Sub CommandN_Click() Dim n As Integer n = n = 記錄： amp。 / amp。記錄指針移到前一條記錄 = True = True If Then 39。則記錄指針移到首記錄上 = False = False End If 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No16 沈陽(yáng)理工大學(xué) = 記錄： amp。 / amp。 / amp。 記錄指針移到首記錄（顯示首記錄） = False 39。 讓 [前移 ]按鈕無(wú)效 = True 39。 讓 [末記錄 ]按鈕有效 39。 amp。 End Sub Private Sub CmdLast_Click() 39。 amp。 End Sub Private Sub CmdNext_Click() 39。 如果記錄指針移到了末記錄之后 39。 amp。 End Sub Private Sub CmdOk_Click() = True = True = False = False End Sub Private Sub Command10_Click() End Sub Private Sub CommandN_Click() Dim n As Integer n = n = 記錄 ： amp。 / amp。記錄指針移到前一條記錄 = True = True If Then 39。則記錄指針移到首記錄上 = False 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No20 沈陽(yáng)理工大學(xué) = False End If = 記錄： amp。 / amp。 [首記錄 ]按鈕無(wú)效 = False 39。 [后移 ]按鈕有效 = True 39。 [添加 ]按鈕有效 = True 39。 [確定 ]按鈕無(wú)效 = False 39。 amp。 End Sub （ 3）戶型信息 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No21 沈陽(yáng)理工大學(xué) 其功能代碼如下： Private Sub CmdAdd_Click() = False = False = True = True End Sub Private Sub CmdDel_Click() x = MsgBox(確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？ , vbYesNo + vbQuestion, 確認(rèn) ) If x = vbYes Then If Then End If Else
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1