管理信息系统课程设计人事档案管理(19)

ID=sa;Initial Catalog=canteen;Data Source=Me数据库" Dim con As New OleDb.OleDbConnection(constr) con.Open()

Dim sqlcmd As String = "select * from 管理员登录where 管理员代码=" & TextBox1.Text.Trim Dim cmd As New OleDb.OleDbCommand(sqlcmd, con) Dim reader As OleDb.OleDbDataReader reader = cmd.ExecuteReader If reader.Read = True Then

user_id = reader(0).ToString.Trim psw = reader(1).ToString.Trim End If reader.Close() con.Close()

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库管理信息系统课程设计人事档案管理(19)在线全文阅读。