《最新毕业设计模块代码》由会员分享,可在线阅读,更多相关《最新毕业设计模块代码(7页珍藏版)》请在金锄头文库上搜索。
1、最新毕业设计模块代码最新毕业设计模块代码登陆模块:Imports System.DataImports System.Data.OleDbPublic Class Form1Dim con As New OleDbConnection(“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:UsersmosejjDesktop扎克伯格教师点名系统.mdb“)Dim cmd As OleDbCommandDim ad As OleDbDataAdapterDim sql1, sql2 As StringDim flag As IntegerPrivate
2、Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTryIf TextBox1.Text.Trim = “ Or TextBox2.Text.Trim = “ ThenMsgBox(“请输入账号和密码!“)TextBox1.Focus()Exit SubEnd Ifcon.Open()sql1 = “select count(*) as 学号 from 学生表 where 学号=“ Data Source=C:UsersmosejjDesktop扎
3、克伯格教师点名系统.mdb“Dim conn As New OleDbConnection(constr)Dim comm As OleDbCommandDim ad As OleDbDataAdapterDim ds As New DataSetDim bs As BindingSourcePrivate Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim str1 As String = “select distinct 班级 ID from 课程
4、表“comm = New OleDbCommand(str1, conn)Dim rd1 As OleDbDataReaderconn.Open()comm.CommandText = str1rd1 = comm.ExecuteReaderWhile rd1.ReadComboBox2.Items.Add(rd1(0)End Whileconn.Close()Dim str2 As String = “select distinct 课程名 from 课程表“comm = New OleDbCommand(str2, conn)Dim rd2 As OleDbDataReaderconn.O
5、pen()comm.CommandText = str2rd2 = comm.ExecuteReaderWhile rd2.ReadComboBox1.Items.Add(rd2(0)End Whileconn.Close()End SubPrivate Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickIf ComboBox1.Text = “ Or ComboBox2.Text = “ ThenMsgBox(“请您选课程名和班级!“)Exit
6、SubElsebs = New BindingSource()comm = New OleDbCommand(“select distinct 学生表.* ,课程表.课程名 from 学生表 , 课程表 where 课程表.课程名=“ & ComboBox1.Text & “ and 学生表.班级 ID=cint(“ & ComboBox2.Text & “) “, conn)ad = New OleDbDataAdapter(comm)conn.Open()ds.Clear()ad.Fill(ds, “s“)bs.DataSource = ds.Tables(“s“)DataGridView
7、1.DataSource = bsBindingNavigator1.BindingSource = bsTextBox2.DataBindings.Clear()TextBox3.DataBindings.Clear()TextBox2.DataBindings.Add(“Text“, bs, “学号“)TextBox3.DataBindings.Add(“Text“, bs, “学生姓名“)conn.Close()End IfEnd SubPrivate Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.E
8、ventArgs) Handles Button8.Clickcomm = New OleDbCommand(“insert into 点名表(学号,学生姓名,课程名,状态,日期) values(“ & DataGridView1.CurrentRow.Cells(0).Value.ToString() & “ ,“ & DataGridView1.CurrentRow.Cells(1).Value.ToString() & “ ,“ & DataGridView1.CurrentRow.Cells(4).Value.ToString() & “,“ & Button8.Text & “,“
9、& DateTimePicker1.Value.ToShortDateString & “) “, conn)conn.Open()comm.ExecuteNonQuery()MessageBox.Show(“旷课!“)conn.Close()End SubPrivate Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Clickcomm = New OleDbCommand(“insert into 点名表(学号,学生姓名,课程名,状态,日期) valu
10、es(“ & DataGridView1.CurrentRow.Cells(0).Value.ToString() & “ ,“ & DataGridView1.CurrentRow.Cells(1).Value.ToString() & “ ,“ & DataGridView1.CurrentRow.Cells(4).Value.ToString() & “,“ & Button9.Text & “,“ & DateTimePicker1.Value.ToShortDateString & “) “, conn)conn.Open()comm.ExecuteNonQuery()MessageBox.Show(“请假!“)conn.Close()End SubEnd Class