换、退出的功能。
运行图如下:
图3.3系统设置运行图
3.2.1用户管理
可以进行管理人员的添加和修改以及删除操作。添加人员可以分为两类:普通用户、管理员。可以视不同人员而添加。管理员拥有所有权力,对整个系统的操作。普通用户只有浏览、及一些简单的添加操作权力。无用户设置、公寓设置及记录删除等权力。
3.2.2公寓设置
分为三个主要的操作:公寓设置、寝室设置、班级设置。在这里可以添加学校所有的公寓、所有班级、每个公寓的所有寝室,也可以用此软件管理一幢公寓。这样操作起来会更简单、操作一目了然。
3.2.3数据备份
这是一个数据管理软件所必不可少的一部分,利用它可以及时的备份当前的数据库以及在出现故障后利用已保存的数据进行恢复。
3.2.4数据转换
利用数据转换将当前数据库中的表转换成Excel表格的形式,显示更为直观,可以进行打印等操作。
3.3高校固定资产管理系统
主要完成:学生请假、学生违规、床位设置的功能。
运行图如下:
图3.4高校固定资产管理系统运行图
3.3.1学生请假
主要是对学生请假记录做一个添加。利用它可以把学生的基本的请假资料保存起来。
3.3.2学生违规
主要是对学生违规记录做一个添加。利用它可以把学生的基本的违规资料保存起来。
3.3.3床位设置
通过床位设置可以简单查看每个公寓每个寝室的床位使用情况以及床位剩余情况。还可以通过详细查看,查看到某个公寓某个寝室住宿人员的人数,以及具体的住宿人员的名字。
3.4卫生检查
主要完成:添加检查记录的功能。卫生检查可以对卫生检查的结果进行记录。这里的卫生标准一共有五项可以填写,在每一项里已经基本设置了所不合标准的记录,你可以在下拉列表框中进行选择即可,但是如果没有你想输入的记录的话,也可以自己输入。运行图如下:
图3.5卫生检查运行图
3.5公寓资产
主要完成:添加新增物品的功能。可以对公寓资产的收入或其它物品的入库进行记录。运行图如下:
图3.6公寓资产运行图
3.6记录查看与记录删除
主要是对学生请假、学生违规、卫生记录,公寓资产等记录所进行的操作,利用这两个功能可以对任一记录进行查看与删除。运行图如下:
图3.7记录查看图3.8记录删除运行图
3.7值班记录
它的功能主要是针对值班人员开发出来的,在这里可以让值班人员对当天值班情况进行一个小记,以便日后查看。运行图如下:
图3.9值班记录运行图
3.8帮助制作
对于一个稍显正规的软件来说帮助的制作都是必不可少的内容,本程序也不例外,制作了此帮助文档。在程序中可以按F1或点击帮助菜单来显示此help.Chm文档。以便对本软件进行快速操作。运行图如下:
图3.10帮助运行图
第四章程序设计
主程序流程图
4.1登录界面
此界面是由Photoshop制作而成。在做这个登录面的时候想了很多,最后选择了这种,感觉它看起来干净,整齐。又不失其庄雅。加上本单位最有特色的建筑,会让人一目了然。
4.1.1登录图片显示
图4.1登录界面
4.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程序主界面
程序主界面为本软件的显示的核心部分。一切主要操作及显示都通过这里完成。整个界面主要由五部分组成。菜单部分、工具栏、左侧操作栏、右侧显示栏以及状态栏。
①界面效果图如下:
图4.2程序主界面
菜单栏的详见附录内容,这里就不提了。左侧操作栏和右侧显示栏会在下面的内容中做介绍,现在只简单介绍一下工具栏和状态栏,以及主窗体的各个事件。
工具栏主要是由coolbar制作而成。由它制做的工具栏的显示效果会更有立体感一些。这里只列出了几个常用的按钮。其中的添加按钮是用来对公寓住宿人员进行添加,修改也是对所住宿人员进行修改,想要进行修改时必须显示所有记录时才可以进行。在这里值得一提的是删除DataGrid的操作,由于不知道它的当前数据源是哪个,所以在删除前要确定它的数据源,也就是它所链接的adodc1的数据源,或者是其它ado控件对它的数据源进行重新绑定后的数据库表,也有可能是经过一个查询后得到的记录。
②它的实现方法如下所示:
DimoAsAdodc
Seto=DataGrid1.datasource
o.Recordset.Delete
o.Recordset.Update
这里主要是用到了ado对像的方法。用这个方法得到数据源。
下面是整个工具栏运行时代码:
SelectCaseButton.Index
Case1
sel.Show1
Case3
add.Show1
Case5
GoTonext2
DimsAsAdodc
Sets=DataGr
上一篇:
vb餐饮酒店管理系统(论文和程序)
下一篇:
还记得,那年的风车吗?