宿舍管理系统代码实现.docx
- 文档编号:684210
- 上传时间:2022-10-12
- 格式:DOCX
- 页数:35
- 大小:391.98KB
宿舍管理系统代码实现.docx
《宿舍管理系统代码实现.docx》由会员分享,可在线阅读,更多相关《宿舍管理系统代码实现.docx(35页珍藏版)》请在冰豆网上搜索。
宿舍管理系统代码实现
代码实现
一、登录界面
此界面是由Photoshop制作而成。
在做这个登录面的时候想了很多,最后选择了这种,感觉它看起来干净,整齐。
又不失其庄雅。
加上本单位最有特色的建筑,会让人一目了然。
1.1登录图片显示
图4.1登录界面
1.2界面制作与实现
在这个界面中,主要处理的是判断当前用户输入的信息是否正确。
如果正确,那么它属于哪种类型用户。
因为此管理软件在登录后不同类型的用户显示的窗体与实现的功能都不是一样的,它们会有所差别!
(1)浮动按钮的实现
确定和取消两个按钮在鼠标没有放上去之前看上去只是一个普通的平面字效果,但是当你把鼠标放在这几个字上面后,它会显示凸出的效果,按下后呈现凹陷的效果。
总体实现立体的感觉。
原理主要是在鼠标mousemove事件与线的颜色变化组合来实现。
主要代码如下:
在窗体中的鼠标移动过程中,以及在窗体初始化的时候,要把添加的线的.Visible属性设置为False,只有在鼠标按下的时候在改变其颜色即可。
PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle)
Line1.Visible=False
Line2.Visible=False
Line3.Visible=False
Line4.Visible=False
Line5.Visible=False
Line6.Visible=False
Line7.Visible=False
Line8.Visible=False
EndSub
鼠标按下的时候设置线条的颜色如下:
PrivateSubLabel3_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle)
Line1.BorderColor=&H808080
Line2.BorderColor=&H808080
Line3.BorderColor=&HE0E0E0
Line4.BorderColor=&HE0E0E0
EndSub
鼠标移动到标签的时候设置线条的颜色如下:
PrivateSubLabel3_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle)
Line1.BorderColor=&HE0E0E0
Line2.BorderColor=&HE0E0E0
Line3.BorderColor=&H808080
Line4.BorderColor=&H808080
Line1.Visible=True
Line2.Visible=True
Line3.Visible=True
Line4.Visible=True
EndSub
(2)用户类型判断
在数据库中建了一人yonghu表。
在添加管理人员时有两种默认级别。
管理员、普通用户。
管理员拥有对数据库操作的一切权限。
普通用户只有普通的查看,数据转换等。
没有删除等操作功能。
前用户成功登录后,会在主窗体的状态栏中显示出当前用户及其用户类型。
主要代码如下:
设置当前控件连接的数据库
DimproviderAsString
DimdatasourceAsString
provider="provider=Microsoft.jet.oledb.4.0"
datasource="datasource="&App.Path&"\DB.mdb"
WithAdodc1
.Mode=adModeReadWrite
.ConnectionString=provider&";"&datasource
.CommandType=adCmdTable
.RecordSource="yonghu"
.Refresh
.Recordset.MoveFirst
EndWith
对用户进行判断
IfText1.Text=""Then
MsgBox"请输入用户名!
",48,"提示"
ExitSub
EndIf
Adodc1.Recordset.Find"用户='"&Text1.Text&"'"
IfAdodc1.Recordset.EOF=FalseAndText2.Text=Trim(Adodc1.Recordset.Fields("pass"))Then
main.Text1.Text=Adodc1.Recordset.Fields("级别")
main.Text2.Text=Adodc1.Recordset.Fields("用户")
main.Show
UnloadMe
Else
Text1.Text=""
Text2.Text=""
MsgBox"登录不成功,请重新登录!
",48,"提示"
EndIf
一、程序主界面
程序主界面为本软件的显示的核心部分。
一切主要操作及显示都通过这里完成。
整个界面主要由五部分组成。
菜单部分、工具栏、左侧操作栏、右侧显示栏以及状态栏。
①界面效果图如下:
图4.2程序主界面
左侧操作栏和右侧显示栏会在下面的内容中做介绍,现在只简单介绍一下工具栏和状态栏,以及主窗体的各个事件。
②它的实现方法如下所示:
DimoAsAdodc
Seto=DataGrid1.datasource
o.Recordset.Delete
o.Recordset.Update
这里主要是用到了ado对像的方法。
用这个方法得到数据源。
下面是整个工具栏运行时代码:
SelectCaseButton.Index
Case1
sel.Show1
Case3
add.Show1
Case5
OnErrorGoTonext2
DimsAsAdodc
Sets=DataGrid1.datasource
Ifs.RecordSource="users"Then
edit.Show1
EndIf
next2:
Case7
OnErrorResumeNext
DimoAsAdodc
Seto=DataGrid1.datasource
o.Recordset.Delete
o.Recordset.Update
Case9
back.Show1
Case11
WithAdodc1
.Mode=adModeReadWrite
.ConnectionString=provider&";"&datasource
.CommandType=adCmdTable
.RecordSource="users"'
.Refresh
EndWith
SetDataGrid1.datasource=Adodc1
DataGrid1.Refresh
Calldx
Case13
UnloadMe
EndSelect
main.Text1.Text=Adodc1.Recordset.Fields("级别")
main.Text2.Text=Adodc1.Recordset.Fields("用户")
StatusBar1.Panels
(2).Text="当前用户:
"&Text2.Text
StatusBar1.Panels(3).Text="用户模式:
"&Text1.Text
StatusBar1.Panels(4).Text=Date&""&Time
'设置普通用户模式
IfText1.Text="普通用户"Then
yhgl.Visible=False
g1.Visible=False
jlsc.Visible=False
gysz.Visible=False
Toolbar1.Buttons(5).Visible=False
Toolbar1.Buttons(6).Visible=False
Toolbar1.Buttons(7).Visible=False
Toolbar1.Buttons(8).Visible=False
EndIf
DataGrid1.Width=main.Width-SSTab1.Width
DataGrid1.Height=main.Height-StatusBar1.Height-CoolBar1.Height-750
SSTab1.Height=main.Height-StatusBar1.Height-CoolBar1.Height-750
Frame1.Height=main.Height-StatusBar1.Height-CoolBar1.Height-1200
Frame2.Height=main.Height-StatusBar1.Height-CoolBar1.Height-1200
Frame3.Height=main.Height-StatusBar1.Height-CoolBar1.Height-1200
TreeView1.Height=main.Height-StatusBar1.Height-CoolBar1.Height-1500
TreeView2.Height=main.Height-StatusBar1.Height-CoolBar1.Height-1500
TreeView3.Height=main.Height-StatusBar1.Height-CoolBar1.Height-1500
Y=main.Width
x=(Y-z)/4
StatusBar1.Panels
(1).Width=u+x
StatusBar1.Panels
(2).Width=v+x
StatusBar1.Panels(3).Width=w+x
StatusBar1.Panels(4).Width=m+x
provider="provider=Microsoft.jet.oledb.4.0"
datasource="datasource="&App.Path&"\DB.mdb"
WithAdodc1
.Mode=adModeReadWrite
.ConnectionString=provider&";"&datasource
.CommandType=adCmdTable
.RecordSource="users"'
.Refresh
EndWith
WithAdodc2
.Mode=adModeReadWrite
.ConnectionString=provider&";"&datasource
.CommandType=adCmdTable
.RecordSource="gongyu"
.Refresh
EndWith
WithAdodc3
.Mode=adModeReadWrite
.ConnectionString=provider&";"&datasource
.Comm
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 宿舍 管理 系统 代码 实现
![提示](https://static.bdocx.com/images/bang_tan.gif)