導(dǎo)語：學(xué)生檔案管理一文來源于網(wǎng)友上傳，不代表本站觀點(diǎn)，若需要原創(chuàng)文章可咨詢客服老師，歡迎參考。

第一章

為什么要開發(fā)一個(gè)學(xué)生檔案管理系統(tǒng)？

計(jì)算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手：

今天，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長(zhǎng)足的進(jìn)步。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計(jì)算機(jī)之所以如此流行的原因主要有以下幾個(gè)方面：

首先，計(jì)算機(jī)可以代替人工進(jìn)行許多繁雜的勞動(dòng)；

其次，計(jì)算機(jī)可以節(jié)省許多資源；

第三，計(jì)算機(jī)可以大大的提高人們的工作效率；

第四，計(jì)算機(jī)可以使敏感文檔更加安全，等等。

在中小學(xué)中用計(jì)算機(jī)管理學(xué)生檔案的意義

現(xiàn)在我國(guó)的中小學(xué)校中檔案的管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。

我作為一個(gè)計(jì)算機(jī)應(yīng)用的本科生，希望可以在這方面有所貢獻(xiàn)。改革的總設(shè)計(jì)師鄧小平同志說過“科學(xué)技術(shù)是第一生產(chǎn)力”，我希望能用我四年的所學(xué)編制出一個(gè)實(shí)用的程序來幫助中小學(xué)進(jìn)行更有效的學(xué)籍管理。

歸納起來，好處大約有以下幾點(diǎn)：

1．可以存儲(chǔ)歷屆的學(xué)生檔案，安全、高效；

2．只需一到二名檔案錄入員即可操作系統(tǒng)，節(jié)省大量人力；

3．可以迅速查到所需信息。

為將來學(xué)校上網(wǎng)做好準(zhǔn)備

跟據(jù)1999年中國(guó)電信的調(diào)查報(bào)告顯示我國(guó)的上網(wǎng)人數(shù)已達(dá)到890萬，互聯(lián)網(wǎng)已經(jīng)十分普及，學(xué)校往界的畢業(yè)生希望能在世界的任何一個(gè)角落查到自己校友的信息，本系

統(tǒng)為學(xué)校將來的上網(wǎng)作了先期工作，比如數(shù)據(jù)庫(kù)的建立。



學(xué)生檔案的設(shè)計(jì)分析

根據(jù)實(shí)際情況，我們使用原型法（RapidPrototyping）即以少量代價(jià)快速地構(gòu)造一個(gè)可執(zhí)行的軟件系統(tǒng)模型。使用戶和開發(fā)人員可以較快地確定需求，然后采用循環(huán)進(jìn)化的開發(fā)方式，對(duì)系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足。此時(shí)模塊也發(fā)展成為最終產(chǎn)品了。

第二章

怎樣開發(fā)一個(gè)學(xué)生檔案管理系統(tǒng)？

編程環(huán)境的選擇

微軟公司的VisualBasic6.0是Windows應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。VisualBasic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)相對(duì)較好的選擇。

關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn)

Access2000就是關(guān)系數(shù)據(jù)庫(kù)開發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。Access的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于Excel的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。另外，Access允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中的信息。Access也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文件把數(shù)據(jù)庫(kù)文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫(kù)。Access是一種關(guān)系數(shù)據(jù)庫(kù)工具，關(guān)系數(shù)據(jù)庫(kù)是已開發(fā)的最通用的數(shù)據(jù)庫(kù)之一。如上所述，Access作為關(guān)系數(shù)據(jù)庫(kù)開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù)庫(kù)的強(qiáng)大功能。

二者的結(jié)合（DBA）

微軟的JET數(shù)據(jù)庫(kù)引擎提供了與數(shù)據(jù)庫(kù)打交道的途徑，我們是通過它以及VisualBasic來訪問數(shù)據(jù)庫(kù)并對(duì)其進(jìn)行各種操作。VisualBasic、Access以及其他微軟的軟件產(chǎn)品都是通過共用JET數(shù)據(jù)庫(kù)引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。

