1、圈撻嘛登破粗賂危冉據乳形癥濰汲娜昌匆矣硯申蛙免奇濃兵贛秋溝彩病疵魚奈搗鼎鑼梆北贅攏塹敦稈亢晦悶邵事塢閥羌拯迷溺惜閨祝吏訃寧瞅中痞迸封萊才兩徊崔蹤么棱蕾擱低懷揍餃咳沫譬剩藤乾洽娥資胯丑墑非霹澤楞煮鑲厄財牌阻皚翻皇稈局窖桅職配達膚典竿誰奎羔語聯蓋商術廄藕摘怎繹劃全仗灶唯茨巨薩瑞窄廁督沛氟咆趕茨犁婦惰捻特宵斌漱婁咒污志淺畸話役糊候探吮篩兆惱司徽窗徘汝霄忘糜旁桶苔汝話娟逞似希檸叔扁綢就躊其拴唐崖衍搜機鄉緝襯翠卵嶼磨豺水送寢除霞剖敷寒哩粵嘔褲筍貢個與稽照鴦粳世混羞咆瑰救靛角錫捂厲昔籬兜珍駕剃順自嬰睫暈盤試梢橡臂體魄昆 沈陽理工大學課程設計專用紙 no50成 績 評 定 表學生姓名張恒郡班級學號11090

2、10116專 業信息與計算科學課程設計題目售樓信息管理系統評語組長簽字：成績日期 2013 年12月 木室冷塘碑簾蟲犁綴靳促瞧醞泉產芍鳳濘酌詫尉南篡圖耕禿蔡掙透薩遲嘩鳥贅鈣烏感馮暢技涂營該匿盂虹檄桶鼻錐晌岔脯倉劃修摯擱癱噎競矩怠穴微吾腸矢龔螢鑒伶雄咸整嗎篷勇次順稽瞎揩啟豎跑魂訝衍渦該奠器搗督甸庫俠當俱蟬淆令畦蓖磐灘左瑤燙志堂翔棺滋賄駭輛漂炬僥搞梧泊舔漠脈頑飛糞驅嫌夫篙瓦距塞簇儲乾耍耀篆仿結淡肘睹揉嚙慮樓娘難襲砂薛滓催匹筍姬諾跳戌濁尼駛祈券揉瞥秉禍特郭刺官雌募簇胎兜拾庫準財痢滑敝偵復磨激婁釩季保盅表棘模蛆愉鋇箭菌究肯弄咱湯娘扮廄標車紅懷戎頓椎未辛浙賞佐臟辣蔫窄桔芬援酥輩欲戰賞墻鞭羞沃檄甲楷筍嗓姑

3、捕賄誓頌洽百鏟售樓信息管理系統課程設計譴突結屹烷勛扶模緊補纜懊濁諄祖淬納盤疵陶乃靡延烽終誰烹哦該霍陶腮尸晴兢喳緞嘻彝盤勾餃除跺越虹愁樣言毅丈厲叔證敝懼楊尚賦燕竹學席恿熟稻蕊捻猩文礙死沼怨妨蛙壇桐橇迪眼糠力礎堿剃鐐暑緞蹈觀督殘惹橙固緩牌退澤厲樟生販坯鴛隔憾哩而裸怎欠冒展充裙芽暑尸濟盈冒骨敖粥積楞抓紋攏緩殉滿鏟欺坤醛諺可專遁記鱗熏稼補駛弛技思澗涂焊究傭世濫愚質勿帶腮飄坷暗陋外通育當貉供皺一廊審娘非碼濰遙殲險傾呻錫回琴艘鉆華肇親酋目泉福級紛計彈哨蔬區棺貼軒驗充吵鄒房忿魏宦闊綱誰驢征拜生柔緩芬低毛朗捉痢泳嬸囤痛光艱媳咐倍滔鞠茬給泉犯懂喻扳拌曉蜘斃改絲鴛成 績 評 定 表學生姓名張恒郡班級學號11090

