[摘要] 學(xué)生社團(tuán)管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其

1、摘 要 學(xué)生社團(tuán)管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。經(jīng)過分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對(duì)象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。關(guān)鍵詞 學(xué)生社團(tuán)，管理系統(tǒng)，控件，窗體，域提綱1、 引言2 、系統(tǒng)分析2.1用戶需求說明2

2、.2對(duì)象分析2.3可行性分析2.4業(yè)務(wù)流程圖2.5數(shù)據(jù)字典數(shù)據(jù)流字典數(shù)據(jù)項(xiàng)字典數(shù)據(jù)存儲(chǔ)字典處理邏輯字典外部實(shí)體字典3、 系統(tǒng)設(shè)計(jì)3.1系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)、3.2編程設(shè)計(jì)環(huán)境的選擇3.3關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn)3.4 Visual Basic 編程環(huán)境簡介3.5數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫的概念新建一個(gè)數(shù)據(jù)庫修改已建的數(shù)據(jù)庫 實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系3.6 數(shù)據(jù)庫信息37模塊處理過程設(shè)計(jì)4、系統(tǒng)實(shí)現(xiàn)4.1系統(tǒng)界面介紹系統(tǒng)登陸窗口用戶添加窗體5、 總結(jié)與展望參考文獻(xiàn)1、 引言學(xué)生社團(tuán)管理系統(tǒng)是一個(gè)學(xué)校與教育單位不可缺少的部分,它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來說都至關(guān)重要,所以學(xué)生社團(tuán)管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔?/p>

3、和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)學(xué)生社團(tuán)信息進(jìn)行管理,具有著手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生社團(tuán)管理的效率,也是學(xué)校的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。因此，開發(fā)這樣一套管理

4、系統(tǒng)的軟件成為很有必要的事情,在下面的各章中我們將以開發(fā)一套學(xué)生社團(tuán)管理系統(tǒng)為例,談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。2、 系統(tǒng)分析2.1用戶需求說明經(jīng)過本人對(duì)學(xué)校社團(tuán)的調(diào)查和研究，并與許多同行以及領(lǐng)導(dǎo)交流后得出木料行的需求分析如下：系統(tǒng)管理：對(duì)用戶的管理（用戶名、密碼、權(quán)限），社團(tuán)管理：社團(tuán)會(huì)員的基本信息，會(huì)員的刪除，修改及 添加社團(tuán)功能：社團(tuán)會(huì)員查詢，社團(tuán)活動(dòng)記錄，社團(tuán)會(huì)費(fèi)支出情況數(shù)據(jù)庫：數(shù)據(jù)庫備份，恢復(fù)2.2對(duì)象分析通過需求分析，得出本系統(tǒng)的幾個(gè)主要數(shù)據(jù)庫信息對(duì)象如下：社團(tuán)會(huì)員資料：姓名，編號(hào)，班級(jí)，性別，宿舍，聯(lián)系電話等社團(tuán)會(huì)費(fèi)資料：日期，類型，金額，申報(bào)人，記錄，會(huì)費(fèi)總額，目前

5、支出等社團(tuán)活動(dòng)資料：活動(dòng)主題，活動(dòng)時(shí)間，活動(dòng)地點(diǎn)，活動(dòng)內(nèi)容，主辦人等數(shù)據(jù)庫：數(shù)據(jù)庫備份，恢復(fù)2.3可行性分析系統(tǒng)的可行性研究在系統(tǒng)的整個(gè)過程中占有很重要的地位，它決定所選項(xiàng)目是不是可能實(shí)現(xiàn)或值得去實(shí)現(xiàn)?？尚行匝芯康哪康木褪怯米钚〉拇鷥r(jià)在盡可能短的時(shí)間內(nèi)確定問題是否能夠解決。它主要包括技術(shù)、經(jīng)濟(jì)、運(yùn)行、法律等方面的可行性：現(xiàn)有技術(shù)是否能夠?qū)崿F(xiàn)本系統(tǒng)的設(shè)計(jì)開發(fā)；經(jīng)濟(jì)上是否值得去實(shí)現(xiàn)；是否能夠在一般平臺(tái)下運(yùn)行等。技術(shù)可行性是指開發(fā)一個(gè)新系統(tǒng)所需要的技術(shù)是否具備，如支持新系統(tǒng)的軟硬件功能以及技術(shù)人員的數(shù)量和水平。本系統(tǒng)是對(duì)資源管理和資料管理。結(jié)合實(shí)際需要，經(jīng)過仔細(xì)斟酌，我選擇了visual basic

