vb課程設(shè)計(jì)——企業(yè)人事信息管理系統(tǒng)(參考版)
2025-04-10 06:47本頁面
【正文】 本系統(tǒng)可方便高級(jí)用戶進(jìn)行系統(tǒng)信息管理和維護(hù)，并允許普通用戶進(jìn)行部分信息瀏覽、察看，實(shí)行機(jī)制透明化管理，同時(shí)該系統(tǒng)提供了大量操作提示，以其較強(qiáng)的容錯(cuò)能力，大大方便了管理者和用戶的使用。本系統(tǒng)從功能上可以分為下列五個(gè)模塊：系統(tǒng)管理、部門管理、人員管理、工資管理及打印管理。database=wage。 39。 amp。 39。 amp。 39。 amp。integrated security=sspi。 Else …………同樣也可在工具欄中對(duì)用戶密碼進(jìn)行修改. 用戶查詢登錄時(shí)間代碼如下：： Private Sub MenuItem29_Click(ByVal sender As , ByVal e As ) Handles ‘/////調(diào)用用戶登錄時(shí)間窗體Dim frmdl As New Formdlsj () End Sub：Imports Imports Imports Public Class login Inherits Dim conn As New SqlConnection(data source=.。 amp。 WHERE 用戶名=39。 amp。 ElseIf MyTag = 4 Then If = Username Then SQLString = UpDate 用戶信息表 SET 用戶密碼=39。 _ amp。 WHERE 用戶名=39。,用戶類型= amp。 amp。 ElseIf MyTag = 3 Then SQLString = UpDate 用戶信息表 SET 用戶密碼=39。 amp。 ) ElseIf MyTag = 2 Then SQLString = DELETE 用戶信息表 WHERE 用戶名=39。 , amp。, amp。 amp。 _ VALUES(39。Data Source=.。Persist Security Info=false。User ID=sa。 Else ....... End If = connstr () cmd = New OleDbCommand(SQLString, Cn) () ……… End Sub修改用戶代碼如下：：Private Sub MenuItem26_Click(ByVal sender As , ByVal e As ) Handles ////////// 修改個(gè)人密碼 Dim xgmm As New FrmXTGL(4, Username) ()End Sub：39。 amp。 WHERE 用戶名=39。 amp。 ElseIf MyTag = 4 Then If = Username Then SQLString = UpDate 用戶信息表 SET 用戶密碼=39。 _ amp。 WHERE 用戶名=39。,用戶類型= amp。 amp。 ElseIf MyTag = 3 Then SQLString = UpDate 用戶信息表 SET 用戶密碼=39。 amp。 ) ElseIf MyTag = 2 Then SQLString = DELETE 用戶信息表 WHERE 用戶名=39。 , amp。, amp。 amp。 _ VALUES(39。) Dim Cn As New OleDbConnection Dim cmd As OleDbCommand Dim SQLString As String If = Username And MyTag = 2 Then If MsgBox(如果刪除自己的賬戶，將不能在使用本系統(tǒng)。Initial Catalog=wag
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1