DATA控件在數(shù)據(jù)庫(kù)中的信息與將信息顯示給用戶看的VisualBasic程序之間架起了一座橋梁。我們可以設(shè)置DATA控件的各個(gè)屬性，告訴它要調(diào)用那個(gè)數(shù)據(jù)庫(kù)的哪個(gè)部分。缺省情況下，DATA控件根據(jù)數(shù)據(jù)庫(kù)中的一個(gè)或多個(gè)數(shù)據(jù)表建立一個(gè)dynaset-type（動(dòng)態(tài)集合）類型的記錄集合。一個(gè)記錄集合是動(dòng)態(tài)的也就意味著，當(dāng)原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會(huì)隨之改變。DATA控件還提供了用來瀏覽不同記錄的各種跳轉(zhuǎn)按鈕。將DATA控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫(kù)之間建立聯(lián)系。

第三章

Windows下的Visual?????????????

?????????????????????????????

?????????????????

?????????????????????????????????????????????????)。VisualBasic應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和方法）。開發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對(duì)象。使用應(yīng)用程序具有可通用性可說擴(kuò)展性和強(qiáng)有力的功能。

VisualBasic應(yīng)用由一系列對(duì)象組成，包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì)象、用戶事件等等，對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù)使用。



實(shí)現(xiàn)菜單選項(xiàng)

菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個(gè)定義良好的菜單使程序易于使用和維護(hù)，VisualBasic也提供了強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。

您可以使用VisualBasic的ApplicationWizard也可以使用VisualBasic的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單。

實(shí)現(xiàn)工具欄

CoolBar控件與Office97種看到的CoolBar是類似的。CoolBar就是一個(gè)可以在窗體上浮動(dòng)的工具，同時(shí)也是其他ActiveX的容器。通過在CoolBar中遷入其他空間你局可以向用戶提供更好的靈活性和義用性。

Toolbar是工具條控件，是實(shí)現(xiàn)工具條的主體。其中的按鈕可以顯示圖像和標(biāo)題，并按功能分組或加入分隔符，還可以圍棋設(shè)置鼠標(biāo)停留在其上顯示的提示字符。Toolbar也是一個(gè)控件容器且具有Style屬性，并可以為其增加下拉按鈕和平滑按鈕等。

選擇“工程”下拉菜單中的“部件”選項(xiàng)，顯示“部件”對(duì)話框。在“控件”選項(xiàng)卡列表中選擇“MicrosoftWindowsCommonControls6.0”后工具相中增加改控件。其屬性及對(duì)象如下：

1．Align屬性定義工具條在窗體中的位置

2．ToolTipText屬性是字符串類型，定義控件的提示字符

3．Style屬性定義按鈕外觀。

4．ImageList屬性定義與數(shù)據(jù)條對(duì)應(yīng)的ImageList控件名，該控件定義工具條按鈕顯示的圖像。

5．HotImangeList屬性設(shè)置一個(gè)ImageList控件名，該控件定義按鈕獲得熱點(diǎn)時(shí)顯示的圖像。

6．DisabledImageList屬性定義工具條按鈕無效時(shí)顯示的圖像。

創(chuàng)建工具條包括ImageList和Toolbar控件

ImageList用于為其他控件提供圖像庫(kù)，將ImageList控件加入到工具箱的操作于前述Toolbar控件相同。

幫助

專業(yè)水平的軟件通常都帶有聯(lián)機(jī)幫助功能。無論寫出來的程序是要給大量的用戶使用，還是僅僅局限于公司內(nèi)部有限的使用者，我們都應(yīng)該為用戶提供詳細(xì)的、易于理解的聯(lián)機(jī)幫助文檔。微軟的HelpWorkshop4.0是一套獨(dú)立于VisualBasic的用來協(xié)助我們創(chuàng)建、運(yùn)行于32位Windows操作系統(tǒng)下的幫助文件的工具。使用它我們可以為我們編寫的應(yīng)用程序生成一組幫助文件。

關(guān)于版本

