行政管理系统毕业设计范例Word下载.docx
《行政管理系统毕业设计范例Word下载.docx》由会员分享，可在线阅读，更多相关《行政管理系统毕业设计范例Word下载.docx（43页珍藏版）》请在冰豆网上搜索。
建立事前预防（提示），事中监控，事后考评的机制，对行政管理权实施过程进行监控，全面推进行政管理工作的规范化、标准化、法制化和信息化。
行政管理包括对企业内部会议的管理、办公管理、车辆信息及用车信息管理、企业消费费用、信息发布及通知、辅助功能等方面的全方位的管理。
其中会议管理包括对会议室管理、会议通知和会议查询几部分；
办公管理主要是对工作计划、工作日志和周工作安排进行系统的管理；
车辆管理是对企业内部人员包括企业领导用车信息进行详细的记录；
费用管理是对企业日常的消费费用进行管理，包括电话费用、报销费用和车辆费用支出管理。
通过信息发布和辅助功能为企业员工在日常工作中提供便利，如发布会议通知、航班查询和编码查询等等。
1系统分析
1.1需求分析
通过市场调查，要求本系统具有以下的功能：
❑统一友好的操作界面，能保证系统的易用性。
❑规范、完善的基础信息设置。
❑灵活的报表打印功能。
❑能够完成对企业会议、企业办公、企业车辆和费用信息的有效管理。
❑全国各地的编码及航班查询。
❑提供常用网址和手机归属地信息查询
❑通过系统日志，详细记录修改记录的操作，提供追查的有力依据。
❑完善的权限管理，增强系统的安全性。
❑强大的数据备份及恢复功能，保证系统数据的安全性。
❑可在不退出系统的同时更换操作员。
1.2可行性分析
传统的行政管理工作可以说是千头万绪，纷繁复杂，工作人员面临着大量琐碎繁重的工作，行政管理系统从企业的实际需求出发，简单易用，系统界面友好美观，自定义功能强，权限管理可根据用户的角色来设置，实施简单快速，操作简单明了。
基本适用于中小型企业的行政办公管理。
2总体设计
2.1项目规划
行政管理系统规划系统功能模块如下：
❑会议管理模块
会议管理模块主要包括维护会议室信息、发送会议通知信息、记录会议内容、查询会议室信息和会议记录信息5个方面的内容。
❑办公管理模块
该模块主要由工作日志、记事本、工作计划和一周工作安排4部分组成。
❑车辆管理模块
车辆管理模块主要包括车辆登记、用车管理、驾驶人员登记、车辆信息查询、用车信息查询和车辆投保管理6部分。
❑费用管理
包括电话费用管理、报销费用管理和车辆费用支出管理3部分。
❑辅助信息
包括常用网址、航班查询、编码大全、国际电话代码和手机归属地查询5部分。
❑系统管理
包括查看日志、删除日志、用户管理、数据备份、数据恢复和系统数据清理6部分。
2.2系统功能结构图
行政管理系统的功能结构图如图1所示。
图1行政管理系统功能结构图
3详细设计
3.1数据模块设计
模块的作用是减少程序的代码量，提高应用程序代码的重用性和程序编码的可读性。
在本系统中，将连接数据库的程序代码都集中放置在一个数据模块Mdl_Data中，在应用程序需要连接数据库时调用该模块，从而完成相应的数据操作、实现操纵数据的功能。
在数据模块Mdl_Data中定义了连接字符串变量PublicStr、记录集对象、数据连接函数Cnn和1个全局函数main。
在函数main中，提供了连接数据库的字符串，并将其赋值给全局变量PublicStr，提供数据连接。
数据模块Mdl_Data中的事件代码如下：
'
数据连接模块
PublicPublicStrAsString
PublicAdoRsAsNewADODB.Recordset'
后添加一个记录集对象
PublicAdoRs1AsNewADODB.Recordset'
PublicAdoRs2AsNewADODB.Recordset'
PublicFunctionCnn（）AsADODB.Connection'
定义连接字符串函数
SetCnn=NewADODB.Connection
Cnn.Open"
Provider=SQLOLEDB.1;
PersistSecurityInfo=False;
User
ID=sa;
InitialCatalog=db_Service"
EndFunction
PublicSubmain（）
PublicStr="
frm_xtdl.Show'
显示系统登录窗体
EndSub
3.2主窗体设计
主窗体界面是显示系统主要操作功能的面板，对于主窗体设计的基本要求是：
窗体上的控件布局合理、界面美观大方，并且易于操作系统其他功能模块。
在主窗体的菜单栏或者窗体中的树状列表中，可以控制其他功能模块的运行，并且根据登录操作员赋予相应的操作权限；
在状态栏中，可以显示当前登录操作员、当前系统的日期时间、公司网址等信息。
系统主窗体的运行结果如图2所示。
图2系统主窗体运行结果
1．窗体设计
（1）在工程中新建1个窗体，将窗体的名称设置为“frm_Main”，BorderStyle属性设置为“0-None”，MaxButton的属性设置为“False”，并且通过窗体的Picture属性为窗体添加图片。
（2）在菜单编辑器中为主窗体设置菜单，设置完成的菜单如图2所示。
（3）在窗体上添加TreeView控件，由于该控件属于ActiveX控件，在使用之前必须从“部件”对话框中添加到工具箱。
添加方法如下：
在“工程”/“部件”对话框中勾选“MicrosoftWindowsCommonControls6.0”列表项，单击【确定】按钮之后即可将TreeView控件添加到工具箱当中。
（4）在窗体的TreeView控件上单击鼠标右键，在弹出的快捷菜单中选择“属性”项，然后在弹出的“属性页”对话框中设置TreeView控件的显示样式，如图3所示。
图3设置控件的显示样式
（5）在窗体中添加1个StatusBar控件，由于StatusBar控件属于ActiveX控件，在使用之前必须从“部件”对话框中添加到工具箱。
在“工程”/“部件”对话框中勾选“MicrosoftWindowsCommonControls6.0”列表项，单击【确定】按钮之后即可将StatusBar控件添加到工具箱当中。
（6）利用StatusBar控件可以为主窗体设置状态栏。
在StatusBar控件上单击鼠标右键选择“属性”项，在弹出的对话框中选择“窗格”选项卡，如图4所示，在图中单击【插入窗格】按钮，可以在StatusBar控件中添加窗格，同时可以设置添加后窗格的文本内容、工具栏提示文本内容和宽度等信息。
如果想删除窗格，则通过“索引”旁边的箭头，选择要删除的窗格，然后单击【删除窗格】按钮即可删除。
图4设置状态栏中的窗格
系统主窗体界面设计结果如图5所示。
图5系统主窗体的设计界面
2．代码设计
通过单击系统主窗体当中的菜单项，可以控制系统中各个子窗体的运行。
单击某个功能菜单项调用系统子窗体的代码如下：
PrivateSubBMDQ_Click（）
frm_bmcx.Show1'
编码大全
PrivateSubBXFYGL_Click（）
frm_bxfy.Show1'
报销费用管理
PrivateSubCKRZ_Click（）
frm_rz.Show1'
查看日志
PrivateSubCLDJ_Click（）
frm_cldj.Show1'
车辆登记
PrivateSubCLFYZC_Click（）
frm_clfyzc.Show1'
车辆费用支出管理
PrivateSubCLTBXXGL_Click（）
frm_cltb.Show1'
车辆投保管理
PrivateSubCLXXCX_Click（）
StrCx=3'
如果执行的是车辆信息查询，则标识变量的数值取值为3
Frm_Cx.Show1
PrivateSubCXDL_Click（）
UnloadMe
重新登录
PrivateSubCYWZ_Click（）
frm_wzcx.Show1'
常用网址
PrivateSubDHFYGL_Click（）
frm_dhfy.Show1'
电话费用管理
PrivateSubDJCX_Click（）
StrCx=1'
如果执行的是会议记录信息查询，则标识变量的数值取值为1
Frm_Cx.Show1'
会议记录信息查询
PrivateSubGJDHDM_Click（）
frm_dhhmcx.Show1'
国际电话代码
PrivateSubGYSGL_Click（）
frm_hysgl.Show1'
会议室管理
PrivateSubGZJH_Click（）
frm_Gzjh.Show1'
工作计划
PrivateSubGZRZ_Click（）
frm_Gzrz.Show1'
工作日志
PrivateSubHBCX_Click（）
frm_hbcx.Show1'
航班查询
PrivateSubHYDJ_Click（）
frm_hyjl.Show1'
会议记录
PrivateSubHYSCX_Click（）
StrCx=2'
如果执行的是会议室信息查询，则标识变量的数值取值为2
会议室信息查询
PrivateSubHYTZ_Click（）
frm_hytz.Show1'
会议通知
PrivateSubJSB_Click（）
frm_Jsb.Show1'
记事本
PrivateSubJSHF_Click（）'
数据恢复
DimiTaskAsLong
MsgBox"
请您注意,为了确保数据安全,在进行数据恢复的同时需要关闭应用程序,请您在恢复数据完成之后重新运行应用程序"
64,"
提示信息"
调用数据恢复可执行文件
iTask=Shell（App.Path&
"
\Restore.exe"
vbNormalFocus）
End
PrivateSubJSRYDJ_Click（）
frm_jsrydj.Show1'
驾驶人员登记
PrivateS
升级会员 