【導(dǎo)讀】信息增長(zhǎng)的速度越來(lái)越快，人們希望利用先進(jìn)的管理理論方法和手段來(lái)處理越。來(lái)越多的信息，員工培訓(xùn)也是其中一組成部分，想以提高工作管理水平。因此，學(xué)習(xí)與再學(xué)。的開發(fā)工具開發(fā)本系統(tǒng)的詳細(xì)過(guò)程，從軟件工程的角度進(jìn)行了科學(xué)而嚴(yán)謹(jǐn)?shù)年U述。

　　

【正文】 ’ 刪除按鈕的設(shè)置 SELECT * FROM student_info where student_id=39。 amp。 amp。 39。 ’ 把 sql語(yǔ)句傳遞給函數(shù) If MsgBox(確認(rèn)要?jiǎng)h除該記錄嗎？ , vbQuestion + vbOKCancel, 刪除記錄 ) = vbOK Then ’ 刪除記錄集 Else Exit Sub End If Call ClearText = 保存 (amp。S) = False = False SELECT * FROM student_info If Then ’ 如記錄為空只顯示列名 = | 編號(hào) | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話 | 就職時(shí)間 | 家庭住址 | 注釋 Else ’ 否則顯示所有數(shù)據(jù) Set = = | 編號(hào) | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話 | 就職時(shí)間 | 家庭住址 | 注釋 ’ 設(shè)置列表框的列頭 End If select * from student_info Set = = | 編號(hào) | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話 | 就職時(shí)間 | 家庭住址 | 注釋 End Sub Private Sub cmdExit_Click() ’ 退出設(shè)置 Unload Me End Sub Private Sub Cmdfind_Click() ’ 查詢?cè)O(shè)置 Dim sql As String Dim sql1 As String Dim sql2 As String If = Empty And = Empty Then MsgBox 請(qǐng)輸入查詢條件！ , vbOKOnly + vbInformation, 員工信息設(shè)置 Exit Sub End If If Then ’ 設(shè)置 sql各分支查詢語(yǔ)句 sql1 = and student_name=39。 amp。 amp。 39。 Else sql1 = End If If Then sql2 = and depart=39。 amp。 amp。 39。 Else sql2 = End If sql = SELECT * FROM student_info where 1=1 amp。 sql1 amp。 sql2 ’ 合并 sql語(yǔ)句 sql ’ 將 sql語(yǔ)句賦給函數(shù) If Then = | 編號(hào) | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話 | 就職時(shí)間 | 家庭住址 | 注釋 MsgBox 沒有找到符合條件的記錄！ , vbOKOnly + vbInformation, 提示 = ’ 設(shè)置 0記錄顯示 Else Set = = | 編號(hào) | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話 | 就職時(shí)間 | 家庭住址 | 注釋 = True Change = False ’ 找到記錄把其值傳給各輸入控件 = !student_name = !depart = !student_id = !student_sex = Format(!Birth_date, yyyymmdd) = !tele_number = Format(!in_date, yyyymmdd) = !address = !ment = True = 更新 (amp。U) = True = True sql Set = = | 編號(hào) | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話 | 就職時(shí)間 | 家庭住址 | 注釋 End If End Sub Private Sub cmdReturn_Click() ’ 設(shè)置返回 SELECT * FROM student_info 39。If Not Then Set = = | 編號(hào) | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話| 就職時(shí)間 | 家庭住址 | 注釋 39。End If End Sub Private Sub Cmdsave_Click() ’ 保存按鈕命令 If = Empty Then ’ 設(shè)置各種輸入為空出錯(cuò)提示 MsgBox 請(qǐng)輸入姓名！ , vbInformation, 提示 Exit Sub End If If = Empty Then MsgBox 請(qǐng)選擇部門！ , vbInformation, 提示 Exit Sub End If If = Empty Then MsgBox 請(qǐng)選擇性別！ , vbInformation, 提示 Exit Sub End If If = Empty Then MsgBox 請(qǐng)輸入員工號(hào)！ , vbInformation, 提示 Exit Sub End If If = Empty Then MsgBox 請(qǐng)輸入出生日期！ , vbInformation, 提示 Exit Sub ElseIf Not IsDate(txtBirth) Then ’ 設(shè)置各種非有效值出錯(cuò) MsgBox 出生日期不是有效日期 ,請(qǐng)重新輸入 ., vbInformation, 提示 = ________ Exit Sub ElseIf Format(, yyyy/mm/dd) Format(Date, yyyy/mm/dd) Then MsgBox 出生日期不能大于今日 ,請(qǐng)重新輸入 ！ , vbInformation, 提示 Exit Sub ElseIf Format(, yyyy/mm/dd) Format(1/1/1900, yyyy/mm/dd) Then MsgBox 生出日期不能小于 1900年 ,請(qǐng)重新輸入！ , vbInformation, 提示 = ________ Exit Sub End If If = Empty Then MsgBox 請(qǐng)輸入就職時(shí)間！ , vbInformation, 提示 Exit Sub End If If Not IsDate(txtInDate) Then MsgBox 就職時(shí)間不是有效日期 ,請(qǐng)重新輸入！ , vbInformation, 提示 = ________ Exit Sub ElseIf Format(, yyyy/mm/dd) Format(Date, yyyy/mm/dd) Then MsgBox 就職日期不能大于今日 ,請(qǐng)重新輸入！ , vbInformation, 提示 = ________ Exit Sub ElseIf Format(, yyyy/mm/dd) Format(1/1/1900, yyyy/mm/dd) Then MsgBox 就職日期不能小于 1900年 ,請(qǐng)重新輸入！ , vbInformation, 提示 = ________ Exit Sub End If If = Empty Then If MsgBox(聯(lián)系電話是否為空 ?, vbYesNo + vbQuestion, 提示 ) = vbNo Then Exit Sub Else = 無(wú) End If End If If = Empty Then MsgBox 請(qǐng)輸入家庭地址！ , vbInformation, 提示 Exit Sub End If If = Empty Then = 無(wú) End If If = 保存 (amp。S) Then select * from student_Info where student_id=39。 amp。 amp。 39。 If Not Then MsgBox id已存在 ,請(qǐng)重新輸入！ , vbOKOnly + vbInformation, 提示 = Exit Sub End If With ’ 添加指向表的數(shù)據(jù)集 .AddNew !student_id = ’ 輸入信息存入數(shù)據(jù)集 !student_name = !student_sex = !Birth_date = !depart = !tele_number = !in_date = !address = !ment = .Update ’ 更新保存 End With Set = ’ 設(shè)置指向數(shù)據(jù)源的數(shù)據(jù)集 = | 編號(hào) | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話| 就職時(shí)間 | 家庭住址 | 注釋 MsgBox 信息已成功添加！ , vbOKOnly + vbInformation, 員工信息添加 = False = 添加 (amp。A) = 保存 (amp。S) = False = False Else select * from student_info where student_id=39。 amp。 amp。 39。 With !student_id = !student_name = !student_sex = !Birth_date = !depart = !tele_number = !in_date = !address = !ment = .Update ’ 成功保存數(shù)據(jù) End With MsgBox 信息已成功更新！ , vbOKOnly + vbInformation, 員工信息添加 = False = 保存 (amp。S) = 添加 (amp。A) = False = False End If = | 編號(hào) | 姓名 |性別 | 出生日期 |部門 | 聯(lián)系電話 | 就職時(shí)間 | 家庭住址 | 注釋 SELECT * FROM student_info Set = End Sub Private