6、6.0作為開發(fā)用戶界面軟件，它綜合了可視化開發(fā)環(huán)境的易用性、32位優(yōu)化編譯技術(shù)的快速和強(qiáng)大、有數(shù)據(jù)引擎提供的可伸縮性等特點(diǎn)；選Microsoft Access 2000用來開發(fā)后臺(tái)數(shù)據(jù)庫，它具有很好的安全性與兼容性；而且本系統(tǒng)對(duì)硬件的要求不高，在現(xiàn)有技術(shù)基礎(chǔ)上一定能實(shí)現(xiàn)本系統(tǒng)。經(jīng)濟(jì)可行性是評(píng)價(jià)一個(gè)計(jì)算機(jī)信息系統(tǒng)是否可行的最基本的一種方法，是對(duì)信息系統(tǒng)解決方案的成本有效性的量度。信息系統(tǒng)的開發(fā)是一種投資，因此對(duì)于用戶來說，他首先關(guān)心的是：是否值得開發(fā)一個(gè)信息系統(tǒng)。使用該賓館客房管理系統(tǒng)的費(fèi)用大概在五千左右，這對(duì)于一個(gè)效益良好的企業(yè)是不存在任何問題。改系統(tǒng)對(duì)硬件的要求不高，586以上的計(jì)算機(jī)就能運(yùn)

7、行系統(tǒng)，所在系統(tǒng)運(yùn)行方面也不存在問題。2.4業(yè)務(wù)流程圖圖1 系統(tǒng)業(yè)務(wù)流程圖2.5數(shù)據(jù)字典2.5.1數(shù)據(jù)流字典表1：數(shù)據(jù)流字典數(shù)據(jù)流編號(hào)數(shù)據(jù)流名稱簡述數(shù)據(jù)流來源數(shù)據(jù)流去向數(shù)據(jù)流組成流通量高峰流通量D01-02輸入系統(tǒng)資料系統(tǒng)資料系統(tǒng)資料管理YHM+MM+BZ20002500D01-02輸入會(huì)員基本資料會(huì)員基本資料會(huì)員基本資料管理Bh+ Name+ Xb+ Zy+ Bj+ Ss+ Tel+ Bm+ Bz20002500D01-03輸入社團(tuán)會(huì)費(fèi)資料社團(tuán)會(huì)費(fèi)資料社團(tuán)會(huì)費(fèi)資料管理Rq + Lx+ Money+ Sbr+ Jr+ Hfze Mqzc+ Syhf+ Dwhf+ Hfsm200025002.5

8、.2數(shù)據(jù)項(xiàng)字典表2：數(shù)據(jù)項(xiàng)字典數(shù)據(jù)項(xiàng)編號(hào)數(shù)據(jù)項(xiàng)名稱漢字號(hào)簡述類型寬度取數(shù)范圍I001Yhname用戶名文本50I002Mm密碼文本50I003Ptyh普通用戶文本4I004Gly管理員文本4I005Bh編號(hào)文本20I006Name姓名文本50I007Xb性別文本50I008Zy專業(yè)文本50I009Bj班級(jí)文本50I010Ss宿舍文本50I011Tel電話文本50I012Bm部門文本50I013Bz備注文本50I014Rq日期時(shí)間50I015Lx類型文本50I016Money金額貨幣50I017Sbr申報(bào)人文本50I018Jr記錄文本50I019Hfze會(huì)費(fèi)總額貨幣500-9999999999I

9、020Mqzc目前支出貨幣500-999999999I021Syhf剩余會(huì)費(fèi)貨幣500-999999999I022Dwhf單位會(huì)費(fèi)貨幣500-999999999I023Hfsm會(huì)費(fèi)說明文本502.5.3數(shù)據(jù)存儲(chǔ)字典表3：數(shù)據(jù)存儲(chǔ)字典數(shù)據(jù)存儲(chǔ)編號(hào)數(shù)據(jù)存儲(chǔ)名稱簡述數(shù)據(jù)存儲(chǔ)來源數(shù)據(jù)存儲(chǔ)去向數(shù)據(jù)存儲(chǔ)組成F01-01輸入系統(tǒng)資料系統(tǒng)資料系統(tǒng)資料管理YHM+MM+BZF01-02輸入會(huì)員基本資料會(huì)員基本資料會(huì)員基本資料管理Bh+ Name+ Xb+ Zy+ Bj+ Ss+ Tel+ Bm+ BzF01-03輸入社團(tuán)會(huì)費(fèi)資料社團(tuán)會(huì)費(fèi)資料社團(tuán)會(huì)費(fèi)資料管理Rq + Lx+ Money+ Sbr+ Jr+ Hfz

