2016職教Visual Basic程序設(shè)計(jì)教案：第五章 常用控件與應(yīng)用程序典型窗體的程序設(shè)計(jì)

1、第五章 常用控件與應(yīng)用程序典型窗體的程序設(shè)計(jì)在系統(tǒng)地學(xué)習(xí)了前四章內(nèi)容的基礎(chǔ)上，從本章開(kāi)始我們就可以一邊學(xué)習(xí)VB的常用控件，一邊深入地學(xué)習(xí)應(yīng)用程序的開(kāi)發(fā)與研制技術(shù)。本章所選的創(chuàng)建窗體與編程的例題，都是企業(yè)實(shí)際運(yùn)行的數(shù)據(jù)庫(kù)應(yīng)用軟件中的典型實(shí)例的簡(jiǎn)化，其中凝聚了顏華城教授長(zhǎng)期承擔(dān)開(kāi)發(fā)企業(yè)計(jì)算機(jī)管理信息系統(tǒng)的豐富經(jīng)驗(yàn)。認(rèn)真學(xué)習(xí)和掌握應(yīng)用程序典型窗體的程序設(shè)計(jì)，將有助于學(xué)習(xí)者盡快地勝任計(jì)算機(jī)應(yīng)用軟件的開(kāi)發(fā)與程序設(shè)計(jì)的實(shí)際工作?！颈菊陆虒W(xué)目標(biāo)】知識(shí)點(diǎn)：1. 常用控件的作用、屬性、方法。2常用控件的屬性及方法的設(shè)置。3. 在程序開(kāi)發(fā)中用戶操作權(quán)限及操作密碼的設(shè)計(jì)方法。4. 主控模塊的編制方法。5. 應(yīng)用程序

2、模塊的設(shè)計(jì)方法。技能點(diǎn)：1.理解并能正確設(shè)置常用控件的屬性。2.熟悉并基本掌握應(yīng)用程序的設(shè)計(jì)過(guò)程、熟練掌握功能模塊的設(shè)計(jì)方法。3.熟練掌握數(shù)據(jù)輸入、數(shù)據(jù)校驗(yàn)的模塊編制方法。4. 正確掌握應(yīng)用系統(tǒng)安全權(quán)限的原理及實(shí)現(xiàn)手段。5. 熟練掌握利用應(yīng)用程序?qū)?shù)據(jù)庫(kù)數(shù)據(jù)的操作(增加、修改、查找、刪除數(shù)據(jù))。6. 了解常用對(duì)話框的作用及設(shè)置方法。5.1 組合框、列表框和日歷控件【教學(xué)目標(biāo)】使學(xué)習(xí)者能夠掌握基本常用控件的創(chuàng)建和使用方法?！窘虒W(xué)要求】了解：組合框和列表框的作用。理解：ComboBox（組合框）的三種不同風(fēng)格。掌握：組合框和列表框的屬性及方法的設(shè)置方法?！颈竟?jié)重點(diǎn)】向組合框和列表框中添加元素及刪除

3、元素的方法。一、ComboBox（組合框）和ListBox（列表框）ComboBox（組合框）和ListBox（列表框）都是VB的兩個(gè)標(biāo)準(zhǔn)控件，也都是應(yīng)用程序中經(jīng)常出現(xiàn)的選擇性控件，兩者的功能、屬性和方法基本相同，主要區(qū)別是二者的顯示形式不完全相同并且ListBox（列表框）控件中沒(méi)有正文框。在應(yīng)用程序中二者的使用方法也有所不同，ComboBox（組合框）通常作為人機(jī)交互的控件擺放在窗體中，而ListBox（列表框）通常在設(shè)計(jì)時(shí)加以隱藏，直至在應(yīng)用程序運(yùn)行過(guò)程中當(dāng)需要輸入某項(xiàng)數(shù)據(jù)時(shí)再?gòu)棾隽斜?，供用戶選擇輸入數(shù)據(jù)。ComboBox（組合框）由一個(gè)正文框和一個(gè)列表框組合而成，ComboBox（組合

4、框）的列表框用于列出可供用戶選擇的數(shù)據(jù)項(xiàng)，當(dāng)列表框中沒(méi)有用戶所需選項(xiàng)時(shí)，允許用戶在文本框中輸入數(shù)據(jù)項(xiàng)，但輸入的內(nèi)容不能自動(dòng)添加到列表框中。若用戶選擇了列表框中的內(nèi)容，該內(nèi)容會(huì)被自動(dòng)裝入文本框中。ListBox（列表框）比較簡(jiǎn)單，它通過(guò)顯示多個(gè)選項(xiàng)供用戶選擇，如果選擇項(xiàng)太多，系統(tǒng)會(huì)自動(dòng)加上滾動(dòng)條。1、ComboBox（組合框）的三種不同風(fēng)格組合框具有三種不同的風(fēng)格，即下拉式組合框、簡(jiǎn)單組合框和下拉式列表框，此風(fēng)格由其Style屬性決定，圖5.1由左至右分別展示下拉式組合框、簡(jiǎn)單組合框和下拉式列表框的樣式。圖 5.1（1）下拉式組合框當(dāng)組合框的Style屬性為0（系統(tǒng)默認(rèn)）時(shí)，組合框?yàn)橄吕浇M合框

5、。其特點(diǎn)是顯示在屏幕上的是文本編輯框和下拉式箭頭，用戶可以在文本框內(nèi)鍵入內(nèi)容，也可單擊下拉箭頭，打開(kāi)列表框供用戶進(jìn)行選擇。（2）簡(jiǎn)單組合框當(dāng)組合框的Style屬性為1時(shí)，組合框?yàn)楹?jiǎn)單組合框。其特點(diǎn)是組合框中沒(méi)有下拉箭頭，列表框不能被收起和拉下，列表框中會(huì)自動(dòng)列出所有項(xiàng)目供用戶選擇。簡(jiǎn)單組合框也允許用戶在文本框內(nèi)輸入列表框中沒(méi)有的內(nèi)容。（3）下拉式列表框當(dāng)組合框的Style屬性為2時(shí)，組合框?yàn)橄吕搅斜砜?。其特點(diǎn)是：不能在文本框內(nèi)輸入列表框中沒(méi)有的內(nèi)容。2、ComboBox（組合框）和ListBox（列表框）常用的屬性（1） List屬性List屬性是一個(gè)字符型數(shù)組，該數(shù)組存放列表框中的項(xiàng)目。L

