畢業(yè)設計（論文）房地產銷售管理信息系統的開發(fā)與設計

1、房地產銷售管理信息系統的開發(fā)與設計11 緒 論11.1 開發(fā)環(huán)境的簡介21.2 visual basic 6.0 簡介21.3 sql server 2000簡介21.2 前臺和后臺數據庫的連接32 系統的分析32.1 理解分析32.2 需求分析33 系統功能模塊設計43.1 房屋信息管理43.2 銷售信息管理44 數據庫設計54.1.1 樓房信息表54.1.2 房間信息表64.1.4 銷售記錄表64.2 e-r圖74.3 在sql sever2000中實現表創(chuàng)建的sql語句74.3.2 適用treeview控件顯示結構94.3.3 sql多條查詢語句結構95 系統主界面95.1 系統主窗體9

2、5.2公共模塊116 房屋信息管理126.1. 2 房間管理1661.3 信息查詢206 銷售信息管理226.1.1 客戶信息226.21 房屋定價266.2.2 房屋銷售296.2.3 統計分析327、小結33參考文獻33房地產銷售管理信息系統的開發(fā)與設計1 緒 論從20世紀80年代開始、隨著計算機硬件和軟件技術的發(fā)展，特別是計算機和通信網絡技術的日趨融合，信息化給企業(yè)帶來了巨大的變化，信息技術在企業(yè)中的應用不再局限于企業(yè)活動的某些環(huán)節(jié)，而是逐步地滲透到企業(yè)活動的各個領域、各個環(huán)節(jié)，極大地改變了企業(yè)的生產、流通和組織管理方式，推動了企業(yè)物資流、資金流和信息流的相互融合。憑借it信息技術和現代

3、管理思想，在這樣一個多元化的信息社會里建立房地產銷售平臺是大勢所趨。房地產管理是一項復雜的工作，它應該非常及時地了解樓盤目前的基本信息，而且能方便的添加、編輯和查詢樓盤的資料。同時，房地產的銷售要和大量的客戶接觸，所以這個銷售系統要能夠記錄相應客戶的信息和需求等等。1.1 開發(fā)環(huán)境的簡介在對房地產銷售管理信息系統的設計中，本文采用了visual basic 6.0 作為開發(fā)工具，sql server 2000作為數據庫管理工具。visual basic 6.0 是用來創(chuàng)建高性能的企業(yè)應用程序及基于 web的應用程序的最有效工具。visual basic 6.0 使開發(fā)者得以創(chuàng)建駐留在客戶或服務

4、器上或運行在分布式 n-層環(huán)境里的強壯應用程序 。是快速創(chuàng)建以數據為中心的企業(yè)解決方案的完全套件。而sql server 2000則是目前最優(yōu)秀的數據庫管理系統之一，以其易用性得到很多用戶的青睞。 它包括支持開發(fā)的引擎、標準的sql語言、擴展的特性(如復制、olap、分析)等功能。1. 2 visual basic 6.0 簡介 vb是一種可視化的、面向對象和采用事件驅動方式的結構化高級程序設計語言，可用于開發(fā)windows環(huán)境下的各類應用程序。它簡單易學、效率高，且功能強大可以與windowsr專業(yè)開發(fā)工具sdk相媲美。在visualbasic環(huán)境下，利用事件驅動的編程機制、新穎易用的可視化

5、設計工具，使用windows內部的廣泛應用程序接口（spi）函數，以用動態(tài)鏈接庫（dll）、對象的鏈接與世隔嵌入（ole）、開放式數據連接（odbc）等技術，可以高效、快速地開發(fā)windows環(huán)境下功能強大、圖形界面豐富的應用軟件系統。隨著版本的提高，visual basic的功能也越來越強。5.0版以后，visual basic推出了中文版，與前個版本相比，其功能有了很大提升。visual basic 6.0 是1998年的產品,后來又有幾次的升級,現在用的大多數是sp4.1. 3 sql server 2000簡介sql server 2000 是microsoft 公司推出的sql se

6、rver 數據庫管理系統，該版本繼承了sql server 7.0 版本的優(yōu)點同時又比它增加了許多更先進的功能具有使用方便可伸縮性好與相關軟件集成程度高等優(yōu)點。sql server 2000 中包括一系列管理和開發(fā)工具，這些工具可改進在多個站點上安裝、部署、管理和使用 sql server 的過程。sql server 2000 還支持基于標準的、與 windows dna 集成的程序設計模型，使 sql server 數據庫和數據倉庫的使用成為生成強大的可伸縮系統的無縫部分。這些功能使您得以快速交付 sql server 應用程序，使客戶只需最少的安裝和管理開銷即可實現這些應用程序。 數據倉

7、庫。 sql server 2000 中包括析取和分析匯總數據以進行聯機分析處理 (olap) 的工具。sql server 中還包括一些工具，可用來直觀地設計數據庫并通過 english query 來分析數據1.2 前臺和后臺數據庫的連接本論文前臺和后臺的數據庫連接是采用ado控件來實現的，ado控件直接支持sql結構化查詢語言，使用它可以用最少的代碼創(chuàng)建數據庫應用程序。而ado控件操作簡易，使用方便。ado數據控件常見的屬性有connectionstring屬性、commadandtype屬性、cursorlocation屬性、locktype屬性、recordsource屬性。實例化a

8、do數據控件時，需要對這些屬性進行賦值，代碼如下實例化ado控件：ado1 ado1.connectionstring = connectionstring 設置ado控件的連接字符串 ado1.commandtye = adcmdtext 定義commandtype；類型 ado1.cursorlocation = aduseclient 定義cursorlocation位置 ado1.locktype = adlockpessimistic 定義locktype 類型 ado1.recordsoure = “select * from 樓房信息表 定義數據源，結構sql語句 ado1.re

9、fresh 刷新 2 系統的分析2. 1 理解分析在房地產開發(fā)過程中，樓盤銷售是非常重要的環(huán)節(jié)，也是房地產開發(fā)的關鍵環(huán)節(jié)，如何提供樓盤銷售服務之戀，也是顯的非常迫切的，而且通關管理系統，可以來規(guī)范和管理銷售過程的各個環(huán)節(jié)，并提供相關信息。這樣，可以極大的提高服務質量和效率。2. 2 需求分析樓盤銷售管理主要負責管理房屋信息，并對房屋進行定價，然后進行銷售，為用戶提供不同信息統計分析，滿足管理人員需求。該系統主要包括房屋信息管理和銷售信息管理兩大部分。 房屋信息管理：主要負責管理房屋的基本信息，包括樓房信息和房間信息 銷售信息管理：主要負責客戶信息、房屋定價、房屋銷售以及統計分析樓盤銷售管理系統

10、是為了滿足用戶進行樓盤銷售而開發(fā)的。所以，樓旁銷售管理系統應達到以下目標： 減少人工的參與和基礎信息的錄入，具有良好的自治功能和信息循環(huán) 能夠方便地廣利客戶資料 能夠根據市場變化對房屋進行定價 能夠管理所有的房屋信息，包括房信息和房間信息 能夠快速的進行房屋信息的查詢3 系統功能模塊設計根據對樓盤銷售管理系統的需求分析，一個標準的樓銷售管理系統應該包括房屋信息管理和銷售信息管理功能，如圖3.1所示。每一個功能模塊都包含了一系列的子功能。樓盤銷售管理系統房屋信息管理銷售信息管理 圖3.13.1 房屋信息管理房屋信息管理模塊用來管理樓房信息和房間信息，它包括樓房管理、房間管理和信息查詢3個子功能，

11、如圖下房屋信息管理樓房管理房間管理信息查詢樓房管理功能實現對樓房信息的維護這類信息主要包括樓房號、樓名、所處位置、占地面積、總投資、層數、房間數、簡介等。該模塊提供對信息的增加、修改和刪除功能。房間管理功能實現對房間信息的維護。這類信息主要包括房間號、樓房號、位置、房間大小、適用戶型、銷售狀態(tài)、簡介、成本價、銷售價、折扣率等。該模塊提供增加、修改刪除功能。信息查詢系統功能實現對樓房信息和房間信息的查詢。該模塊提供模式匹配和多條件查詢。3.2 銷售信息管理銷售信息管理模塊主要用來管理樓盤銷售情況，包括客戶信息、房屋定價、房屋銷售、統計分析4個子功能，如下圖銷售信息管理客戶信息房屋定價房屋銷售統計