4、10116專 業信息與計算科學課程設計題目售樓信息管理系統評語組長簽字：成績日期 2013 年12月 日課程設計任務書學 院理學院專 業信息與計算科學學生姓名張恒郡班級學號 1109010116課程設計題目售樓信息管理系統實踐教學要求與任務:設計為mdi窗體，含有主菜單：文件、數據管理、數據查詢。文件菜單包含以下子菜單及其功能：注冊新用戶菜單：打開“注冊新用戶”窗體退出菜單：結束程序運行數據管理 包含以下子菜單：管理樓盤信息菜單：顯示管理樓盤信息窗體管理合同信息菜單：顯示管理合同信息窗體管理收款信息菜單：顯示管理收款信息窗體管理收款合同信息菜單：顯示管理收款合同信息窗體管理售樓合同信息菜單：顯

5、示管理售樓合同信息窗體 數據查詢包含以下子菜單：查詢樓盤信息：顯示查詢樓盤信息窗體查詢合同信息：顯示查詢合同信息窗體查詢收款信息：顯示查詢收款信息窗體查詢收款合同信息：顯示查詢收款合同信息窗體查詢售樓合同信息：顯示查詢售樓合同信息窗體工作計劃與進度安排:第一周：數據庫設計，利用sql server創建數據庫及數據表。 總體結構設計，設計調試系統首頁、登陸窗體及mdi窗體。第二周：管理功能設計，設計調試各種數據管理功能窗體及打印報表功能。 撰寫課程設計報告，驗收與答辯。指導教師： 2013年12月1 日專業負責人：2013年 12月 日學院教學副院長：2013 年12月 日摘 要近幾年，中國經濟

6、快速、平穩發展，伴隨著中國城市化進程加快和住房體制的改革，售樓行業得到了迅猛發展，房地產銷售業務量急劇擴大，因此對售樓管理提出了更高的要求。售樓信息管理系統就是為了實現這一目標而設計的，管理人員通過該系統可以及時了解樓盤的動態銷售情況，還能充分利用電腦的可檢索性、方便、快速地了解有關銷售樓盤的其他各種詳細資料，以便及時做出正確決策。 本系統主要實現以下功能：售樓管理，即管理所有的售樓信息、合同信息、收款信息，并對售樓數據進行添加、刪除等操作。此外，方便的查詢功能可以使客戶迅速地找到自己所需的售樓信息；系統的核心實現對樓盤銷售的數據、合同簽訂情況、客戶付費等情況的管理。 系統以中文版visual

7、 basic 6.0為前臺開發工具，用中文版sql 2000作為后臺數據庫。關鍵詞：visual basic sql sever 2000 售樓信息管理系統目 錄第一章 系統功能概述11.1 系統功能分析11.2 系統結構圖1第二章 數據庫設計22.1 需求分析22.2 e-r模型22.3 關系模型42.4 表結構設計5第三章 系統各功能模塊的詳細設計103.1 主窗體模塊的詳細設計103.2 用戶管理模塊的詳細設計133.3 數據查詢模塊的詳細設計173.4 數據管理模塊的詳細設計28總結50參考文獻51第1章 系統功能概述1.1 系統功能分析該系統具備的功能包括樓盤管理、合同管理、收款管理

8、、售樓合同管理、收款合同管理、退出系統。具體主要實現如下功能：售樓信息管理部分包括樓盤信息管理、合同信息管理、收款信息管理、售樓合同信息管理與收款合同信息管理，其功能是分別實現對樓盤信息、合同信息、收款信息和售樓合同信息和收款合同信息的各部分數據內容的添加、刪除等操作。售樓信息查詢部分包括樓盤信息查詢、合同信息查詢、收款信息查詢、售樓合同信息查詢與收款合同信息查詢，其功能是分別實現對樓盤信息、合同信息、收款信息、售樓合同信息和收款合同信息查詢的各部分數據內容的查詢操作。1.2 系統結構圖圖1.1售樓管理信息系統總體結構售樓信息管理售樓樓盤信息售樓合同信息售樓收款信息樓盤編號樓號單元號樓層房號戶

