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

　　

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