【正文】 Dim dd As String Set bb = New cc = select * from 用戶表 where 員工編號 =39。 cc, aa If Not Then MsgBox 員工號重復，請重新輸入 Exit Sub End If Set bb = New yy = select * from 用戶表 where 姓名 =39。 yy, aa If Not Then MsgBox 此員工已經(jīng)存在 重慶工商大學 畢業(yè)設計說明書 28 Exit Sub End If Set bb = New xx = select * from 用戶表 where 所在部門 =39。 and 職稱 =39。 xx, aa If Not Then MsgBox 該部長已經(jīng)任職，錯誤操作 Exit Sub End If Set bb = New If MsgBox(真的要添加用戶 + , vbOKCancel + vbExclamation, 警告 ) = vbOK Then dd = insert into 用戶表 (姓名 ,性別 ,員工編號 ,密碼 ,所在部門 ,職稱 )values(39。,39。,39。,39。,39。,39。) dd MsgBox 員工信息添加成功 = = End If Private Sub Form_Load() Set aa = New Set bb = New dsn=ss Dim cc As String bm = select 部門名稱 from 部門表 bm bm, aa While = False (0) Wend End Sub 重慶工商大學 畢業(yè)設計說明書 29 4． 2． 1． 2 用戶刪除界面 及代碼 當 某一 用戶離職時，可以通過此功能對用戶進行刪除 ，但是不能刪除部長等高級職務 。 Private Sub Command1_Click() Dim dd As String Set bb = New If () Then If MsgBox( 真的要刪除用戶 + (), vbOKCancel + vbExclamation, 警告 ) = vbOK Then str = select * from 用戶表 where 姓名 =39。 and 職稱 =39。 str, aa 重慶工商大學 畢業(yè)設計說明書 30 If Not Then MsgBox 不能刪除高級用戶 Else Set dd = New dd = delete from 用戶表 where 姓名 =39。 dd MsgBox 該用戶已經(jīng)刪除 Set aa = New Set bb = New dsn=ss Dim cc As String cc = select 姓名 from 用戶表 cc cc, aa While = False (0) Wend End If End If End If End Sub Private Sub Form_Load() Set aa = New Set bb = New dsn=ss Dim cc As String cc = select 姓名 from 用戶表 cc cc, aa While = False (0) 重慶工商大學 畢業(yè)設計說明書 31 Wend 4． 2． 1． 3 修 改用戶基本資料界面 當用戶的資料出現(xiàn) 錯誤時，可以通過該功能對用戶的信息進行修改 4． 2． 1． 4 查詢用戶信息界面 及代碼 此界面可顯示出所有用戶的信息，并且可以按姓名或員工編號對用戶進行查詢并在文本 框 中得到顯示 。選擇好查詢方式后，點查詢按扭就可以得到某個想要查詢的用戶的具體信息了。 重慶工商大學 畢業(yè)設計說明書 32 Private Sub Command5_Click() End Sub Private Sub Command1_Click() Set bb = New If Then = False If = Then MsgBox 請輸入您要查詢的用戶 Else str = select * from 用戶表 where 姓名 =39。 str, aa If Not Then For i = 0 To 5 Text1(i).Text = (i) Next i 重慶工商大學 畢業(yè)設計說明書 33 = str Else MsgBox 該用戶不存在 End If End If = Exit Sub End If If Then = False If = Then MsgBox 請輸入您要查詢的員工號 Else str = select * from 用戶表 where 員工編號 =39。 str, aa If Not Then For i = 0 To 5 Text1(i).Text = (i) Next i = str Else MsgBox 該用戶不存在 End If End If = Exit Sub End If If = Then 重慶工商大學 畢業(yè)設計說明書 34 MsgBox 請選擇查詢方式 = = Exit Sub End If End Sub Private Sub Command2_Click() End Sub Private Sub Form_Load() Set aa = New Set bb = New dsn=ss End Sub 4． 2． 1． 5 修改當前用戶密碼界面 及代碼 該界面會自動返回當前用戶的姓名，只要輸入正確的舊密碼，該用戶就可以修改自己的密碼了。 + Trim() + 39。 + Trim(Text1(3).Text) + 39。 + Trim$(Text1(2).Text) + 39。 + Trim$() + 39。包括的界面為部門添加部門刪除實現(xiàn)方法與用戶的添加和刪除功能類似，不在贅述只是在刪除時設置了不能刪除高級用戶 以及還有人員在此部門任職時，不能刪除該部門 4． 2． 3 職務管理 模塊 包括三個界面，部門添加，部門刪除以及當企業(yè)內(nèi)部出現(xiàn)職務調整或變遷時，可使用職務調轉功能實現(xiàn)對員工信息的更改 。 4． 2． 3． 1 部門添加及刪除界面及代碼 其 實現(xiàn)方法與用戶的添加和刪除功能類似， 故 不贅述 4． 2． 3． 2 職務調轉界面 重慶工商大學 畢業(yè)設計說明書 37 當企業(yè)內(nèi)部出現(xiàn)職務遷升或調轉的時候，就可以通過該界面進行其信息的管理。 + Trim$() + 39。 + Trim$() + 39。所在部門 39。 + Trim$() + 39。部長 39。 + + 39。 + Trim$() + 39。 + + 39。 + Trim$() + 39。當用戶沒有收到信息的歷史記錄時，則上一條、下一條、刪除信息按扭都不可用。 + Trim$() + 39。139。 + Trim$(Text1(0).Text) + 39。 + Trim$(Text1(1).Text) + 39。 + Text1(2).Text + 39。 + Trim$(Text1(3).Text) + 39。 + Trim$(Text1(4).Text) + 39。 + Trim$() + 39。 + Trim$() + 39。139。 cc, aa = adCmdText = ww If Not Then 重慶工商大學 畢業(yè)設計說明書 42 = 0 For i = 0 To 4 = i Text1(i).Text = Next i Else = False = False = False = False = False End If End Sub Private Sub Command9_Click() If Not Then For i = 0 To 4 = i Text1(i).Text = Next i Else End If End Sub Private Sub Form_Load() = = = = Format(Now, yyyymmdd) = Trim$(Time) Dim ss As String Set bb = New rr = select 權限代號 from 職務表 where 職務名稱 =39。 重慶工商大學 畢業(yè)設計說明書 43 rr, aa If Not Then If (0) = 0 Then = False = False End If Set aa = New Set bb = New dsn=ss Set bb = New Dim cc As String cc = select * from 信息表 where 收件人 =39。 and 信息狀態(tài) =1 = adCmdText = cc If Not Then = 0 For i = 0 To 4 = i Text1(i).Text = Next i Else = False = False = False = False End If Set bb = New Dim ee As String ee = select * from 信息表 where 收件人 =39。and 信息狀態(tài) =39。 ee, aa 重慶工商大學 畢業(yè)設計說明書 44 If Then = False End If End If End Sub 4． 2． 4． 1 發(fā)送信息及廣播主界面 及代碼 通過該界面可以想公司的其他內(nèi)部成