【導(dǎo)讀】VB售樓管理系統(tǒng)及源代碼。MsgBox"樓盤編號(hào)不能為空！=Year'Date取得當(dāng)前系統(tǒng)日期。=Format'系統(tǒng)中現(xiàn)有記錄條數(shù)加1. ConstsString="分角元拾佰仟萬拾佰仟億拾佰仟萬". ConstsNumber="零壹貳叁肆伍陸柒捌玖". sql="select*from收款登記表where收款登記表.icm_ID="&Val(). sql="select*from收款登記表where收款登記表.icm_houseID='"&

　　

【正文】 ly + vbExclamation, Else 39。檢驗(yàn)密碼是否正確 If Trim((1)) = Trim() Then userID = username = (2) 39。記錄登錄用戶的類型，以便權(quán)限設(shè)置 Unload Me Exit Sub Else MsgBox 密碼不正確 , vbOKOnly + vbExclamation, End If End If End If t = t + 1 39。輸入次數(shù)加 1 If t = 3 Then MsgBox 您輸入密碼錯(cuò)誤次數(shù)太多！ , vbExclamation, Unload Me End If End Sub Private Sub Form_Load() 39。定義連接字符串 connectionstring = provider=。 amp。 _ data source= amp。 amp。 \ connectionstring 39。打開數(shù)據(jù)庫 sql = select * from 系統(tǒng)管理表 39。檢索系統(tǒng)管 理表 sql, conn, adOpenKeyset, adLockPessimistic 39。打開記錄集 If = False Then 39。有記錄時(shí)逐一添加到 cmbName組合框 Do While = False ((0)) Loop = 0 39。默認(rèn)顯示第一個(gè)子項(xiàng) End If t = 0 39。初始化輸入次數(shù) End Sub Private Sub txtPwd_Change() End SubOption Explicit Dim rs_kehu As New Dim gridclick As Boolean Dim select_row As String 39。記錄選擇的樓盤 Dim getrow As Long Private Sub cmdadd_Click() On Error GoTo adderror If = 保存 Then = 增加 If Trim() = Then MsgBox 身份證號(hào)不能為空！ , vbOKOnly + vbExclamation Exit Sub End If If Trim() = Then MsgBox 姓名不能為空！ , vbOKOnly + vbExclamation Exit Sub End If If Trim() = Then MsgBox 請(qǐng)選擇性別！ , vbOKOnly + vbExclamation Exit Sub End If Dim i As Integer For i = 0 To 1 If (0) = Then MsgBox 身份證號(hào)重復(fù)！ , vbOKOnly + vbExclamation Exit Sub End If Next i (0) = (1) = (2) = If Trim() = Then 39。電話信息 (3) = Null Else (3) = End If If Trim() = Then 39。手機(jī)信息 (4) = Null Else (4) = End If If Trim() = Then 39。職業(yè)信息 (5) = Null Else (5) = End If (6) = 39。出生日期信息 If Trim() = Then (7) = Null Else (7) = End If If Trim() = Then 39。車牌號(hào)信息 (8) = Null Else (8) = End If If Trim() = Then 39。郵編信息 (9) = Null Else (9) = End If If Trim() = Then 39。通訊地址信息 (10) = Null Else (10) = End If If Trim() = Then 39。備注信息 (11) = Null Else (11) = End If MsgBox 添加成功！ , vbOKOnly + vbExclamation With grdKehu .Rows = + 1 .Row = 1 .Col = 0 .Text = .Col = 1 .Text = .Col = 2 .Text = .Col = 3 .Text = .Col = 4 .Text = .Col = 5 .Text = .Col = 6 .Text = .Col = 7 .Text = .Col = 8 .Text = .Col = 9 .Text = .Col = 10 .Text = .Col = 11 .Text = End With Else = 保存 = = = = = = = = = = = False = False End If Exit Sub adderror: MsgBox End Sub Private Sub cmdmodify_Click() On Error GoTo modifyerror = False If Trim() = Then MsgBox 姓名不能為空！ , vbOKOnly + vbExclamation Exit Sub End If Dim i As Integer For i = 0 To 1 If (0) = Then (1) = (2) = If Trim() = Then (3) = Null Else (3) = End If If Trim() = Then (4) = Null Else (4) = End If If Trim() = Then (5) = Null Else (5) = End If (6) = If Trim() = Then (7) = Null Else (7) = End If If Trim() = Then (8) = Null Else (8) = End If If Trim() = Then (9) = Null Else (9) = End If If Trim() = Then (10) = Null Else (10) = End If If Trim() = Then (11) = Null Else (11) = End If MsgBox 修改成功！ , vbOKOnly + vbExclamation With grdKehu .Row = getrow .Col = 1 .Text = .Col = 2 .Text = .Col = 3 .Text = .Col = 4 .Text = .Col = 5 .Text = .Col = 6 .Text = .Col = 7 .Text = .Col = 8 .Text = .Col = 9 .Text = .Col = 10 .Text = .Col = 11 .Text = End With Exit Sub End If Next i modifyerror: MsgBox End Sub Private Sub cmddel_Click() Dim answer As String Dim delete_row As String On Error GoTo delerror answer = MsgBox(確定要?jiǎng)h除嗎？ , vbYesNo + vbQuestion) If answer = vbYes Then Dim i As Integer For i = 0 To 1 If (0) = Then MsgBox 刪除成功！ , vbOKOnly + vbExclamation With grdKehu .RemoveItem getrow End With Exit Sub End If Next i Else Exit Sub End If Exit Sub delerror: MsgBox End Sub Private Sub cmdexit_Click() Unload Me End Sub Private Sub Form_Load() Dim sql As String On Error GoTo loaderror sql = select * from 客戶資料表 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid 男