6、ist數(shù)組的下標(biāo)從0開(kāi)始，用戶既可以在設(shè)計(jì)中利用該屬性通過(guò)鍵盤輸入列表框中的項(xiàng)目，也可以在編程中設(shè)置或引用。（2） MultiSelect屬性MultiSelect屬性只能在設(shè)計(jì)時(shí)由用戶設(shè)置，其功能是設(shè)置用戶是否能在列表框中進(jìn)行多項(xiàng)選擇。MultiSelect屬性值及其含義如下：0 禁止多項(xiàng)選擇（系統(tǒng)默認(rèn)）1 簡(jiǎn)單多項(xiàng)選擇，鼠標(biāo)單擊或按空格鍵選定或取消某一項(xiàng)選擇2 擴(kuò)展多項(xiàng)選擇，按Shift鍵Ctrl或鍵選擇連續(xù)或不連續(xù)的多項(xiàng)（3） ListIndex屬性ListIndex屬性值表示執(zhí)行時(shí)選中的列表項(xiàng)目序號(hào)。該屬性只能在程序中設(shè)置或引用，若未選定任何項(xiàng)，則該屬性值為1。（4） ListCoun

7、t屬性ListCount屬性值表示列表框中項(xiàng)目的數(shù)量，該屬性只能在程序中設(shè)置或引用，ListCount 1表示最后一項(xiàng)。（5） Selected屬性Selected屬性是一個(gè)邏輯數(shù)組，其元素對(duì)應(yīng)列表框中相應(yīng)的項(xiàng)目，用于表示對(duì)應(yīng)的項(xiàng)目在程序運(yùn)行期間是否被選中。如，若Selected(0)的值為True，表示控件列表中的第一項(xiàng)被選中。該屬性只能在程序中設(shè)置或引用。3、ComboBox（組合框）和ListBox（列表框）常用方法（1）將一個(gè)項(xiàng)目加入到列表框中的AddItem方法 語(yǔ)法格式：.AddItem ，index 語(yǔ)句說(shuō)明：對(duì)象：表示列表框或組合框。Index：表示所加項(xiàng)目的序號(hào)，若省略序號(hào)，

8、項(xiàng)目?jī)?nèi)容加在最后。（2）刪除列表框中一個(gè)項(xiàng)目的RemoveItem方法 語(yǔ)法格式：.RemoveItem index 語(yǔ)句說(shuō)明：對(duì)象：表示列表框或組合框。index表示被刪除項(xiàng)目的序號(hào)。（3）清除列表框中全部?jī)?nèi)容的Clear方法 語(yǔ)法格式：.Clear 語(yǔ)句說(shuō)明：對(duì)象：表示列表框或組合框。二、Calendar（日歷）控件Calendar（日歷）控件用于顯示系統(tǒng)日期并供用戶更改進(jìn)入應(yīng)用程序的操作日期。計(jì)算機(jī)管理信息系統(tǒng)為實(shí)現(xiàn)自動(dòng)在文檔中記錄操作日期以及控制管理信息系統(tǒng)的操作進(jìn)程等現(xiàn)實(shí)需求，在進(jìn)入系統(tǒng)操作前通常都要求用戶確認(rèn)或選擇操作日期，并自動(dòng)保存操作日期，因此我們有必要學(xué)習(xí)和熟悉Calenda

9、r（日歷）控件。Calendar（日歷）控件不是VB的標(biāo)準(zhǔn)控件，在使用前需要人為地通過(guò)VB系統(tǒng)菜單的“工程”中“部件”功能將控件添加到工具箱中，添加的項(xiàng)目是：Microsoft Calendar Control 8.0。Calendar控件的樣式如下圖所示：圖 5.21、 Calendar（日歷）控件的常用屬性（1） Calendar（日歷）控件的基本屬性Calendar（日歷）控件也如同其他VB控件一樣具有如下的基本屬性：名稱、Backcolor、Height、Width、Top、Left、Visible等。（2） Value屬性Calendar（日歷）控件的Value屬性值是一個(gè)日期型數(shù)據(jù)

10、，該數(shù)據(jù)表示Calendar（日歷）控件中顯示的日期。（3） Year、Month、Day屬性Calendar（日歷）的Year、Month、Day屬性均為數(shù)值型數(shù)據(jù)，分別用于表示Calendar（日歷）控件中的年、月、日的數(shù)字值。（4） Calendar（日歷）的屬性頁(yè)在設(shè)計(jì)中用戶可通過(guò)Calendar（日歷）的屬性頁(yè)完成對(duì)Calendar（日歷）控件的樣式及需求設(shè)計(jì)。Calendar（日歷）的屬性頁(yè)如圖5.3所示：圖 5.32、 Calendar（日歷）控件常用方法（1） SetFocus和Refresh方法Calendar（日歷）控件也有獲得焦點(diǎn)的SetFocus方法和刷新的Refres

11、h方法，其語(yǔ)法格式和功能與TextBox控件的基本相同，在此不再贅述。（2） NextDay、NextMonth、NextWeek、NextYear和PreviousDay、PreviousMonth、PreviousWeek、PreviousYear方法Calendar（日歷）控件的NextDay、NextMonth、NextWeek、NextYear和PreviousDay、PreviousMonth、PreviousWeek、PreviousYear方法是該控件特有的方法，分別用于將當(dāng)前日期向后或向前移動(dòng)一天、一個(gè)月、一周、一年。例如：假設(shè)當(dāng)前日期是2004年3月11日，當(dāng)程序執(zhí)行了：C

12、alendar1.NextDay語(yǔ)句后，Calendar1控件所顯示的日期就會(huì)變更為：2004年3月12日。5.2 操作權(quán)限確認(rèn)和操作密碼修改窗體的設(shè)計(jì)為了確保應(yīng)用程序不被非法使用并保證合法操作者按規(guī)定的操作權(quán)限進(jìn)行應(yīng)用程序的操作，操作權(quán)限確認(rèn)和操作密碼修改兩個(gè)窗體是大多數(shù)管理信息系統(tǒng)應(yīng)用程序所必需的。操作權(quán)限確認(rèn)窗體通常用于在用戶進(jìn)入應(yīng)用程序系統(tǒng)前對(duì)操作者的身份和操作權(quán)限進(jìn)行認(rèn)證和檢驗(yàn)，操作密碼修改窗體用于操作者隨時(shí)修改自己的操作密碼以防被其他人盜用。【教學(xué)目標(biāo)】通過(guò)應(yīng)用軟件開(kāi)發(fā)研制實(shí)例的學(xué)習(xí)，使學(xué)習(xí)者能夠初步掌握現(xiàn)代應(yīng)用軟件的開(kāi)發(fā)方法和編程技術(shù)?！窘虒W(xué)要求】了解：在通用模塊中定義全局變量的

