【正文】 = True For i = 0 To 14 Text1(i).Enabled = False Next i = False End Sub 27 物業(yè)管理模塊 設(shè)計 其中添加 ,修改 ,刪除按包的源碼設(shè)計同上 ,重點分析保存按鈕的源碼如下 : Private Sub cmdSave_Click() 39。 amp。主鍵不重復，可以加入表中 For i = 0 To 6 (i) = Text1(i).Text Next i 39。 = adUseClient sql, conn, adOpenStatic, adLockOptimistic 39。設(shè)置網(wǎng)格不可寫 = False = False = False Dim sql2 As String 39。 amp。 If = adStateOpen Then End If = adUseClient sql2, conn, adOpenStatic, adLockOptimistic 39。特別是對表單的作用還有視圖和報表的概念的掌握，理解不準確。在本系統(tǒng)中，程序主界面和登陸界面的制作是比較困難的。 參考文獻 馬力 Visual Basic 簡明教程 機械工業(yè)出版社 2021年 8 月 劉韜 駱娟 何旭洪 Visual 數(shù)據(jù)庫系統(tǒng)開發(fā)實例導航 人民郵電出版社 月 程序員雜志 2021 年合訂本 電子工業(yè)出版社 王小平，曹立明 .遺傳算法－理論、 應用與軟件實現(xiàn) .西安：西安交通大學出版社， 33 。 總的來說，做完一個數(shù)據(jù)庫的收獲不僅僅是技術(shù)上的，對事情的宏觀的控制有了更深的看法。對書本的學習完成以后，開始著手對數(shù)據(jù)庫系統(tǒng)開始制作，開始對系統(tǒng)的需求分析不足，造成多次重做。在設(shè)計應用程序時，應仔細考慮每個組件提供的功能以及與其他組件之間的關(guān)系。 amp。 amp。使用分組統(tǒng)計，并顯示在 DataGrid2 中 39。修改數(shù)據(jù)后的保存 Else End If MsgBox 保存數(shù)據(jù)成功！ , vbOKOnly + vbInformation, 祝賀 39。 39。添加數(shù)據(jù)后保存 If add = 1 Then 28 39。添加保存之后，顯示總信息條數(shù)需要加 1 = Val() 1 39。 (Text1(0).Text) amp。檢測數(shù)據(jù)是否完整 If Text1(0).Text = Then MsgBox 住戶編號不可為空！ , vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = Then MsgBox 物業(yè)地址不可為空！ , vbOKOnly + vbInformation, 注意 Text1(1).SetFocus Exit Sub ElseIf Text1(3).Text = Or IsNumeric(Text1(3).Text) = False Then MsgBox 建筑面積應為數(shù)字！ , vbOKOnly + vbInformation, 注意 Text1(3).SetFocus Exit Sub ElseIf Text1(4).Text = Or IsNumeric(Text1(4).Text) = False Then MsgBox 使用面積應為數(shù)字！ , vbOKOnly + vbInformation, 注意 Text1(4).SetFocus Exit Sub 25 ElseIf Text1(5).Text = Then MsgBox 業(yè)主姓名不可為空！ , vbOKOnly + vbInformation, 注意 Text1(5).SetFocus Exit Sub ElseIf IsDate(Text1(13).Text) = False Then MsgBox 入住日期書寫不對，應為 202111這樣的格式！ , vbOKOnly + vbInformation, 注意 Text1(13).SetFocus Exit Sub ElseIf Not Text1(14).Text = And IsDate(Text1(14).Text) = False Then MsgBox 遷出時間應為空或 202111這樣的格式！ , vbOKOnly + vbInformation, 注意 Text1(14).SetFocus Exit Sub End If 39。先移動 rs_client 記錄到后一條 If Then 39。刪除當前記錄 39。設(shè)置除保存和取消按鈕外的其他按鈕不可用 = False = False = False = True = True = False = False = False = False = False 39。 添加按鈕的 代碼 ： Private Sub cmdAdd_Click() 39。打開數(shù)據(jù)游標 sqluser, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 用戶名或密碼不正確！ , vbOKOnly + vbInformation, 注意 39。 amp。 amp。然后添 20 加程序代碼。但它可以通過動態(tài)鏈接庫技術(shù)將 C/C++或匯編語言編寫的程序加入到 Visual Basic 應用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。 對象的鏈接與嵌入 (OLE) 對象的鏈接與嵌入 (OLE)將每個應用程序都看作是一個對象(object)，將不同的對象鏈接 (link)起來，再嵌入 (embed)某個應用程序中，從而可以得到具有聲音、影像、圖像、動畫、文字等各種信息的集合式的文件。在應用程序中，可以使用結(jié)構(gòu)化查詢語言 SQL數(shù)據(jù)標準，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL 的編程技術(shù)，為單機上運行的數(shù)據(jù)庫提供了 SQL 網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實現(xiàn)客戶 /服務(wù)器 (client/server)方案。這些過程分別面向不同的對象，由用戶操作引發(fā)某個事件來驅(qū)動完成某種特定的功能，或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行 指定的操作，這樣可以方便編程人員，提高效率。 事件驅(qū)動編程機制 Visual Basic 通過事件來執(zhí)行對象的操作。 結(jié)構(gòu)化程序設(shè)計語言 Visual Basic 是在 BASIC 語言的基礎(chǔ)上發(fā)展起來的 ，具有高級 11 程序設(shè)計語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。 面向?qū)ο蟮某绦蛟O(shè)計 版以后的 Visual Basic 支持面向?qū)ο蟮某绦蛟O(shè)計，但它與一般的面向?qū)ο蟮某绦?設(shè)計語言 (C++)不完全相同。有時候，這種編程 編譯 修改的操作可能要反 復多次，大大影響了軟件開發(fā)效率。它簡單易學、效率高，且功能強大，可以與 Windows 的專業(yè)開發(fā)工具 SDK 相媲美，而且程序開發(fā)人員不必具有 C/C++編程基礎(chǔ)。目前在我國市場上最為流行、使用最多、最為