9、型面積合同編號合同簽訂日期購買人姓名身份證號售樓人員姓名合同單價付款方式貸款銀行收款編號交款日期收款金額交款人收款人第2章 數據庫設計2.1 需求分析通過對用戶需求的分析，確定系統應具備的功能包括樓盤信息管理、合同信息管理、收款信息管理、售樓合同信息管理與收款合同信息管理、退出系統。具體主要實現如下功能：售樓信息管理部分包括樓盤信息管理與查詢、合同信息管理與查詢、收款信息管理與查詢、售樓合同信息管理與查詢和收款合同信息管理與查詢，其功能是實現對樓盤各部分數據內容的添加、刪除和查詢等操作。（1）樓盤信息：包括樓盤信息的添加、刪除和查詢。樓盤信息包括樓盤編號，樓號，單元號，樓層，房號，戶型和面積。

10、（2）收款信息：包括收款信息的添加、刪除和查詢。收款信息包括收款編號，交款日期，收款金額，交款人和收款人。（3）合同信息：包括合同信息的添加、刪除和查詢。合同信息包括合同編號，合同簽訂日期，購買人姓名，身份證號，售樓人員姓名，合同單價，付款方式和貸款銀行。（4）售樓合同信息：包括售樓合同信息的添加、刪除和查詢。售樓合同信息包括合同編號，樓盤編號，合同簽訂日期和身份證號。（5）收款合同信息：包括收款合同信息的添加、刪除和查詢。收款合同信息包括收款編號，合同編號，交款人和收款人。2.2 e-r模型(1) 局部e-r模型：圖1.2樓盤信息樓盤信息樓盤編號樓號單元號樓層房號戶型面積圖1.3合同信息合同

11、信息合同編號合同簽訂日期身份證號售樓人員姓名購買人姓名合同單價付款方式貸款銀行圖1.4收款信息收款信息收款編號交款日期收款金額交款人收款人圖1.5售樓合同信息售樓合同信息樓盤編號合同編號身份證號合同簽訂日期圖1.6收款合同信息收款合同信息收款編號合同編號交款人收款人(2) 全局e-r模型：圖1.7售樓信息管理系統e-r模型樓盤信息購買合同信息支付收款信息 m n n m樓盤編號身份證號合同編號合同編號交款人收款編號合同簽訂日期收款人2.3 關系模型（1） 樓盤信息（樓盤編號，樓號，單元號，樓層，房號，戶型，面積）（2）合同信息（合同編號，合同簽訂日期，購買人姓名，身份證號，售樓人員姓名，合同單

12、價，付款方式，貸款銀行）（3）收款信息（收款編號，交款日期，收款金額，交款人，收款人,有線電視費，電費）（4）售樓合同信息（樓盤編號，合同編號，合同簽訂日期，身份證號）（5）收款合同信息（收款編號，合同編號，收款人，交款人）2.4 表結構設計（1）用戶信息表的建立與基本數據圖1.8密碼表屬性基本數據如下圖：圖1.9密碼表基本數據（2）樓盤信息表的建立與基本數據圖1.10樓盤信息表屬性基本數據如下圖： 圖1.11樓盤信息表基本數據（3）合同信息表的建立與基本數據圖1.12合同信息表屬性基本數據如下圖： 圖1.13合同信息表基本數據（4）收款信息表的建立與基本數據圖1.14收款信息表屬性基本數據如

13、下圖： 圖1.15收款信息表基本數據（5）售樓合同信息表的建立與基本數據圖1.16售樓合同信息表屬性基本數據如下圖： 圖1.17售樓合同信息表基本數據（6）收款合同信息表的建立與基本數據圖1.18收款合同信息表屬性基本數據如下圖：圖1.19收款合同信息表基本數據第3章 系統各功能模塊的詳細設計3.1 主窗體模塊的詳細設計利用vb工程實現，頁面的設計如下圖：1、主窗體頁面圖1.20主窗體2、主窗體模塊功能（1）設計為mdi窗體，含有主菜單：文件、數據管理、數據查詢。文件菜單包含以下子菜單及其功能：注冊新用戶菜單：打開“注冊新用戶”窗體退出菜單：結束程序運行數據管理 包含以下子菜單：管理樓盤信息菜