10、e Mqzc+ Syhf+ Dwhf+ Hfsm2.5.4處理邏輯字典表4：處理邏輯字典處理邏輯編號(hào)處理邏輯名稱簡述輸入數(shù)據(jù)流處理邏輯輸出數(shù)據(jù)流關(guān)鍵字P1.0查詢系統(tǒng)資料+會(huì)員基本資料+社團(tuán)會(huì)費(fèi)資料統(tǒng)計(jì)輸入系統(tǒng)資料+輸入會(huì)員基本資料+輸入社團(tuán)會(huì)費(fèi)資料輸出系統(tǒng)資料+輸入會(huì)員基本資料+輸入社團(tuán)會(huì)費(fèi)資料P1.1輸入系統(tǒng)資料系統(tǒng)資料添加、修改、刪除系統(tǒng)資料輸出系統(tǒng)資料P1.2輸入會(huì)員基本資料會(huì)員基本資料添加、修改、刪除會(huì)員基本資料輸出會(huì)員基本資料P1.3輸入社團(tuán)會(huì)費(fèi)資料社團(tuán)會(huì)費(fèi)資料添加、修改、刪除社團(tuán)會(huì)費(fèi)資料輸出社團(tuán)會(huì)費(fèi)資料外部實(shí)體字典表5：外部實(shí)體字典外部實(shí)體編號(hào)外部實(shí)體名稱簡述輸入數(shù)據(jù)流輸出數(shù)據(jù)流

11、S0101用戶系統(tǒng)資料+會(huì)員基本資料+社團(tuán)會(huì)費(fèi)資料輸出系統(tǒng)資料+輸入會(huì)員基本資料+輸入社團(tuán)會(huì)費(fèi)資料3、 系統(tǒng)設(shè)計(jì)3.1系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)本系統(tǒng)分為：系統(tǒng)模塊、社團(tuán)模塊、社團(tuán)功能模塊、數(shù)據(jù)庫模塊、幫助模塊；系統(tǒng)模塊：密碼修改、用戶添加、重新登陸、退出；社團(tuán)模塊：會(huì)員的基本信息，會(huì)員的添加，刪除，修改 ；社團(tuán)功能模塊：會(huì)員查詢，社團(tuán)活動(dòng)記錄，會(huì)費(fèi)的支出；數(shù)據(jù)庫模塊：數(shù)據(jù)庫備份，數(shù)據(jù)庫恢復(fù)；幫助模塊：幫助主題、關(guān)于社團(tuán)管理信息系統(tǒng)；3.2 編程設(shè)計(jì)環(huán)境的選擇微軟公司的Visual Basic 6.0是Windows應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。Visual Basi

12、c提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)好幫手。3.3 關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn)Access2000 就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索。Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲(chǔ)庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用

13、戶共享數(shù)據(jù)庫。Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。3.4Visual Basic 編程環(huán)境簡介Visual Basic應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和 方法）。開發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對(duì)象。使用應(yīng)用程序具有可通用性可說擴(kuò)展性和強(qiáng)有力的功能。Visual Basic應(yīng)用由一系列對(duì)象組成，包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì)象、用戶事件等等，對(duì)象中又包含若干控件如

14、命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù)使用。3.5數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫的概念數(shù)據(jù)庫是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（flat-file）和關(guān)系數(shù)據(jù)庫（relational）。關(guān)系數(shù)據(jù)庫中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個(gè)不同部分的術(shù)語，象記錄、域等。 新建一個(gè)數(shù)據(jù)庫創(chuàng)建任何一個(gè)數(shù)據(jù)庫的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。(1)標(biāo)識(shí)需要的數(shù)據(jù)；(2)收集被標(biāo)識(shí)的字段到表中；(3)標(biāo)識(shí)主關(guān)鍵字字段；(4)繪制

15、一個(gè)簡單的數(shù)據(jù)圖表；(5)規(guī)范數(shù)據(jù)；(6)標(biāo)識(shí)指定字段的信息；(7)創(chuàng)建物理表。修改已建的數(shù)據(jù)庫數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。 實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系數(shù)據(jù)庫之間的關(guān)系指明兩個(gè)庫之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級(jí)的連接形式稱為自連接。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字

16、、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。3.6 數(shù)據(jù)庫信息用戶信息表,如表6所示:表6：操作員信息表字段名稱字段類型說明長度ID文本用戶名10PWD文本密碼10GLY文本管理員2社團(tuán)會(huì)員信息表,如表8所示:表8社團(tuán)會(huì)員信息表字段名稱字段類型說明長度Bianhao 數(shù)字編號(hào)Xingming文本姓名Xinbie文本性別Zhuanye文本專業(yè)Banji 數(shù)字班級(jí)Sushe數(shù)字宿舍Dianhua 數(shù)字電話Bumen 文本部門Beizhu 文本備注37模塊處理過程設(shè)計(jì)模塊處理過程設(shè)計(jì)是以地系統(tǒng)結(jié)構(gòu)圖中的主要模塊的處理過程進(jìn)行設(shè)計(jì)。下面僅給出“

