畢業(yè)設(shè)計(jì)---工資管理信息系統(tǒng) (2)

1、<p><b>　　工資管理信息系統(tǒng)</b></p><p><b>　　摘 要</b></p><p>　　工資管理系統(tǒng)用計(jì)算機(jī)管理企事業(yè)單位員工工資發(fā)放的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前企事業(yè)單位的員工工資發(fā)放都是由財(cái)務(wù)管理人員來(lái)承擔(dān)操作的.現(xiàn)在一般的企業(yè)都采用了信息化管理的方式即采用計(jì)算機(jī)作為工具的電子信息化的員工

2、工資計(jì)算發(fā)放進(jìn)行更有效的財(cái)務(wù)管理。工資管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。 經(jīng)過(guò)分析,我們使用 MICROSOFT公司的 VISUAL BASIC開(kāi)發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象,首先在短

3、時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶(hù)滿(mǎn)意的可行系統(tǒng)。</p><p>　　關(guān)鍵字:物資管理信息系統(tǒng),MIS,visual basic ,數(shù)據(jù)庫(kù)</p><p><b>　　Abstract</b></p><p>　　Wage management system using computer m

4、anagement units staff salaries a computer application technology innovation, yet popular in the computer before the units staff salaries are borne by the financial managers to operate. Now enterprises have adopted the ge

5、neral management of information using the computer as a tool that is the way electronic information technology staff wage payment for more effective financial management. Wage management system is a typical management in

6、formation system (MIS</p><p>　　keyword : material management information system, MIS,visual basic database</p><p><b>　　引言</b></p><p><b>　　課題背景</b></p>

7、<p>　　工資管理系統(tǒng)用計(jì)算機(jī)管理企事業(yè)單位員工工資發(fā)放的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前企事業(yè)單位的員工工資發(fā)放都是由財(cái)務(wù)管理人員來(lái)承擔(dān)操作的.現(xiàn)在一般的企業(yè)都采用了信息化管理的方式即采用計(jì)算機(jī)作為工具的電子信息化的員工工資計(jì)算發(fā)放進(jìn)行更有效的財(cái)務(wù)管理。工資管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)

8、安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。</p><p><b>　　系統(tǒng)簡(jiǎn)介</b></p><p>　　本系統(tǒng)服務(wù)于企事業(yè)單位財(cái)務(wù)部門(mén),負(fù)責(zé)管理本部門(mén)員工的財(cái)務(wù)工資信息.</p><p>　　主要由以下幾大功能模塊構(gòu)成:</p><p>　　一:數(shù)據(jù)錄入(錄入部門(mén),錄固定向)</p>

9、<p>　　二:數(shù)據(jù)整理(改固定項(xiàng),改流動(dòng)項(xiàng),人員管理,部門(mén)管理)</p><p>　　三:打印報(bào)表(打工資條,打工資表,打匯總表,提款方案)</p><p>　　四:系統(tǒng)維護(hù)(系統(tǒng)初始,系統(tǒng)備份,數(shù)據(jù)恢復(fù),權(quán)限管理,設(shè)置背景)</p><p><b>　　五:退出系統(tǒng)</b></p><p>　　1. 3

10、 開(kāi)發(fā)工具簡(jiǎn)介</p><p>　　Visual Basic 6.0是Micrsoft公司出品的開(kāi)發(fā)工具，Visual Basic是一種可視化的，面向?qū)ο蟮腤indows開(kāi)發(fā)語(yǔ)言，它具有易用，通用和開(kāi)發(fā)效率高的特點(diǎn)。隨著微軟對(duì)它不斷地改進(jìn)以及計(jì)算機(jī)本身性能的提高，使得Visual Basic越來(lái)越適合一般的應(yīng)用程序開(kāi)發(fā)。正如Bill Gate所說(shuō)，世界上絕大多數(shù)的Windows應(yīng)用程序是用Visual Basi

11、c編寫(xiě)的。在眾多的開(kāi)發(fā)工具中，我們?yōu)槭裁匆x擇Visual Basic6.0呢？因?yàn)閂B具有眾多其它開(kāi)發(fā)工具所沒(méi)有的優(yōu)點(diǎn)！具體介紹如下：</p><p><b>　　開(kāi)發(fā)的高效</b></p><p><b>　　語(yǔ)言的高效</b></p><p><b>　　編譯的高效</b></p>

12、<p><b>　　執(zhí)行的高效</b></p><p><b>　　維護(hù)的高效</b></p><p>　　基于以上理由，我們毫不憂(yōu)郁的選擇了VB6.0做為我們的開(kāi)發(fā)工具?。?lt;/p><p>　　主要的控件及其基本屬性，事件簡(jiǎn)介</p><p><b>　　命令按鈕類(lèi)的控件：&

13、lt;/b></p><p>　　Caption屬性：用來(lái)顯示在控件上的標(biāo)題。</p><p>　　Enable屬性：控制控件的激活狀態(tài)灰色或可用。</p><p>　　Appearance屬性：值為1時(shí),則以3D效果顯示該控件,0則不然。</p><p>　　Backcolor屬性：用來(lái)改變?cè)诎粹o上顯示圖像的背景色。</p>

14、;<p>　　Cancel屬性：該屬性決定按鈕是否為一個(gè)”取消”按鈕。</p><p>　　Default屬性:決定哪一個(gè)命令按鈕控件是窗體的缺省命令按鈕.</p><p>　　Font屬性:控制各種文字字體類(lèi)型.</p><p>　　Left,top,height,width屬性:設(shè)定控件的位置與大小.</p><p>　　S