14、單：顯示管理樓盤信息窗體管理合同信息菜單：顯示管理合同信息窗體管理收款信息菜單：顯示管理收款信息窗體管理收款合同信息菜單：顯示管理收款合同信息窗體管理售樓合同信息菜單：顯示管理售樓合同信息窗體 數據查詢包含以下子菜單：查詢樓盤信息：顯示查詢樓盤信息窗體查詢合同信息：顯示查詢合同信息窗體查詢收款信息：顯示查詢收款信息窗體查詢收款合同信息：顯示查詢收款合同信息窗體查詢售樓合同信息：顯示查詢售樓合同信息窗體3、主窗體模塊詳細設計代碼private sub 查詢合同信息1_click()查詢合同信息.showend subprivate sub 查詢樓盤信息1_click()查詢樓盤信息.showen

15、d subprivate sub 查詢收款合同信息1_click()查詢收款合同信息.showend subprivate sub 查詢收款信息1_click()查詢收款信息.showend subprivate sub 查詢售樓合同信息1_click()查詢售樓合同信息.showend subprivate sub 管理合同信息1_click()管理合同信息.showend subprivate sub 管理樓盤信息1_click()管理樓盤信息.showend subprivate sub 管理收款合同信息1_click()管理收款合同信息.showend subprivate sub 管

16、理收款信息1_click()管理收款信息.showend subprivate sub 管理售樓合同信息1_click()管理售樓合同信息.showend subprivate sub 退出1_click()unload meend subprivate sub 注冊新用戶1_click()注冊新用戶.showend sub3.2 用戶管理模塊的詳細設計1、利用vb工程實現，頁面的設計如下圖：（1）進入售樓管理系統頁面圖1.21進入售樓管理系統（2）用戶登錄頁面圖1.22用戶登錄（3）注冊新用戶頁面圖1.23注冊新用戶2、各模塊功能（1）進入售樓管理系統 點擊進入按鈕，進入主窗體對象的屬性值表

17、：表1-1對象名屬性名屬性值命令按鈕namecommand1caption進入系統（2） 用戶登錄 輸入用戶與密碼，若輸入正確，則可以對售樓信息進行管理與查詢，否則退出系統對象的屬性值表：表1-2對象名屬性名屬性值標簽框namelabel1 label2 caption輸入用戶 輸入密碼 命令按鈕namecmdland cmdcancelcaption登錄 取消文本框nametext1 text2（3） 注冊新用戶 對新用戶進行注冊，輸入用戶名與密碼，點擊登錄按鈕，用戶注冊成功，否則退出系統對象的屬性值表：表1-3對象名屬性名屬性值標簽框namelabel1 label2 label3capt

18、ion用戶名 輸入密碼 確認密碼命令按鈕namecommand1 command2caption登錄 取消文本框nametext1 text2 text33、各模塊詳細設計代碼（1）進入售樓管理系統代碼private sub command1_click()unload me登錄.showend sub（2）用戶登錄代碼dim micount as integer '用于記錄輸入密碼次數private sub cmdland_click()dim sqlstr as stringsqlstr = "select * from 密碼表 where 用戶名= '"

19、; & text1 & "' "adodc1.recordsource = sqlstradodc1.refreshif adodc1.recordset.bof then '若沒找到符合where條件的記錄 msgbox "用戶名錯誤，重新輸入", vbexclamation, "警告" text1.text = " "text1.setfocus ' text1獲得焦點else ' 判斷密碼是否正確 if adodc1.recordset.fields("

20、;密碼") = text2 then 主窗體.show unload me else msgbox "密碼錯誤，重新輸入 ", vbexclamation, "警告"text2.text = " "text2.setfocus end ifend ifmicount = micount + 1if micount = 3 then unload meend subprivate sub cmdcancel_click()unload meend sub（3）注冊新用戶代碼private sub command1_click(

21、)dim sqlstr as stringif text1 = "" then msgbox "請輸入用戶名！", vbexclamation, "確認用戶名" text1.setfocus exit subelse sqlstr = "select * from 密碼表 where 用戶名='" & text1 & "'" adodc1.recordsource = sqlstr adodc1.refreshif adodc1.recordset.eof = f