13、方法。理解：操作權(quán)限的設(shè)計(jì)思想。掌握：應(yīng)用程序安全性的保證機(jī)制。 應(yīng)用程序的窗體設(shè)計(jì)過(guò)程。 對(duì)象的事件代碼編寫。 如何在工程中定義全局性變量?！颈竟?jié)重點(diǎn)】 如何在應(yīng)用程序中設(shè)置用戶的操作權(quán)限。應(yīng)用程序的設(shè)計(jì)過(guò)程：窗體設(shè)計(jì)（界面設(shè)計(jì)）、事件代碼的編寫、通過(guò)數(shù)據(jù)控件操作數(shù)據(jù)庫(kù)?！颈竟?jié)難點(diǎn)】 操作密碼校驗(yàn)編程。一、 操作權(quán)限確認(rèn)和操作密碼修改模塊的設(shè)計(jì)要求與設(shè)計(jì)思想1、 操作權(quán)限確認(rèn)模塊的設(shè)計(jì)要求與設(shè)計(jì)思想（1） 提供進(jìn)入應(yīng)用程序操作日期的選擇功能，并將操作日期保存到全局性變量S_rq中，以便在應(yīng)用程序的操作中自動(dòng)記錄操作日期以及進(jìn)行應(yīng)用程序的操作進(jìn)程控制。（2） 要求用戶選擇操作者的姓名并要求輸入

14、操作密碼，在操作密碼的輸入過(guò)程中要求能夠?qū)斎氲牟僮髅艽a屏蔽。（3） 當(dāng)用戶輸入操作密碼后，能夠?qū)⒂脩糨斎氲牟僮髅艽a與系統(tǒng)連接的數(shù)據(jù)庫(kù)中“操作人員表”中相應(yīng)記錄中的操作密碼進(jìn)行比較，若用戶輸入的操作密碼無(wú)誤，則令系統(tǒng)自動(dòng)將操作者姓名記錄到全局變量S_xm，將操作權(quán)限自動(dòng)記錄到全局變量S_qx中；若用戶輸入的操作密碼有誤，系統(tǒng)予以提示并要求用戶重新輸入。當(dāng)用戶三次輸入操作密碼有誤，則表明操作者是非法操作，系統(tǒng)會(huì)自動(dòng)終止應(yīng)用程序的運(yùn)行，返回Windows系統(tǒng)。（4） 為確保操作密碼的安全性，應(yīng)用程序的任何操作者（包括系統(tǒng)管理員）均無(wú)權(quán)設(shè)置或更改其他操作人員的操作密碼，這就需要由應(yīng)用程序自動(dòng)對(duì)其合法

15、注冊(cè)的操作人員賦值一個(gè)初始的操作密碼（如，初始的操作密碼為：1111），初始的操作密碼僅用于合法操作者第一次進(jìn)入應(yīng)用程序使用，因此操作權(quán)限確認(rèn)模塊還擔(dān)負(fù)著判別初始操作密碼并強(qiáng)制性令操作者更改初始密碼的使命。2、 操作密碼修改模塊的設(shè)計(jì)要求與設(shè)計(jì)思想（1） 能夠根據(jù)操作者輸入的“姓名”信息，在應(yīng)用程序所連接的數(shù)據(jù)庫(kù)的“操作人員表”中正確查找到相應(yīng)的記錄，以確保操作者只能更改自己的操作密碼。（2） 提供用戶輸入原操作密碼和新操作密碼以及對(duì)新操作密碼確認(rèn)的功能，并要求在操作密碼的輸入過(guò)程中要求能夠?qū)斎氲牟僮髅艽a屏蔽。（3） 當(dāng)用戶輸入有誤時(shí)系統(tǒng)自動(dòng)應(yīng)予以提示，并進(jìn)行錯(cuò)誤鎖定。當(dāng)用戶輸入無(wú)誤時(shí)系統(tǒng)應(yīng)

16、提供自動(dòng)更新操作者操作密碼的功能。二、 應(yīng)用程序標(biāo)準(zhǔn)模塊的添加與設(shè)計(jì)由于應(yīng)用程序中通常需要使用一批全局性的內(nèi)存變量和全局性過(guò)程或函數(shù)，因此在應(yīng)用程序的工程中通常都需要添加標(biāo)準(zhǔn)模塊，并在標(biāo)準(zhǔn)模塊中用Public語(yǔ)句聲明應(yīng)用程序所引用的全局性變量、過(guò)程或函數(shù)。例如，在本應(yīng)用程序?qū)嵗刑砑訕?biāo)準(zhǔn)模塊，并寫入如下的聲明語(yǔ)句：Public S_RQ As DatePublic S_xm, S_qx As StringPublic csh As Integer S_xm 表示操作者姓名、S_rq 表示操作日期、S_qx 表示操作權(quán)限 csh 表示操作者輸入操作密碼的次數(shù)三、 操作權(quán)限確認(rèn)和操作密碼修改窗體的

17、設(shè)計(jì)1、 操作權(quán)限確認(rèn)窗體設(shè)計(jì)操作權(quán)限確認(rèn)窗體的設(shè)計(jì)中主要包括一個(gè)ADO數(shù)據(jù)控件、一個(gè)日歷控件、一個(gè)組合列表框控件、一個(gè)文本框控件、一個(gè)形狀控件、一個(gè)圖形控件、兩個(gè)命令按鈕以及四個(gè)標(biāo)簽控件。窗體樣式如圖5.4所示：圖 5.4（1） 窗體本身的設(shè)計(jì)操作權(quán)限確認(rèn)窗體的名稱應(yīng)定義為漢字名稱，以便于在應(yīng)用程序中識(shí)別和調(diào)用。窗體在設(shè)計(jì)時(shí)應(yīng)取消窗體原有的標(biāo)題攔以及控制按鈕，使窗體只能按照應(yīng)用程序提供的各項(xiàng)功能進(jìn)行操作。窗體的背景色在本應(yīng)用實(shí)例中采用過(guò)渡雙色，要到達(dá)這一效果需要對(duì)窗體的Picture屬性進(jìn)行設(shè)置。設(shè)置的方法是：首先在Microsoft Word或Microsoft PowerPoint中畫出

18、一個(gè)矩形圖，并填充該矩形的效果為過(guò)渡雙色，最后復(fù)制矩形圖并粘貼到窗體的Picture屬性中。（2） ADO數(shù)據(jù)控件的設(shè)計(jì)ADO數(shù)據(jù)控件的名稱采用VB系統(tǒng)默認(rèn)的名：Adodc1。在設(shè)計(jì)中需通過(guò)控件的屬性進(jìn)行以下設(shè)置： 設(shè)置Visible屬性為：False； 設(shè)置ConnectionString屬性為：連接D盤zlgl子目錄下的zlgl.mdb數(shù)據(jù)庫(kù)； 設(shè)置Password屬性為：所連接zlgl.mdb數(shù)據(jù)庫(kù)的密碼口令； 設(shè)置Recordsouce屬性為：Select * from 操作人員表。（3） 日歷控件設(shè)計(jì)日歷控件的名稱為：Calendar1。日歷控件在設(shè)計(jì)中可利用其屬性頁(yè)取消控件的星期標(biāo)