為了是程序顯得更具有專業(yè)風(fēng)格，首先可以在其中加入通常的應(yīng)用程序信息。這些信息包括公司名稱、版本號(hào)、修訂號(hào)以及其他類似信息。VisualBasic允許你使用APP對(duì)象來保存這些信息，APP對(duì)象是一個(gè)預(yù)定義對(duì)象，不需要在程序中創(chuàng)建它。APP對(duì)象的大多數(shù)屬性被應(yīng)用程序用來提供常規(guī)的信息，通過使用這些APP提供的屬性，可以在應(yīng)用程序和用戶之間交流重要信息，在項(xiàng)目屬性框中可以設(shè)置它的屬性。

第四章

使用Access2000實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫(kù)

數(shù)據(jù)庫(kù)的概念

數(shù)據(jù)庫(kù)是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫(kù)的作用在于組織和表達(dá)信息，簡(jiǎn)而言之，數(shù)據(jù)庫(kù)就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫(kù)可以分為兩類：非關(guān)系數(shù)據(jù)庫(kù)

flat-file）和關(guān)系數(shù)據(jù)庫(kù)（relational）。關(guān)系數(shù)據(jù)庫(kù)中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫(kù)含有各個(gè)不同部分的術(shù)語，象記錄、域等。

新建一個(gè)數(shù)據(jù)庫(kù)

創(chuàng)建任何一個(gè)數(shù)據(jù)庫(kù)的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫(kù)，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)結(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．繪制一個(gè)簡(jiǎn)單的數(shù)據(jù)圖表；

5．規(guī)范數(shù)據(jù)；

6．標(biāo)識(shí)指定字段的信息；

7．創(chuàng)建物理表。

修改已建的數(shù)據(jù)庫(kù)

數(shù)據(jù)庫(kù)的修改分為：添加、編輯和刪除記錄。這三種操作均可由VisualBasic創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。

實(shí)現(xiàn)數(shù)據(jù)庫(kù)之間的聯(lián)系

數(shù)據(jù)庫(kù)之間的關(guān)系指明兩個(gè)庫(kù)之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級(jí)的連接形式稱為自連接。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫(kù)中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫(kù)表示什么以及在數(shù)據(jù)庫(kù)中如何與其它的庫(kù)建立關(guān)系。

第五章

系統(tǒng)總體規(guī)劃

系統(tǒng)功能

1．可以進(jìn)行文本操作；

2．添加一個(gè)數(shù)據(jù)庫(kù)項(xiàng)目；

3．刪除一個(gè)數(shù)據(jù)庫(kù)項(xiàng)目；

4．修改一個(gè)數(shù)據(jù)庫(kù)項(xiàng)目；

5．查詢信息；

6．察看課程表。

流程圖











第六章

系統(tǒng)具體實(shí)現(xiàn)

用戶界面的實(shí)現(xiàn)

6．1．1封面

具體實(shí)現(xiàn)見圖_6.1.1



圖_6.1.1

6．1．2主界面

具體實(shí)現(xiàn)見.圖_6.1.2

圖_6.1.2

主界面包含三方面的內(nèi)容,以下一一介紹:

1.記錄操作

打開記錄操作,進(jìn)入記錄操作菜單項(xiàng)分別由文件、視圖及幫助三個(gè)選項(xiàng)。

1.1文件包括：新建

打開

打開寫字板---------如圖<6.1.4>(源程序見附錄清單6.1)

保存

另存

打印

退出

<圖6.1.4>

1.2視圖包括：狀態(tài)條

工具欄

背景顏色

顯示

課程表---------如圖<6.1.5>

文本編輯器

網(wǎng)絡(luò)瀏覽

<圖6.1.5>

1.3幫助包括：內(nèi)容

關(guān)于幫助

2．記錄操作

打開記錄操作進(jìn)入記錄操作選項(xiàng)頁(yè)分別由瀏覽記錄、查找等三個(gè)選項(xiàng)組成。

2．1瀏覽記錄：

學(xué)生學(xué)籍庫(kù)

課程庫(kù)

成績(jī)庫(kù)

2．2查找記錄

2．3備注

3．系統(tǒng)信息

打開系統(tǒng)信息進(jìn)入選項(xiàng)頁(yè)分別由系統(tǒng)信息、信息采集等組成。

6．1．3幫助系統(tǒng)

具體實(shí)現(xiàn)見6.1.3



圖6.1.3

數(shù)據(jù)庫(kù)的實(shí)現(xiàn)

6．2．1學(xué)籍?dāng)?shù)據(jù)庫(kù)

