计算机毕业设计介绍:
系统的主界面主要有七组子菜单组成,子菜单里包括系统的具体功能:系统管理,工资设置,资源管理,人事管理,工资管理,关于,帮助。
当主窗体运行时,首先启动登录窗口。如果不能通过身份验证,就不能进入系统,进行系统的操作。
代码如下:
Imports 人力资源管理系统._0.dbcon
Imports System.Data.SqlClient
Public Class Frmlogin
Public Shared strname
Private Sub btnout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnout.Click
Application.Exit() '退出系统
End Sub
Dim cm As New SqlCommand
Dim da As New SqlDataAdapter
Dim ds As New DataSet
Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
strname = Me.txtname.Text
createcon()
cm = New SqlCommand()
cm.Connection = conn
cm.CommandType = CommandType.Text
cm.CommandText = "SELECT * FROM users WHERE username = '" + Me.txtname.Text.Trim() + "' AND userpw = '" + Me.txtpass.Text.Trim() + "'"
da.SelectCommand = cm
If Me.txtname.Text.Trim() = String.Empty Then
MessageBox.Show("姓名不能为空")
Me.txtname.Focus()
ElseIf Me.txtpass.Text.Trim() = String.Empty Then
MessageBox.Show("密码不能为空")
Me.txtpass.Focus()
Else
da.Fill(ds, "users")
If ds.Tables("users").Rows.Count = 0 Then
MessageBox.Show("用户名不存在或密码不正确")
Me.txtpass.Focus()
Else
Dim frmmain1 As New Frmain
frmmain1.Show()
Me.Hide()
closecon()
End If
End If
End Sub
Private Sub Frmlogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
〖资料来源:计算机毕业论文 www.xiaoniu168.com〗
第5页为计算机毕业论文部分......