12、分析 圖3.31 客戶信息客戶信息功能主要實現客戶基本信息維護。這類信息主要包括編號、姓名、性別、出生日期、婚否、家庭成員數、職位、身份證號、經濟收入、備注。2. 房屋定價房屋定價功能主要實現對房間的統一定價，涉及的信息包括成本價、銷售價格、折扣率。成本價是指房屋的成本價格：銷售價格是指房屋待銷售的價格；折扣率是指樓旁銷售時的折扣率。 3. 房屋銷售房屋銷售功能實現對房屋銷售信息的記錄。記錄的信息包括銷售id、房間號、樓房號、客戶編號、成本價、銷售價、折扣率、利潤、付款方式、交易日期、備注等。銷售id為標示種子，自增為1；銷售價是指打折后的銷售價格；利潤=銷售價-成本價。 4. 統計分析 統計

13、分析功能主要實現對樓旁銷售信息的統計分析。它通過多條件進行分析，分析條件主要有樓房號、利潤、付款方式。4 數據庫設計根據系統需求，需要建立四張表，即樓房信息表格、房間信息表、客戶信息表、銷售記錄表。4.1.1 樓房信息表樓房信息表負責樓房信息，主要包括樓房號、樓名、所處位置、占地面積、總投資、層數、房間數、簡介等，表結構如下:4.1.2 房間信息表房間信息表負責維護房間信息，主要包括房間號、樓房號、位置、房間大小、適用戶型、銷售狀態(tài)、簡介、成本價、折扣率等，表結構如下4.1.3 客戶信息表客戶信息表格主要用語維護客戶的基本信息，主要包括看了客戶編號、姓名、性別、出生日期、婚否、家庭成員數、職位

14、、身份證號、經濟收入、備注等，表結構如下4.1.4 銷售記錄表銷售記錄表用于對房間進行銷售，記錄銷售記錄，主要包括銷售id、房間號、樓房號、客戶編號、成本價、銷售價、折扣率、利潤、付款方式、交易日期、備注等，表結構如下：4.2 e-r圖 4.3 在sql sever2000中實現表創(chuàng)建的sql語句 樓盤銷售管理系統需要適用listview控件和treeview控件，以及如何結構sql多條件查詢語語句。4.3.1 適用listview控件顯示數據listview控件是一個windows公共控件。作為一個增強功能的列表框，顯示更多的信息。listview控件可以適用4種不同試圖顯示項目，通過這些控

15、件，可將項目組成有或沒有列標頭的列，并顯示伴隨的圖標和文本，這樣可以直觀而方便地瀏覽各個對象的數據。listview控件并不是默認的工具箱的配置項目，必須手工添加引用不撿，此外就是通過代碼來控制listview控件與數據的關聯了，其代碼如下所示：private sub loaddata()。裝載數據 dim list as listitem dim key as string set rs = nothing sqlstr = select * from 樓房信息表 order by buildingid set rs = selectsql(sqlstr, msg) 查詢樓房信息 listv

16、iew1.listitems.clear 清空listview控件 if rs.recordcount = 0 then 如果不存在樓房信息，添加按鈕可用，其他按鈕不可用 cmdadd.enabled = true: cmdmodify.enabled = false: cmddelete.enabled = false cmdcancel.enabled = false: cmdsave.enabled = false else 如果存在樓房信息，初始化listview控件 rs.movefirst do until rs.eof key = rs.fields(buildingid) &

17、rs.fields(bdname) set list = listview1.listitems.add(, , key, 1) rs.movenext loop 編輯控件可用性 cmdadd.enabled = true: cmdmodify.enabled = true: cmddelete.enabled = true cmdcancel.enabled = false: cmdsave.enabled = false rs.movefirst 返回到第一條記錄 end if 設置控件enable值 call ctrenable(false)end subprivate sub ctre

18、nable(flag as boolean)設置控件的enable值 txtbuildingid.enabled = flag txtname.enabled = flag txtarea.enabled = flag txtinvest.enabled = flag txtfloors.enabled = flag txtrooms.enabled = flag txtposition.enabled = flag txtnotes.enabled = flagend subprivate sub showdata()在控件中顯示數據 if rs.recordcount 0 then 如果存

