附 录
部分代码：
登陆：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim myConnection As SqlClient.SqlConnection = New SqlClient.SqlConnection(\
= (local); User ID =aaa; Password =aaa; Persist Security Info = False; Initial Catalog =aaa\)
Dim sqltext1, sqltext2, text1, text2 As String
Dim bloo As Boolean = True
sqltext1 = \ sqltext2 = \
myConnection.Open()
Dim mycom As New SqlCommand()
mycom.Connection = myConnection
mycom.CommandType = CommandType.Text
If RadioButton1.Checked Then
mycom.CommandText = sqltext1
Dim mydatareader As SqlDataReader = mycom.ExecuteReader()
While (mydatareader.Read())
text1 = mydatareader.GetInt32(0) text2 = mydatareader.GetString(1)
bloo = (text1 = TextBox1.Text And text2 = TextBox2.Text)
If (bloo) Then
Form2.Show()
Me.Hide() Exit While
End If End While If (bloo=False) Then
MessageBox.Show(\请输入正确的工号和密码\)
End If
ElseIf RadioButton2.Checked Then
mycom.CommandText = sqltext2
Dim mydatareader As SqlDataReader = mycom.ExecuteReader()
While (mydatareader.Read())
text1 = mydatareader.GetInt32(0) text2 = mydatareader.GetString(1)
bloo = (text1 = TextBox1.Text And text2 = TextBox2.Text)
If (bloo) Then
Form3.Show()
Me.Hide() Exit While
End If End While If (bloo = False) Then
MessageBox.Show(\请输入正确的工号和密码\)
End If
Else : MessageBox.Show(\请选择身份\)
End If
myConnection.Close() End Sub
宿舍管理员模块部分代码： Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myConnection As SqlClient.SqlConnection = New SqlClient.SqlConnection(\Source = (local); User ID =aaa; Password =aaa; Persist Security Info = False; Initial Catalog =aaa\)
Dim sqltext1, sqltext2, sqltext3 As String Dim bool As Boolean
bool = ((TextBox1.Text <> \) And (TextBox2.Text <> \) And (TextBox3.Text <> \) And (TextBox4.Text <> \))
sqltext1 = \
sqltext2 = \ & TextBox4.Text & \
sqltext3 = \ & TextBox2.Text & \ If (bool = False) Then
MessageBox.Show(\请输入完整信息\, \消息提示框\) Exit Sub End If
If (RadioButton1.Checked) Then
sqltext1 = sqltext1 & TextBox2.Text & \ & TextBox1.Text & \ & RadioButton1.Text & \ & TextBox3.Text & \ & DateTimePicker1.Value & \ & TextBox4.Text & \
ElseIf (RadioButton2.Checked) Then
sqltext1 = sqltext1 & TextBox2.Text & \ & TextBox1.Text & \ & RadioButton2.Text & \ & TextBox3.Text & \ & DateTimePicker1.Value & \ & TextBox4.Text & \ Else
MessageBox.Show(\请选择性别\, \) Exit Sub
End If
myConnection.Open()
Dim mycom As New SqlCommand() mycom.Connection = myConnection
mycom.CommandType = CommandType.Text Try
mycom.CommandText = sqltext1 mycom.ExecuteNonQuery()
Catch ex As SqlException
MessageBox.Show(\输入有误或者在数据库中不存在该寝室，应该先创建寝室\, \错误提示\) Exit Sub End Try
mycom.CommandText = sqltext2 Try
mycom.ExecuteNonQuery()
MessageBox.Show(\ 欢迎入住！ \, \ \ + TextBox4.Text) TextBox1.Text = \ TextBox2.Text = \ Catch ex As Exception
mycom.CommandText = sqltext3
mycom.ExecuteNonQuery()
MessageBox.Show(TextBox4.Text + \寝室居住人数已到达最大值 \, \ WARNING! \) Exit Sub End Try
myConnection.Close() End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button8.Click Form4.Show()
End Sub
致 谢
随着这篇毕业设计的完成，我大学四年的学习生活也即将结束。本论文是在指导老师谢本亮的悉心指导下完成的，导师耐心地对我的论文给以指正和建议，使我的论文不断完善，不断进步。从论文的选题、构思、设计、撰写和修改的每个过程，谢老师都倾注了大量的心血。谢老师和蔼亲切的形象，博大精深的理论功底，细致周到的治学作风，严谨的治学态度，朴实无华、平易近人的人格魅力，都给我非常大的影响。在此向谢老师致以崇高的敬意和衷心的感谢。同时，感谢贵州大学科技学院给了我学习的平台，还有在大学四年里传授给我知识和教我做人的各位老师，他们的教诲我永远不会忘记。在论文的写作过程中，我参阅了一些书籍、文献、论文，并在论文当中引用了一些学者的研究成果，在此表示衷心的感谢。然而通过这次的论文和设计，让我能够更好地使用开发工具，更加系统地使用数据库，更加熟悉项目开发的大致过程，从开始的系统需求分析、概念设计、逻辑设计、物理设计，再到数据库实施、系统的测试和调试，都能自立完成。当然，在系统开发的过程中也遇到了这样那样的问题，比如画E-R图，带输出变量的存储过程，具体的语句还不是很熟悉，但通过老师的悉心指导，以及和同学的交流沟通，克服了在开发过程中一个又一个的难题，让我坚信没有什么困难是克服不了的！不仅在学习中如此，在以后的生活中更应如此！
本文的顺利完成，离不开各位老师、同学、朋友的关心和帮助。在这里更应该感谢我的父母，无论是在生活上还是在学习上，对我无微不至的照顾，给予我鼓励、支持、开导、帮助，在背后默默付出，从不计较，正因为有他们的照顾才使得我大学四年的学业得以完成。本毕业论文设计的每个阶段，从选题到查阅资料、论文提纲的确定，中期论文的修改，后期论文格式的调整等各个环节谢老师都给予了悉心的指导。由于本人理论水平比较有限，论文中的有些观点难免有疏漏和不足的地方，欢迎各位
老师和同学给以指正。