19、識(shí)，并對(duì)控件的顏色進(jìn)行設(shè)置。（4） 組合列表框控件設(shè)計(jì)組合列表框的名稱為：Combo1，在設(shè)計(jì)中只需通過(guò)控件屬性將文字設(shè)置為“宋體”5號(hào)字，并將其中的文本框背景顏色設(shè)置為橙色即可。（5） 文本框控件設(shè)計(jì)文本框的名稱為：Text1，在設(shè)計(jì)中需通過(guò)控件屬性進(jìn)行如下設(shè)置： 設(shè)置文字屬性為“宋體”5號(hào)字； 設(shè)置BackColor屬性為：橙色； 設(shè)置PasswordChar屬性為：*； 設(shè)置Maxlength屬性為：4； 設(shè)置Text屬性為：空。（6） 形狀控件設(shè)計(jì)形狀控件的名稱為：Shape1，在設(shè)計(jì)中只需通過(guò)控件屬性將其BackStyle設(shè)置為“0-Transparent”，并將BorderWidt

20、h設(shè)置為2，設(shè)置后的控件效果為一個(gè)黑色的矩形框。（7） 圖形控件設(shè)計(jì)圖形控件的名稱為：Image1，在設(shè)計(jì)中只需通過(guò)控件屬性將Picture設(shè)置為所需圖片并將Stretch屬性設(shè)置為True即可。（8） 命令按鈕設(shè)計(jì)命令按鈕的名稱為：cmdOk和cmdClose。在設(shè)計(jì)中需通過(guò)控件屬性進(jìn)行以下設(shè)置： 設(shè)置Style屬性為：1-Graphical； 設(shè)置BackColor屬性為：橙色； 設(shè)置Picture屬性為：一個(gè)圖標(biāo)； 設(shè)置 cmdOk命令按鈕的TooltipText屬性中的漢字提示為：“確認(rèn)”； 設(shè)置cmdClose命令按鈕的TooltipText屬性中漢字提示為：“退出”。2、 操作密碼

21、修改窗體的設(shè)計(jì)操作密碼修改窗體的名稱定義為：“操作密碼修改”，窗體的界面風(fēng)格與操作權(quán)限確認(rèn)窗體基本一致，但長(zhǎng)度和寬度要小。操作密碼修改窗體的設(shè)計(jì)中主要包括一個(gè)ADO數(shù)據(jù)控件、三個(gè)文本框控件、兩個(gè)命令按鈕以及五個(gè)標(biāo)簽控件。由于窗體中的控件與“操作權(quán)限確認(rèn)”窗體中的相應(yīng)控件相同，在此就不再贅述。窗體樣式如圖5.5所示：圖 5.5四、 操作權(quán)限確認(rèn)和操作密碼修改窗體的事件編程1、 操作權(quán)限確認(rèn)窗體事件編程操作權(quán)限確認(rèn)窗體的主要事件是：Form-Load和兩個(gè)命令按鈕的鼠標(biāo)單擊事件。（1）Form-Load事件程序Private Sub Form_Load()向組合列表框中添加“操作人員表”中已注冊(cè)的