15、tyle,picture屬性:決定按鈕的顯示方式是否為圖像形式出現(xiàn).</p><p>　　Visible屬性:確定控件運(yùn)行時(shí)是否為可見(jiàn).</p><p>　　Index屬性:當(dāng)控件為一控件數(shù)組時(shí),此屬性值為該控件在數(shù)組的下標(biāo)值.</p><p>　　DownPicture屬性：設(shè)置/返回一個(gè)對(duì)圖片的引用，該圖片在按鈕被單擊處于壓下?tīng)顟B(tài)時(shí)顯示。</p>

16、<p>　　DisabledPicture屬性：設(shè)置/返回一個(gè)對(duì)圖片的引用，該圖片在控件無(wú)效時(shí)顯示在控件中。</p><p>　　MaskColor屬性：設(shè)置/返回一個(gè)在按鈕的圖片中作為“掩碼“的的顏色</p><p>　　Picture屬性：設(shè)置返回commandButton控件中要顯示的圖片。</p><p><b>　　命令按鈕類(lèi)的事件：&

17、lt;/b></p><p>　　單擊事件――Click事件</p><p><b>　　觸發(fā)與適用</b></p><p>　　此事件是在一個(gè)命令按鈕對(duì)象上按下然后釋放一個(gè)鼠標(biāo)按鈕時(shí)發(fā)生。命令按鈕的Click事件僅對(duì)當(dāng)單擊鼠標(biāo)時(shí)發(fā)生。</p><p><b>　　事件處理過(guò)程</b><

18、/p><p>　　按鈕單擊事件的處理過(guò)程為：</p><p>　　Private Sub object-Click（Index As Integer）</p><p>　　其中Object為引發(fā)該事件的對(duì)象名稱(chēng)。如果是命令按鈕的控件是數(shù)組，則需要使用Index參數(shù)標(biāo)識(shí)該控件。</p><p>　　獲得焦點(diǎn)――GotFocus事件</p>

19、;<p><b>　　觸發(fā)與適用 </b></p><p>　　當(dāng)命令按鈕獲得焦點(diǎn)產(chǎn)生該事件，獲得焦點(diǎn)可以通過(guò)諸如Tab切換或單擊對(duì)象之類(lèi)的用戶(hù)動(dòng)作，或在代碼中用SetFocus方法改變焦點(diǎn)來(lái)實(shí)現(xiàn)。</p><p><b>　　事件處理過(guò)程</b></p><p>　　命令按鈕GotFoucs事件處理過(guò)程為

20、：</p><p>　　Private Sub Object-GotFocus（Index As Integer）</p><p>　　LostFocus事件：當(dāng)一個(gè)對(duì)象失去焦點(diǎn)時(shí)發(fā)生</p><p>　　KeyDown事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生</p><p>　　KeyUp事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)釋放一個(gè)鍵時(shí)發(fā)生。<

21、;/p><p>　　KeyPress事件：當(dāng)用戶(hù)按下或松開(kāi)一個(gè)ANSI鍵時(shí)發(fā)生。</p><p>　　MouseDown事件：當(dāng)在命令按鈕上按下鼠標(biāo)按鈕時(shí)發(fā)生。</p><p>　　MouseMove事件：當(dāng)命令按鈕上移動(dòng)鼠標(biāo)時(shí)發(fā)生。</p><p>　　MouseUp事件：當(dāng)在命令按鈕上釋放鼠標(biāo)按鈕時(shí)發(fā)生。</p><p&g

22、t;　　標(biāo)簽框類(lèi)的控件類(lèi)的控件：</p><p>　　Caption屬性：在應(yīng)用程序界面上加入說(shuō)明。</p><p>　　Autosize屬性：決定控件是否自動(dòng)改變大小以顯示其全部?jī)?nèi)容。</p><p>　　Backstyle屬性：用以指示標(biāo)簽是否透明.</p><p>　　Bordstyle屬性:用以設(shè)定控件是否有邊框。</p>

23、<p><b>　　文本框類(lèi)的控件：</b></p><p>　　Text屬性：通過(guò)像text屬性賦值的方法來(lái)改變?cè)搶傩缘闹怠?lt;/p><p>　　Maxlength屬性：該屬性設(shè)定在文本框控件中能夠輸入的最大字符數(shù)。</p><p>　　Multline屬性：該屬性設(shè)定text字符串中是否接受換行符。</p>&l

24、t;p>　　Scrollbars屬性：該屬性決定是否為文本框加滾動(dòng)條。</p><p>　　Passwordchar屬性：該屬性設(shè)定輸入文本的特殊顯示字符,在設(shè)計(jì)密碼程序時(shí)非常有用。</p><p>　　Change事件屬性：文本框的內(nèi)容發(fā)生改變時(shí),相應(yīng)的控件之間發(fā)生相應(yīng)的改變,具有即時(shí)性。</p><p>　　Keypress：事件由用戶(hù)在文本框控件中按任意

25、鍵觸發(fā)。</p><p>　　Alignment屬性：設(shè)定控件中的文本對(duì)其方式</p><p>　　Appearance屬性：設(shè)定一個(gè)對(duì)象在運(yùn)行時(shí)是否可以3D效果顯示。</p><p>　　BackColor屬性：設(shè)置返回背景色</p><p>　　BorderStyle屬性：設(shè)置對(duì)象的邊框樣式</p><p>　　D

26、ataField屬性：設(shè)定數(shù)據(jù)使用者將被綁定到的字段名</p><p>　　DataFormat屬性：設(shè)定DataFormat對(duì)象，用于數(shù)據(jù)綁定</p><p>　　DataMember屬性：從數(shù)據(jù)供應(yīng)程序提供的幾個(gè)數(shù)據(jù)成員中返回/設(shè)定一個(gè)特定的數(shù)據(jù)成員</p><p>　　DataSource屬性：設(shè)定控件綁定的一個(gè)數(shù)據(jù)源</p><p>