17、會(huì)員基本信息”模塊的IPO圖，會(huì)員基本信息模塊信息表如表10所示。表10 會(huì)員基本信息模塊信息表系統(tǒng)名稱：學(xué)生社團(tuán)信息管理系統(tǒng)設(shè)計(jì)人：張國紅模塊名稱：會(huì)員基本信息 HYJBXX.PRG日期：2006年5月25日模塊編號(hào)：P1調(diào)用本模塊的模塊：本模塊調(diào)用的模塊：會(huì)員信息確認(rèn)調(diào)用文件名：XM.DBF XB.DBF菜單名：窗口名：報(bào)表名：全局變量：外部參數(shù)：輸入說明：取會(huì)員信息確認(rèn)的內(nèi)容記錄輸出說明：將所保存的會(huì)員信息審核并存入學(xué)生社團(tuán)信息庫處理說明：首先保護(hù)信息處理前的數(shù)據(jù)狀態(tài)（硬盤備份）IF 對(duì)會(huì)員進(jìn)行審核并有記錄 THEN 將會(huì)員的信息記錄審核并存入學(xué)生社團(tuán)信息庫 再進(jìn)行取下一位會(huì)員的記錄存入

18、學(xué)生社團(tuán)信息庫 ELSE 社團(tuán)會(huì)員信息存儲(chǔ)結(jié)束ENDIF注釋：4、 系統(tǒng)實(shí)現(xiàn)4.1系統(tǒng)界面介紹系統(tǒng)登陸窗口如下圖所示：圖()登陸窗口該模塊主要功能是實(shí)現(xiàn)用戶登陸，只有具有管理員身份的人才能操作此學(xué)生社團(tuán)管理系統(tǒng)，防止非管理人員登陸，保護(hù)數(shù)據(jù)的安全。登陸后進(jìn)入系統(tǒng)主界面：采用多文本（MDI）界面設(shè)計(jì)方式，主體窗體如圖4 所示 使用菜單調(diào)用系統(tǒng)各功能模塊，該界面設(shè)計(jì)的基本原則是方便操作，雖然有點(diǎn)單調(diào)但是功能其全。代碼如下：Private Sub Command1_Click() Dim rs As ADODB.Recordset Dim MsgText As String sql = "

19、select * from yonghu where yonghuming='" & DataCombo1.Text & "'" Set rs = ExecuteSQL(sql, MsgText) If Not rs.EOF Then sql = "select * from yonghu where yonghuming='" & DataCombo1.Text & "' AND yonghumima='" & Text1.Text &

20、 "'" Set rs = ExecuteSQL(sql, MsgText) If Not rs.EOF Then OK = True frmMain.Show Me.Hide DataCombo1.Text = rs!yonghuming Text1.Text = rs!yonghumima If rs!guanliyuan = 1 Then End If If rs!putongyonghu = 2 Then End If Else MsgBox "密碼不正確，請(qǐng)重新輸入", vbOKCancel OK = True rs.Close Tex

21、t1.Text = "" Text1.SetFocus End If Else MsgBox "用戶名不正確，請(qǐng)重新輸入！", vbOKCancel OK = False DataCombo1.SetFocus Text1.Text = "" Exit Sub End If Text1.Text = ""End Sub用戶添加窗體：圖()添加用戶窗體該模塊提供了用戶的添加，刪除以及修改。還可以實(shí)現(xiàn)用戶為管理員或普通用戶。而且操作界面非常美觀，方便用戶使用。代碼如下：Private Sub Command5_Clic

22、k()Dim rs As ADODB.RecordsetDim str As StringIf Text1.Text = "" Then MsgBox "用戶名不能為空！", vbInformation + vbOKOnly, "警告" Text1.SetFocus Exit Sub End If If Text2.Text = "" Then MsgBox "密碼不能為空！", vbInformation + vbOKOnly, "警告" Text2.SetFocus Ex

23、it Sub End If If Text2.Text <> Text3.Text Then MsgBox "兩次輸入的密碼不一樣，請(qǐng)重新輸入！", vbInformation + vbOKOnly, "警告" Text2.Text = "" Text3.Text = "" Text2.SetFocus End If If Option1.Value = False And Option2.Value = False Then MsgBox "請(qǐng)選擇操作權(quán)限！", vbInformation + vbOKOnly, "警告" Exit SubEnd If sql = "select * from yonghu where yonghuming='" & Text1.Text & "'" Set rs = ExecuteSQL(sql, str) If rs.EOF = False Then MsgBox "已經(jīng)存在的用戶！", vbOKOnly + vbExclamation, "警告" Text1