【正文】 2022 年1 月 第一版。當(dāng)進(jìn)入主頁(yè)面后，單擊“學(xué)生工資查詢(xún)”便會(huì)出現(xiàn)上面的界面。65(b)當(dāng)點(diǎn)擊［一覽］按鈕時(shí)，將顯示學(xué)生工資信息。輸入：姓名、性別、學(xué)歷、工齡、遲到天數(shù)、當(dāng)時(shí)年和當(dāng)時(shí)月。４）操作。輸出：無(wú)。輸入：姓名、性別、學(xué)歷、工齡、遲到天數(shù)、獎(jiǎng)金、當(dāng)時(shí)年和當(dāng)時(shí)月。當(dāng)進(jìn)入主頁(yè)面后，單擊“學(xué)生信息查詢(xún)”便會(huì)出現(xiàn)上面的界面。當(dāng)點(diǎn)擊［確定］按鈕后將滿(mǎn)足條件的數(shù)據(jù)查出來(lái)并顯示。處理：①以輸入的信息為條件②如果記錄不存在，則將信息從數(shù)據(jù)庫(kù)的 xinxi 表中刪除。 WHERE amp。 ,gongling=39。 , zhiwu=39。, bumen=39。 ,zhuanye=39。 , xueli=39。 , shengri=39。 , jiguan=39。 , xingbie=39。, vbOKOnly Exit SubElse SQLStr = UPDATE xinxi SET xingming=39。 39。End IfIf gongling Then where = where amp。 AND zhiwu = 39。 amp。 zhuanye amp。 39。End IfIf xueli Then where = where amp。 AND shengri = 39。 amp。 xingbie amp。 39。在［修改］按鈕的 Click 時(shí)間中輸入如下代碼：Private Sub Command5_Click()Dim xingming1Dim xingbie1Dim jiguan1Dim shengri1Dim xueli1Dim zhuanye1Dim bumen1Dim zhiwu1Dim gongling1Dim wherewhere = xingming = xingbie = jiguan = shengri = xueli = zhuanye = bumen = zhiwu = gongling = xingming1 = xingbie1 = jiguan1 = shengri1 = xueli1 = zhuanye1 = bumen1 = zhiwu1 = gongling1 = If xingming Then where = where amp。４）操作。輸出：更新后的學(xué)生信息。輸入：原來(lái)學(xué)生信息（姓名、性別、籍貫、出生年月、學(xué)歷、專(zhuān)業(yè)、部門(mén)、職務(wù)、工齡和備注）和現(xiàn)在學(xué)生信息（姓名、性別、籍貫、出生年月、學(xué)歷、專(zhuān)業(yè)、部門(mén)、職務(wù)、工齡和備注） 。定義列標(biāo)題 .TextMatrix(0, 0) = 姓名 .TextMatrix(0, 1) = 性別 .TextMatrix(0, 2) = 籍貫 .TextMatrix(0, 3) = 出生年月 .TextMatrix(0, 4) = 學(xué)歷 .TextMatrix(0, 5) = 專(zhuān)業(yè) .TextMatrix(0, 6) = 部門(mén) .TextMatrix(0, 7) = 職務(wù) .TextMatrix(0, 8) = 工齡( 年) .TextMatrix(line, 0) = xingming .TextMatrix(line, 1) = xingbie .TextMatrix(line, 2) = jiguan .TextMatrix(line, 3) = shengri .TextMatrix(line, 4) = xueli .TextMatrix(line, 5) = zhuanye .TextMatrix(line, 6) = bumen .TextMatrix(line, 7) = zhiwu .TextMatrix(line, 8) = gongling 39。 ”Else = True SQLStr = SELECT * FROM xinxi WHERE amp。SQLStr = SELECT COUNT(*) FROM xinxi WHERE amp。定義列標(biāo)題 .TextMatrix(0, 0) = 姓名 .TextMatrix(0, 1) = 性別 .TextMatrix(0, 2) = 籍貫 .TextMatrix(0, 3) = 出生年月 .TextMatrix(0, 4) = 學(xué)歷 .TextMatrix(0, 5) = 專(zhuān)業(yè) .TextMatrix(0, 6) = 部門(mén) .TextMatrix(0, 7) = 職務(wù) .TextMatrix(0, 8) = 工齡( 年) .TextMatrix(line, 0) = xingming .TextMatrix(line, 1) = xingbie .TextMatrix(line, 2) = jiguan .TextMatrix(line, 3) = shengri .TextMatrix(line, 4) = xueli .TextMatrix(line, 5) = zhuanye .TextMatrix(line, 6) = bumen .TextMatrix(line, 7) = zhiwu .TextMatrix(line, 8) = gongling 39。End IfSet Glb_MyWkSp = Workspaces(0)Set Glb_MyDB = (Con_DBpath)Dim lineIf where = Then SQLStr = SELECT COUNT(*) FROM xinxi Set db_set = (SQLStr) If (0) = 0 Then MsgBox 目前數(shù)據(jù)庫(kù)中記錄數(shù)為 0。 AND gongling = 39。 amp。 bumen amp。 39。End IfIf zhuanye Then where = where amp。 AND xueli = 39。 amp。 jiguan amp。 39。End IfIf xingbie Then where = where amp。 AND xingming = 39。當(dāng)進(jìn)入主頁(yè)面后，單擊“學(xué)生信息查詢(xún)”便會(huì)出現(xiàn)上面的界面。２）本模塊截面如圖所示當(dāng)輸入了查詢(xún)條件，點(diǎn)擊［查詢(xún)］按鈕后進(jìn)入圖６－４所示頁(yè)面。（２）學(xué)生信息查詢(xún)模塊１）學(xué)生信息查詢(xún)模塊的 IPO 圖。 beizhu amp。 gongling amp。 zhiwu amp。 bumen amp。 zhuanye amp。 xueli amp。 shengri amp。 jiguan amp。 xingbie amp。 xingming amp。將 的值賦給變量 gongling。將 的值賦給變量 xueli。 ”，并跳出本函數(shù)，不執(zhí)行下面的代碼。, vbOKOnly Exit SubEnd IfIf = Then MsgBox 請(qǐng)輸入學(xué)生工齡。, vbOKOnly Exit SubEnd IfIf = Then MsgBox 請(qǐng)輸入學(xué)生學(xué)歷。當(dāng)進(jìn)入主頁(yè)面后，單擊“學(xué)生信息查詢(xún)” ，輸入如下代碼：Private Sub ygxxgl_Click() = True = FalseExit SubEnd Sub這段代碼分別把 SSTab1 控件的 Visible 值設(shè)為 Ture，把 SSTab2 控件的 Visible 值設(shè)為False。輸出：無(wú)２）本模塊界面如圖所示。學(xué)生信息錄入模塊１）學(xué)生信息錄入的 IPO 圖。 39。 39。 用 戶(hù)登 陸模塊的 設(shè)計(jì)與實(shí)現(xiàn)本模塊界面如圖 62 所示:圖 62‘在通用中輸入如下代碼，表明連接的數(shù)據(jù)庫(kù)是當(dāng)前路徑中 DB 文件夾里的數(shù)據(jù)庫(kù)文件Const Con_DBpath As String = DB\Public Glb_MyWkSp As WorkspacePublic Glb_MyDB As DatabaseDim db_set As Recordset在確定按鈕中輸入如下代碼， ，如果輸入的用戶(hù)名和密碼不是查詢(xún)員“admin”,也不是user 表里的用戶(hù)名和密碼，就會(huì)提示“輸入錯(cuò)誤,請(qǐng)重新輸入 ”，這里給了 6 次機(jī)會(huì)，超過(guò)6 次就強(qiáng)行退出。標(biāo)簽閃爍顯示代碼 = 500End SubPrivate Sub Timer1_Timer()Dim ctl As ControlFor Each ctl In Me If TypeOf ctl Is Label And = 1 Then = Not 名 稱(chēng) 字 段 名 稱(chēng) 類(lèi) 型 主 鍵 忽 略 空 值姓 名 xingming 文 本 否 否性 別 xingbie 文 本 否 否籍 貫 jiguan 文 本 否 否生 日 shengri 文 本 否 否學(xué) 歷 xueli 文 本 否 否專(zhuān) 業(yè) zhuanye 文 本 否 否部 門(mén) bumen 文 本 否 否工 齡 gongling 文 本 否 否備 注 beizhu 文 本 否 否 End IfNextEnd Sub在啟動(dòng)的第一個(gè)窗體中添加如下代碼（控制滾動(dòng)條速度） ；Private Sub Form_Load() Dim rate As Integer With = 11 .Min = 1 .Max = 30000 For rate = .Min To .Max .Value = rate = CInt(rate / .Max * 100) amp。 圖 523． 名稱(chēng)：學(xué)生信息如表 53 所示，學(xué)生信息數(shù)據(jù)表包括姓名、性別、籍貫、生日、學(xué)歷、專(zhuān)業(yè)、部門(mén)、職務(wù)、工齡和備注 10 個(gè)字段。 數(shù)據(jù) 庫(kù)設(shè)計(jì)根據(jù)系統(tǒng)功能的設(shè)計(jì)要求以及功能模塊的劃分，對(duì)于系統(tǒng)用戶(hù)信息數(shù)據(jù)庫(kù)，可以列出以下數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：1． 名稱(chēng)：工資信息標(biāo)識(shí)：gongzi。（3） 學(xué)生信息修改模塊：可對(duì)學(xué)生信息進(jìn)行修改操作。圖 31 系 統(tǒng)模 塊設(shè)計(jì)已注冊(cè)的用戶(hù)進(jìn)入系統(tǒng)，必須先進(jìn)行登陸。? 顯卡：SVGA 顯示適配器。第四章 需求分析 功能需求 性能需求? 處理器：Intel Pentium 166 MX 或更高。有了 ActiveX(TM) 技術(shù)就可使用其它應(yīng)用程序提供的功能，例如 Microsoft Word 字處理器，Microsoft Excel 電子數(shù)據(jù)表及其它 Windows 應(yīng)用程序。Visual Basic Scripting Edition (VBScript) 是廣泛使用的腳本語(yǔ)言，它是 Visual Basic 語(yǔ)言的子集。Visual Basic 在原有 BASIC 語(yǔ)言的基礎(chǔ)上進(jìn)一步發(fā)展，至今包含了數(shù)百條語(yǔ)句、函數(shù)及關(guān)鍵詞，其中很多和 Windows GUI 有直接關(guān)系。何謂 Visual Basic？“Visual”指的是開(kāi)發(fā)圖形用戶(hù)界面 (GUI) 的方法。②面向?qū)ο蠓ǖ膬?yōu)缺點(diǎn)：面向?qū)ο蠓ǖ膬?yōu)點(diǎn)是便于幫助分析者、設(shè)計(jì)者和用戶(hù)清楚地表達(dá)抽象概念，互相進(jìn)行交流；交流特定的軟件工具模塊，直接地完成了從對(duì)象的描述到軟件體系結(jié)構(gòu)之間的轉(zhuǎn)換，避免了其它的方法在開(kāi)發(fā)過(guò)程的客觀世界描述和軟件結(jié)構(gòu)不一致性和復(fù)雜性問(wèn)題，便利系統(tǒng)開(kāi)發(fā)簡(jiǎn)單、統(tǒng)一，開(kāi)發(fā)周期短，費(fèi)用低。①面對(duì)對(duì)象法的開(kāi)發(fā)過(guò)程面對(duì)對(duì)象法的開(kāi)發(fā)過(guò)程一般分為四個(gè)階段：A、認(rèn)識(shí)客觀世界（如一個(gè)學(xué)校）中的對(duì)象以及行為，分別獨(dú)立設(shè)計(jì)各個(gè)對(duì)象的實(shí)體。面向?qū)ο蟮募夹g(shù)中最重要的概念是對(duì)象。對(duì)用戶(hù)滿(mǎn)意的原型系統(tǒng)進(jìn)行進(jìn)一步的開(kāi)發(fā)，不斷補(bǔ)充、完善，最終形成一個(gè)適用的查詢(xún)信息系統(tǒng)。C、修改、評(píng)價(jià)原型系統(tǒng)。由用戶(hù)提出對(duì)新系統(tǒng)的基本要求，如功能、基本界面形式、所需的數(shù)據(jù)、應(yīng)用范圍、運(yùn)行環(huán)境等，開(kāi)發(fā)者根據(jù)這些信息估算出開(kāi)發(fā)該系統(tǒng)所需的費(fèi)用，并建立簡(jiǎn)明的系統(tǒng)模型。(1)原型法：原型法（Prototyping Method）是 20 世紀(jì) 80 年代發(fā)展起來(lái)的，旨在改變生命周期法的缺點(diǎn)的一種系統(tǒng)開(kāi)發(fā)方