27、　　DragIcon屬性：設(shè)定圖標(biāo)，它將在拖放操作中作為指針顯示</p><p>　　DragMode模式：設(shè)定一個(gè)值，確定在拖放操作中所用方式</p><p>　　Enabled屬性：設(shè)置/返回運(yùn)行時(shí)TextBox是否相應(yīng)用戶(hù)事件</p><p>　　Font屬性：設(shè)置/返回字體屬性</p><p>　　ForeColor屬性：設(shè)置/返回文

28、本的前景色</p><p>　　Height屬性：設(shè)置/返回TextBox的高度</p><p>　　IMEMode屬性：設(shè)置/返回?cái)?shù)值用來(lái)確定輸入方法編輯器的狀態(tài)</p><p>　　Index屬性：設(shè)置/返回唯一的標(biāo)識(shí)控件數(shù)組中該控件的編號(hào)</p><p>　　Left屬性：設(shè)置/返回TextBox控件的水平位置</p>&

29、lt;p>　　Locked屬性：設(shè)置/返回TextBox中文本是否可編輯</p><p>　　LinkItem屬性：設(shè)置/返回DDE與另一個(gè)應(yīng)用程序會(huì)話時(shí)，傳給接受端的數(shù)據(jù)</p><p>　　MaxLength屬性：設(shè)置/返回一個(gè)值，指定在TextBox控件中能夠輸入的字符最大值</p><p>　　MouseIcon屬性：設(shè)置/返回自定義鼠標(biāo)的圖標(biāo)<

30、/p><p>　　Top屬性：設(shè)置/返回TextBox控件的垂直位置</p><p>　　Tag屬性：存儲(chǔ)過(guò)程所需的附加數(shù)據(jù)</p><p><b>　　文本框類(lèi)的事件：</b></p><p>　　Change事件：當(dāng)改變文本框內(nèi)容時(shí)發(fā)生</p><p>　　Click事件：鼠標(biāo)單擊控件時(shí)發(fā)生<

31、;/p><p>　　DblClick事件：用鼠標(biāo)左鍵雙擊控件時(shí)發(fā)生</p><p>　　DragDrop事件：在一個(gè)完整的拖放動(dòng)作完成或使用Drag方法，并將其Action參數(shù)設(shè)置為2時(shí)發(fā)生</p><p>　　DragOver事件：在拖放操作正在進(jìn)行時(shí)發(fā)生</p><p>　　GotFocus事件：當(dāng)一個(gè)命令按鈕獲得焦點(diǎn)時(shí)發(fā)生</p>

32、;<p>　　LinkClose事件：當(dāng)一個(gè)DDE對(duì)話結(jié)束時(shí)發(fā)生</p><p>　　LinkError事件：當(dāng)一個(gè)DDE對(duì)話框過(guò)程中出現(xiàn)錯(cuò)誤時(shí)，該事件發(fā)生</p><p>　　KeyDown事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生</p><p>　　Validate事件：在焦點(diǎn)轉(zhuǎn)換到另一個(gè)控件之前發(fā)生，此時(shí)該控件的Causes Validatio

33、n 屬性值設(shè)置為T(mén)rue</p><p><b>　　單選按鈕類(lèi)的控件：</b></p><p>　　Caption屬性：顯示在控件上的文本,是單選按鈕的標(biāo)題。</p><p>　　Alignment屬性：決定單選按鈕的標(biāo)題在控件上的位置。</p><p>　　Enable屬性：該控件為灰色時(shí)為false,表示運(yùn)行時(shí)不可

34、用。</p><p>　　Index屬性：屬性值表示為單選按鈕組成的控件中某個(gè)按鈕的索引值。</p><p>　　Tabindex屬性：建立控件時(shí),vb自動(dòng)為其分配一個(gè)tabindex值,利用tab鍵可以在控件之間切換焦點(diǎn)。</p><p>　　Value屬性：反映控件狀態(tài)的屬性,返回true表示已選擇了該按鈕。</p><p>　　Appe

35、arance 屬性：設(shè)置/返回一個(gè)對(duì)象在運(yùn)行時(shí)是否以3D效果顯示。</p><p>　　BackColor 屬性：設(shè)置/返回背景色。</p><p>　　Container 屬性：設(shè)置/返回Form上的控件屬性。</p><p>　　DataField 屬性：設(shè)置/返回?cái)?shù)據(jù)使用者將被綁定到的字段名。</p><p>　　DataFormat

36、屬性：設(shè)置/返回DataFormat對(duì)象，一個(gè)綁定對(duì)象將附加到它。</p><p>　　DisabledPicture 屬性：設(shè)置/返回一個(gè)對(duì)圖像的引用，該圖片在控件無(wú)效時(shí)顯示在控件中。</p><p>　　DownPicture 屬性：設(shè)置/返回一個(gè)對(duì)圖片的引用，該圖片在控件單擊下處于壓下?tīng)顟B(tài)時(shí)顯示。</p><p>　　DragMode 屬性：設(shè)置/返回一個(gè)值，

37、確定在拖放操作中所用的方式。</p><p>　　Font 屬性：設(shè)置/返回字體屬性。</p><p>　　FontBold 屬性：設(shè)置/返回字體粗體樣式。</p><p>　　FontItalic 屬性：設(shè)置/返回字體斜體樣式。 </p><p>　　FontStrikethru 屬性：設(shè)置/返回字體刪除線樣式。</p>&l

