【文章內(nèi)容簡(jiǎn)介】 大量的企業(yè)組件。 面向 對(duì)象的程序設(shè)計(jì)介紹 傳統(tǒng)的 結(jié)構(gòu)化程序設(shè)計(jì) (Structured Programming)是一種強(qiáng)調(diào)功能抽象化和模塊化的編程方法，它把解決問(wèn)題的過(guò)程看作是一個(gè)處理單位。這就是說(shuō)結(jié)構(gòu)化程序設(shè)計(jì)中，模塊是對(duì)功能的抽象，而每一個(gè)模塊都是一個(gè)處理單位，并有輸入和輸出。 而面向?qū)ο蟮某绦蛟O(shè)計(jì) (Object Oriented Programming, OOP)是一種以對(duì)象為基礎(chǔ)，以事件來(lái)驅(qū)動(dòng)對(duì)象執(zhí)行的程序設(shè)計(jì)技術(shù)。 OOP 把計(jì)算過(guò)程看作為對(duì)象的分類過(guò)程加上其狀態(tài)變化的過(guò)程，也就是將一個(gè)應(yīng)用程序逐步劃分成相互關(guān)聯(lián)的多個(gè)對(duì)象，并且建立起與這些對(duì)象相互 關(guān)聯(lián)的事件過(guò)程，通過(guò)對(duì)象對(duì)所發(fā)生的事件產(chǎn)生響應(yīng)，并執(zhí)行相應(yīng)的事件過(guò)程以引發(fā)對(duì)象狀態(tài)的改變，從而最終達(dá)到完成計(jì)算的目的。 與結(jié)構(gòu)化程序設(shè)計(jì)不同，面向?qū)ο蟮某绦蛟O(shè)計(jì)綜合了功能的抽象和數(shù)據(jù)的抽象，它把解決問(wèn)題的過(guò)程看作是一個(gè)對(duì)象分類演繹的過(guò)程。在 OOP 中，對(duì)象 (Object)是一個(gè)包括數(shù)據(jù)和方法 (操作 )的并被封裝起來(lái)的整體，它是對(duì)數(shù)據(jù)和功能的抽象和統(tǒng)一，而對(duì)象就包含了模塊的概念。 面向?qū)ο笤O(shè)計(jì)是一種全新的程序設(shè)計(jì)方法，它從根本上改變了傳統(tǒng)的程序設(shè)計(jì)模式。其基本思想是：通過(guò)建立與具體實(shí)際應(yīng)用相對(duì)應(yīng)的對(duì)象，并通過(guò)這 些對(duì)象的組合來(lái)創(chuàng)建具體的應(yīng)用程序。這種設(shè)計(jì)方法給程序設(shè)計(jì)帶來(lái)了許多良好特性，一般說(shuō)來(lái)有以下幾點(diǎn)： （ 1） 模塊性：對(duì)象是一個(gè)功能和數(shù)據(jù)獨(dú)立的單元，它們之間只能通過(guò)對(duì)象認(rèn)可的方式來(lái)進(jìn)行通信，并可以較為自由地為其他對(duì)象所調(diào)用。 （ 2） 封裝性：這一特性為信息的隱藏提供了具體的實(shí)現(xiàn)手段，用戶不必清楚對(duì)象內(nèi)部的細(xì)節(jié)，只需了解其功能即可。 （ 3） 繼承性：這一特性為代碼的共享提供了一種非常有效的方法，從而可以避免重復(fù)的代碼設(shè)計(jì)，實(shí)現(xiàn)對(duì)象的可重用性。這一特性也是面向?qū)ο蟪绦蛟O(shè)計(jì)技術(shù)最本質(zhì)的特征。 （ 4） 可靠性：對(duì)象實(shí)現(xiàn)了抽象和封裝，從而使得其中出現(xiàn)的錯(cuò)誤限制在對(duì)象的內(nèi)部，因而不會(huì)向外部傳播，同時(shí)也易于檢查和維護(hù)。 （ 5） 可擴(kuò)充性：面向?qū)ο笙到y(tǒng)可以通過(guò)繼承機(jī)制不斷擴(kuò)充其對(duì)象的功能，而不會(huì)影響原系統(tǒng)的運(yùn)行。 （ 6） 連續(xù)性：雖然面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言在編程模式上相差很大，但它并沒(méi)有摒棄傳統(tǒng)的做法，它不僅采用了傳統(tǒng)程序設(shè)計(jì)語(yǔ)言的語(yǔ)言元素，而且利用它們來(lái)模擬建立對(duì)象，從而使得一個(gè)熟悉傳統(tǒng)程序設(shè)計(jì)語(yǔ)言的編程者能夠很快掌握面向?qū)ο笤O(shè)計(jì)的規(guī)律。 系統(tǒng)開(kāi)發(fā)理論介紹 軟件的生命周期指從提出軟 件產(chǎn)品開(kāi)始，直到該軟件產(chǎn)品被淘汰的全過(guò)程。信息系統(tǒng)在使用過(guò)程中隨著其生存環(huán)境的變化，要不斷維護(hù)、修改，當(dāng)它不再適應(yīng)的時(shí)候就要被淘汰，就要有新系統(tǒng)代替老系統(tǒng)，這種周期循環(huán)稱為信息系統(tǒng)的生命周期。 信息系統(tǒng)的生命周期可以分為系統(tǒng)規(guī)劃、系統(tǒng)分析、系統(tǒng)設(shè)計(jì)、系統(tǒng)實(shí)施、系統(tǒng)運(yùn)行和維護(hù)等五個(gè)階段。 開(kāi)發(fā)設(shè)計(jì)思想 ① 盡量采用學(xué)?，F(xiàn)有軟硬件環(huán)境，及先進(jìn)的管理系統(tǒng)開(kāi)發(fā)方案，從而達(dá)到充分利用學(xué)?，F(xiàn)有資源，提高系統(tǒng)開(kāi)發(fā)水平和應(yīng)用效果的目的； ② 系統(tǒng)應(yīng)符合家庭收支情況的有關(guān)事項(xiàng)，滿足對(duì)家庭日常管理的需要，并達(dá)到操作過(guò)程 中的直觀、方便、實(shí)用、安全等要求； ③ 系統(tǒng)采用模塊化程序設(shè)計(jì)方法，便于系統(tǒng)的各個(gè)組合和個(gè)性，也便于未參加開(kāi)發(fā)的技術(shù)維護(hù)人員補(bǔ)充和維護(hù)； ④ 系統(tǒng)應(yīng)具備數(shù)據(jù)庫(kù)維護(hù)功能，及時(shí)根據(jù)用戶需求進(jìn)行數(shù)據(jù)的添加、刪除、修改、備份等超作。 運(yùn)行環(huán)境 ①硬件環(huán)境 PC 機(jī)一臺(tái)。 ②操作系統(tǒng) Microsoft Windows XP Professional sp3 ③軟件環(huán)境 數(shù)據(jù)庫(kù) ： Microsoft SQL Server 2020 開(kāi)發(fā)工具： Delphi 7 3 系統(tǒng) 概要設(shè)計(jì) 系統(tǒng)數(shù)據(jù)流圖 根據(jù)以上分析，現(xiàn)以用戶收支管理模塊為例具體設(shè)計(jì)系統(tǒng)數(shù)據(jù)流圖，如圖所示。 圖 4 系統(tǒng)總體數(shù)據(jù)流 圖 5 用戶收支管理的總體數(shù)據(jù)流 系統(tǒng)結(jié)構(gòu)設(shè)計(jì)和工作原理 根據(jù)面向?qū)ο蟮脑O(shè)計(jì)思想，可以得出如下系統(tǒng)結(jié)構(gòu)功能設(shè)計(jì)和工作原理，如圖所示。 用戶收支信息 用戶收支信息 用 戶 收支管理 系統(tǒng) 用戶收支信息 用戶收支信息 用 戶 收支信息 管理 圖 6 系統(tǒng)結(jié)構(gòu)功能設(shè) 計(jì) 圖 7 工作原理 數(shù)據(jù)庫(kù)設(shè)計(jì) 數(shù)據(jù)庫(kù)是系統(tǒng)信息的有效中心，一個(gè)優(yōu)秀的數(shù)據(jù)庫(kù)設(shè)計(jì)應(yīng)考慮到系統(tǒng)工程的功能，系統(tǒng)的執(zhí)行速度，以及是否可能引起系統(tǒng)工作的異常等。 數(shù)據(jù)庫(kù)的設(shè)計(jì)合理與否不僅直接影響到程序設(shè)計(jì)的質(zhì)量，而且影響到系統(tǒng)的實(shí)現(xiàn)。 在 SQL Server中創(chuàng)建表格 中文 SQL Server 2020 提供了兩種創(chuàng)建表的方法：創(chuàng)建用于輸入數(shù)據(jù)的 “空表 ”；使用其他數(shù)據(jù)源中已有的數(shù)據(jù)來(lái)創(chuàng)建表。使用 “數(shù)據(jù)庫(kù)向?qū)?”即可在 建立數(shù)據(jù)庫(kù)的操作中創(chuàng)建該數(shù)據(jù)庫(kù)所需的全部表、窗體及報(bào)表。也許您會(huì)想到這與使用中文 Visual FoxPro 6 中的 “項(xiàng)目管理家庭記賬系統(tǒng) 用 戶 設(shè) 置 收 支 登 記 收 支 查 詢 收 支 統(tǒng) 計(jì) 事 件 提 醒 注 冊(cè) 用 戶 修 改 密 碼 收 入 登 記 支 出 登 記 收 入 查 詢 支 出 查 詢 收 入 統(tǒng) 計(jì) 支 出 統(tǒng) 計(jì) 特殊事件提醒設(shè)置 返回查詢結(jié)果 組織 SQL 語(yǔ)句， 查詢數(shù)據(jù)庫(kù) 給出用戶名和密碼 要查看收支信息 返回用戶對(duì)象， 內(nèi)部有用戶收支信息 數(shù)據(jù)庫(kù) 用戶 收支 管理 組件 用戶收支管理系統(tǒng)操作界面 器 ”相類似，其實(shí)它們的功能差別還是很明顯的，這里的 “數(shù)據(jù)庫(kù)向?qū)?”能創(chuàng)建新的數(shù)據(jù)庫(kù)，但不能將新表、窗體或報(bào)表添加到已有的數(shù)據(jù)庫(kù)中 。 在 “客戶 ”表中，中文 SQL Server 2020 的 “數(shù)據(jù)庫(kù)向?qū)?”已經(jīng)建立好了所需要的字段，并且允許您此后為這些字段輸入記錄，如果需要的話還能增加新的字段，刪除多余的字段。 如下表介紹： (1) 表 1 是用來(lái)說(shuō)明本系統(tǒng)的用戶和密碼的存儲(chǔ)情況，用戶 和密碼均 不能為空 ； 表 1 用戶密碼 (2) 表 2 主要是說(shuō)明本系統(tǒng)收入信息存儲(chǔ)數(shù)據(jù)的格式，日期要為日期數(shù)據(jù)類型 （自動(dòng)獲取系統(tǒng)時(shí)間）； 表 2 收支 信息 （ 3）表 3 主要記錄了需要進(jìn)行提醒的事件相關(guān)信息。 表 3 事件提醒信息 4 系統(tǒng)的詳細(xì) 設(shè)計(jì) 4． 1 具體功能模塊的詳細(xì)設(shè)計(jì) 初始界面 程序一被運(yùn)行即顯示此界面，用戶可以選擇登陸或者注冊(cè)。 核心代碼： procedure (Sender: TObject)。 begin 。 。 。 end。 procedure (Sender: TObject)。 begin 。 。 。 end。 //procedure (Sender: TObject)。 //begin //。 //。 //。 //end。 procedure (Sender: TObject)。 var sql : string 。 // i:integer。 strStartDate:string 。 strEndDate:string 。 begin strStartDate:=DateTostr(now())。 strEndDate:=DateTostr(now()+7 )。 sql:=39。select * from dt where date_time= 39。39。39。+strStartDate +39。39。39。 and date_time= 39。39。39。+strEndDate +39。39。39。 39。 。 (sql)。 。 while not() do begin sql:=Trim((39。date_time39。).AsString)+ 39。: 39。 + Trim((39。dt_name39。).AsString) 。 。 end。 // := IntToStr(i)。 //:=Trim((39。user_name39。).AsString)。 strDT :=sql。 end。 end. 用戶注冊(cè)界面 新用戶通過(guò)這個(gè)窗口注冊(cè)。先輸入想使用的用戶名，并點(diǎn)“用戶名檢測(cè)”檢測(cè)是否已經(jīng)存在該用戶名，如果不存在，則可用，“注冊(cè)”按鈕變?yōu)榭捎谩? 核心代碼： procedure (Sender: TObject)。 begin close。 end。 procedure (Sender: TObject)。 var sql:String。 //i:Integer。 begin sql:=39。insert into user_info values(39。39。39。++39。39。39。,39。39。39。++39。39。39。)39。 。 (sql)。 。 ShowMessage(39。注冊(cè)成功 !39。)。 := False。 end。 procedure (Sender: TObject)。 var //strUser_password:String。 i:Integer。 begin :=39。select * from user_info where user_name=39。39。39。+ + 39。39。39。39。 。 i:=。 if i =0 then //用戶名不存在，可以注冊(cè) begin ShowMessage(39。用戶名不存在，可以注冊(cè) !39。)。 := True。 end else begin ShowMessage(39。該用戶名已經(jīng)存在，請(qǐng)選擇其它用戶名 !39。)。 := false。 end。 end。 end. 登陸界面 已注冊(cè)用戶通過(guò)此窗口登陸。輸入正確的用戶名和密 碼。 核心代碼： procedure (Sender: TObject)。 var //strUser_password:String。 i:Integer。 begin :=39。select * from user_info where user_name=39。39。39。+ + 39。39。39。 and user_password=39。39。39。+ + 39。39。39。 39。 。 i:=。 if i 0 then begin ShowMessage(39。成功登錄 !39。)。 。 。 。 end else ShowMessage(39。輸入有誤 !39。)。 end。 procedure (Sender: TObject)。 begin close。 end。 end. 程序主界面 正確登陸后出現(xiàn)此窗口，可以選擇想進(jìn)行的操作，點(diǎn)擊對(duì)應(yīng)按鈕即可。設(shè)置的提醒事件顯示在該窗口下方。 核心代碼： procedure (Sender: TObject)。 begin