19、在記錄 為控件賦值 txtbuildingid.text = rs.fields(buildingid) txtname.text = rs.fields(bdname) txtarea.text = rs.fields(area) txtinvest.text = rs.fields(investment) txtfloors.text = rs.fields(layers) txtrooms.text = rs.fields(roomn) txtposition.text = rs.fields(bdposition) txtnotes.text = rs.fields(bdintrodu

20、ction) end ifend subprivate sub listview1_click()在控件中顯示樓房信息 dim key as string if rs.recordcount 0 then key = trim(listview1.selecteditem) sqlstr = select * from 樓房信息表 where buildingid= & left(key, 4) & set rs = selectsql(sqlstr, msg) call showdata 重新顯示數據 end ifend subprivate sub cmdadd_click()添加操作 c

21、all ctrclear 所有控件重置 call ctrenable(true) 設置控件enable值為可用 flag = add 設置標志flag，表示所進行的操作為添加 添加、修改、刪除按鈕不可用，取消、保存按鈕可用 cmdadd.enabled = false: cmdmodify.enabled = false: cmddelete.enabled = false cmdcancel.enabled = true: cmdsave.enabled = trueend sub用戶單擊listview的listitem來觸發(fā)listview的click事件，并通過查詢語句查詢所單擊的li

22、stitem對應的樓房數據，最后用text文本顯示出來。這樣，listview很好的發(fā)揮了圖形功能，讓界面更有人性化4.3.2 適用treeview控件顯示結構treeview控件為用戶提供了一種按層次結構顯示信息的方式，它包含了稱作節(jié)點（node）的條目列表，每一節(jié)點都可以有自己的節(jié)點，從而提供一種更深層次的數據定義，每個節(jié)點都可以被折疊起來，從而允許訪問者在一個treeviewk控件中查找，只查看所感興趣的那一級的數據，如某一樓房的各個房間數據,node對象是treeview控件中的一線，它包含圖像和文本，nodes集合包含一個或多個node對象，語法如下： treeview.nodes,

23、treeview.nodes.item(index)。4.3.3 sql多條查詢語句結構在統計分析模塊中，需要通過多條件進行分析。分析條件主要有樓房號、利潤以及付款方式。實現該功能，只需把各個查詢語句連接起來，構造sql語句，其代碼如下：private sub cmdquery_click()分析銷售信息,構造sql語句 sqlstr = select * from 銷售記錄表 where 1=1 if chkbuildingid.value = 1 then 如果通過樓房號來進行分析 if trim(cobbuildingid.text) 所有 then sqlstr = sqlstr &

24、and buildingid= & left(trim(cobbuildingid.text), 4) & end if end if if chkmethod.value = 1 then 如果通過付款方式來進行分析 sqlstr = sqlstr & and payment= & trim(cobmethod.text) & end if if chkprofit.value = 1 then 如果通過利潤來進行分析 sqlstr = sqlstr & and profit between & txtroomarea1 & and & txtroomarea2 end if set rs

25、= selectsql(sqlstr, msg) set datagrid1.datasource = rs datagrid1.refreshend sub5系統主界面系統主界面主要用于構建系統的主窗體，并編寫一些公共模塊，方便其他子窗體構建和調用。5.1 系統主窗體系統主窗體主要由窗體本身和菜單構成。首先建立一個工程，然后創(chuàng)建系統主窗體，主窗體的菜單，并在主窗體中添加窗體代碼，來處理接各個子窗體的關系。樓盤銷售管理系統的主界面如下：主窗體屬性設置如下：在主窗體中調用、切換不同界面，進行相應功能的實現，其代碼如下：private sub building_click() frmbuildin

26、g.show 打開樓房管理界面end subprivate sub custom_click() frmcustomer.show 打開客戶信息界面end subprivate sub info_click() frminfo.show 打開信息查詢界面end subprivate sub mnuend_click() unload me 結束end subprivate sub price_click() frmprice.show 打開房屋定價界面end subprivate sub room_click() frmroom.show 打開房間管理界面end subprivate sub

27、sale_click() frmsale.show 打開樓盤銷售界面end subprivate sub statistics_click() frmstatistics.show 打開統計分析界面end sub5.2公共模塊在visual basic 中可以使用公共模塊來存放整個項目所需要的公用函數和全局變量，來提高代碼的利用率，在項目資源管理器重為項目添加一個module，保存為operatedata.bas。opweatedata公共模塊主要是用來對數據庫操作的，主要包括以下4個函數。 connstr() as string 函數，返回連接字符串，用來設置數據庫連接字符串。 openco