38、t;p>　　FontUnderLine 屬性：設(shè)置/返回字體下劃線樣式。</p><p>　　FontName 屬性：設(shè)置/返回控件中顯示文本所用的字體大小。</p><p>　　FontSize 屬性：設(shè)置/返回控件中顯示文本所用的字體大小</p><p>　　Height 屬性：設(shè)置/返回控件的高度。</p><p>　　MaskC

39、olor 屬性：設(shè)置/返回一個(gè)在控件的圖片中作為掩碼的顏色。</p><p>　　MousePointer 屬性：設(shè)置/返回一個(gè)值，該值指示在運(yùn)行時(shí)當(dāng)鼠標(biāo)移動(dòng)到對(duì)象上時(shí)顯示的指針類(lèi)型。</p><p>　　單選按鈕類(lèi)的常用事件：</p><p>　　Click 事件：鼠標(biāo)單擊控件時(shí)發(fā)生。</p><p>　　DbClick事件： 當(dāng)在一個(gè)對(duì)象

40、上按下和釋放鼠標(biāo)按鈕并再次按下和釋放按鈕時(shí)，該事件發(fā)生。</p><p>　　DragDrop事件：在一個(gè)完整的拖放動(dòng)作或使用Drag方法，并將其Action參數(shù)設(shè)置位2時(shí)，該事件發(fā)生。</p><p>　　DragOver事件： 在拖放操作正在進(jìn)行時(shí)發(fā)生。</p><p>　　GotFocus事件： 當(dāng)獲的對(duì)象焦點(diǎn)時(shí)發(fā)生。</p><p>

41、　　LostFocus事件：當(dāng)對(duì)象失去焦點(diǎn)時(shí)發(fā)生。</p><p>　　KeyDown事件：當(dāng)控件具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生。</p><p>　　KeyUp事件： 當(dāng)控件具有焦點(diǎn)時(shí)釋放一個(gè)鍵時(shí)發(fā)生。</p><p>　　KeyPress事件：當(dāng)用戶(hù)按下或釋放ANSI一個(gè)鍵時(shí)發(fā)生。</p><p>　　MouseDown事件：當(dāng)在控件上按下鼠

42、標(biāo)鍵時(shí)發(fā)生。</p><p>　　MouseMove事件：在控件上移動(dòng)鼠標(biāo)時(shí)發(fā)生。</p><p>　　MouseUp事件：在控件上釋放鼠標(biāo)時(shí)發(fā)生。</p><p><b>　　復(fù)選按鈕類(lèi)的控件：</b></p><p>　　Caption屬性：缺省為check1…。</p><p>　　Inde

43、x屬性:該屬性值為復(fù)選框控件數(shù)組的下標(biāo).</p><p>　　Value屬性:value為0表空白,為1表勾號(hào),為2表示灰色勾號(hào).</p><p>　　Container屬性：Form控件上的容器。</p><p>　　DataChangeed屬性：設(shè)置/返回一個(gè)值，指出被綁定的控件中的數(shù)據(jù)已經(jīng)被某進(jìn)程修改。</p><p>　　DataFi

44、eld屬性：設(shè)置或返回?cái)?shù)據(jù)使用者將被綁定到的字段名。</p><p>　　DataFormat 屬性：設(shè)置或返回DataFormat對(duì)象，用于數(shù)據(jù)綁定。</p><p>　　Datasource屬性：設(shè)置或返回控件綁定的一個(gè)數(shù)據(jù)源。</p><p>　　DisabledPicture屬性：設(shè)置或返回一個(gè)對(duì)圖片的引用，該圖片在控件無(wú)效時(shí)顯示在控件中。</p>

45、;<p>　　DownPicture 屬性：設(shè)置或返回一個(gè)對(duì)圖片的引用，該圖片在控件被單擊處于壓下?tīng)顟B(tài)時(shí)顯示。</p><p>　　DragIcon屬性：設(shè)置或返回圖標(biāo)，它將在拖放操作中做為指針顯示。</p><p>　　DragMode屬性：設(shè)置返回一個(gè)值，確定在拖放操作中所用方式。</p><p>　　Font屬性：設(shè)置或返回字體的屬性。</

46、p><p>　　Name屬性：設(shè)置或返回控件的標(biāo)識(shí)名。</p><p>　　Value屬性：設(shè)置或返回控件的狀態(tài)。</p><p>　　復(fù)選按鈕類(lèi)的控件的基本事件：</p><p>　　Click事件：鼠標(biāo)單擊控件時(shí)發(fā)生。</p><p>　　DragDrop事件：在一個(gè)完整的拖放動(dòng)作完成或使用Drag方法，并將其Acti

47、on參數(shù)設(shè)置為2時(shí)發(fā)生。</p><p>　　DragOver事件：在拖放操作正在進(jìn)行時(shí)發(fā)生。</p><p>　　GotFocus事件：在對(duì)象獲的焦點(diǎn)時(shí)發(fā)生。，</p><p>　　OLECompleteDrag事件：當(dāng)源部件被放到目標(biāo)時(shí)發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。</p><p>　　OLEDragDrag事件：當(dāng)源部件決定放

48、操作能發(fā)生，卻源部件被放到目標(biāo)部件時(shí)，此事件發(fā)生。</p><p><b>　　框架類(lèi)的控件：</b></p><p>　　1) List屬性：列表框控件的表項(xiàng)是使用數(shù)組的方式保存,數(shù)組的每一個(gè)元素存儲(chǔ)列表控件的一個(gè)表項(xiàng)</p><p>　　Listcount屬性:控件列表部分項(xiàng)目的個(gè)數(shù)。</p><p>　　Mutse