學(xué)籍?dāng)?shù)據(jù)庫(kù)里存儲(chǔ)了學(xué)生的檔案包括：學(xué)號(hào)、姓名、年齡等表如<6.2.6>

列名（中文）列名（英文）數(shù)據(jù)類型寬度小數(shù)點(diǎn)位數(shù)是否為空姓名NameDate8No學(xué)號(hào)CodeInteger6No性別SexDate2No年齡AgeDate6No民族NationDate6No政治面貌Visage...Date2...Yes...家庭住址AddressDate10No備注RecordDate15No表<6.2.6>

學(xué)籍模塊：

該模塊主要完成學(xué)生基本信息的錄入、刪除、更新等功能。在此模塊中定義了八個(gè)域名來進(jìn)行學(xué)生的信息存儲(chǔ)。如果用戶修改某一紀(jì)錄中的某一項(xiàng)，可單添加按鈕進(jìn)行學(xué)生記錄的編輯，此窗口使用數(shù)據(jù)窗口的FREEDOM風(fēng)格（典型的錄入界面）。該種風(fēng)格特點(diǎn)是列標(biāo)題緊挨著數(shù)據(jù)列在此窗口還可以增加新學(xué)生紀(jì)錄。

6．2．2成績(jī)數(shù)據(jù)庫(kù)

成績(jī)數(shù)據(jù)庫(kù)里存儲(chǔ)了學(xué)生的成績(jī)包括：學(xué)號(hào)、成績(jī)、等如表<6.2.7>

列名（中文）列名（英文）數(shù)據(jù)類型寬度小數(shù)點(diǎn)位數(shù)是否為空姓名NameDate8No學(xué)號(hào)CodeInteger6No成績(jī)ScoreDate10No備注RecordDate15No表<6.2.7>

成績(jī)模塊：

該模塊主要完成學(xué)生成績(jī)的基本信息的錄入、刪除、更新等功能。在此模塊中定義了四個(gè)域名來進(jìn)行學(xué)生的信息存儲(chǔ)。

6．2．3課程數(shù)據(jù)庫(kù)

課程數(shù)據(jù)庫(kù)利存儲(chǔ)了課程的信息：課程名、作者、出版社等如表<6.2.8>

列名（中文）列名（英文）數(shù)據(jù)類型寬度小數(shù)點(diǎn)位數(shù)是否為空課程IDCourseDate8No課程名NameDate15No出版社PublisherDate20No作者ScoreDate18No備注RecordDate15No表<6.2.8>

課程模塊：

該模塊主要完成存儲(chǔ)課程的所有信息及錄入、刪除、更新等功能

與VB的連接

VisualBasic提供了與底層數(shù)據(jù)庫(kù)系統(tǒng)緊密的連接。VisualBasic支持不同的關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)并充分發(fā)揮每一個(gè)數(shù)據(jù)庫(kù)的特長(zhǎng)。生成獨(dú)立應(yīng)用或脫離服務(wù)器運(yùn)行的服務(wù)以上的應(yīng)用，VisualBasic連接數(shù)據(jù)庫(kù)的方式有兩種：

·通過使用VisualBasic的DATA控件。

·通過使用由VisualBasic提供的專用的直接與數(shù)據(jù)庫(kù)相連的接口

第七章

結(jié)束語

經(jīng)過三個(gè)多月的設(shè)計(jì)和開發(fā)，中小學(xué)檔案管理系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠完成學(xué)生學(xué)籍的存儲(chǔ)和成績(jī)的查詢以及各類相關(guān)報(bào)表的打印。并提供部分系統(tǒng)維護(hù)功能,使用戶方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除。，對(duì)于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行了有效的解決。

