vb課程設(shè)計——企業(yè)人事信息管理系統(tǒng)(編輯修改稿)
2025-05-04 06:47 本頁面
【文章內(nèi)容簡介】 rd=110。Persist Security Info=false。Initial Catalog=wage。Data Source=.。) Dim Cn As New OleDbConnection Dim cmd As OleDbCommand Dim SQLString As String //如果刪除自己的賬戶，將不能在使用本系統(tǒng) ………… End If Try If MyTag = 1 Then SQLString = INSERT INTO 用戶信息表 (用戶名,用戶密碼,用戶類型) amp。 _ VALUES(39。 amp。 amp。 39。, amp。 CInt() amp。 , amp。 _ amp。 ) ElseIf MyTag = 2 Then SQLString = DELETE 用戶信息表 WHERE 用戶名=39。 amp。 amp。 39。 ElseIf MyTag = 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 //您無權(quán)修改別人的密碼 …… Exit Sub End If End If = connstr () cmd = New OleDbCommand(SQLString, Cn) () Catch ex As Exception MsgBox() End Try () () = False GetUser() End Sub刪除用戶代碼：：39。/////////// 引入系統(tǒng)命名空間的文件Imports Imports Imports Imports Private Sub MenuItem14_Click(ByVal sender As , ByVal e As ) Handles ///////// 刪 除用戶 ……….End Sub：“確定”按鈕的Text屬性變?yōu)椤皠h除”，Label1的Visible屬性設(shè)置為False不可見， TextBox1的Visible屬性設(shè)置為False不可見，Label3的Visible屬性設(shè)置為False不可見，ComboBox1的Visible屬性設(shè)置為False不可見，Label2的Visible屬性設(shè)置為False不可見，TextBox2的Visible屬性設(shè)置為False不可見Private Sub login_Load(ByVal sender As , ByVal e As ) Handles GetUser() (普通用戶) (系統(tǒng)用戶) = False …….……. End IfEnd Sub：Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles Dim connstr As New String(provider=。User ID=sa。PassWord=110。Persist Security Info=false。Initial Catalog=wage。Data Source=.。) Dim Cn A
公司管理相關(guān)推薦
鄂ICP備17016276號-1