【正文】 Then MsgBox 請(qǐng)?zhí)顚?xiě)結(jié)束時(shí)間！, 48, 提示 Exit SubEnd IfIf = Then MsgBox 請(qǐng)?zhí)顚?xiě)所在單位！, 48, 提示 Exit SubEnd If Call OpenConnSQL = select * from 個(gè)人簡(jiǎn)歷表 SQL, , 3, 3 rs!jzgid = ZGID rs!職工姓名 = rs!開(kāi)始時(shí)間 = rs!結(jié)束時(shí)間 = rs!所在單位 = rs!職務(wù) = rs!證明人 = Call CloseConn = = = = = SQL = select * from 個(gè)人簡(jiǎn)歷表 where jzgid= amp。 ORDER BY 編號(hào) ASCCall addlvwZGXX = = End SubPrivate Sub cmdSC_Click()If JLID = 0 Then MsgBox 請(qǐng)先選擇成員！, 48, 提示 Exit SubEnd IfCall OpenConn (delete * from 個(gè)人簡(jiǎn)歷表 where jlid= amp。圖45 個(gè)人簡(jiǎn)歷頁(yè)面部分代碼如下：Private Sub cmdCZ_Click()SQL = select zgid,編號(hào),姓名,職務(wù),出生日期 from 基礎(chǔ)檔案表 where 姓名 like 39。 “’ and root=1” SQL, , 1, 1 Do While Not rs!部門(mén)名稱(chēng) Loop Call CloseConn = True Case Is = 19 tFlag = 19 Call addCOM(tFlag, “學(xué)歷”) Case Is = 20 tFlag = 20 Call addCOM(tFlag, “學(xué)歷”) Case Is = 22 tFlag = 22 Call addCOM(tFlag, “崗位”) Case Is = 23 tFlag = 23 Call addCOM(tFlag, “崗別”) Case Is = 24 tFlag = 24 Call addCOM(tFlag, “檔次”) Case Is = 25 tFlag = 25 Call addCOM(tFlag, “職務(wù)”) Case Is = 26 tFlag = 26 Call addCOM(tFlag, “職稱(chēng)”) Case Is = 27 tFlag = 27 Call addCOM(tFlag, “來(lái)源”) Case Is = 28 tFlag = 28 Call addCOM(tFlag, “用工形式”) Case Else = FalseEnd SelectEnd SubPrivate Sub Text1_LostFocus(Index As Integer) ‘text1失去焦點(diǎn)后檢查編號(hào)是否重復(fù)，格式化日期Select Case Index Case Is = 0 ‘檢查編號(hào)是否重復(fù) Call OpenConn SQL = “select 編號(hào) from 基礎(chǔ)檔案表 where 編號(hào)=’” amp。 amp。 “\bg\”) phoPath = “” End If ‘ Call CloseConn (1).Visible = False ‘新增按鈕不可用 (3).Enabled = False (4).Enabled = FalseElse ‘如果為新增 (32).Text = gCzy (2).Visible = False ‘新增按鈕不可用 (3).Enabled = False (4).Visible = FalseEnd If ‘初始化家庭成員列表With . = “職工姓名”. = “成員姓名”. = “關(guān)系”. = “所在單位”.ColumnHeaders(1).Width = 2000.ColumnHeaders(2).Width = 2000.ColumnHeaders(3).Width = 2000.ColumnHeaders(4).Width = 4700End WithSQL1 = “select * from 家庭成員表 where czgid=” amp。圖44 干部基本信息頁(yè)面部分代碼如下：Private Sub Form_Load() = gXtmc = ‘圖標(biāo)If newFlag 0 Then ‘如果為修改 Call OpenConn SQL = “select * from 基礎(chǔ)檔案表 where zgid=” amp。 39。 用戶(hù)登錄界面設(shè)計(jì)用戶(hù)登錄頁(yè)面：系統(tǒng)用戶(hù)登錄模塊主要用于完成對(duì)登錄系統(tǒng)的用戶(hù)的驗(yàn)證，只有合法的用戶(hù)才可以進(jìn)入系統(tǒng)，不同的用戶(hù)登陸后的權(quán)限是不一樣的。(1) 干部基本信息數(shù)據(jù)表：用于儲(chǔ)存干部的基本信息。(2) 主界面在該界面窗口中，共有文件、數(shù)據(jù)、關(guān)于等所有系統(tǒng)功能，用戶(hù)可以操作菜單的方式快捷地使用系統(tǒng)。干部管理的系統(tǒng)功能結(jié)構(gòu)如圖31所示：導(dǎo)入數(shù)據(jù)導(dǎo)出數(shù)據(jù)數(shù)據(jù)備份系統(tǒng)維護(hù)系統(tǒng)管理用戶(hù)管理查詢(xún)管理報(bào)表管理干部管理系統(tǒng)干部信息管理干部任免管理單位管理輔助功能 用戶(hù)列表添加用戶(hù)刪除用戶(hù)密碼修改干部推薦任免統(tǒng)計(jì)打印審批表信息錄入信息更新干部花名冊(cè)信息查詢(xún)打印履歷表基本查詢(xún)條件查詢(xún)制定報(bào)表管理報(bào)表新建單位修改單位刪除單位圖31 系統(tǒng)功能結(jié)構(gòu)圖第四章 主要功能模塊的實(shí)現(xiàn) 功能描述該信息管理系統(tǒng)可以在Windows xp及以上平臺(tái)運(yùn)行，開(kāi)發(fā)工具采用Visual Basic語(yǔ)言開(kāi)發(fā)。主要由管理員進(jìn)行。 系統(tǒng)需求分析(1) 系統(tǒng)的功能分析干部管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫(kù)開(kāi)發(fā)應(yīng)用程序，它由員工信息管理、工資管理、假條信息管理、系統(tǒng)用戶(hù)管理等模塊組成，具體規(guī)劃如下：①系統(tǒng)用戶(hù)管理：對(duì)使用系統(tǒng)的用戶(hù)進(jìn)行管理，為他們分配一定的權(quán)限，使他們規(guī)范的使用系統(tǒng)。(2)硬件資源開(kāi)發(fā)管理信息系統(tǒng)所需的硬件資源包含以下方面：系統(tǒng)開(kāi)發(fā)人員在管理信息系統(tǒng)的開(kāi)發(fā)過(guò)程中所需要的計(jì)算機(jī)設(shè)備及其有關(guān)的外部設(shè)備；管理信息系統(tǒng)開(kāi)發(fā)成功投入使用后，使用單位所應(yīng)具備的計(jì)算機(jī)設(shè)備及其有關(guān)的外圍設(shè)備。(5) 管理可行性分析管理可行性分析主要是分析企業(yè)現(xiàn)行的管理體制和企業(yè)領(lǐng)導(dǎo)是否具有現(xiàn)代化的管理意識(shí)和管理水平。可行性分析一般可定義為：可行性分析是在建設(shè)的前期對(duì)工程項(xiàng)目的一種考察和鑒定，對(duì)擬議中的項(xiàng)目進(jìn)行全面與綜合的技術(shù)、經(jīng)濟(jì)能力的調(diào)查，判斷它是否可行,可行性分析階段的主要工作包括以下幾個(gè)方面：(1) 新系統(tǒng)目標(biāo)可行性分析分析新系統(tǒng)的目標(biāo)是否符合企業(yè)的現(xiàn)狀和發(fā)展的需要。它們只是根據(jù)自己業(yè)務(wù)工作的需要提出了要求，系統(tǒng)開(kāi)發(fā)人員要對(duì)此進(jìn)行詳細(xì)的調(diào)查和分析，確認(rèn)用戶(hù)的要求可以通過(guò)現(xiàn)有的計(jì)算機(jī)技術(shù)實(shí)現(xiàn)，保證開(kāi)發(fā)的管理信息系統(tǒng)的功能與用戶(hù)提出的要求相吻合。但它可以通過(guò)動(dòng)態(tài)鏈接庫(kù)技術(shù)將C/C++或匯編語(yǔ)言編寫(xiě)的程序加入到Visual Basic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語(yǔ)言編寫(xiě)的函數(shù)。 對(duì)象的鏈接與嵌入(OLE) 對(duì)象的鏈接與嵌入(OLE)將每個(gè)應(yīng)用程序都看作是一個(gè)對(duì)象(object)，將不同的對(duì)象鏈接(link)起來(lái)，再嵌入(embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫(huà)、文字等各種信息的集合式的文件。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢(xún)語(yǔ)言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪(fǎng)問(wèn)服務(wù)器上的數(shù)據(jù)庫(kù)，并提供了簡(jiǎn)單的面向?qū)ο蟮膸?kù)操作指令和多用戶(hù)數(shù)據(jù)庫(kù)訪(fǎng)問(wèn)的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的SQL的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫(kù)提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶(hù)/服務(wù)器(client/server)方案。同時(shí)Access相比較SQL作為后臺(tái)數(shù)據(jù)庫(kù)，在連接方面有更為簡(jiǎn)易的表現(xiàn)，選擇Access作為后臺(tái)數(shù)據(jù)庫(kù)。同時(shí)，提供VBA編程接口，可以為用戶(hù)提供各種各樣的編程功能。在用Visual Basic設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開(kāi)始和結(jié)束的程序，而是編寫(xiě)若干個(gè)微小的子程序，即過(guò)程。在設(shè)計(jì)Visual Basic程序的過(guò)程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運(yùn)行。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫(xiě)實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。如果對(duì)界面的效果不滿(mǎn)意，還要回到程序中修改。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專(zhuān)業(yè)開(kāi)發(fā)工具SDK相媲美，而且程序開(kāi)發(fā)人員不必具有C/C++編程基礎(chǔ)。本設(shè)計(jì)我將采用面向?qū)ο蟮姆椒?，綜合運(yùn)用數(shù)據(jù)庫(kù)技術(shù)、程序設(shè)計(jì)技術(shù)，結(jié)合企業(yè)人事管理知識(shí)，以Visual Basic ，Access作為后臺(tái)數(shù)據(jù)庫(kù)，通過(guò)Visual Basic 。因?yàn)樯鐣?huì)在發(fā)展，用戶(hù)的需求也在改變，如何把握住用戶(hù)的需求是需要時(shí)間的，面向?qū)ο蟮姆椒ㄓ袝r(shí)也會(huì)忽略外在的與表層的要求，不僅僅是要獲得關(guān)鍵的需求，其他更多的需求往往要等到用戶(hù)在使用后才知道，然而等到用戶(hù)使用是不現(xiàn)實(shí)的，作為原