49、lect屬性:可以設(shè)置列表框?yàn)閱芜x或允許多選屬性.</p><p>　　Selectd屬性:標(biāo)示一個(gè)數(shù)組,數(shù)組各元素為:</p><p>　　Selected(0),selected(1)…</p><p><b>　　滾動(dòng)條類(lèi)的控件：</b></p><p>　　Value屬性：滾動(dòng)條上滑塊所在位置由value值所決定

50、。</p><p>　　Max和min屬性：對(duì)value值的最大,最小進(jìn)行限制。</p><p>　　Largechange屬性：用戶(hù)點(diǎn)擊滾動(dòng)條與鍵頭之間的區(qū)域時(shí),value的改變量。</p><p>　　4) OnClick事件：用來(lái)添加按鈕的單擊事件所執(zhí)行的程序代碼。</p><p><b>　　定時(shí)器類(lèi)類(lèi)的控件：</b&

51、gt;</p><p>　　Interval屬性：表示定時(shí)的時(shí)間間隔,以毫秒為單位。</p><p>　　Enable屬性:為true時(shí)(缺省值),激活定時(shí)器開(kāi)始計(jì)時(shí);為false時(shí)處于休眠狀態(tài).</p><p>　　Visual basic6.0連接數(shù)據(jù)庫(kù)的主要方式以下幾種方式：一是：用data控件進(jìn)行數(shù)據(jù)庫(kù)鏈接 ，二是利用adodc（ADO Data Contr

52、ol)進(jìn)行數(shù)據(jù)庫(kù)鏈接 。三是: 利用DataEnvironment進(jìn)行數(shù)據(jù)庫(kù)鏈接.四是利用ADO(ActiveX Data Objects)進(jìn)行編程</p><p>　　:現(xiàn)在我們來(lái)大致對(duì)這幾種技術(shù)應(yīng)用介紹：</p><p>　　用data控件進(jìn)行數(shù)據(jù)庫(kù)鏈接.</p><p>　　第一步：給窗體添加一個(gè)Data控件。第二步：用Access建立一個(gè)名為Pad的數(shù)據(jù)庫(kù)

53、，在庫(kù)中建立一個(gè)表Myset，給表添加四個(gè)字段：backcolor（數(shù)據(jù)），forecolor(文本），fontname(文本）,fontsize（文本）。注意：請(qǐng)將庫(kù)文件存入程序所在目錄。 如果你的機(jī)器沒(méi)安裝有Access，可通過(guò)VB建庫(kù)。</p><p>　　利用adodc（ADO Data Control)進(jìn)行數(shù)據(jù)庫(kù)鏈接：</p><p>　　使用adodata控件訪問(wèn)數(shù)據(jù)庫(kù)可以

54、完全不用編寫(xiě)代碼,只需要通過(guò)簡(jiǎn)單的設(shè)置和操作其屬性就可以實(shí)現(xiàn)與數(shù)據(jù)庫(kù)的連接,通過(guò)綁定數(shù)據(jù)感知控件,就能提供一個(gè)訪問(wèn)數(shù)據(jù)庫(kù)的界面,用來(lái)實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的瀏覽,貼加,刪除,修改等操作.</p><p>　　利用DAO對(duì)數(shù)據(jù)庫(kù)進(jìn)行操縱:</p><p>　　在visual basic 中提供了兩種與jet數(shù)據(jù)引擎接口的方法:data控件與數(shù)據(jù)訪問(wèn)對(duì)象(DAO)DAO是database object的

55、英文縮寫(xiě),要訪問(wèn)數(shù)據(jù)庫(kù)一方面數(shù)據(jù)庫(kù)要提供訪問(wèn)接口,另一方面要在編程環(huán)境中有對(duì)數(shù)據(jù)庫(kù)的支持.DAO模型是設(shè)計(jì)關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)結(jié)構(gòu)的對(duì)象類(lèi)的集合.他們提供了管理關(guān)系型數(shù)據(jù)庫(kù)系統(tǒng)所需要的全部操作屬性和方法,這其中包括建立數(shù)據(jù)庫(kù),定義表,字段和建立表間關(guān)系,定位和查詢(xún)數(shù)據(jù)庫(kù)等.</p><p><b>　　關(guān)系數(shù)據(jù)庫(kù)介紹:</b></p><p>　　關(guān)系數(shù)據(jù)庫(kù)是目前各類(lèi)數(shù)據(jù)

56、庫(kù)中最重要、最流行的數(shù)據(jù)庫(kù)，他應(yīng)用數(shù)學(xué)方法來(lái)處理數(shù)據(jù)庫(kù)數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫(kù)系統(tǒng)。20世紀(jì)70年代以后開(kāi)發(fā)的數(shù)據(jù)庫(kù)管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。在數(shù)據(jù)庫(kù)發(fā)展的歷史上，最重要的成就就是關(guān)系模型。 關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)與非關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)的區(qū)別是：關(guān)系系統(tǒng)只有“表“這一種數(shù)據(jù)結(jié)構(gòu)；而非關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)還有其他數(shù)據(jù)結(jié)構(gòu)，對(duì)這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。</p><p>　　結(jié)構(gòu)化查詢(xún)語(yǔ)言SQL（Structured

57、Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語(yǔ)言，其功能包括查詢(xún)、操縱、定義和控制四個(gè)方面，是一個(gè)通用的、功能極強(qiáng)的關(guān)系數(shù)據(jù)庫(kù)語(yǔ)言。目前已成為關(guān)系數(shù)據(jù)庫(kù)的標(biāo)準(zhǔn)語(yǔ)言</p><p>　　Microsoft Access介紹:</p><p>　　使用 Microsoft Access，可以在單一的數(shù)據(jù)庫(kù)文件中管理所有的信息。在這個(gè)文件中，用戶(hù)

