【正文】 初始化所有輸入控件默認(rèn)值 = rs(SELLER_NAME) = rs(SELLER_ZHIC) 1 = rs(SELLER_EMAIL) 第 4 章 詳細(xì)設(shè)計 45 =。循環(huán)加入下拉列表 (rs2(INDUSTRY_NAME)) () = rs2(INDUSTRY_ID) Loop 39。循環(huán)加入下拉列表 (rs2(REGION_NAME)) () = rs2(REGION_ID) Loop 39。把窗體定位居中顯示 = ( ) / 2 sql = TBL_REGION 39。 sql, DbFinance If (rs) 1 Then 39。 amp。檢查輸入的科研人員 ID 編號記錄是否存在 sql = TBL_SELLER = adOpenDynamic = adLockOptimistic = SELLER_ID=39。其代碼如下： Private Sub Command1_Click() If = Then 39。 圖 26 修改科研人員記錄 界面 1 電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計論文 42 圖 27修改科研人員記錄彈出 界面 2 修 改科研人員信息的第一個窗口的控件屬性如下表 5 表 5 2）編寫代碼 Command1 控件添加 Click 事件，用于判斷填寫的科研人員 ID 不為空且存在數(shù)據(jù)庫中，然后調(diào)出第二個窗口并把此科研人員原有信息預(yù)先填入。重置所有輸入控件 = = 1 = = = 1 = = = End Sub Private Sub Command3_Click() Unload Me End Sub 修改科研人員 1）界面設(shè)計 向工程中添加兩個新的 form 窗口，并向其上添加一些控件，第一個窗口用于輸入要修改的科研人員 ID 編號；第二個窗口用于顯示要修改的科研人員已有的信息，用戶在此窗口進行修改并保存。科研人員電話 MsgBox 記錄成功添加！ Unload Me Else 39。從事行業(yè) rs(SELLER_MARKETING) = rs(SELLER_PLAN) = 39?？蒲腥藛T電子郵件 rs(SELLER_PHONE) = 39?？蒲腥藛T姓名 rs(SELLER_ZHIC) = () 39。打開科研人員表 ,添加科研人員記錄 = adOpenDynamic = adLockOptimistic = sql, DbFinance 電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計論文 40 rs(SELLER_ID) = 39。 sql, DbFinance If (rs) = 1 Then 39。 amp。查找科研人員表 ,確定輸入科研人ID是不存在的 . = adOpenDynamic = adLockOptimistic = SELLER_ID=39。判斷科研人員民族輸入框不為空 MsgBox 科研人員民族不能為空！ , vbCritical Exit Sub End If If = Then 39。確保學(xué)歷被選擇 MsgBox 學(xué)歷必須選擇！ , vbCritical Exit Sub End If If = Then 39。判斷科研人員 EMAIL 輸入是否合法 MsgBox 科研人員輸入 EMAIL 不合法！ , vbCritical 電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計論文 38 Exit Sub End If If = Then 39。確保科研人員職稱被選擇 MsgBox 科研人員職稱必須選擇！ , vbCritical Exit Sub End If If = Then 39。判斷科研人 員 ID 輸入框不為空 MsgBox 科研人員 ID不能為空！ , vbCritical 第 4 章 詳細(xì)設(shè)計 37 Exit Sub End If If = Then 39。窗體關(guān)閉時關(guān)閉數(shù)據(jù)庫連接 End Sub 3）單擊“確定”按鈕判斷輸入的信息是否完整和合理，然后向數(shù)據(jù)庫中添加。打開連接失敗則退出 MsgBox 數(shù)據(jù)庫錯誤！ , vbExclamation End 電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計論文 36 End If = 39。循環(huán)加入下拉列表 (rs(INDUSTRY_NAME)) () = rs(INDUSTRY_ID) Loop 39。釋放結(jié)果集 ,關(guān)閉數(shù)據(jù)庫 Set rs = Nothing Else 39。把窗體定位 居中顯示 = ( ) / 2 If Then sql = TBL_REGION = adOpenDynamic = adLockOptimistic = sql, DbFinance Do While = False 39。 圖 25添加人員窗口 界面 “增加科研人員”窗口與主要控件屬性的表 4如下： 電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計論文 34 表 4 2）編寫代碼 窗口初始化的時候，打開數(shù)據(jù)庫連接，將職稱，學(xué)歷表中靜態(tài)記錄從數(shù)據(jù)庫中提取出來添加到相應(yīng)的 ComboBox 控件中去。 amp。 amp。單擊系統(tǒng)主界面的“增加管理員”和“更改管理員密碼 ” 兩個按鈕，分別如下圖所示的界面。返回結(jié)果集中的記錄數(shù) On Error Resume Next resultcount = 0 Do While = False resultcount = resultcount + 1 Loop End Function 登錄與系統(tǒng)模塊設(shè)計 用戶在打開系統(tǒng)，或單擊啟動的 EXE 可執(zhí)行文件后，首先是要求使用者登錄系統(tǒng)的窗口，其界面如下圖 所示，這里已經(jīng)在數(shù)據(jù)庫默認(rèn)存放了一個公用登陸者 aaa,密碼也是 aaa。關(guān)閉錯誤的數(shù)據(jù)庫 End Function Public Sub DbClose() 39。顯示錯誤描述 Next e End If DbConnection = False 39。打開數(shù)據(jù)庫 Exit Function errorhandle: If 1 Then MsgBox , vbOKOnly + vbExclamation 39。Data Source= amp。 strInitialCatalog _amp。 。password= amp。 strUserid _ amp。 。sqlserver 有密碼 = Provider=。Data Source= amp。 strInitialCatalog _ amp。 。User ID= amp。Persist Security Info=False _ amp。得到服務(wù)器名 If strUserid = And strPassword = And strInitialCatalog = And strDataSource = Then MsgBox 請確認(rèn)數(shù)據(jù)庫資源連接文件正確！ , vbOKOnly, 數(shù)據(jù)庫連接錯誤－ Set DbFinance = Nothing Exit Function 電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計論文 26 End If If strPassword = Then 39。得到密碼 strInitialCatalog = Trim(Mid(strInitialCatalog, 14)) 39。得到服務(wù)器名 Set ts = Nothing Set fso = Nothing strUserid = Trim(Mid(strUserid, 8)) 39。得到密碼 strInitialCatalog = 39。 \, ForReading, True, TristateFalse) strUserid = 39。執(zhí)行 SQL 命令的缺省等待時間 = 30 39。出現(xiàn)任何錯誤將執(zhí)行 errorhandle 進行錯誤處理 DbConnection = True 39。打開數(shù)據(jù)庫 Dim e As Dim strUserid, strPassword, strInitialCatalog, strDataSource As String Dim fso As New FileSystemObject Dim ts 39。所以我們向工程中添加一個模塊，命名為 ： Option Explicit Public DbFinance As New 39。顯示查詢科研項目窗體 End Sub Private Sub menu_QuerySeller_Click() 1 39。登錄窗體信息清空 = 39。顯示修改項目對話框 End Sub Private Sub menu_FixSeller_Click() 1 39。顯示科研項目對話框 End Sub Private Sub menu_Exit_Click() End 39。顯示刪除科研項目對話框 End Sub 第 4 章 詳細(xì)設(shè)計 23 Private Sub menu_DelSeller_Click() 1 39。顯示修改管理員 密碼窗體 End Sub Private Sub menu_DelOrder_Click() 1 39。顯示增加科研項目單窗體 End Sub Private Sub menu_AddSeller_Click() 1 39。顯示科研項目對話框 電子科技大學(xué)成都學(xué)院本科畢業(yè)設(shè)計論文 22 End Sub （ 2） 另外，當(dāng)單擊界面上方的菜單欄中的某個選項時，同樣可也打開相應(yīng)的子窗口，代碼如下： Private Sub menu_AddAdmin_Click() 1 39。顯示查詢科研人員對話框 End Sub Private Sub Command8_Click() 1 39。顯示增加科研人員對話框 End Sub Private Sub Command6_Click() 1 39。顯示注銷 (登錄 )窗體 End Sub Private Sub Command4_Clic