学生公寓管理系统设计与实现

在这个界面中，主要处理的是判断当前用户输入的信息是否正确。如果正确，那么它属于哪种类型用户。因为此管理软件在登录后不同类型的用户显示的窗体与实现的功能都不是一样的，它们会有所差别！ 【买计算机毕业论文就到计算机毕业论文网】 think58 [资料来源：http://think58.com]

(1) 浮动按钮的实现 copyright think58 [资料来源：www.THINK58.com]

确定和取消两个按钮在鼠标没有放上去之前看上去只是一个普通的平面字效果，但是当你把鼠标放在这几个字上面后，它会显示凸出的效果，按下后呈现凹陷的效果。总体实现立体的感觉。原理主要是在鼠标mousemove事件与线的颜色变化组合来实现。主要代码如下： 本文来自think58 [版权所有：http://think58.com]

在窗体中的鼠标移动过程中，以及在窗体初始化的时候，要把添加的线的.Visible 属性设置为 False，只有在鼠标按下的时候在改变其颜色即可。

内容来自think58

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)

[资料来源：http://think58.com]

Line1.Visible = False think58 [资料来源：http://THINK58.com]

Line2.Visible = False

think58好，好think58

[版权所有：http://think58.com]

Line3.Visible = False copyright think58

[资料来源：http://think58.com]

Line4.Visible = False 本文来自think58 [资料来源：THINK58.com]

Line5.Visible = False

[来源：http://think58.com]

Line6.Visible = False 本文来自think58

Line7.Visible = False think58.com [资料来源：THINK58.com]

Line8.Visible = False 本文来自think58

[版权所有：http://think58.com]

End Sub [版权所有：http://think58.com]

鼠标按下的时候设置线条的颜色如下：

think58好，好think58

[资料来源：www.THINK58.com]

Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single) copyright think58

[资料来源：THINK58.com]

Line1.BorderColor = &H808080

copyright think58 [资料来源：THINK58.com]

Line2.BorderColor = &H808080 think58.com [资料来源：THINK58.com]

Line3.BorderColor = &HE0E0E0 [资料来源：http://think58.com]

Line4.BorderColor = &HE0E0E0

本文来自think58 [资料来源：http://THINK58.com]

End Sub think58好，好think58 [资料来源：http://www.THINK58.com]

鼠标移动到标签的时候设置线条的颜色如下：

think58 [来源：http://think58.com]

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)

内容来自think58 [资料来源：THINK58.com]

Line1.BorderColor = &HE0E0E0 copyright think58 [版权所有：http://think58.com]

Line2.BorderColor = &HE0E0E0 内容来自think58

Line3.BorderColor = &H808080 本文来自think58 [资料来源：http://think58.com]

Line4.BorderColor = &H808080 本文来自think58

[资料来源：www.THINK58.com]

Line1.Visible = True think58.com

[资料来源：THINK58.com]

Line2.Visible = True think58.com

[版权所有：http://think58.com]

Line3.Visible = True think58.com [资料来源：http://think58.com]

Line4.Visible = True 内容来自think58 [资料来源：http://THINK58.com]

End Sub

[资料来源：THINK58.com]

(2) 用户类型判断 think58好，好think58 [资料来源：http://THINK58.com]

在数据库中建了一人yonghu表。在添加管理人员时有两种默认级别。管理员、普通用户。管理员拥有对数据库操作的一切权限。普通用户只有普通的查看，数据转换等。没有删除等操作功能。前用户成功登录后，会在主窗体的状态栏中显示出当前用户及其用户类型。

本文来自think58 [版权所有：http://think58.com]

主要代码如下： [资料来源：http://think58.com]

设置当前控件连接的数据库 [来源：http://think58.com]

Dim provider As String think58.com

[来源：http://www.think58.com]

Dim datasource As String

本文来自think58 [资料来源：http://THINK58.com]

[资料来源：http://www.THINK58.com]

provider = "provider=Microsoft.jet.oledb.4.0" [资料来源：http://www.THINK58.com]

datasource = "data source=" & App.Path & "\DB.mdb"

think58.com [资料来源：www.THINK58.com]

With Adodc1 内容来自think58

.Mode = adModeReadWrite

think58 [资料来源：http://think58.com]

.ConnectionString = provider & ";" & datasource think58

[版权所有：http://think58.com]

.CommandType = adCmdTable

think58 [来源：http://www.think58.com]

.RecordSource = "yonghu" [资料来源：www.THINK58.com]

.Refresh [资料来源：THINK58.com]

.Recordset.MoveFirst copyright think58 [资料来源：THINK58.com]

End With think58.com [资料来源：www.THINK58.com]

对用户进行判断 copyright think58

[资料来源：http://think58.com]

If Text1.Text = "" Then 内容来自think58

MsgBox "请输入用户名!", 48, "提示" 内容来自think58 [资料来源：THINK58.com]

Exit Sub think58.com

[版权所有：http://think58.com]

End If [资料来源：www.THINK58.com]

Adodc1.Recordset.Find "用户='" & Text1.Text & "'" 内容来自think58

[来源：http://www.think58.com]

If Adodc1.Recordset.EOF = False And Text2.Text = Trim(Adodc1.Recordset.Fields("pass")) Then think58

main.Text1.Text = Adodc1.Recordset.Fields("级别") 内容来自think58 [资料来源：http://www.THINK58.com]

main.Text2.Text = Adodc1.Recordset.Fields("用户") [资料来源：http://THINK58.com]

main.Show [资料来源：http://think58.com]

Unload Me

内容来自think58

[资料来源：http://think58.com]

[资料来源：http://www.THINK58.com]

Else

[来源：http://think58.com]

Text1.Text = ""

本文来自think58 [资料来源：www.THINK58.com]

Text2.Text = "" think58 [资料来源：http://www.THINK58.com]

MsgBox "登录不成功,请重新登录!", 48, "提示" copyright think58 [来源：http://think58.com]

End If

4.2 程序主界面

程序主界面为本软件的显示的核心部分。一切主要操作及显示都通过这里完成。整个界面主要由五部分组成。菜单部分、工具栏、左侧操作栏、右侧显示栏以及状态栏。

think58 [资料来源：http://www.THINK58.com]

[资料来源：http://think58.com]

(责任编辑：本站添加)