最新毕业设计模块代码.doc

最新毕业设计模块代码 登陆模块： Imports System.Data Imports System.Data.OleDb Public Class Form1 Dim con As New OleDbConnection(Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\mosejj\Desktop\扎克伯格\教师点名系统.mdb) Dim cmd As OleDbCommand Dim ad As OleDbDataAdapter Dim sql1, sql2 As String Dim flag As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try If TextBox1.Text.Trim = Or TextBox2.Text.Trim = Then MsgBox(请输入账号和密码！) TextBox1.Focus() Exit Sub End If con.Open() sql1 = select count(*) as 学号 from 学生表 where 学号= TextBox1.Text and 学生姓名= TextBox2.Text sql2 = select count(*) as 用户名 from 教师表 where 用户名= TextBox1.Text and 密码= TextBox2.Text If RadioButton1.Checked Then cmd = New OleDbCommand(sql2, con) flag = 2 ElseIf RadioButton2.Checked Then cmd = New OleDbCommand(sql1, con) flag = 1 Else MsgBox(请选择用户！) con.Close() Exit Sub End If If cmd.ExecuteScalar 0 Then If flag = 1 Then Form3.Show() Me.Hide() ElseIf flag = 2 Then Me.Hide() Form2.Show() Else Exit Sub End If Else MessageBox.Show(用户名或密码错误！, 错误提示, MessageBoxButtons.OK, MessageBoxIcon.Error) TextBox1.Text = TextBox2.Text = TextBox1.Focus() End If con.Close() Catch ex As Exception MessageBox.Show(ex.Message()) End Try End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text