22、操作人員姓名 Adodc1.Refresh Do While Not Adodc1.Recordset.EOF If IsNull(Adodc1.Recordset!操作權(quán)限) = False Then Combo1.AddItem Adodc1.Recordset!姓名 End If Adodc1.Recordset.MoveNext Loop Adodc1.Recordset.MoveFirstEnd Sub（2）“確認(rèn)”命令按鈕的鼠標(biāo)單擊事件程序Private Sub cmdOk_Click()If Len(Trim(Combo1) 0 Or Len(Trim(Text1) 0 Then

23、MsgBox 沒(méi)有輸入姓名或操作密碼 ！Exit SubEnd IfS_XM = Trim(Combo1)Dim zhd As Booleanzhd = False With Adodc1.Recordset.MoveFirstDo While Not .EOF If S_XM = !姓名 And kl = !操作密碼 Then zhd = TrueExit Do End If .MoveNext LoopEnd WithIf zhd Then S_RQ = Calendar1.Value S_QX = Adodc1.Recordset!操作權(quán)限 If Text1 = 1111 Then 操作

24、密碼修改.Show 1 Unload 操作權(quán)限確認(rèn) 系統(tǒng)總控.Show 1 Else csh = csh + 1 If csh = 3 Then MsgBox 非法操作！ End Else MsgBox 無(wú)效的操作密碼，請(qǐng)重試!, , 登錄 Text1.Text = Combo1.Clear Form_load End IfEnd IfEnd Sub（3）“退出”命令按鈕的鼠標(biāo)單擊事件程序Private Sub cmdClose_Click()EndEnd If2、 操作密碼修改窗體事件編程操作密碼修改窗體的主要事件是：兩個(gè)命令按鈕的鼠標(biāo)單擊事件。（1） 操作密碼修改窗體中“確認(rèn)”命令按鈕的鼠

25、標(biāo)單擊事件程序Private Sub cmdOk_Click()驗(yàn)證用戶輸入的新密碼的正確性以及兩次輸入的密碼是否一致If Text2 Text3 Or Len(Text2) 4 Or Text2 = 1111 ThenMsgBox 輸入的新密碼不符合規(guī)則或兩次輸入的密碼不符 ！ Text2=:Text3= Exit SubEnd If驗(yàn)證用戶輸入的新密碼是否與其他操作人員的操作密碼沖突Adodc1.RefreshAdodc1.Recordset.MoveFirstsql = 操作密碼= & Text2.Text & Adodc1.Recordset.Filter = sqlIf Adodc1

26、.Recordset.RecordCount = 1 Then MsgBox 輸入的新密碼與其他操作人員沖突 ！請(qǐng)重新定義新密碼！ Exit SubEnd If驗(yàn)證用戶輸入的舊密碼是否正確Adodc1.RefreshAdodc1.Recordset.MoveFirstsql = 操作密碼= & Text1.Text & + and 姓名= + + S_XM + Adodc1.Recordset.Filter = sqlIf Adodc1.Recordset.RecordCount = 0 ThenMsgBox 輸入的舊密碼有誤 ！ Text1= Exit SubEnd If更改用戶操作密碼Ad

27、odc1.Recordset!操作密碼 = Text2Adodc1.Recordset.UpdateBatchMsgBox 密碼修改成功!, 0Unload MeEnd Sub（2） 操作密碼修改窗體中“退出”命令按鈕的鼠標(biāo)單擊事件程序Private Sub cmdClose_Click() Unload MeEnd Sub5.3 SSTab控件和系統(tǒng)總控窗體的設(shè)計(jì)任何一個(gè)計(jì)算機(jī)管理信息系統(tǒng)都有一個(gè)用于調(diào)用系統(tǒng)內(nèi)部各項(xiàng)功能模塊的系統(tǒng)總控功能，系統(tǒng)總控功能通常使用菜單或功能模塊圖標(biāo)組來(lái)實(shí)現(xiàn)，VB中的菜單創(chuàng)建比較簡(jiǎn)單，本節(jié)我們將介紹功能模塊圖標(biāo)組模式的系統(tǒng)總控窗體的創(chuàng)建。使用系統(tǒng)功能模塊圖標(biāo)組來(lái)實(shí)

28、現(xiàn)管理信息系統(tǒng)的總控功能是當(dāng)今比較流行的方法，其優(yōu)點(diǎn)是：用戶界面美觀、友好，操作也比較方便。系統(tǒng)總控功能不但具有調(diào)用系統(tǒng)內(nèi)部各項(xiàng)功能模塊的功能，而且還承擔(dān)著保證操作者按規(guī)定的操作權(quán)限進(jìn)行應(yīng)用程序操作的任務(wù)。由于系統(tǒng)總控窗體的設(shè)計(jì)中需要使用SSTab（多選項(xiàng)卡）控件，因此我們首先介紹VB中的SSTab（多選項(xiàng)卡）控件?！窘虒W(xué)目標(biāo)】通過(guò)編制系統(tǒng)總控實(shí)例的程序，使學(xué)習(xí)者能夠掌握SSTab控件的使用方法，并進(jìn)一步學(xué)習(xí)應(yīng)用軟件的開(kāi)發(fā)方法和編程技術(shù)。【教學(xué)要求】了解：控件數(shù)組的結(jié)構(gòu)及使用方法。理解：應(yīng)用程序主程序的設(shè)計(jì)方法。掌握：多選項(xiàng)卡控件的作用及設(shè)置方法； 在主程序中調(diào)用功能模塊的方法?！颈竟?jié)重點(diǎn)】

29、如何設(shè)計(jì)應(yīng)用程序的總控程序及各功能模塊的調(diào)用方法。 用戶操作權(quán)限的檢查。一、 SSTab（多選項(xiàng)卡）控件SSTab（多選項(xiàng)卡）控件中有一組選項(xiàng)卡，它們都能夠作為其他控件的容器。SSTab控件中一次只能有一個(gè)選項(xiàng)卡被激活，當(dāng)某個(gè)選項(xiàng)卡被激活后，該卡中包含的控件被顯示出來(lái)，而其他選項(xiàng)卡的控件將被隱藏。SSTab（多選項(xiàng)卡）控件不是VB的標(biāo)準(zhǔn)控件，需要通過(guò)“工程”菜單中的“部件”功能向工具箱中添加SSTab控件，添加的選項(xiàng)是：Microsoft Tabbed Dialog Control 6.0。1、 設(shè)置SSTab 的選項(xiàng)卡的頁(yè)數(shù)及標(biāo)題在進(jìn)行SSTab（多選項(xiàng)卡）控件的設(shè)計(jì)中主要使用的設(shè)計(jì)工具是其

30、頁(yè)屬性，SSTab控件的頁(yè)屬性中也包含一個(gè)SSTab（多選項(xiàng)卡）控件，利用頁(yè)屬性我們可以根據(jù)自己的需要對(duì)SSTab（多選項(xiàng)卡）控件的樣式進(jìn)行設(shè)計(jì)。SSTab（多選項(xiàng)卡）控件的頁(yè)屬性如圖5.6所示：圖 5.62、SSTab常用屬性的設(shè)置（1）StyleStyle屬性決定SSTab控件上選項(xiàng)卡的樣式。屬性值有兩個(gè)：0 （默認(rèn)）選項(xiàng)卡上字體為粗體；1 選項(xiàng)卡寬度調(diào)整為標(biāo)題中文本的長(zhǎng)度，字體非粗體。（2）TabTab屬性決定SSTab控件上的當(dāng)前選項(xiàng)卡。（3）TabsTabs屬性決定SSTab控件上選項(xiàng)卡總數(shù)量。在程序運(yùn)行時(shí)也可更改該屬性，從而添加新的選項(xiàng)卡。（4）TabsPerRow和RowsTab

31、sPerRow屬性決定SSTab控件中每一行選項(xiàng)卡的數(shù)目，而Rows決定SSTab控件中選項(xiàng)卡的總行數(shù)。（6）ShowFocusrectShowFocusrect屬性用于設(shè)置或返回SSTab控件上獲得焦點(diǎn)的選項(xiàng)卡，屬性值為True和False。其中True表示控件顯示焦點(diǎn)矩形；False表示控件不顯示焦點(diǎn)矩形。二、 系統(tǒng)總控模塊的設(shè)計(jì)要求與設(shè)計(jì)思想我們以“建筑物資租賃管理系統(tǒng)”為例，介紹系統(tǒng)總控模塊的設(shè)計(jì)要求與設(shè)計(jì)思想。建筑物資租賃管理系統(tǒng)中包括的功能較多，共分為9個(gè)子系統(tǒng)，這9個(gè)子系統(tǒng)中又包括60個(gè)功能模塊，每個(gè)功能模塊對(duì)應(yīng)一個(gè)窗體，其中部分功能模塊中還包括若干個(gè)子功能模塊，但這些子功能模塊

32、不由系統(tǒng)總控模塊直接控制。系統(tǒng)總控模塊的設(shè)計(jì)要求與設(shè)計(jì)思想如下：1、 用戶進(jìn)入系統(tǒng)總控模塊后，首先展示用戶操作頻率最高的“租賃物資管理”子系統(tǒng)操作界面，供用戶選擇其中任一功能進(jìn)行操作。用戶也可以根據(jù)需要選擇系統(tǒng)中的其他任意一個(gè)子系統(tǒng)以及子系統(tǒng)中包含的功能模塊進(jìn)行操作。2、 系統(tǒng)總控界面應(yīng)顯示系統(tǒng)的操作日期和操作人員姓名。3、 當(dāng)用戶選擇操作某功能模塊時(shí)，系統(tǒng)應(yīng)首先檢驗(yàn)操作者的操作權(quán)限，若操作者不具有本模塊的操作權(quán)限，應(yīng)予提示并拒絕執(zhí)行。4、 系統(tǒng)總控模塊應(yīng)具有退出建筑物資租賃管理系統(tǒng)返回Windows的功能。三、 系統(tǒng)總控窗體的設(shè)計(jì)系統(tǒng)總控窗體的設(shè)計(jì)中主要包括一個(gè)SSTab（多選項(xiàng)卡）控件、一

33、個(gè)命令按鈕控件數(shù)組（包括10個(gè)控件元素）、一個(gè)Picture控件數(shù)組（包括8個(gè)控件元素）、8個(gè)圖形（Image）控件數(shù)組、8個(gè)標(biāo)簽控件數(shù)組以及3個(gè)標(biāo)簽控件。窗體樣式如圖5.7所示：圖 5.71、 SSTab（多選項(xiàng)卡）控件設(shè)計(jì)在SSTab（多選項(xiàng)卡）的設(shè)計(jì)中我們將選項(xiàng)卡的高度設(shè)計(jì)為1，即在控件中不顯示卡標(biāo)和卡標(biāo)題，使SSTab成為8頁(yè)的容器，這8頁(yè)中的內(nèi)容可通過(guò)一組命令按鈕的鼠標(biāo)單擊事件進(jìn)行轉(zhuǎn)換展示。（1） SSTab（多選項(xiàng)卡）屬性頁(yè)的設(shè)置 選項(xiàng)卡數(shù)：8； 選項(xiàng)卡高度：1； 顯示焦點(diǎn)區(qū)域：不選。（2） SSTab（多選項(xiàng)卡）屬性的設(shè)置對(duì)SSTab（多選項(xiàng)卡）主要進(jìn)行大小和位置的設(shè)置。主要設(shè)置

34、的屬性有：Left :180；Top：1400；Width：11500；Height:7300。2、 命令按鈕控件數(shù)組和Picture控件數(shù)組的設(shè)計(jì)命令按鈕控件數(shù)組和Picture控件組均設(shè)計(jì)為控件數(shù)組。其中命令按鈕控件數(shù)組中共有10個(gè)控件，依次為：Command1(0)、Command1(1)、Command1(2)、Command1(9)。命令按鈕樣式為：1Graphical；字體為：楷體加粗四號(hào)；背景顏色為：橙色；按鈕上顯示的文字為圖5.7所示。Picture控件數(shù)組中共有8個(gè)控件，這8個(gè)Picture控件作為白色背景分別鑲嵌在SSTab（多選項(xiàng)卡）控件的8頁(yè)中。3、 8個(gè)圖形（Imag

35、e）控件數(shù)組和8個(gè)標(biāo)簽控件數(shù)組的設(shè)計(jì)系統(tǒng)總控中的8個(gè)圖形（Image）控件數(shù)組和8個(gè)標(biāo)簽控件數(shù)組分別鑲嵌在8個(gè)Picture控件數(shù)組元素中，共有60個(gè)Image控件數(shù)組元素和60個(gè)Label控件數(shù)組元素。60個(gè)Image控件數(shù)組元素如下：Image1(0)、Image1(1)、Image1(2)、Image1(3)、Image1(8)Image2(0)、Image2(1)、Image2(2)、Image2(3)、Image2(10)Image3(0)、Image3(1)、Image3(2)、Image3(3)、Image3(8)Image4(0)、Image4(1)、Image4(2)、Ima

36、ge4(3)、Image4(4)、Image4(5)Image5(0)、Image5(1)、Image5(2)、Image5(3)、Image5(8)Image6(0)、Image6(1)、Image6(2)、Image6(3)、Image6(4)Image7(0)、Image7(1)、Image7(2)、Image7(3)、Image7(4)Image8(0)、Image8(1)、Image8(2)、Image8(3)、Image8(4)、Image8(5)60個(gè)Label控件數(shù)組與Image控件數(shù)組的元素一一對(duì)應(yīng)，每一個(gè)Image數(shù)組元素中裝載一個(gè)圖標(biāo)文件，與之對(duì)應(yīng)的標(biāo)簽控件數(shù)組元素用于圖

37、標(biāo)的漢字標(biāo)注。4、 三個(gè)標(biāo)簽控件總控窗體中的三個(gè)標(biāo)簽控件，分別用于標(biāo)識(shí)窗體、顯示操作日期和操作人員姓名。四、 系統(tǒng)總控窗體的事件編程需要在系統(tǒng)總控窗體中進(jìn)行編程的事件較多，主要的編程事件有：Form_load事件、命令按鈕的鼠標(biāo)單擊事件、8個(gè)圖形（Image）控件的鼠標(biāo)單擊事件和8個(gè)標(biāo)簽控件的鼠標(biāo)單擊事件。1、 系統(tǒng)總控窗體的Form_load 事件程序Private Sub Form_Load()令系統(tǒng)展示用戶操作頻率最高的“租賃物資管理”子系統(tǒng)操作界面SSTab1.Tab = 3 Label10 = S_rq 顯示系統(tǒng)的操作日期Label11=操作人員： + S_xm 顯示系統(tǒng)的操作人員姓

38、名End Sub2、 命令按鈕控件的鼠標(biāo)單擊事件程序命令按鈕數(shù)組中共有10個(gè)命令按鈕控件元素，由于是控件數(shù)組編程，所以這10個(gè)命令按鈕鼠標(biāo)單擊事件為一個(gè)程序，在編程中需要通過(guò)Index的值來(lái)判斷用戶鼠標(biāo)單擊的是哪一個(gè)命令按鈕控件元素。在這10個(gè)命令按鈕控件元素中有兩個(gè)較特殊的命令按鈕，一個(gè)是Command1(0)，其功能為退出建筑物資租賃管理系統(tǒng)返回Windows，另一個(gè)是Command1(9)，其功能為調(diào)用外部的Symantec pcAnywhere 遠(yuǎn)程控制程序，進(jìn)行數(shù)據(jù)文件的遠(yuǎn)程網(wǎng)絡(luò)傳輸，其余8個(gè)命令按鈕的鼠標(biāo)單擊事件均用于SSTab中8頁(yè)內(nèi)容的轉(zhuǎn)換展示。命令按鈕組的鼠標(biāo)單擊事件程序如下

39、：Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0 Unload Me End 確定退出系統(tǒng)Case 1SSTab1.Tab = 0Case 2SSTab1.Tab = 1 Case 3SSTab1.Tab = 2Case 4SSTab1.Tab = 3 Case 5SSTab1.Tab = 4Case 6SSTab1.Tab = 5 Case 7SSTab1.Tab = 6Case 8SSTab1.Tab = 7 Case 9ff = InStr(1, S_QX, H, 1)If ff = 0 Then M

40、sgBox 你沒(méi)有數(shù)據(jù)文件網(wǎng)絡(luò)傳輸?shù)臋?quán)限 ！, 0 + 48, 提示信息 Exit SubEnd Ifxxx = MsgBox(是否傳輸數(shù)據(jù)庫(kù)文件?, vbOKCancel)If xxx = vbCancel Then Exit Subaa = Shell(C:Program FilesSymantecpcAnywhereWINAW32.EXE, 1)End SelectEnd Sub3、 8個(gè)Image控件和Label控件的鼠標(biāo)單擊事件總控窗體中的8個(gè)Image控件和Label控件的鼠標(biāo)單擊事件，用于調(diào)用建筑物資租賃管理系統(tǒng)的60個(gè)功能模塊。每一個(gè)Image控件數(shù)組對(duì)應(yīng)著一個(gè)Label控件數(shù)

