【正文】 原 理及應(yīng)用教程 [M].北京 : 電子工業(yè)出版社 [6]彭林，余艷 .SQL Server 2021 經(jīng)典教程 [M].北京 : 人民郵電出版社 . [7]吳目誠 .精彩 Visual Basic 程序設(shè)計 [M].北京 : 科學(xué)出版社 . 33 附錄 原代碼： A、員工信息查詢代碼： Private rd As New Private Sub Command1_Click() If = adStateOpen Then End If If = 姓名 Then SELECT * FROM 人事 where 姓名 = 39。, db, adOpenStatic, adLockOptimistic Set = rd End If If = 員工編號 Then str1 = If (IsNumeric(str1) = False) Then MsgBox (輸入編號格式有錯誤 ) Exit Sub End If SELECT * FROM 人事表單 where 編號 = 39。, db, adOpenStatic, adLockOptimistic Set = rd End If If = 所在部門 Then SELECT * FROM 人事 where 部門名稱 = 39。, db, adOpenStatic, adLockOptimistic 34 Set = rd End If If = 1 Then MsgBox (查無相符信息 ) Exit Sub End If = End Sub B、員工信息操作及工資管理代碼： Private rd As New Private ra As New Private rb As New Public ame As String Public um As String Private Sub Command1_Click() If = adStateOpen Then End If If ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Then MsgBox (請?zhí)顚懰行畔?) 35 Exit Sub End If str1 = If (IsNumeric(str1) = False) Then MsgBox (輸入編號格式有錯誤 ) Exit Sub End If If str1 99999999 Or str1 10000000 Then MsgBox (輸入 編號格式有錯誤 ) Exit Sub End If If ( ) 19 Then MsgBox (您的年齡輸入有錯誤 ) Exit Sub End If SELECT * FROM 人事 where 編號 = 39。, db, adOpenStatic, adLockOptimistic If = False Or = False Then MsgBox (此編號已存在 ) Exit Sub End If rd(姓名 ) = rd(性別 ) = rd(編號 ) = 36 rd(學(xué)歷 ) = rd(部門名稱 ) = rd(崗位 ) = rd(工作性質(zhì) ) = rd(出生日期 ) = amp。 rd(工作時間 ) = amp。 rd(聯(lián)系方式 ) = = = = = End Sub Private Sub Command2_Click() = = = = End Sub Private Sub Command3_Click() Dim Y As Long If = adStateOpen Then End If 37 If = adStateOpen Then End If If = adStateOpen Then End If If ( = ) Or ( = ) Or ( = ) Then MsgBox (請?zhí)顚懰行畔?) Exit Sub End If str1 = If (IsNumeric(str1) = False) Then MsgBox (輸入編號格式有錯誤 ) Exit Sub End If If str1 99999999 Or str1 1 Then MsgBox (輸入編號格式有錯誤 ) Exit Sub End If str2 = If (IsNumeric(str2) = False) Then MsgBox (輸入工資有錯誤 ) Exit Sub End If 38 If str2 9999 Or str2 400 Then MsgBox (輸入工資有錯誤 ) Exit Sub End If SELECT * FROM 人事 where (編號 = 39。) and (姓名 =39。), db, adOpenStatic, adLockOptimistic If = True Or = True Then MsgBox (輸入信息不相符 ) Exit Sub Else: delete FROM 工資 where (編號 = 39。) and (姓名 =39。) , db, adOpenStatic, adLockOptimistic End If SELECT * FROM 工資 , db, adOpenStatic, adLockOptimistic rb(姓名 ) = rb(編號 ) = rb(工資數(shù)額 ) = rb(日期 ) = Year(Date) amp。 Day(Date) SELECT * FROM 工資 , db, adOpenStatic, adLockOptimistic Set = rb = = = 39 End Sub Private Sub Command4_Click() = = = End Sub Private Sub Command5_Click() Dim num As Long If = adStateOpen Then End If If = adStateOpen Then End If If = adStateOpen Then End If If ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Then MsgBox (請?zhí)顚懰行畔?) Exit Sub 40 End If str1 = If (IsNumeric(str1) = False) Then MsgBox (輸入編號格式有錯誤 ) Exit Sub End If If str1 99999999 Or str1 10000000 Then MsgBox (輸入編號格式有錯誤 ) Exit Sub End If If ( ) 19 Then MsgBox (您的年齡輸入有錯誤 ) Exit Sub End If SELECT * FROM 人事 where 編號 = 39。, db, adOpenStatic, adLockOptimistic If = False Or = False Then MsgBox (此編號已存在 ) Exit Sub End If delete FROM 人事 where (編號 = 39。) and (姓名 =39。) , db, adOpenStatic, adLockOptimistic SELECT * FROM 人事 , db, adOpenStatic, adLockOptimistic rb(姓名 ) = 41 rb(性別 ) = rb(編號 ) = rb(學(xué)歷 ) = rb(部門名稱 ) = rb(崗位 ) = rb(工作性質(zhì) ) = rb(出生日期 ) = amp。 rb(工作時間 ) = amp。 rb(聯(lián)系方式 ) = = = = = = = End Sub Private Sub Command6_Click() Dim Y As Long If = adStateOpen Then End If If ( = ) Or ( = ) Then MsgBox (請?zhí)顚懶彰c編號 ) Exit Sub 42 End If str1 = If (IsNumeric(str1) = False) Then MsgBox (輸入編號格式有錯誤 ) Exit Sub End If If str1 99999999 Or str1 1 Then MsgBox (輸入編號格式有錯誤 ) Exit Sub End If SELECT * FROM 工資 where (編號 = 39。) and (姓名 =39。) , db, adOpenStatic, adLockOptimistic If = True Or = True Then MsgBox (輸入信息不相符，不能刪除 ) Exit Sub Else: End If End Sub Private Sub data1_Click() End Sub Private Sub data3_Click() End Sub 43 Private Sub data2_Click() = False = False = False = True = False = False = False End Sub Private Sub data4_Click() End End Sub Private Sub Form_Load() = True = True = True = False = True = False If = adStateOpen Then End If SELECT * FROM 人事表單 , db, adOpenStatic, adLockOptimistic Set = rd End Sub 44 Private Sub Form_Unload(Cancel As Integer) End Sub Private Sub info1_Click() = Fals