58、可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲(chǔ)空間中，這些空間稱(chēng)作表；可以使用聯(lián)機(jī)窗體來(lái)查看、添加及更新表中的數(shù)據(jù)；使用查詢(xún)來(lái)查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來(lái)分析及打印數(shù)據(jù)。 如果要保存數(shù)據(jù)，請(qǐng)為每一種類(lèi)型的信息創(chuàng)建一個(gè)表。如果要從查詢(xún)、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來(lái)自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢(xún)。查詢(xún)的同時(shí)也可以更新或刪除多條記

59、錄，并對(duì)數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。 如果要簡(jiǎn)單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請(qǐng)創(chuàng)建一個(gè)窗體。在打開(kāi)一個(gè)窗體時(shí)，Microsoft Access 將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶(hù)在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來(lái)，請(qǐng)創(chuàng)建一個(gè)報(bào)表。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打

60、印郵件標(biāo)簽的報(bào)表。</p><p><b>　　系統(tǒng)的分析</b></p><p>　　系統(tǒng)開(kāi)發(fā)的目標(biāo)和思想</p><p>　　本系統(tǒng)開(kāi)發(fā)目標(biāo)是服務(wù)于企事業(yè)單位財(cái)務(wù)管理人員,方便工作人員,收集員工工資信息,發(fā)布工資發(fā)放信息,對(duì)本單位部門(mén)員工工資分類(lèi)管理等.</p><p>　　同時(shí)力求做到界面人性化,功能齊全,數(shù)據(jù)存儲(chǔ)

61、安全.</p><p><b>　　系統(tǒng)的可行性分析</b></p><p>　　技術(shù)上:本系統(tǒng)采用visual basic 6.0與微軟的access作為數(shù)據(jù)庫(kù),技術(shù)上開(kāi)發(fā)難度一般.</p><p>　　經(jīng)濟(jì)上:本系統(tǒng)服務(wù)于企事業(yè)單位財(cái)務(wù)管理人員,提高了工作人員辦事效率,節(jié)省了開(kāi)支.所以具有經(jīng)濟(jì)上的可行性.</p><p&

62、gt;　　社會(huì)上:本系統(tǒng)同時(shí)也方便了企業(yè)管理人員者,以及員工.所以具有社會(huì)可行性.</p><p><b>　　系統(tǒng)的設(shè)計(jì)</b></p><p>　　3．1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)</p><p>　　3．2 系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì)</p><p><b>　　1:部門(mén)表:</b></p>

63、<p><b>　　2:工資信息表:</b></p><p><b>　　3:用戶(hù)登陸表:</b></p><p><b>　　界面設(shè)計(jì)與代碼設(shè)計(jì)</b></p><p><b>　　1:登陸界面設(shè)計(jì)</b></p><p><b>

64、　　登陸界面代碼設(shè)計(jì):</b></p><p>　　Private Sub Command1_Click()</p><p>　　If Trim(Text3.Text) = Data1.Recordset.Fields(2) Then</p><p>　　czy = Data1.Recordset.Fields(1)</p><p&g

65、t;　　bz = Text1.Text</p><p><b>　　Unload Me</b></p><p>　　gzglxt.Show</p><p><b>　　Else</b></p><p>　　MsgBox "密碼不符，請(qǐng)核對(duì)后再輸入"</p><

66、p>　　Text3.Text = ""</p><p>　　Text3.SetFocus</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()<

67、;/p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Data1.DatabaseName = App.Path + "\gzglxt.mdb"</

68、p><p>　　Data1.RecordSource = "mmk"</p><p>　　Data1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub Text1_Change()</p><p>　　If Len(Te

69、xt1.Text) >= 2 Then</p><p>　　Data1.Recordset.FindFirst "czydm=" + "'" + Text1.Text + "'"</p><p>　　If Data1.Recordset.NoMatch = True Then</p><p

70、>　　MsgBox "操作員代碼不存在，請(qǐng)核對(duì)后再輸入!"</p><p>　　Text1.Text = ""</p><p>　　Text1.SetFocus</p><p><b>　　Else</b></p><p>　　Text2.Text = Data1.Recor

71、dset.Fields(1)</p><p>　　Text3.SetFocus</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　P

72、rivate Sub Text3_KeyPress(KeyAscii As Integer)</p><p>　　If KeyAscii = 13 Then</p><p>　　Command1.SetFocus</p><p><b>　　End If</b></p><p><b>　　End Sub<

73、;/b></p><p><b>　　2.數(shù)據(jù)恢復(fù)界面:</b></p><p><b>　　數(shù)據(jù)恢復(fù)代碼設(shè)計(jì):</b></p><p>　　Private Sub Command1_Click()</p><p>　　Data1.Recordset.MoveFirst</p>

74、<p>　　Call disp4</p><p><b>　　End Sub</b></p><p>　　Sub disp4()</p><p>　　Text1.Text = Data1.Recordset.Fields(0)</p><p>　　Text2.Text = Data1.Recordset.Fie

75、lds(1)</p><p>　　Text3.Text = Data1.Recordset.Fields(2)</p><p><b>　　End Sub</b></p><p>　　Private Sub Command10_Click()</p><p>　　Command1.Enabled = True</p

76、><p>　　Command2.Enabled = True</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = True</p><p>　　Command5.Enabled = True</p><p>　　Command6.Enabled =

77、True</p><p>　　Command7.Enabled = True</p><p>　　Command8.Enabled = True</p><p>　　Command9.Enabled = False</p><p>　　Command1.SetFocus</p><p>　　Call disp4<