41、組，由于兩個(gè)對(duì)應(yīng)控件中相應(yīng)數(shù)組元素的功能完全相同，所以其事件中的程序完全相同。下面給出第一個(gè)Image控件鼠標(biāo)單擊事件的程序，其他7個(gè)Image控件和Label控件的鼠標(biāo)單擊事件程序可參照此程序。Private Sub Image1_Click(Index As Integer)Select Case IndexCase 1ff = InStr(1, S_QX, B, 1)If ff 0 Then 系統(tǒng)初始設(shè)置.Show 1Else MsgBox 你沒(méi)有系統(tǒng)初始設(shè)置的權(quán)限 ！, 0 + 48, 提示信息End IfCase 2ff = InStr(1, S_QX, A, 1)If ff 0 T

42、hen 操作人員管理.Show 1Else MsgBox 你沒(méi)有操作人員管理的權(quán)限 ！, 0 + 48, 提示信息End IfCase 3ff = InStr(1, S_QX, B, 1)If ff 0 Then 庫(kù)存物資注冊(cè).Show 1Else MsgBox 你沒(méi)有庫(kù)存物資注冊(cè)的權(quán)限 ！, 0 + 48, 提示信息End IfCase 4ff = InStr(1, S_QX, B, 1)If ff 0 Then 物資殘損賠償計(jì)價(jià)設(shè)置.Show 1Else MsgBox 你沒(méi)有物資殘損賠償計(jì)價(jià)設(shè)置的權(quán)限 ！, 0 + 48, 提示信息End IfCase 5ff = InStr(1, S_Q

43、X, F, 1)If ff 0 Then 客戶注冊(cè).Show 1Else MsgBox 你沒(méi)有客戶注冊(cè)的權(quán)限 ！, 0 + 48, 提示信息End IfCase 6ff = InStr(1, S_QX, F, 1)If ff 0 Then 簽訂合同.Show 1Else MsgBox 你沒(méi)有合同登記的權(quán)限 ！, 0 + 48, 提示信息End IfCase 7ff = InStr(1, S_QX, A, 1)If ff 0 Then 站廠名稱注冊(cè).Show 1Else MsgBox 你沒(méi)有站廠名稱的權(quán)限 ！, 0 + 48, 提示信息End IfCase 8ff = InStr(1, S_QX

44、, B, 1)If ff 0 Then 出門證.Show 1Else MsgBox 你沒(méi)有結(jié)轉(zhuǎn)手工賬的權(quán)限 ！, 0 + 48, 提示信息End IfCase 9ff = InStr(1, S_QX, B, 1)If ff 0 Then txlx = 1 租賃物資收入登賬.Show 1Else MsgBox 你沒(méi)有結(jié)轉(zhuǎn)手工賬的權(quán)限 ！, 0 + 48, 提示信息End IfEnd SelectEnd Sub注：與Imange1控件數(shù)組對(duì)應(yīng)的Label1控件數(shù)組的鼠標(biāo)單擊事件為：Private Sub label1_Click(Index As Integer)End Sub5.4 檢查框、單選