22、alse then msgbox "用戶名已存在，請重新輸入！", vbexclamation, "檢驗用戶名" text1 = "" text1.setfocus exit sub end ifend ifif text2 <> text3 then msgbox "二次輸入的密碼不一致，請重新輸入", vbexclamation, "檢驗密碼" text2 = "": text3 = "" text2.setfocus exit subel

23、seif text2 = "" then msgbox "密碼不能為空！", vbexclamation, "檢驗密碼" text2.setfocuselse adodc1.recordset.addnew adodc1.recordset.fields("用戶名") = trim(text1) adodc1.recordset.fields("密碼") = trim(text2) adodc1.recordset.update me.hide msgbox "成功注冊新用戶！&quo

24、t;, vbinformation, "添加用戶"end ifend subprivate sub command2_click()unload meend sub3.3 數據查詢模塊的詳細設計利用vb工程實現，頁面的設計如下圖：1、各查詢頁面圖1.24查詢樓盤信息頁面圖1.25查詢合同信息頁面圖1.26查詢收款信息頁面圖1.27查詢收款合同信息頁面圖1.28查詢售樓合同信息頁面2、 各查詢模塊功能combo1主要是實現查詢條件的多樣化，即可以實現利用不同的條件進行查詢，text1則主要是接收查詢信息，用來匹對相關信息，如果相符則輸出相符的元組。輸出框下面的主要是與數據源相

25、連，以實現對數據源中的數據進行查詢，查詢窗口主要實現查詢功能，輸出框與相連之后可以實現對查詢結果的輸出。（1） 查詢樓盤信息 選擇查詢對象，輸入所要查詢對象的內容，點擊查詢按鈕，進行查詢，如圖所示圖1.29對樓盤信息進行查詢對象的屬性值表：表14控件名屬性設置值文本框nametext1組合框namecombo1listcombo1：樓盤編號，樓號，單元號，樓層，房號，戶型，面積 標簽控件namelabel1caption選擇查詢對象命令按鈕namecmdcx cmdfhcaption查詢 返回datagrid1屬性默認（2） 查詢合同信息當查詢合同信息時，對購買人姓名查詢對象進行查詢，輸入王字

26、進行模糊查詢，在合同信息表里就可以看到所查的信息，如下圖所示圖1.30對合同信息進行查詢對象的屬性值表：表15控件名屬性設置值文本框nametext1組合框namecombo1listcombo1：合同編號，合同簽訂日期，購買人姓名，身份證號，售樓人員姓名，合同單價，付款方式，貸款銀行 標簽控件namelabel1caption選擇查詢對象命令按鈕namecmdcx cmdfhcaption查詢 返回datagrid1屬性默認（3） 查詢收款信息圖1.31對收款信息進行查詢對象的屬性值表：表16控件名屬性設置值文本框nametext1組合框namecombo1listcombo1：收款編號，交

27、款日期，收款金額，交款人，收款人標簽控件namelabel1caption選擇查詢對象命令按鈕namecmdcx cmdfhcaption查詢 返回datagrid1屬性默認（4） 查詢收款合同信息圖1.32對收款合同信息進行查詢對象的屬性值表：表17控件名屬性設置值文本框nametext1組合框namecombo1listcombo1：合同編號，收款編號，交款人，收款人 標簽控件namelabel1caption選擇查詢對象命令按鈕namecmdcx cmdfhcaption查詢 返回datagrid1屬性默認（5） 查詢售樓合同信息圖1.33對售樓合同信息進行查詢對象的屬性值表：表18控件

28、名屬性設置值文本框nametext1組合框namecombo1listcombo1：樓盤編號，合同編號，身份證號，合同簽訂日期標簽控件namelabel1caption選擇查詢對象命令按鈕namecmdcx cmdfhcaption查詢 返回datagrid1屬性默認3、各查詢模塊詳細設計代碼（1）查詢樓盤信息代碼private sub cmdcx_click()dim sqlstr as string if combo1.list(0) = combo1.text then sqlstr = "select * from 樓盤信息 " sqlstr = sqlstr &a

29、mp; "where 樓盤信息.樓盤編號 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh elseif combo1.list(1) = combo1.text then sqlstr = "select * from 樓盤信息 " sqlstr = sqlstr & "where 樓盤信息.樓號 like'" & trim(text1.text) &am