78、/p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　If Data1.Recordset.BOF = False Then Data1.Recordset.MovePrevious</p><p>　　If Data1.Recor

79、dset.BOF = True Then Data1.Recordset.MoveNext</p><p>　　Call disp4</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　If Data1.Recordset.

80、EOF = False Then Data1.Recordset.MoveNext</p><p>　　If Data1.Recordset.EOF = True Then Data1.Recordset.MovePrevious</p><p>　　Call disp4</p><p><b>　　End Sub</b></p>

81、<p>　　Private Sub Command4_Click()</p><p>　　Data1.Recordset.MoveLast</p><p>　　Call disp4</p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()

82、</p><p>　　dm = InputBox("請(qǐng)輸入您要查找的操作員的代碼")</p><p>　　Data1.Recordset.FindFirst "czydm=" + "'" + dm + "'"</p><p>　　If Data1.Recordset.No

83、Match = True Then</p><p>　　MsgBox "查無(wú)此操作員"</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　Call disp4</p><p><b

84、>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command6_Click()</p><p>　　Command1.Enabled = False</p><p>　　Command2.Enabled = False<

85、/p><p>　　Command3.Enabled = False</p><p>　　Command4.Enabled = False</p><p>　　Command5.Enabled = False</p><p>　　Command6.Enabled = False</p><p>　　Command7.Enab

86、led = False</p><p>　　Command8.Enabled = False</p><p>　　Command9.Enabled = True</p><p>　　Command10.Enabled = True</p><p>　　Text1.Locked = False</p><p>　　Tex

87、t2.Locked = False</p><p>　　Text3.Locked = False</p><p>　　Text1.SetFocus</p><p><b>　　bz1 = 111</b></p><p><b>　　End Sub</b></p><p>　　

88、Private Sub Command7_Click()</p><p>　　Command1.Enabled = False</p><p>　　Command2.Enabled = False</p><p>　　Command3.Enabled = False</p><p>　　Command4.Enabled = False<

89、/p><p>　　Command5.Enabled = False</p><p>　　Command6.Enabled = False</p><p>　　Command7.Enabled = False</p><p>　　Command8.Enabled = False</p><p>　　Command9.Enab

90、led = True</p><p>　　Command10.Enabled = True</p><p>　　Text1.Locked = False</p><p>　　Text2.Locked = False</p><p>　　Text3.Locked = False</p><p>　　Text1.Text

91、= ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Text1.SetFocus</p><p><b>　　bz1 = 222</b></p><p>&

92、lt;b>　　End Sub</b></p><p>　　Private Sub Command8_Click()</p><p>　　k = MsgBox("您確認(rèn)要?jiǎng)h除名稱(chēng)為：" & Text2.Text & "的操作員嗎？", vbYesNo + 32)</p><p>　　If k =

93、 6 Then</p><p>　　If Text1.Text <> "00" Then</p><p>　　Data1.Recordset.Delete</p><p>　　Data1.Refresh</p><p>　　Call disp4</p><p><b>　　El

94、se</b></p><p>　　MsgBox "管理員記錄不能刪除"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　Else</b></p>&

95、lt;p>　　Call disp4</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command9_Click()</p><p>　　If bz1 = 111 Then</p>

96、<p>　　Data1.Recordset.Edit</p><p>　　Data1.Recordset.Fields(0) = Text1.Text</p><p>　　Data1.Recordset.Fields(1) = Text2.Text</p><p>　　Data1.Recordset.Fields(2) = Text3.Text</p

97、><p>　　Data1.Recordset.Update</p><p><b>　　End If</b></p><p>　　If bz1 = 222 Then</p><p>　　Data1.Recordset.FindFirst "czydm=" + "'" + Tex

98、t1.Text + "'"</p><p>　　If Data1.Recordset.NoMatch = False Then</p><p>　　MsgBox "操作員代碼重復(fù)，請(qǐng)重新輸入"</p><p><b>　　Exit Sub</b></p><p><b

99、>　　Else</b></p><p>　　Data1.Recordset.AddNew</p><p>　　Data1.Recordset.Fields(0) = Text1.Text</p><p>　　Data1.Recordset.Fields(1) = Text2.Text</p><p>　　Data1.Reco

100、rdset.Fields(2) = Text3.Text</p><p>　　Data1.Recordset.Update</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　Command1.Enabled = True</

101、p><p>　　Command2.Enabled = True</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = True</p><p>　　Command5.Enabled = True</p><p>　　Command6.Enabled =

102、 True</p><p>　　Command7.Enabled = True</p><p>　　Command8.Enabled = True</p><p>　　Command9.Enabled = False</p><p>　　Command1.SetFocus</p><p>　　Data1.Refresh

103、</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Activate()</p><p>　　Text1.Locked = True</p><p>　　Text2.Locked = True</p><p>　　Text3.Locked =

104、 True</p><p>　　Command1.SetFocus</p><p>　　Call disp4</p><p>　　Command9.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()

105、</p><p>　　Me.Top = 600</p><p>　　Me.Left = 1100</p><p>　　Data1.DatabaseName = App.Path + "\gzglxt.mdb"</p><p>　　Data1.RecordSource = "mmk"</p>

106、<p>　　Data1.Refresh</p><p><b>　　End Sub</b></p><p><b>　　3主界面設(shè)計(jì):</b></p><p><b>　　主界面代碼設(shè)計(jì):</b></p><p>　　Private Sub bmgl_Click()

107、</p><p>　　Form6.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub dgzb_Click()</p><p><b>　　Dr2.Show</b></p><p><b>　　End Sub&l