45、按鈕控件和操作人員管理窗體的設(shè)計(jì)為保證計(jì)算機(jī)管理信息系統(tǒng)不被外部人員非法操作，并保證內(nèi)部操作人員能夠按規(guī)定的操作權(quán)限對(duì)系統(tǒng)進(jìn)行正常操作，計(jì)算機(jī)管理信息系統(tǒng)都有一個(gè)操作人員管理的窗體用以完成對(duì)系統(tǒng)操作人員登記注冊(cè)并賦予操作權(quán)限的工作。操作人員管理的主要功能是：操作人員登記注冊(cè)、賦值操作權(quán)限、對(duì)新注冊(cè)的操作人員賦予初始操作密碼、查詢操作人員記錄、修改與刪除操作人員記錄等。由于在分配操作人員操作權(quán)限的設(shè)計(jì)中需要使用CheckBox（檢查框）控件，因此我們首先介紹VB中的檢查框和與之功能相近的單選按鈕控件?！窘虒W(xué)目標(biāo)】使學(xué)習(xí)者能夠掌握應(yīng)用程序中常用的操作人員管理模塊的設(shè)計(jì)和程序設(shè)計(jì)方法，同時(shí)學(xué)習(xí)檢查框

46、和單選按鈕控件的使用方法和編程技術(shù)?！窘虒W(xué)要求】了解：控件在不同工作狀態(tài)下的不同表現(xiàn)形式。理解：在應(yīng)用系統(tǒng)中對(duì)系統(tǒng)操作人員的操作權(quán)限的管理方法及實(shí)現(xiàn)手段。掌握：檢查框和單選按鈕控件的作用及設(shè)置方法。 如何利用CheckBox控件數(shù)組編程顯示和設(shè)置操作權(quán)限。 在程序運(yùn)行時(shí)如何修改相應(yīng)控件的屬性。 【本節(jié)重點(diǎn)】如何利用CheckBox控件數(shù)組編程顯示和設(shè)置操作權(quán)限。 在程序運(yùn)行中修改控件屬性的方法。 通過(guò)應(yīng)用程序?qū)崿F(xiàn)對(duì)數(shù)據(jù)庫(kù)的數(shù)據(jù)編輯?！颈竟?jié)難點(diǎn)】 如何利用CheckBox控件數(shù)組編程顯示和設(shè)置操作權(quán)限。一、 CheckBox（檢查框）和OptionButton（單選按鈕）控件為便于用戶的選擇輸入

47、操作并保證輸入數(shù)據(jù)的合法性以及減少輸入錯(cuò)誤，大多數(shù)應(yīng)用程序都需要向用戶提供選擇功能，VB提供了兩種用于選擇的標(biāo)準(zhǔn)控件：CheckBox（檢查框）和OptionButton（單選按鈕）控件。這兩種控件的特點(diǎn)是均提供用戶選擇的項(xiàng)目，用戶只需通過(guò)鼠標(biāo)單擊選項(xiàng)，就可以完成對(duì)項(xiàng)目的選擇。因此這兩個(gè)控件都接收鼠標(biāo)單擊事件，但通常不需要對(duì)此事件編程，因?yàn)楫?dāng)用戶用鼠標(biāo)單擊這兩種控件后，它們會(huì)自動(dòng)改變狀態(tài)。1、 CheckBox檢查框控件CheckBox（檢查框）控件可以列出供用戶選擇的選項(xiàng)，用戶可根據(jù)需要用鼠標(biāo)選定其中的一項(xiàng)或多項(xiàng)。被選中項(xiàng)左邊的小方框中會(huì)出現(xiàn)一個(gè)對(duì)勾，表示該項(xiàng)目被選中。CheckBox（檢查