但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問題。這些都有待進(jìn)一步改善。

致謝

在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師雷震甲老師身上學(xué)到了很多東西。雷老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)?/p>

治學(xué)精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。

另外，在系統(tǒng)開發(fā)過程中雷老師的助手張彥明老師也給于我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開發(fā)完成，還有同組的同學(xué)同樣給與我不少幫助，這里一并表示感謝。

第八章

主要參考文獻(xiàn)

[1]VisualBasic6.0使用指南

作者：BobReselman,RichardPeasley,WaynePruchniak.

出版社：電子工業(yè)出版社

[2]中文版MicrosoftOffice97自學(xué)通

作者：NedSnell

出版社：機(jī)械工業(yè)出版社

[3]VisualBasic6.0中文版控件大全

作者：Microsoft

出版社；電子工業(yè)出版社

[4]中文Access200024學(xué)時(shí)教程

作者：CraigEddy，TimothyBuchanan

出版社：機(jī)械工業(yè)出版社

附錄程序清單及注釋

程序清單6.1

OptionExplicit

DimFileNameAsString''''文件名，用于打開、保存文件

DimUndoStringAsString''''用于Undo操作

DimUndoNewAsString''''用于Undo操作

PrivateSubImgUndoDisable()

''''禁用“Undo”按鈕

UndoString=""

UndoNew=""

ImgUndo.Enabled=False

ImgUndo.Picture=ImageDisable.ListImages("Undo").Picture

EndSub

PrivateSubImgUndoEnable()

''''有效“Undo”按鈕

ImgUndo.Enabled=True

ImgUndo.Picture=ImageUp.ListImages("Undo").Picture

EndSub

PrivateSubCheck_ImgPaste()

''''設(shè)置粘貼按鈕

IfLen(Clipboard.GetText)>0Then

ImgPaste.Enabled=True

ImgPaste.Picture=ImageUp.ListImages("Paste").Picture

Else

ImgPaste.Enabled=False

ImgPaste.Picture=ImageDisable.ListImages("Paste").Picture

EndIf

EndSub

PrivateSubCheck_ImgCutCopy()

''''設(shè)置剪切、復(fù)制按鈕

IfText1.SelLength>0Then

ImgCut.Enabled=True

ImgCut.Picture=ImageUp.ListImages("Cut").Picture

ImgCopy.Enabled=True

ImgCopy.Picture=ImageUp.ListImages("Copy").Picture

Else

ImgCut.Enabled=False

ImgCut.Picture=ImageDisable.ListImages("Cut").Picture

ImgCopy.Enabled=False

ImgCopy.Picture=ImageDisable.ListImages("Copy").Picture

EndIf

EndSub

PrivateSubBackColor_Click()

CommonDialog1.ShowColor

Text1.BackColor=CommonDialog1.Color

EndSub

PrivateSubBox_Click()

''''顯停工具欄

IfBox.CheckedThen

''''將停顯工具欄

Box.Checked=False

CoolBar1.Visible=False

Else

Box.Checked=True

CoolBar1.Visible=True

EndIf

Form_Resize''''重新調(diào)整控件位置

EndSub

PrivateSubClose_Click()

DimFileNumAsInteger

IfLen(FileName)>0Then

''''有輸入文件名

FileNum=FreeFile()''''獲得可用文件號(hào)

OpenFileNameForOutputAsFileNum''''打開輸出文件

''''如果無指定文件，則創(chuàng)建新文件

Print#FileNum,Text1.Text''''輸出文本

CloseFileNum''''關(guān)閉文件

EndIf

Text1.Text=""

FileName=""

EndSub

PrivateSubComboSize_Click()

Text1.FontSize=Val(ComboSize.Text)

EndSub

PrivateSubComboFont_Click()

Text1.FontName=ComboFont.Text

EndSub

PrivateSubCopy_Click()

Clipboard.SetTextText1.SelText''''復(fù)制文本到剪裁板

EndSub