【導(dǎo)讀】隨著市場(chǎng)經(jīng)濟(jì)的高速發(fā)展，越來(lái)越多的機(jī)構(gòu)、企業(yè)認(rèn)識(shí)到人員信息的有效。管理是機(jī)構(gòu)，企業(yè)創(chuàng)作效益、提高水平的有效渠道。的社會(huì)機(jī)構(gòu)，推動(dòng)社會(huì)經(jīng)濟(jì)發(fā)展,促進(jìn)社會(huì)進(jìn)步，同樣面臨著人員信息龐大，情。況復(fù)雜,項(xiàng)目多，安排人員困難的問(wèn)題,本文詳細(xì)介紹了一個(gè)專門面向科研機(jī)構(gòu)。的信息管理系統(tǒng)的設(shè)計(jì)流程，該系統(tǒng)的特點(diǎn)是以科研人員為核心、構(gòu)建針對(duì)科。研人員管理手段科學(xué)化、規(guī)范化、信息化。該系統(tǒng)使用visualBasic編寫前臺(tái)。應(yīng)用程序,可以訪問(wèn)Oracle,SQLServer,FoxPro等多種數(shù)據(jù)庫(kù),通用性強(qiáng);模。塊化的功能設(shè)計(jì),使其可以很簡(jiǎn)單的添加新的功能.本文主要介紹的是訪問(wèn)SQL

　　

