vb-net登錄界面源代碼-教務(wù)管理系統(tǒng)

1、Imports System.DataImports System.Data.OleDbPublic Class Login Inherits System.Windows.Forms.FormDim ServerLog As New AddServer Dim StrServer As String = ServerLog.TSever.Text Private Conn As New OleDbConnection("Integrated Security=SSPI;Packet Size=4096;Data Source='" & StrServer

2、& "'Tag with column collation when possible=False;Initial Catalog=ys;Use Procedure for Prepare=1;Auto Translate=True;Persist Security Info=False;Provider=SQLOLEDB.1;Workstation ID='" & StrServer & "'Use Encryption for Data=False") Private DC As New OleDbCo

3、nnection Private DA As New OleDbDataAdapter Private DS As New DataSet Dim Adminform As New Administrator Dim stuform As New student Dim Teaform As New Teacher Private Function Query(ByVal QueryString As String) As Boolean DS.Clear() Try DA = New OleDbDataAdapter(QueryString, Conn) DA.Fill(DS, "

4、TMInfo") Catch MessageBox.Show(Err.Description, "警告", _ MessageBoxButtons.OK, MessageBoxIcon.Warning) Exit Function End Try Dim dt As New DataTable dt = DS.Tables.Item(0) If account.Text = "" Or passwords.Text = "" Then MessageBox.Show(" 賬號(hào)或密碼不能為空", "

5、;提示信息", MessageBoxButtons.OK, MessageBoxIcon.Information) Return False ElseIf dt.Rows.Count = 0 Then '錯(cuò)誤 MessageBox.Show( _ "您輸入的賬號(hào)不存在", _ "警告", MessageBoxButtons.OK, MessageBoxIcon.Error) Return False End If Dim row As Data.DataRow '定義一個(gè)表格行對象。 row = dt.Rows.Item(0)

6、'將表格的第一行即密碼讀出 'passwords.Text = row.Item("password") If passwords.Text <> row.Item("password") Then '用戶的密碼不正確 MessageBox.Show( _ "對不起，您的密碼有誤。", _ "警告", MessageBoxButtons.OK, MessageBoxIcon.Error) Return False End If Return True End Function P

7、rivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim QueryString As String QueryString = "select * from TeaMagInfo where id='" & account.Text & "'" If account.Text = "Administrator" And passwords.

8、Text = "pass" Then Dim Addserv As New AddServer Addserv.ShowDialog() Else If (Query(QueryString) = True) Then Try DA = New OleDbDataAdapter(QueryString, Conn) DA.Fill(DS, "TMInfo") Catch MessageBox.Show(Err.Description, "警告", _ MessageBoxButtons.OK, MessageBoxIcon.Warni

9、ng) Exit Sub End Try Dim dt As New DataTable dt = DS.Tables.Item(0) Dim row As Data.DataRow '定義一個(gè)表格行對象。 row = dt.Rows.Item(0) If RadioAdmin.Checked Then If row.Item("ocu") <> "管理員".ToString Then MessageBox.Show("你選擇的用戶類型不正確", "提示信息", MessageBoxButton

10、s.OK, MessageBoxIcon.Information) Else Adminform.Show() Me.Visible = False End If End If If RadioTeacher.Checked Then If row.Item("ocu") <> "教師".ToString Then MessageBox.Show("你選擇的用戶類型不正確", "提示信息", MessageBoxButtons.OK, MessageBoxIcon.Information) Else &

11、#39; Me.Visible = False Me.DialogResult = DialogResult.OK Teaform.Show() Me.Visible = False End If End If End If End If If Radiostu.Checked Then DS.Clear() If account.Text = "" Or passwords.Text = "" Then MessageBox.Show(" 賬號(hào)或密碼不能為空", "提示信息", MessageBoxButtons

12、.OK, MessageBoxIcon.Information) Else Dim stu As Boolean = False Dim QuerString As String QuerString = "select * from stuBaseInfo where stuID='" & account.Text & "'and password='" & passwords.Text & "'" Try DA = New OleDbDataAdapter(QuerS

13、tring, Conn) DA.Fill(DS, "lk") Dim dtab As DataTable dtab = DS.Tables.Item("lk") If dtab.Rows.Count <> 0 Then stu = True Else MessageBox.Show("不存在此賬號(hào)信息或原始密碼錯(cuò)", "提示信息", MessageBoxButtons.OK, MessageBoxIcon.Information) End If Catch ex As Exception Message

14、Box.Show(Err.Description, "警告", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning) End Try If stu Then stuform.Show() Me.Visible = False End If End If End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End

15、Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.AcceptButton = Button1 Me.CancelButton = Button2 End Sub Private Sub OleDbConnection1_InfoMessage(ByVal sender As System.Object, ByVal e As System.Data.OleDb.OleDbInfoMessageEventArgs) End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender