固定资产管理系统.docx
- 文档编号:17966575
- 上传时间:2023-08-05
- 格式:DOCX
- 页数:52
- 大小:92.50KB
固定资产管理系统.docx
《固定资产管理系统.docx》由会员分享,可在线阅读,更多相关《固定资产管理系统.docx(52页珍藏版)》请在冰点文库上搜索。
固定资产管理系统
固定资产管理系统
目录
摘要…………………………………………………………………………1
Abstract………………………………………………………………………2
第一章引言…………………………………………………………………4
1.1课题背景……………………………………………………………………4
1.2系统简介……………………………………………………………………5
第二章系统的分析……………………………………………………………6
2.1系统开发的目标和思想……………………………………………………6
2.2系统的可行性分析…………………………………………………………8
第三章系统的设计……………………………………………………………18
3.1系统的功能结构设计………………………………………………………18
3.2界面设计与代码设计……………………………………………………………………23
3.3系统的数据库设计…………………………………………………………24
结束语………………………………………………………………………………46
致谢…………………………………………………………………………………47
参考文献……………………………………………………………………………48
摘要
固定资产管理系统是一个企事业单位不可缺少的部分,它的内容对于企事业单位的决策者和管理者来说都至关重要,所以固定资产管理系统应该能够为用户提供充足的信息和快捷的查询手段。
但一直以来人们使用传统人工的方式管理固定资产的信息,这种管理方式存在着许多缺点,如:
效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。
本论文主要介绍的是固定资产管理系统的整个设计过程。
随着计算机技术的不断发展,计算机应用于各大领域,并给人们的生活带来了极大的便利,在固定管理系统亦是如此。
以往固定资产员由于缺乏适当的软件而给其工作带来了很多不便。
本论文所介绍的便是一个固定资产管理系统,以方便在固定资产安排和固定资产管理上的工作任务。
该系统适用于普通固定资产的管理,在使用上力求操作容易,界面美观,另外,本系统具有较高的扩展性和可维护性,可能在以后需要的时候进行软件升级。
整个系
关键字:
固定资产,扩展性,可维护性
Abstract
Fixedassetmanagementsystemisanindispensablepartofenterpriseunits,enterprisesandinstitutionsinitscontent,policymakersandmanagersisvital,therefore,fixedassetmanagementsystemshouldbeabletoprovideuserswithadequateinformationandefficientmeansenquiries.Butallalongthewaypeopleusetraditionalartificialfixedassetmanagementinformation,whichmeanstherearemanyshortcomingsinthemanagement,suchas:
lowefficiency,confidentialitypoor,andAstimewenton,willproducealargenumberofdocumentsanddata,whichisessentialforidentifying,updatingandmaintenancehavebroughtmanydifficulties.Thispaperintroducesafixedassetmanagementsystemasawholedesignprocess.
Withthecontinuousdevelopmentofcomputertechnology,computerapplicationsmajorareas,andtothepeople'slifehasbroughtgreatconvenienceinthecaseoffixedmanagementsystem.Membersofthefixedassetsinthepastduetolackofappropriatesoftwareandbringalotofinconveniencetotheirwork.Thepaperspresentedisafixedassetmanagementsystemtofacilitatearrangementsinfixedassetsandfixedassetmanagementtasks.
Thesystemappliestoordinaryfixedassetsmanagementintheoperationeasytouse,interfacequality,andexpansionofthesystemofhigherandKeweihuxingmayinthefutureneedtimesoftwareupgrades.
Entiredepartment
keywordt:
Fixedassets,expansionary,Keweihuxing
第一章引言
1.1课题背景
固定资产管理系统是一个企事业单位不可缺少的部分,它的内容对于企事业单位的决策者和管理者来说都至关重要,所以固定资产管理系统应该能够为用户提供充足的信息和快捷的查询手段。
但一直以来人们使用传统人工的方式管理固定资产的信息,这种管理方式存在着许多缺点,如:
效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。
本论文主要介绍的是固定资产管理系统的整个设计过程。
随着计算机技术的不断发展,计算机应用于各大领域,并给人们的生活带来了极大的便利,在固定管理系统亦是如此。
以往固定资产员由于缺乏适当的软件而给其工作带来了很多不便。
本论文所介绍的便是一个固定资产管理系统,以方便在固定资产安排和固定资产管理上的工作任务。
1.2系统简介
固定资产管理系统主要服务于企事业单位的决策者与管理者管理本单位的固定资产.
第二章系统的分析
2.1系统的开发目标与思想
本固定资产管理系统目标是方便企事业单位管理者管理本单位的固定资产,其主要思想是做到系统管理的人性化,数据处理的可靠性,可维护性,以及程序的健壮性.
2.2系统的可行性分析
经济可行性:
固定资产管理系统为企事业单位提供更加方便的管理方式,为企事业单位获得更多的盈利机会.而且开发成本不会很高.所以具有经济可行性.
社会可行性:
固定资产的管理对每个单位对社会对国家来说都是有必要和必须的.
第三章系统的设计
3.1系统的功能结构设计
本固定资产管理系统主要有一下几大功能构成:
一.设备查询:
主要提供”部门,设备名,型号,价格,分类,购置日期,注销日期”等信息的查询.
二.报表管理:
主要提供”设备登记卡,部门统计表,注销统计表,折旧统计表”等信息管理.
三.系统管理;主要提供修改密码,退出系统等.
四.用户管理:
新增用户,与删除用户等功能.
3.2界面设计
1登陆界面设计:
登陆界面代码设计:
PrivateSubcmdOK_Click()
DimstrPwdAsString
DimrsPwdAsADODB.Recordset
DimstrLoginAsString
strLogin=Trim(txtUserName.Text)
strPwd=Trim(txtPassword.Text)
IfLen(strLogin)=0Then
MsgBox"用户名不能为空,请输入用户名"
txtUserName.SetFocus
ExitSub
EndIf
IfLen(strPwd)=0Then
MsgBox"密码不能为空,请输入正确的密码"
txtPassword.SetFocus
ExitSub
EndIf
SetrsPwd=gConn.Execute("SELECTpwdFROMtblUserWHERElogin='"&Replace(strLogin,"'","''")&"'")
IfrsPwd.EOFThen
MsgBox"用户名不正确,请重新输入!
"
ElseIfstrPwd=rsPwd("pwd").valueThen
'将代码放在这里传递
'成功到calling函数
'设置全局变量时最容易的
LoginSucceeded=True
Me.Hide
Else
MsgBox"无效的密码,请重试!
",,"登录"
txtPassword.SetFocus
SendKeys"{Home}+{End}"
EndIf
rsPwd.Close
SetrsPwd=Nothing
EndSub
2.主界面设计:
主界面代码设计:
'执行设备显示列表操作
PrivateSubdoDevice(iidAsString)
DimfrmAsNewfrmDevice
IfLen(iid)>0Then
frm.loadDeviceiid
EndIf
frm.setStatus
frm.ShowvbModal
Iffrm.isUpdate=TrueThen
grdDevice.Tag=""
CallfillDeviceGrid(grdDevice)
EndIf
Unloadfrm
Setfrm=Nothing
EndSub
'执行用户显示列表操作
PrivateSubdoUser(uidAsString)
DimfrmAsNewfrmUser
IfLen(uid)>0Then
frm.loadUseruid
EndIf
frm.setStatus
frm.ShowvbModal
Iffrm.isUpdate=TrueThen
grdUser.Tag=""
CallfillUserGrid
EndIf
Unloadfrm
Setfrm=Nothing
EndSub
PrivateSubcmdAdd_Click()
CalldoDevice("")
EndSub
PrivateSubcmdAll_Click()
grdQuery.Tag=""
fillDeviceGridgrdQuery
EndSub
PrivateSubcmdBackup_Click()
DimnewPathAsString
newPath=App.Path&"\data"&FormatDateTime(Date,vbShortDate)&"("&Right(Rnd(100),1)&").mdb"
OnErrorGoToerr_handle
FileCopyApp.Path&"\data.mdb",newPath
MsgBox"数据备份成功,备份文件在:
"&newPath
ExitSub
err_handle:
MsgBoxErr.Description
MsgBox"备份不成功!
"
EndSub
PrivateSubcmdDelete_Click()
DimiidAsString
WithgrdDevice
If.Row=0Then
MsgBox"请选择要删除的设备!
"
Else
IfMsgBox("你是否真的要删除当前选择的设备吗?
删除后将不能恢复!
",vbOKCancel)=vbOKThen
.Col=1
iid=.Text
DimdeviceAsNewclassDevice
device.deleteDataiid
grdDevice.Tag=""
CallfillDeviceGrid(grdDevice)
EndIf
EndIf
EndWith
EndSub
PrivateSubcmdDisCard_Click()
DimiidAsString
DimstrDateAsString
WithgrdDevice
If.Row=0Then
MsgBox"请选择要注销的设备!
"
Else
IfMsgBox("你是否真的要注销当前选择的设备吗?
注销后将不能恢复!
",vbOKCancel)=vbOKThen
.Col=1
iid=.Text
strDate=getDate("")
IfLen(strDate)>0Then
DimdeviceAsNewclassDevice
Ifdevice.Reject(iid,strDate)=TrueThen
.Tag=""
fillDeviceGridgrdDevice
EndIf
Setdevice=Nothing
EndIf
EndIf
EndIf
EndWith
EndSub
PrivateSubcmdExit_Click()
IfMsgBox("是否真的要退出系统吗?
",vbYesNo)=vbYesThen
UnloadMe
EndIf
EndSub
PrivateSubcmdGetDate_Click(IndexAsInteger)
DimthedateAsString
thedate=getDate(txtDate(Index).Text)
IfLen(thedate)>0ThentxtDate(Index).Text=thedate
EndSub
PrivateSubcmdLend_Click()
DimiidAsString
WithgrdDevice
If.Row=0Then
MsgBox"请选择要操作的设备!
"
Else
.Col=1
iid=.Text
DimfrmAsNewfrmLend
DimresultAsBoolean
result=frm.loadLendData(iid)
Ifresult=FalseThen
Unloadfrm
ExitSub
EndIf
frm.ShowvbModal
Iffrm.isUpdate=TrueThen
grdDevice.Tag=""
fillDeviceGridgrdDevice
EndIf
Unloadfrm
Setfrm=Nothing
EndIf
EndWith
EndSub
PrivateSubcmdPass_Click()
DimoldPassAsString
DimnewPass1AsString
DimnewPass2AsString
oldPass=InputBox("请输入旧密码:
","密码修改")
IfLen(oldPass)>0Then
IfoldPass<>gUser.PasswordThen
MsgBox"输入密码不正确!
"
ExitSub
EndIf
newPass1=InputBox("请输入新密码:
","密码修改")
IfLen(newPass1)=0Then
MsgBox"密码修改不成功!
"
ExitSub
Else
newPass2=InputBox("请再次输入新密码确认:
","密码修改")
IfLen(newPass2)=0Then
MsgBox"密码修改不成功!
"
ExitSub
ElseIfnewPass1=newPass2Then
IfgUser.resetPassword(newPass1)=FalseThen
MsgBox"数据操作错误,密码修改不成功!
"
Else
MsgBox"密码成功修改!
请保存好你的密码!
"
EndIf
ExitSub
Else
MsgBox"两次输入的新密码不一样,修改失败!
"
ExitSub
EndIf
EndIf
Else
MsgBox"密码修改不成功!
"
ExitSub
EndIf
EndSub
PrivateSubcmdQuery_Click()
DimDeptNoAsString
DimDeviceNameAsString
DimDeviceModelAsString
DimTypeNoAsString
DimPricefromAsString
DimPricetoAsString
DimPurchaseDatefromAsString
DimPurchaseDatetoAsString
DimRejectDatefromAsString
DimRejectDatetoAsString
DimstrSQLAsString
IfcboQDept.ListIndex>0Then
DeptNo=getDeptNo()
strSQL="a.deptno='"&DeptNo&"'"
EndIf
IfcboQTypeNO.ListIndex>0Then
TypeNo=getTypeNO()
IfLen(strSQL)>0Then
strSQL="ANDa.typeno='"&TypeNo&"'"
Else
strSQL="a.typeno='"&TypeNo&"'"
EndIf
EndIf
DeviceName=Replace(Trim(txtQDeviceName.Text),"'","''")
DeviceModel=Replace(Trim(txtQModel.Text),"'","''")
Pricefrom=Trim(txtQP1.Text)
Priceto=Trim(txtQP2.Text)
PurchaseDatefrom=Trim(txtDate(0).Text)
PurchaseDateto=Trim(txtDate
(1).Text)
RejectDatefrom=Trim(txtDate
(2).Text)
RejectDateto=Trim(txtDate(3).Text)
IfLen(Pricefrom)>0Then
IfNotIsNumeric(Pricefrom)Then
MsgBox"购买价格输入不正确,请重新输入。
"
txtQP1.SetFocus
ExitSub
Else
IfLen(strSQL)>0Then
strSQL=strSQL&"ANDProductPrice>="&Pricefrom
Else
strSQL="ProductPrice>="&Pricefrom
EndIf
EndIf
EndIf
IfLen(Priceto)>0Then
IfNotIsNumeric(Priceto)Then
MsgBox"购买价格输入不正确,请重新输入。
"
txtQP2.SetFocus
ExitSub
Else
IfLen(strSQL)>0Then
strSQL=strSQL&"ANDProductPrice<="&Priceto
Else
strSQL="ProductPrice<="&Priceto
EndIf
EndIf
EndIf
IfLen(PurchaseDatefrom)>0Then
IfNotIsDate(PurchaseDatefrom)Then
MsgBox"购买日期输入不正确,请重新输入。
"
txtDate(0).SetFocus
ExitSub
Else
IfLen(strSQL)>0Then
strSQL=strSQL&"ANDPurchaseDate>=#"&PurchaseDatefrom&"#"
Else
strSQL="ProductPrice>=#"&PurchaseDatefrom&"#"
EndIf
EndIf
EndIf
IfLen(PurchaseDateto)>0Then
IfNotIsDate(PurchaseDateto)Then
MsgBox"购买日期输入不正确,请重新输入。
"
txtDate
(1).SetFocus
ExitSub
Else
IfLen(strSQL)>0Then
strSQL=strSQL&"ANDPurchaseDate<=#"&PurchaseDateto&"#"
Else
strSQL="ProductPrice<=#"&PurchaseDateto&"#"
EndIf
EndIf
EndIf
IfLen(RejectDatefrom)>0Then
IfNotIsDate(RejectDatefrom)Then
MsgBox"注销日期输入不正确,请重新输入。
"
txtDate
(2).SetFocus
ExitSub
Else
IfLen(
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 固定资产 管理 系统
![提示](https://static.bingdoc.com/images/bang_tan.gif)