【正文】 = adOpenDynamic = adLockOptimistic = sql, DbFinance Do While = False 39。循環(huán)加入下拉列表 (rs(INDUSTRY_NAME)) () = rs(INDUSTRY_ID) Loop 39。釋放結(jié)果集 ,關(guān)閉數(shù)據(jù)庫(kù) Set rs = Nothing Else 39。打開連接失敗則退出 MsgBox 數(shù)據(jù)庫(kù)錯(cuò)誤！ , vbExclamation End 電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計(jì)論文 36 End If = 39。初始化 所有輸入控件 = = = = = = = = End Sub Private Sub Form_Unload(Cancel As Integer) On Error Resume Next 39。窗體關(guān)閉時(shí)關(guān)閉數(shù)據(jù)庫(kù)連接 End Sub 3）單擊“確定”按鈕判斷輸入的信息是否完整和合理，然后向數(shù)據(jù)庫(kù)中添加。其代碼如下： Private Sub Command1_Click() Dim sql As String Dim rs As New Dim posAt As Long On Error Resume Next If = Then 39。判斷科研人 員 ID 輸入框不為空 MsgBox 科研人員 ID不能為空！ , vbCritical 第 4 章 詳細(xì)設(shè)計(jì) 37 Exit Sub End If If = Then 39。判斷科研人員姓名輸入框不為空 MsgBox 科研人員姓名不能為空！ , vbCritical Exit Sub End If If = 1 Then 39。確?？蒲腥藛T職稱被選擇 MsgBox 科研人員職稱必須選擇！ , vbCritical Exit Sub End If If = Then 39。判斷科研人員 EMAIL 輸入框不為空 MsgBox 科研人員 EMAIL 不能為空！ , vbCritical Exit Sub End If posAt = InStr(1, , @, vbTextCompare) If posAt = 0 Then MsgBox 科研人員輸入 EMAIL 不合法！ , vbCritical Exit Sub End If If InStr(posAt, , ., vbTextCompare) = 0 Then 39。判斷科研人員 EMAIL 輸入是否合法 MsgBox 科研人員輸入 EMAIL 不合法！ , vbCritical 電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計(jì)論文 38 Exit Sub End If If = Then 39。判斷科研人員電話輸入框不為空 MsgBox 科研人員電話不能為空！ , vbCritical Exit Sub End If If = 1 Then 39。確保學(xué)歷被選擇 MsgBox 學(xué)歷必須選擇！ , vbCritical Exit Sub End If If = Then 39。判斷科研人員政治面貌輸入框不為空 MsgBox 科研人員政治面貌不能為空！ , vbCritical Exit Sub End If If = Then 39。判斷科研人員民族輸入框不為空 MsgBox 科研人員民族不能為空！ , vbCritical Exit Sub End If If = Then 39。判斷科研人員個(gè)人簡(jiǎn)介信息輸入框第 4 章 詳細(xì)設(shè)計(jì) 39 不為空 MsgBox 科研人員個(gè)人簡(jiǎn)介信息不能為空！ , vbCritical Exit Sub End If If Then sql = TBL_SELLER 39。查找科研人員表 ,確定輸入科研人ID是不存在的 . = adOpenDynamic = adLockOptimistic = SELLER_ID=39。 amp。 amp。 39。 sql, DbFinance If (rs) = 1 Then 39。存在則提示出錯(cuò) ,退出 MsgBox 錯(cuò)誤，已經(jīng)存在科研人員 ID 號(hào)！ , vbExclamation Set rs = Nothing Exit Sub End If sql = TBL_SELLER 39。打開科研人員表 ,添加科研人員記錄 = adOpenDynamic = adLockOptimistic = sql, DbFinance 電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計(jì)論文 40 rs(SELLER_ID) = 39?？蒲腥藛T ID rs(SELLER_NAME) = 39。科研人員姓名 rs(SELLER_ZHIC) = () 39。所在地區(qū) rs(SELLER_EMAIL) = 39?？蒲腥藛T電子郵件 rs(SELLER_PHONE) = 39?？蒲腥藛T電話 rs(SELLER_XUEL) = () 39。從事行業(yè) rs(SELLER_MARKETING) = rs(SELLER_PLAN) = 39?？蒲腥藛T銷售計(jì)劃金額 rs(SELLER_REMARK) = 39?？蒲腥藛T電話 MsgBox 記錄成功添加！ Unload Me Else 39。打開數(shù)據(jù)庫(kù)失敗則提示出錯(cuò)退出 MsgBox 數(shù)據(jù)庫(kù)錯(cuò)誤！ , vbExclamation End End If End Sub 3） 最后是“重置”按鈕的功能實(shí)現(xiàn)，單擊刷新界面，清理所有控件已經(jīng)填入的信息，使界面回到窗口打開時(shí)的狀態(tài)，代碼如下： 第 4 章 詳細(xì)設(shè)計(jì) 41 Private Sub Command2_Click() = 39。重置所有輸入控件 = = 1 = = = 1 = = = End Sub Private Sub Command3_Click() Unload Me End Sub 修改科研人員 1）界面設(shè)計(jì) 向工程中添加兩個(gè)新的 form 窗口，并向其上添加一些控件，第一個(gè)窗口用于輸入要修改的科研人員 ID 編號(hào)；第二個(gè)窗口用于顯示要修改的科研人員已有的信息，用戶在此窗口進(jìn)行修改并保存。這兩個(gè)窗口的界面樣式如圖 1 和 2 所示。 圖 26 修改科研人員記錄 界面 1 電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計(jì)論文 42 圖 27修改科研人員記錄彈出 界面 2 修 改科研人員信息的第一個(gè)窗口的控件屬性如下表 5 表 5 2）編寫代碼 Command1 控件添加 Click 事件，用于判斷填寫的科研人員 ID 不為空且存在數(shù)據(jù)庫(kù)中，然后調(diào)出第二個(gè)窗口并把此科研人員原有信息預(yù)先填入。此外，在第二個(gè)窗口中設(shè)置了一個(gè)公共變量 Cancel 用于記錄第二個(gè)窗口返回值，這個(gè)值標(biāo)志著用戶是否真的要修改第二個(gè)窗口中的信息，如果為“真”則完成數(shù)據(jù)庫(kù)修改。其代碼如下： Private Sub Command1_Click() If = Then 39?？蒲腥藛T ID編號(hào)對(duì)話框不可為空 MsgBox 請(qǐng)輸入科研人員 ID 編號(hào)！ , vbExclamation Exit Sub 第 4 章 詳細(xì)設(shè)計(jì) 43 End If If Then 39。檢查輸入的科研人員 ID 編號(hào)記錄是否存在 sql = TBL_SELLER = adOpenDynamic = adLockOptimistic = SELLER_ID=39。 amp。 amp。 39。 sql, DbFinance If (rs) 1 Then 39。不存在科研人員 ID 編號(hào)刪除失敗 ,退出 MsgBox 錯(cuò)誤，不存在的科研人員 ID 編號(hào)記錄！ , vbExclamation Set rs = Nothing Exit Sub End If = True = ( ) / 2 39。把窗體定位居中顯示 = ( ) / 2 sql = TBL_REGION 39。提取職稱表中靜態(tài)記錄 = adOpenDynamic = adLockOptimistic = sql, DbFinance 電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計(jì)論文 44 Do While = False 39。循環(huán)加入下拉列表 (rs2(REGION_NAME)) () = rs2(REGION_ID) Loop 39。釋放結(jié)果集 ,關(guān)閉數(shù)據(jù)庫(kù) sql = TBL_INDUSTRY = adOpenDynamic = adLockOptimistic = sql, DbFinance Do While = False 39。循環(huán)加入下拉列表 (rs2(INDUSTRY_NAME)) () = rs2(INDUSTRY_ID) Loop 39。釋放結(jié)果集 ,關(guān)閉數(shù)據(jù)庫(kù) Set rs2 = Nothing = rs(SELLER_ID) 39。初始化所有輸入控件默認(rèn)值 = rs(SELLER_NAME) = rs(SELLER_ZHIC) 1 = rs(SELLER_EMAIL) 第 4 章 詳細(xì)設(shè)計(jì) 45