vb課程設(shè)計(jì)——企業(yè)人事信息管理系統(tǒng)-資料下載頁(yè)
2025-04-07 06:47本頁(yè)面
【正文】 ag = 3 Then SQLString = UpDate 用戶信息表 SET 用戶密碼=39。 amp。 amp。 _ 39。,用戶類型= amp。 amp。 WHERE 用戶名=39。 amp。 _ amp。 39。 ElseIf MyTag = 4 Then If = Username Then SQLString = UpDate 用戶信息表 SET 用戶密碼=39。 amp。 amp。 _ 39。 WHERE 用戶名=39。 amp。 amp。 39。 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=.。database=wage。integrated security=sspi。) Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles If Trim(GetPsw(Trim())) = Trim() And Len() 0 Then Dim mf As New FrmMain(, ) Dim s As String = Dim c As New SqlCommand(insert into 登錄時(shí)間表(用戶名,用戶類型,登錄時(shí)間) values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 (0, 15) amp。 39。), conn) Try () () () () () Catch ex As Exception MsgBox() End Try Else MsgBox(請(qǐng)選擇您的姓名并輸入正確的密碼！) End IfEnd Sub在Formdlsj窗體下：Imports Imports Public Class Formdlsj Inherits Dim con As New SqlConnection(data source=.。database=wage。integrated security=sspi)Dim ds As New DataSetPrivate Sub Formdlsj_Load(ByVal sender As , ByVal e As ) Handles Dim ad As New SqlDataAdapter(select * from 登錄時(shí)間表 , con) () (ds) (0). = 登錄時(shí)間 = (0).DefaultViewEnd SubEnd Class第五章 課程設(shè)計(jì)總結(jié)本系統(tǒng)從功能上可以分為下列五個(gè)模塊：系統(tǒng)管理、部門管理、人員管理、工資管理及打印管理。系統(tǒng)管理（包括用戶管理）：分為系統(tǒng)用戶和普通用戶，主要對(duì)公司員工信息修整和查看，同時(shí)可以添加刪除修改用戶，修改密碼；部門管理：對(duì)各部門之間的調(diào)動(dòng)、調(diào)整以及相關(guān)信息的改變；人員管理：對(duì)員工的添加、刪除、信息修改、考勤結(jié)果進(jìn)行管理操作；工資管理：對(duì)員工的基本工資、資金補(bǔ)貼等任務(wù)的管理操作；打印管理：對(duì)員工的信息資料、工資等相關(guān)項(xiàng)目和內(nèi)容進(jìn)行報(bào)表預(yù)覽。本系統(tǒng)可方便高級(jí)用戶進(jìn)行系統(tǒng)信息管理和維護(hù)，并允許普通用戶進(jìn)行部分信息瀏覽、察看，實(shí)行機(jī)制透明化管理，同時(shí)該系統(tǒng)提供了大量操作提示，以其較強(qiáng)的容錯(cuò)能力，大大方便了管理者和用戶的使用。確保了數(shù)據(jù)的安全性、正確性、完整性和一致性。10 / 10
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1