【正文】 osoft Visual Basic 軟件簡介 .........................................8 第三章 系統(tǒng)設計 ............................................................................... 14 業(yè)務流程圖 ............................................................................. 14 數(shù)據(jù)庫設計 ............................................................................. 14 系統(tǒng)詳細設計 ......................................................................... 18 其他窗體詳細 設計 .................................................................. 19 系統(tǒng)登錄界面設計 ....................................................... 21 基本資料模塊的設計 .................................................... 27 物業(yè)管理模塊的設計 .................................................... 29 數(shù)據(jù)報表統(tǒng)計模塊的設計 ................ 錯誤 !未定義書簽。數(shù)據(jù)庫系統(tǒng)是由數(shù)據(jù)，數(shù)據(jù)庫管理系統(tǒng)，應用程序，用戶組成。在某種意義上，信息與科技在物業(yè)管理與現(xiàn)代化建設中顯現(xiàn)出越來越重要的地位。該系統(tǒng)的實施為小區(qū)日后發(fā)展奠定了新的臺階。目前在我國市場上最為流行、使用最多、最為先進的可用作做作企業(yè)級開發(fā)工具的產(chǎn)品有： Microsoft 公司的 Visual Basic Microsoft 公司的 Visual C Borland 公司的 Delphi Powersoft 公司的 PowerBulider 9 Java 等等 在目前市場上這些眾多的程序開發(fā)工具中，有些強調(diào)程語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高，各有各的優(yōu)點和特色，也滿足 了不同用戶的需求。有時候，這種編程 編譯 修改的操作可能要反 復多次，大大影響了軟件開發(fā)效率。 結(jié)構(gòu)化程序設計語言 Visual Basic 是在 BASIC 語言的基礎上發(fā)展起來的 ，具有高級 11 程序設計語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。這些過程分別面向不同的對象，由用戶操作引發(fā)某個事件來驅(qū)動完成某種特定的功能，或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行 指定的操作，這樣可以方便編程人員，提高效率。 對象的鏈接與嵌入 (OLE) 對象的鏈接與嵌入 (OLE)將每個應用程序都看作是一個對象(object)，將不同的對象鏈接 (link)起來，再嵌入 (embed)某個應用程序中，從而可以得到具有聲音、影像、圖像、動畫、文字等各種信息的集合式的文件。然后添 20 加程序代碼。 amp。 添加按鈕的 代碼 ： Private Sub cmdAdd_Click() 39。刪除當前記錄 39。檢測數(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。添加保存之后，顯示總信息條數(shù)需要加 1 = Val() 1 39。 39。使用分組統(tǒng)計，并顯示在 DataGrid2 中 39。 amp。對書本的學習完成以后，開始著手對數(shù)據(jù)庫系統(tǒng)開始制作，開始對系統(tǒng)的需求分析不足，造成多次重做。 參考文獻 馬力 Visual Basic 簡明教程 機械工業(yè)出版社 2021年 8 月 劉韜 駱娟 何旭洪 Visual 數(shù)據(jù)庫系統(tǒng)開發(fā)實例導航 人民郵電出版社 月 程序員雜志 2021 年合訂本 電子工業(yè)出版社 王小平，曹立明 .遺傳算法－理論、 應用與軟件實現(xiàn) .西安：西安交通大學出版社， 33 。特別是對表單的作用還有視圖和報表的概念的掌握，理解不準確。 amp。 = adUseClient sql, conn, adOpenStatic, adLockOptimistic 39。 amp。 sqlCheck, conn, adOpenStatic, adLockOptimistic If Not And Not Then MsgBox 該住戶編號已經(jīng)存在，請重填一個！ , vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Text1(0).Text = Exit Sub End If 39。如果到記錄首，則表格已經(jīng)為空，置所有 text 框顯示為空 ElseIf Then For i = 0 To 14 Text1(i).Text = Next i End If 24 39。當單擊刪除記錄時，需要彈出一個提示框，警告用戶 Dim answer As String answer = MsgBox(確定要刪除嗎？ , vbYesNo, ) 39。還需使其他菜單可用 = True = True