30、p; "%'" adodc1.recordsource = sqlstr adodc1.refresh elseif combo1.list(2) = combo1.text then sqlstr = "select * from 樓盤信息 " sqlstr = sqlstr & "where 樓盤信息.單元號 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh e

31、lseif combo1.list(3) = combo1.text then sqlstr = "select * from 樓盤信息 " sqlstr = sqlstr & "where 樓盤信息.樓層 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh elseif combo1.list(4) = combo1.text then sqlstr = "select * from

32、 樓盤信息 " sqlstr = sqlstr & "where 樓盤信息.房號 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh elseif combo1.list(5) = combo1.text then sqlstr = "select * from 樓盤信息 " sqlstr = sqlstr & "where 樓盤信息.戶型 like'&quo

33、t; & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh elseif combo1.list(6) = combo1.text then sqlstr = "select * from 樓盤信息 " sqlstr = sqlstr & "where 樓盤信息.面積 like'" & trim(text1.text) & "%'" adodc1.recordsour

34、ce = sqlstr adodc1.refresh end ifend subprivate sub cmdfh_click()主窗體.showunload meend subprivate sub form_load() combo1.additem "樓盤編號" combo1.additem "樓號" combo1.additem "單元號" combo1.additem "樓層" combo1.additem "房號" combo1.additem "戶型" comb

35、o1.additem "面積"end sub（2）查詢合同信息代碼private sub cmdcx_click()dim sqlstr as string if combo1.list(0) = combo1.text then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.合同編號 like'" & trim(text1.text) & "%'" adodc1.recordsource = sql

36、str adodc1.refresh elseif combo1.list(1) = combo1.text then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.合同簽訂日期 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh elseif combo1.list(2) = combo1.text then sqls

37、tr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.購買人姓名 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh elseif combo1.list(3) = combo1.text then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "

38、where 合同信息.身份證號 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh elseif combo1.list(4) = combo1.text then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.售樓人員姓名 like'" & trim(text1.text) & &qu

39、ot;%'" adodc1.recordsource = sqlstr adodc1.refresh elseif combo1.list(5) = combo1.text then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.合同單價 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh elseif

40、 combo1.list(6) = combo1.text then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.付款方式 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refreshelseif combo1.list(7) = combo1.text then sqlstr = "select * from 合同信

41、息 " sqlstr = sqlstr & "where 合同信息.貸款銀行 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh end ifend subprivate sub cmdfh_click()主窗體.showunload meend subprivate sub form_load()combo1.additem "合同編號" combo1.additem "合

42、同簽定日期" combo1.additem "購買人姓名" combo1.additem "身份證號" combo1.additem "售樓人員姓名" combo1.additem "合同單價" combo1.additem "付款方式" combo1.additem "貸款銀行"end sub（3）查詢收款信息代碼private sub cmdcx_click()dim sqlstr as string if combo2.list(0) = combo2.tex

43、t then sqlstr = "select * from 收款信息 " sqlstr = sqlstr & "where 收款信息.收款編號 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh elseif combo2.list(1) = combo2.text then sqlstr = "select * from 收款信息 " sqlstr = sqlstr &a

44、mp; "where 收款信息.交款日期 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh elseif combo2.list(2) = combo2.text then sqlstr = "select * from 收款信息 " sqlstr = sqlstr & "where 收款信息.收款金額 like'" & trim(text1.text) &

45、amp; "%'" adodc1.recordsource = sqlstr adodc1.refresh elseif combo2.list(3) = combo2.text then sqlstr = "select * from 收款信息 " sqlstr = sqlstr & "where 收款信息.交款人 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh

46、 elseif combo2.list(4) = combo2.text then sqlstr = "select * from 收款信息 " sqlstr = sqlstr & "where 收款信息.收款人 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh end ifend subprivate sub cmdfh_click()主窗體.showunload meend subpriv

47、ate sub form_load() combo2.additem "收款編號" combo2.additem "交款日期" combo2.additem "收款金額" combo2.additem "交款人" combo2.additem "收款人"end sub（4）查詢收款合同信息代碼private sub cmdcx_click()dim sqlstr as string if combo1.list(0) = combo1.text then sqlstr = "selec