108、t;/b></p><p>　　Private Sub dgzt_Click()</p><p><b>　　Dr1.Show</b></p><p><b>　　End Sub</b></p><p>　　Private Sub dhzb_Click()</p><p&g

109、t;　　Form7.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub ggdx_Click()</p><p>　　Form3.Show</p><p><b>　　End Sub</b></p><p>　　Priva

110、te Sub gldx_Click()</p><p>　　Form4.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub lgdx_Click()</p><p>　　Form2.Show</p><p><b>　　End Sub

111、</b></p><p>　　Private Sub lrbm_Click()</p><p>　　Form1.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub MDIForm_Activate()</p><p>　　sb1.P

112、anels(2).Text = "操作員：" + czy</p><p>　　If bz > 0 And bz <> 0 Then</p><p>　　ggdx.Enabled = False</p><p>　　lgdx.Enabled = False</p><p>　　qxgl.Enabled =

113、False</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub qxgl_Click()</p><p>　　Form11.Show</p><p><b>　　End S

114、ub</b></p><p>　　Private Sub rygl_Click()</p><p>　　Form5.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub sjbf_Click()</p><p>　　Form9.Sho

115、w</p><p><b>　　End Sub</b></p><p>　　Private Sub sjhf_Click()</p><p>　　Form10.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub szbj_

116、Click()</p><p>　　Cd1.FileName = ""</p><p>　　Cd1.ShowOpen</p><p>　　Me.Picture = LoadPicture(Cd1.FileName)</p><p><b>　　End Sub</b></p><p&

117、gt;　　Private Sub tcxt_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer()</p><p>　　sb1.Panels(5).Text = &quo

118、t;日期：" & Date & " 時(shí)間：" & Time()</p><p><b>　　End Sub</b></p><p>　　Private Sub tkfa_Click()</p><p>　　MsgBox "此模塊為選做模塊，如果需要使用此模塊的功能，請(qǐng)與作者聯(lián)系&q

119、uot;</p><p><b>　　End Sub</b></p><p>　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p>　　Select Case Button.Index</p><p><b>

120、;　　Case 1</b></p><p>　　Form1.Show</p><p><b>　　Case 2</b></p><p>　　Form2.Show</p><p><b>　　Case 3</b></p><p>　　Form3.Show</p

121、><p><b>　　Case 4</b></p><p>　　Form4.Show</p><p><b>　　Case 5</b></p><p>　　Form5.Show</p><p><b>　　Case 6</b></p><

122、p>　　Form6.Show</p><p><b>　　Case 7</b></p><p><b>　　Dr1.Show</b></p><p><b>　　Case 8</b></p><p><b>　　Dr2.Show</b></p&

123、gt;<p><b>　　Case 9</b></p><p>　　Form7.Show</p><p><b>　　Case 10</b></p><p>　　Form8.Show</p><p><b>　　Case 11</b></p><

124、;p>　　Form9.Show</p><p><b>　　Case 12</b></p><p>　　Form10.Show</p><p><b>　　Case 13</b></p><p>　　Form11.Show</p><p><b>　　Case

125、 14</b></p><p>　　Call szbj_Click</p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　　Private Sub xtcs_Click()</p><p>　　Form8.Show</p&

126、gt;<p><b>　　End Sub</b></p><p><b>　　結(jié)束語(yǔ)</b></p><p>　　本軟件的設(shè)計(jì)目的是服務(wù)于企事業(yè)單位財(cái)務(wù)部門(mén)工資發(fā)放管理的需要提供方便和幫助。通過(guò)這幾個(gè)月的畢業(yè)設(shè)計(jì)，我學(xué)到很多以前沒(méi)有學(xué)到的visual basic開(kāi)發(fā)技術(shù)，在軟件工程學(xué)上更是取得了很大的進(jìn)步。經(jīng)過(guò)大量的測(cè)試和試用，作者

127、深信本軟件達(dá)到了方便和實(shí)用的設(shè)計(jì)目的，并在軟件界面和易用實(shí)用等方面有著獨(dú)到之處。</p><p>　　雖然軟件基本達(dá)到設(shè)計(jì)要求并且達(dá)到同行的先進(jìn)水平，但由于作者水平有限，軟件存在bug也是在所難免的 ，您的意見(jiàn)和建議將極大的幫助我改進(jìn)并完善軟件。真誠(chéng)的希望你的參與。</p><p><b>　　致謝</b></p><p>　　我首先感謝我的指

128、導(dǎo)老師*老師，在他嚴(yán)格的要求下我懂得了開(kāi)發(fā)軟件要有一種極其認(rèn)真負(fù)責(zé)的態(tài)度。無(wú)論做什么事都要大膽的去想去做，這樣會(huì)有好的創(chuàng)意，才能更有作為。</p><p><b>　　參 考 文 獻(xiàn)</b></p><p>　　1陳明 . 軟件工程學(xué)教程 .科技出版社，2002</p><p>　　2 薩師煊，王珊 . 數(shù)據(jù)庫(kù)系統(tǒng)概論 . 第三版 . 高等教育

129、出版社，2000</p><p>　　3 飛思科技產(chǎn)品研發(fā)中心 . visual basic 6.0數(shù)據(jù)庫(kù)應(yīng)用開(kāi)發(fā) .電子工業(yè)出版社，2003</p><p>　　4 飛思科技產(chǎn)品研發(fā)中心 . visual basic 6.0開(kāi)發(fā)者手冊(cè) . 電子工業(yè)出版社, 2002 </p><p>　　5 申旻 . visual basic 6.0高手突破 . 清華大學(xué)出版社，