48、框）控件主要用于選擇某一種功能的兩個(gè)不同的狀態(tài)，也可以通過(guò)編程將用戶的選擇轉(zhuǎn)換為輸入的數(shù)據(jù)。CheckBox（檢查框）的常用屬性如下：（1） Caption屬性Caption屬性用于顯示檢查框邊上的文本標(biāo)題。（2） Alignment屬性Alignment屬性只有兩個(gè)值0和1，其含義如下：0 ：表示文本標(biāo)題出現(xiàn)在控件的右邊（默認(rèn)）；1 ：表示文本標(biāo)題出現(xiàn)在控件左邊。（3） Value屬性Value屬性主要用于表示控件是否被選中，其值為0、1、2，這三個(gè)值的含義如下：0 ：表示未被選中（默認(rèn)）；1 ：表示被選中；2 ：灰色，表示禁止選擇。（4） Style屬性Style屬性用于指定控件的顯示方式

49、，以改善視覺(jué)效果，其值為0和1，這兩個(gè)值的含義如下：0 ：表示標(biāo)準(zhǔn)方式；1 ：表示圖形方式。2、OptionButton（單選按鈕）控件OptionButton（單選按鈕）控件必須成組出現(xiàn)，在一組單選按鈕中用戶只能選中一項(xiàng)，被選中的單選按鈕中會(huì)出現(xiàn)黑點(diǎn)，若用戶不進(jìn)行選擇，系統(tǒng)會(huì)默認(rèn)該組單選按鈕中的一個(gè)按鈕為被選中的項(xiàng)目。OptionButton控件主要用于在多個(gè)項(xiàng)目中選擇其一的情況。OptionButton的常用屬性與CheckBox（檢查框）控件相同，也有諸如：Caption 、Alignment、Value和Style屬性，但與CheckBox（檢查框）控件不同之處是其Value屬性值不再

50、用數(shù)字0和1表示，而是用True和False表示，其中True表示被選中，F(xiàn)alse表示未被選中。注意：在編程中CheckBox（檢查框）和OptionButton（單選按鈕）控件的Value屬性可以省略，例如：Check1.Value = 1 語(yǔ)句等同Check1 = 1語(yǔ)句。例：我們?cè)谝粋€(gè)窗體中設(shè)計(jì)了一個(gè)文本框Text1控件、一個(gè)命令按鈕Command1和一組OptionButton（單選按鈕）控件，OptionButton控件中有Option1和Option2兩個(gè)控件。下面的事件程序是通過(guò)OptionButton控件來(lái)選擇輸入性別數(shù)據(jù)到Text1中。Private Sub Form_Lo

51、ad() Option1.Caption = 男 Option2.Caption = 女 Text1=End SubPrivate Sub Command1_Click() If Option1 Then Text1 = 男 Else Text1 = 女 End IfEnd Sub二、 操作人員管理模塊的設(shè)計(jì)要求與設(shè)計(jì)思想操作人員管理模塊的主要功能是登記注冊(cè)管理信息系統(tǒng)的操作人員，以及維護(hù)數(shù)據(jù)庫(kù)中操作人員表的記錄。操作人員的操作權(quán)限字段值用英文大寫字母表示，為保證操作權(quán)限輸入的正確性與合規(guī)性，權(quán)限數(shù)據(jù)的輸入采取用戶使用鼠標(biāo)選擇一組檢查框的方法實(shí)現(xiàn)。操作人員管理模塊的設(shè)計(jì)要求與設(shè)計(jì)思想如下：1、

52、 當(dāng)用戶進(jìn)入操作人員管理模塊時(shí)，系統(tǒng)應(yīng)首先檢驗(yàn)操作者的操作權(quán)限，若操作者不具有本模塊的操作權(quán)限，應(yīng)予提示并拒絕執(zhí)行。2、 操作人員管理模塊應(yīng)提供逐個(gè)顯示管理信息系統(tǒng)操作人員有關(guān)信息的功能，同時(shí)提供順序查找任一操作人員記錄的功能。注意：模塊不提供任何操作人員的操作密碼信息。3、 操作人員管理模塊應(yīng)提供增加、修改、刪除、保存、恢復(fù)操作人員記錄的功能。當(dāng)用戶在進(jìn)行上述操作過(guò)程中，系統(tǒng)應(yīng)根據(jù)用戶的操作狀態(tài)自動(dòng)設(shè)置命令按鈕的有效和失效性。4、 對(duì)登記注冊(cè)的操作人員記錄，系統(tǒng)應(yīng)自動(dòng)賦予初始操作密碼“1111”。5、 在增加或修改操作人員記錄時(shí)，系統(tǒng)應(yīng)具有對(duì)用戶所輸數(shù)據(jù)進(jìn)行正確性檢驗(yàn)的功能，若有誤應(yīng)予提示并

53、拒絕保存。6、 在刪除操作人員記錄時(shí)，系統(tǒng)應(yīng)要求用戶再次確認(rèn)此項(xiàng)操作。三、 操作人員管理窗體的設(shè)計(jì)操作人員管理窗體的設(shè)計(jì)中主要包括一個(gè)Adodc數(shù)據(jù)控件、一個(gè)CheckBox（檢查框）控件數(shù)組、10個(gè)Command（命令按鈕）控件、一個(gè)Picture（圖形框）控件、一個(gè)Image（圖象框）控件、4個(gè)Text（文本框）控件、6個(gè)Label（標(biāo)簽）控件以及一個(gè)ComboBox（組合框）控件。窗體樣式如圖5.8所示：圖 5.81、 Adodc（ADO數(shù)據(jù)）控件設(shè)計(jì)Adodc數(shù)據(jù)控件的名稱為：Adodc1，它用于連接D盤ZLGL子目錄下的zlgl.mdb數(shù)據(jù)庫(kù)中的“操作人員表”。2、 CheckBox（檢查框）控件數(shù)組設(shè)計(jì)在操作人員管理窗體的設(shè)計(jì)中，根據(jù)需要我們將CheckBox（檢查框）控件設(shè)計(jì)為控件數(shù)組，該數(shù)組中共包括16個(gè)Che