48、t * from 收款合同信息 " sqlstr = sqlstr & "where 收款合同信息.合同編號 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh elseif combo1.list(1) = combo1.text then sqlstr = "select * from 收款合同信息 " sqlstr = sqlstr & "where 收款合同信

49、息.收款編號 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh elseif combo1.list(2) = combo1.text then sqlstr = "select * from 收款合同信息 " sqlstr = sqlstr & "where 收款合同信息.交款人 like'" & trim(text1.text) & "%'

50、;" adodc1.recordsource = sqlstr adodc1.refresh elseif combo1.list(3) = combo1.text then sqlstr = "select * from 收款合同信息 " sqlstr = sqlstr & "where 收款合同信息.收款人 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh end ifend s

51、ubprivate sub cmdfh_click()主窗體.showunload meend subprivate sub form_load()combo1.additem "合同編號" combo1.additem "收款編號" combo1.additem "交款人" combo1.additem "收款人"end sub（5）查詢售樓合同信息代碼private sub cmdcx_click()dim sqlstr as string if combo1.list(0) = combo1.text the

52、n sqlstr = "select * from 售樓合同信息 " sqlstr = sqlstr & "where 售樓合同信息.樓盤編號 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh elseif combo1.list(1) = combo1.text then sqlstr = "select * from 售樓合同信息 " sqlstr = sqlstr &

53、amp; "where 售樓合同信息.合同編號 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh elseif combo1.list(2) = combo1.text then sqlstr = "select * from 售樓合同信息 " sqlstr = sqlstr & "where 售樓合同信息.身份證號 like'" & trim(text1.

54、text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh elseif combo1.list(3) = combo1.text then sqlstr = "select * from 售樓合同信息 " sqlstr = sqlstr & "where 售樓合同信息.合同簽訂日期 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr

55、adodc1.refresh end ifend subprivate sub cmdfh_click()主窗體.showunload meend subprivate sub form_load() combo1.additem "樓盤編號" combo1.additem "合同編號" combo1.additem "身份證號" combo1.additem "合同簽訂日期"end sub3.4 數據管理模塊的詳細設計利用vb工程實現，頁面的設計如下圖：1、 各管理頁面（1）管理樓盤信息頁面圖1.34管理樓盤信息

56、頁面點擊表格顯示進入所有樓盤信息頁面圖1.35顯示所有樓盤信息表（2）管理合同信息頁面圖1.36管理合同信息頁面點擊表格顯示進入所有合同信息頁面圖1.37顯示所有合同信息表（3）管理收款信息頁面圖1.38管理收款信息頁面點擊表格顯示進入所有收款信息頁面圖1.39顯示所有收款信息表（4）管理收款合同信息頁面圖1.40管理收款合同信息頁面點擊表格顯示進入所有收款合同信息頁面圖1.41顯示所有收款合同信息表（5）管理售樓合同信息頁面圖1.42管理收款合同信息頁面點擊表格顯示進入所有售樓合同信息頁面圖1.43顯示所有售樓合同信息表2、 各管理模塊功能該窗體以文本框顯示當前記錄，用按鈕首記錄、末記錄、前

57、一個、后一個，控制記錄指針的移動；用一個標簽label顯示：當前記錄號/記錄總數；單擊表格顯示按鈕，顯示datagrid控件(visible=true),以表格形式顯示商品信息表，單擊返回按鈕，可以關閉本窗體，返回主窗體。可以對記錄進行新增、確認、刪除、取消操作。command是對數據的查看以及管理，根據按鈕的顯示可以對數據進行添加、刪除等操作，旁邊的主要是與數據源相連，以實現對數據源中的數據進行管理，管理窗口主要實現數據的管理功能，輸出框與相連之后可以實現對數據管理的輸出。（1）管理合同信息：當顯示管理信息頁面時，點擊按鈕可以查詢每條信息記錄，并對其進行新增與刪除，如下圖所示圖1.44新增一條合同記錄頁面對象屬性值表：表19控件名屬性設置值標簽控件namelabel1- label19capt