宿舍管理系统代码实现Word文档下载推荐.docx
- 文档编号:13609939
- 上传时间:2022-10-12
- 格式:DOCX
- 页数:35
- 大小:391.98KB
宿舍管理系统代码实现Word文档下载推荐.docx
《宿舍管理系统代码实现Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《宿舍管理系统代码实现Word文档下载推荐.docx(35页珍藏版)》请在冰豆网上搜索。
主要代码如下:
在窗体中的鼠标移动过程中,以及在窗体初始化的时候,要把添加的线的.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=&
Line3.BorderColor=&
HE0E0E0
Line4.BorderColor=&
鼠标移动到标签的时候设置线条的颜色如下:
PrivateSubLabel3_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle)
Line1.Visible=True
Line2.Visible=True
Line3.Visible=True
Line4.Visible=True
(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="
登录不成功,请重新登录!
一、程序主界面
程序主界面为本软件的显示的核心部分。
一切主要操作及显示都通过这里完成。
整个界面主要由五部分组成。
菜单部分、工具栏、左侧操作栏、右侧显示栏以及状态栏。
①界面效果图如下:
图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"
edit.Show1
next2:
Case7
OnErrorResumeNext
Case9
back.Show1
Case11
'
SetDataGrid1.datasource=Adodc1
DataGrid1.Refresh
Calldx
Case13
EndSelect
StatusBar1.Panels
(2).Text="
当前用户:
Text2.Text
StatusBar1.Panels(3).Text="
用户模式:
Text1.Text
StatusBar1.Panels(4).Text=Date&
Time
设置普通用户模式
普通用户"
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
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
WithAdodc2
gongyu"
WithAdodc3
.Comm
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 宿舍 管理 系统 代码 实现
![提示](https://static.bdocx.com/images/bang_tan.gif)