必威体育精装版毕业设计模块代码（Module code for the latest graduation design）.docVIP

必威体育精装版毕业设计模块代码（Module code for the latest graduation design） 登陆模块： 导入系统。 进口system.data.oledb Form1类 昏暗的CON新OleDbConnection（“商=微软。飞机。OLEDB数据源= 4；C：\用户\ mosejj \桌面\扎克伯格\教师点名系统.mdb”） 暗淡CMD为听 昏暗的AD数据适配器 昏暗的SQL1，SQL2作为字符串 标志为整数 私有子button1_click（ByVal sender系统。对象，ByVal E系统。EventArgs）处理单击Button1。 尝试 如果textbox1.text.trim =“=”“然后”或textbox2.text.trim MsgBox（“请输入账号和密码！”） focus()的实例。 退出子 最后如果 open() CON。 SQL1 =“select count（*）是从哪里学号学生表学号= ”实例。文字和”和学生姓名= ” textBox2。文字和“” SQL2 =“select count（*）是从哪里用户名教师表用户名= ”实例。文字和”和密码= ” textBox2。文字和“” 如果勾选兵。 cmd =新OleDbCommand（SQL2，CON） 标志= 2 “3.1单选按钮选中的话 cmd =新OleDbCommand（SQL1，CON） 标志= 1 其他的 MsgBox（“请选择用户！”） 欺诈。（） 退出子 最后如果 如果cmd.executescalar 0 如果标志= 1，那么 show() Form3。 我hide() “旗= 2 我hide() show() Form2。 其他的 退出子 最后如果 其他的 MessageBox显示（“用户名或密码错误！”、“错误提示”，messageboxbuttons.ok，MessageBoxIcon。错误） 文本=“”的实例。 textBox2文本=“”。 focus()的实例。 最后如果 欺诈。（） 捕获异常 MessageBox显示（如message()）。 最后尝试 端子 私有子button2_click（ByVal sender系统。对象，ByVal E系统。EventArgs）处理单击Button2。 文本=“”的实例。 textBox2文本=“”。 focus()的实例。 端子 类的结束 考勤模块 导入系统。 进口system.data.oledb 表类 昏暗的建筑是字符串“商=微软。飞机。OLEDB数据源= 4；C：\用户\ mosejj \桌面\扎克伯格\教师点名系统.mdb” Dim conn as oledbconnection (New Building) Dim n as oledbcommand Dim ad as oledbdataadapter Dim DS as new dataset Dim Bs As BindingSource Private Sub Form2 _ Load (ByVal Sender as system. Object, ByVal e as system.eventargs handles mybase Load). Dim str1 as String = SELECT DISTINCT 班级id from 课程表 Comm = New oledbcommand (str1, Conn) As oledbdatareader RD1 dim Conn.open () Cmandtext = str1 Comm.executereader RD1 = While read RD1. Combobox2.items.add (RD1 (0) End while Conn.close () Dim str2 as String = SELECT DISTINCT 课程名 from 课程表 Comm = New oledbcommand (str2, Conn) As oledbdatareader Dim RD2 Conn.open () Cmandtext = str2 RD2 = comm.executereader While read RD2. Combobox1.items.add (RD2 (0) End while Conn.close () End Sub Private Sub button5 _ Click (ByVal Sender as system. Object, ByVal e as system.eventargs handles button5 click). If combobox1. Text = or combobo