vb課程設(shè)計(jì)——企業(yè)人事信息管理系統(tǒng)-在線瀏覽
2025-05-25 06:47本頁(yè)面
【正文】 字段名類(lèi)型寬度Nulls1用戶(hù)名 Char 10否2用戶(hù)密碼 Char 20否3用戶(hù)類(lèi)型int 4否字段字段名類(lèi)型寬度Nulls1用戶(hù)名 Char 10否2用戶(hù)類(lèi)型 Char 10否3登錄時(shí)間char 40否添加用戶(hù)代碼：User ID=sa。Persist Security Info=false。Data Source=.。 _ VALUES(39。 amp。, amp。 , amp。 ) ElseIf MyTag = 2 Then SQLString = DELETE 用戶(hù)信息表 WHERE 用戶(hù)名=39。 amp。 ElseIf MyTag = 3 Then SQLString = UpDate 用戶(hù)信息表 SET 用戶(hù)密碼=39。 amp。,用戶(hù)類(lèi)型= amp。 WHERE 用戶(hù)名=39。 _ amp。 ElseIf MyTag = 4 Then If = Username Then SQLString = UpDate 用戶(hù)信息表 SET 用戶(hù)密碼=39。 amp。 WHERE 用戶(hù)名=39。 amp。 Else ………. Exit Sub End If End If = connstr () cmd = New OleDbCommand(SQLString, Cn) () Catch ex As Exception MsgBox() End Try () () = False GetUser() End Sub代碼如下：：39。User ID=sa。Persist Security Info=false。Data Source=.。 _ VALUES(39。 amp。, amp。 , amp。 ) ElseIf MyTag = 2 Then SQLString = DELETE 用戶(hù)信息表 WHERE 用戶(hù)名=39。 amp。 ElseIf MyTag = 3 Then SQLString = UpDate 用戶(hù)信息表 SET 用戶(hù)密碼=39。 amp。,用戶(hù)類(lèi)型= amp。 WHERE 用戶(hù)名=39。 _ amp。 ElseIf MyTag = 4 Then If = Username Then SQLString = UpDate 用戶(hù)信息表 SET 用戶(hù)密碼=39。 amp。 WHERE 用戶(hù)名=39。 amp。 Else //您無(wú)權(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刪除用戶(hù)代碼：：39。User ID=sa。Persist Security Info=false。Data Source=.。, , 警告！) = Then Exit Sub End If Try
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1