《宿舍管理系统代码实现》由会员分享，可在线阅读，更多相关《宿舍管理系统代码实现（29页珍藏版）》请在金锄头文库上搜索。
1、代码实现一、登录界面此界面是由Photoshop制作而成。在做这个登录面的时候想了很多，最后选择了这种，感觉它看起来干净，整齐。又不失其庄雅。加上本单位最有特色的建筑，会让人一目了然。1.1 登录图片显示图登录界面1.2 界面制作与实现在这个界面中，主要处理的是判断当前用户输入的信息是否正确。如果正确，那么它属于哪种类型用户。因为此管理软件在登录后不同类型的用户显示的窗体与实现的功能都不是一样的，它们会有所差别！(1) 浮动按钮的实现确定和取消两个按钮在鼠标没有放上去之前看上去只是一个普通的平面字效果，但是当你把鼠标放在这几个字上面后，它会显示凸出的效果，按下后呈现凹陷的效果。总体实现立体的感
2、觉。原理主要是在鼠标mousemove事件与线的颜色变化组合来实现。主要代码如下：在窗体中的鼠标移动过程中，以及在窗体初始化的时候，要把添加的线的.Visible属性设置为False，只有在鼠标按下的时候在改变其颜色即可。PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle)=False=False=False=False=False=False=False=FalseEndSub鼠标按下的时候设置线条的颜色如下：PrivateSubLabel3_MouseDown(ButtonAsInteger
3、,ShiftAsInteger,xAsSingle,YAsSingle)=&H808080=&H808080=&HE0E0E0=&HE0E0E0EndSub鼠标移动到标签的时候设置线条的颜色如下：PrivateSubLabel3_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle)=&HE0E0E0=&HE0E0E0=&H808080=&H808080=True=True=True=TrueEndSub(2) 用户类型判断在数据库中建了一人yonghu表。在添加管理人员时有两种默认级别。管理员、普通用户。管理员拥有对数据库操
4、作的一切权限。普通用户只有普通的查看，数据转换等。没有删除等操作功能。前用户成功登录后，会在主窗体的状态栏中显示出当前用户及其用户类型。主要代码如下：设置当前控件连接的数据库DimproviderAsStringDimdatasourceAsStringprovider=provider=datasource=datasource=&WithAdodc1.Mode=adModeReadWrite.ConnectionString=provider&;&datasource.CommandType=adCmdTable.RecordSource=yonghu.RefreshEnd With对用户
5、进行判断If=ThenMsgBox请输入用户名匚48,提示ExitSubEndIf用户=&皿If=FalseAnd=Trimpass)Then=级别”)=用户)UnloadMeElse=MsgBox登录不成功，请重新登录！”,48,提示EndIf程序主界面程序主界面为本软件的显示的核心部分。一切主要操作及显示都通过这里完成。整个界面主要由五部分组成。菜单部分、工具栏、左侧操作栏、右侧显示栏以及状态栏。界面效果图如下:丁生俊近鹏月敏祥V1.OL.L芾脩社再年号对卫生铺里山待产记恩万苍彳豪删除瞪比出泵ffiJh於日格彳J直剪-.昨相7也附有在fffi转具与2篇富Ml沈忠宇小再87离kT酉希生 一所
6、*寓*寓离X鼻2a&公号号等4号W用根才二管伸嗡学生期才可种事抗力0L王飞图程序主界面左侧操作栏和右侧显示栏会在下面的内容中做介绍，现在只简单介绍一下工具栏和状态栏，以及主窗体的各个事件。它的实现方法如下所示：DimoAsAdodcSeto=这里主要是用到了ado对像的方法。用这个方法得到数据源。下面是整个工具栏运行时代码：SelectCaseCase11Case31Case5OnErrorGoTonext2DimsAsAdodcSets=If=usersThen1EndIfnext2:Case7OnErrorResumeNextDimoAsAdodcSeto=91Case11WithAdod
7、c1.Mode=adModeReadWrite.ConnectionString=provider&;&datasource.CommandType=adCmdTable.RecordSource=users.RefreshEndWithSet=Adodc1CalldxCase13UnloadMeEndSelect=级别)=用户)(2) .Text=当前用户：&(3) .Text=用户模式：&(4) .Text=Date&Time设置普通用户模式If=普通用户Then=False=False=False=False(5) .Visible=False(6) .Visible=False(7)
8、.Visible=False(8) .Visible=FalseEndIf=-=-750=-750=-1200=-1200=-1200=-1500=-1500=-1500Y=x=(Y-z)/4(1) .Width=u+x(2) .Width=v+x(3) .Width=w+x(4) .Width=m+xprovider=provider=datasource=datasource=&WithAdodc1.Mode=adModeReadWrite.ConnectionString=provider&;&datasource.CommandType=adCmdTable.RecordSource=
9、users.RefreshEndWithWithAdodc2.Mode=adModeReadWrite.ConnectionString=provider&;&datasource.CommandType=adCmdTable.RecordSource=gongyu.RefreshEndWithWithAdodc3.Mode=adModeReadWrite.ConnectionString=provider&;&datasource.CommandType=adCmdTable.RecordSource=class.RefreshEndWithWithAdodc4.Mode=adModeRea
10、dWrite.ConnectionString=provider&;&datasource.CommandType=adCmdTable.RecordSource=weisheng.RefreshEnd WithWithAdodc5.Mode=adModeReadWrite.ConnectionString=provider&;&datasourceEndWithWithAdodc6.Mode=adModeReadWrite.ConnectionString=provider&;&datasource.CommandType=adCmdTable.RecordSource=dengji.Ref
11、reshEndWithWithAdodc7.Mode=adModeReadWrite.ConnectionString=provider&;&datasource.CommandType=adCmdTable.RecordSource=qinshi.RefreshEndWithWithAdodc9.Mode=adModeReadWrite.ConnectionString=provider&;&datasource.CommandType=adCmdTable.RecordSource=zichan.RefreshEndWithtreeview部分树形显示的初始化在这里已经做了几个过程，调用即
12、可。三、系统管理3.1用户管理界面效果图图用户管理界面制作与实现方法这个界面总体来说各个控件比较简单，但是作为一个添加删除管理员的操作，它已经连接到了数据库，与数据库的yonghu表相联。各个控件也与数据库中表的字段绑定。在窗体初始化的时候要判断当前数据库表中是否有记录，如果没有记录那么有些按钮将会被设置成为失效状态，否则会出现错误。设置代码如下：DimproviderAsStringDimdatasourceAsStringprovider=provider=datasource=datasource=&WithAdodc1.Mode=adModeReadWrite.ConnectionSt
13、ring=provider&;&datasource.CommandType=adCmdTable.RecordSource=yonghu.RefreshEndWith=False=FalseIf=0Then=False=False=False=FalseEndIf上一条与下一条的功能一目了然，它们可以对当前表进行上一条记录或下一条记录依次查看。当找到记录后，可以对其进行相对的删除、修改等操作。上一条记录与下一条的记录在查看时有一个判断。当表中记录移到最前面（BOH或最后面（EOF时，会把上一条或下一条其中的一个按钮的enable属性设置为true。即不可以前查看或向后查看。上一条与下一条主要
14、代码如下：移动记录=TrueIfThen=False移动记录=TrueIfThen=FalseEndIf添加用户可以添加使用该管理软件的用户。添加的时候可以选择所添加人物的级别。软件默认为两个级别：管理员、普通用户。管理员拥有对此软件管理操作等一切的权力。普通用户，只有普通的查看、查询、备份、添加等权力。没有对记录删除等权力。在添加用户时你可以选择一个且必须选择一个。然后输入此用户的用户名和密码即可！添加用户主要代码：If=添加Then=False=False=False=确定=取消=True=True=True=True=True=ElseIf=ThenMsgBox用户名不能为空！,48,提示Else