28、nn(byref conn as adodb.connection) as boolean函數，返回布爾值，用來打開數據庫連接。 executesql(byval sqlstr as string,byref msg as string)函數，返回布爾值，用來執(zhí)行sql語句。 selectsql(by val sqlstr as string,byref msg as string) as adob.recordset函數，返回recordset,用來執(zhí)行查詢語句。公共模塊的代碼如下所示. public function connstr() as string 設置數據庫連接字符串 conns

29、tr = provider=sqloledb.1;integrated security=sspi; & _ persist security info=false;initial catalog=樓盤銷售系統end functionpublic function openconn(byref conn as adodb.connection) as boolean打開數據庫連接，連接成功返回true，出錯時返回false set conn = new adodb.connection 出錯處理 on error goto errorhandle 出錯處理 conn.open connstr

30、打開數據庫連接 openconn = true exit functionerrorhandle: 如果出錯，進行錯誤處理 msgbox 連接數據庫失??！請重新連接！ openconn = false exit functionend functionpublic sub executesql(byval sqlstr as string, byref msg as string)執(zhí)行sql語句 dim conn as adodb.connection dim stokens() as string 出錯處理 on error goto errorhandle 判斷sql語句 stokens

31、= split(sql) 調用split函數拆分sql語句 if instr(insert,delete,update, ucase(stokens(0) then 打開數據庫連接 if openconn(conn) then 如果打開連接成功，執(zhí)行sql語句 conn.execute sqlstr msg = stokens(0) & 操作執(zhí)行成功！ end if else msg = sql語句有誤： & sqlstr end iffinally_exit: 程序結束的時候進行對象銷毀工作 set rst = nothing set conn = nothing exit suberror

32、handle: msg = 執(zhí)行錯誤: & err.description resume finally_exitend subpublic function selectsql(byval sqlstr _as string, byref msg as string) as adodb.recordset執(zhí)行sql語句，返回adodb.recordset dim conn as adodb.connection dim rst as adodb.recordset dim stokens() as string 出錯處理 on error goto errorhandle 判斷sql語句 s

33、tokens = split(sqlstr) if instr(select, ucase(stokens(0) then 打開數據庫連接 if openconn(conn) then 如果打開連接成功，就進行查詢操作 set rst = new adodb.recordset rst.cursorlocation = aduseclient rst.open trim$(sqlstr), conn, adopendynamic, adlockoptimistic 執(zhí)行查詢操作 set selectsql = rst msg = 查詢到 & rst.recordcount & 條記錄! end

34、 if else msg = sql語句有誤： & sqlstr end iffinally_exit: set rst = nothing set conn = nothing exit functionerrorhandle: 如果sql語句執(zhí)行出錯，提示出錯信息并轉到finally_exit msgstring = 查詢錯誤: & _ err.description resume finally_exitend function6 房屋信息管理簡歷好主窗體后，開始對兩個管理模塊的簡歷進行闡述。首先是房屋信息管理模塊，它主要實現樓房管理、房間管理和信息查詢等功能。樓房管理簡歷樓房信息，并對

35、樓房信息進行維護；房間管理設置房間信息，并對房間信息進行維護；信息查詢提供房間信息查詢功能。6.1. 1 樓房管理樓房管理主要用于簡歷婁煩信息，包括樓房號、樓名、所處位置、占地面積、總投資、層數、房間數、簡介等，并對樓房信息進行添加、修改、刪除等操作。 樓房管理界面樓房管理窗體主要空間的屬性如表所示具體代碼如下：運行窗體時出發(fā)load事件，調用loaddata過程初始化樓房listview設置空間可用屬性，調用showdata過程顯示數據，其代碼如下： option explicitdim rs as adodb.recordsetdim sqlstr as stringdim msg as

36、stringdim flag as string 判斷是新增記錄還是修改記錄private sub form_load() call loaddata 裝載數據 call showdata 顯示數據end sub 調用loaddata過程，裝載數據，其代碼如下：private sub loaddata()裝載數據 dim list as listitem dim key as string set rs = nothing sqlstr = select * from 樓房信息表 order by buildingid set rs = selectsql(sqlstr, msg) 查詢樓房信

37、息 listview1.listitems.clear 清空listview控件 if rs.recordcount = 0 then 如果不存在樓房信息，添加按鈕可用，其他按鈕不可用 cmdadd.enabled = true: cmdmodify.enabled = false: cmddelete.enabled = false cmdcancel.enabled = false: cmdsave.enabled = false else 如果存在樓房信息，初始化listview控件 rs.movefirst do until rs.eof key = rs.fields(buildin

38、gid) & rs.fields(bdname) set list = listview1.listitems.add(, , key, 1) rs.movenext loop 編輯控件可用性 cmdadd.enabled = true: cmdmodify.enabled = true: cmddelete.enabled = true cmdcancel.enabled = false: cmdsave.enabled = false rs.movefirst 返回到第一條記錄 end if 設置控件enable值 call ctrenable(false)end sub 調用ctrena

39、ble過程設置空間的可屬性其代碼如下所示： private sub ctrenable(flag as boolean)設置控件的enable值 txtbuildingid.enabled = flag txtname.enabled = flag txtarea.enabled = flag txtinvest.enabled = flag txtfloors.enabled = flag txtrooms.enabled = flag txtposition.enabled = flag txtnotes.enabled = flagend sub 調用showdata過程，在控件中顯示字

40、段的相應數據，期代碼如下： private sub showdata()在控件中顯示數據 if rs.recordcount 0 then 如果存在記錄 為控件賦值 txtbuildingid.text = rs.fields(buildingid) txtname.text = rs.fields(bdname) txtarea.text = rs.fields(area) txtinvest.text = rs.fields(investment) txtfloors.text = rs.fields(layers) txtrooms.text = rs.fields(roomn) txt

41、position.text = rs.fields(bdposition) txtnotes.text = rs.fields(bdintroduction) end ifend sub（2）當用戶單擊listview控件中樓房圖標時，將出發(fā)listview1_cilk事件，在控件中顯示樓房信息，代碼如下： private sub listview1_click()在控件中顯示樓房信息 dim key as string if rs.recordcount 0 then key = trim(listview1.selecteditem) sqlstr = select * from 樓房信息

42、表 where buildingid= & left(key, 4) & set rs = selectsql(sqlstr, msg) call showdata 重新顯示數據 end ifend sub(3) 當用戶單擊【保存】按鈕時，將觸發(fā)cmdsave_cilk事件。在保存數據庫之前，要對數據進行合法性檢查，需要調用checkdata函數，返回true時候表示數據合法，返回false時表示數據非法。同時需要調用setdata過程來設置數據，其代碼如下所示； private sub cmdsave_click()保存操作on error goto errmsg 錯誤處理 if not c

43、heckdata then exit sub 如果數據不合法就退出操作 if flag = modify then 如果是修改數據，給出修改提示 msg = msgbox(您確實要修改這條數據嗎?, vbyesno) if msg = vbyes then call setdata 設置數據字段的值 else exit sub end if elseif flag = add then 如果是添加新數據 rs.addnew call setdata 設置數據字段的值 end if rs.update 更新數據 設置控件的可用性 cmdmodify.enabled = true: cmddele

44、te.enabled = true: cmdadd.enabled = true cmdsave.enabled = false: cmdcancel.enabled = false if flag = add then msgbox (成功添加數據！) else msgbox (成功更新數據!) end if call loaddata 重新裝載數據 if rs.recordcount 0 then 定位到添加或修改記錄 rs.movefirst rs.find (buildingid= & trim(txtbuildingid.text) & ) if not rs.eof then ca

45、ll showdata 重新顯示數據 end if exit suberrmsg: 報告出錯信息 msgbox err.description, vbexclamation, 出錯end sub 調用checkdata函數，返回ture時表示數據合法，返回false時表示數據非法，其代碼如下所示：private function checkdata() as boolean檢查數據的合法性 dim rst as adodb.recordset dim msgt as string msgt = 檢查數據 if trim(txtbuildingid.text) = then 檢查樓房號是否為空 msgt = 樓房號為空； elseif len(txtbuildingid.text) 4 then 檢查樓房號是否為4位 msgt = msgt & 樓房號不是4位； elseif trim(txtname.text) = then 檢查樓名是否為空 msgt = msgt & 樓名為空； end if if not msgt = then 如果提示信息不為空，給出錯誤提示 msgbox (msgt) checkdata = false 返回false exit function end