下载

1下载券

加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 档案管理系统毕业设计论文

档案管理系统毕业设计论文

档案管理系统毕业设计论文

xixi
2009-04-14 0人阅读 举报 0 0 暂无简介

简介:本文档为《档案管理系统毕业设计论文doc》,可适用于高等教育领域

摘要近年来随着企业彼此间的竞争日趋激烈信息技术在企业的发展中占据着越来越重要的地位。在企业的运输生产中档案已成为企业运输经营中不可或缺的一部分为管理者进行管理决策和进行各种经营活动提供了重要的依据在运输生产中发挥了越来越重要的作用。档案管理系统是一个企业单位不可缺少的部分它的内容对于企业的决策者和管理者来说都至关重要所以档案管理系统能够为用户提供充足的信息和快捷的查询手段。用VisualBasic构建的档案管理系统能实现档案的录入、修改、查找、删除、统计、查询、预览、编辑、打印、打印预览、取消、刷新、视图、系统维护、帮助等功能此外在程序中还设计了用户登陆并设定了密码以确保本系统应用的安全性。本管理系统设计合理、界面美观、操作方便、运行稳定、功能完备为进行现代化的档案管理工作起到了重要作用具有较高的实用价值。关键词:数据库模块信息数据源目录第一章概述 第二章目标分析和方案确定第三章开发档案管理系统的基本思路使用VB编写代码使用Access建立数据库用JET数据库引擎访问数据库第四章VisualBasic编程语言概述创建菜单栏创建工具栏建立帮助信息生成版本信息第五章使用Access实现关系型数据库数据库的概念新建一个数据库修改已建的数据库第六章系统总体设计第七章分模块设计档案的系统维护档案的版本和系统信息档案的录入、编辑、删除、刷新档案的登陆和密码设计档案的主界面档案的查询、预览、打印功能档案的统计功能档案的报表第八章结束语附:主要参考文献第章概述近年来随着企业彼此间的竞争日趋激烈信息技术在企业的发展中占据着越来越重要的地位借助信息技术来获取更快捷、更高效、更准确的操作方式发挥企业本身最大的竞争力以适应快速变迁的商业环境逐渐成为不可避免的趋势。在企业的运输生产中档案已成为企业运输经营中不可或缺的一部分为管理者进行管理决策和进行各种经营活动提供了重要的依据在运输生产中发挥了越来越重要的作用。为方便、高效、快捷地适应现代化档案的需要本论文应用VisualBasic构建了一个档案管理系统其中用到了数据库的应用、建立、数据库操作对象ADO、数据报表设计等知识。档案管理系统是典型的信息管理系统(MIS)其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备易使用等特点。用VisualBasic构建的档案管理系统主要能实现档案的录入、修改、查找、删除、统计、查询、编辑、打印、打印预览、取消、刷新、视图、系统维护、帮助等功能为保证用户的安全性还设计了简捷方便的用户登陆和密码修改。本管理系统设计合理、界面美观、操作方便、运行稳定、功能完备为进行现代化的档案管理工作起到了重要作用具有较高的实用价值。第章目标分析和方案确定档案管理系统是一个企业单位不可缺少的部分它的内容对于企业的决策者和管理者来说都至关重要所以档案管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案这种管理方式存在着许多缺点如:效率低、保密性差另外时间一长将产生大量的文件和数据这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高计算机科学日渐成熟其强大的功能已为人们深刻认识它已进入人类社会的各个领域并发挥着越来越重要的作用。今天计算机的价格已经十分低廉性能却有了长足的进步。它已经被应用于许多领域计算机之所以如此流行的原因主要有以下几个方面:首先计算机可以代替人工进行许多繁杂的劳动其次计算机可以节省许多资源第三计算机可以大大的提高人们的工作效率第四计算机可以使敏感文档更加安全等等。在企业中用计算机管理档案的意义:现在有很多企业的档案管理水平还停留在纸介质的基础上这样的机制已经不能适应时代的发展因为它浪费了许多人力和物力在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。作为计算机应用的一部分使用计算机对档案信息进行管理具有着手工管理所无法比拟的优点。例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率也是企业的科学化、正规化管理与世界接轨的重要条件。VisualBasic简单易学且功能丰富是广泛应用的变成语言之一它的发展为编程人员提供了更广泛的空间。为能够迎合转变快速的信息技术越来越多的企业倾向于分布式的管理需求提供分布式主从结构环境的MicrosoftSQLServer便成为相当重要的核心角色这个数据库服务器运用了关系数据库的技术同时考虑到高效率数据库管理的需求借助标准化的访问环境提高了和前端应用环境轻松集成的能力以适应各种企业组织在不同环境下的操作需求。作为前端应用程序开发环境的VisualBasic在数据来源的维护、数据访问技术、国际网络和企业内部Intranet应用程序等功能方面都有其独到、先进之处。我作为一个计算机应用专业的专科生希望在这方面有所贡献。我希望能用我所学的VisualBasic编制出一个实用的程序来对企业的档案进行更有效、快捷、方便的管理因此我充分运用VisualBasic进行了这套档案管理系统的开发。第三章开发档案管理系统的基本思路、编程环境的选择微软公司的VisualBasic是Windows应用程序开发工具使目前最为广泛的、易学易用的面向对象的开发工具。VisualBasic提供了大量的控件这些控件可用于设计界面和实现各种功能减少了编程人员的工作量也简化了界面设计过程从而有效的提高了应用程序的运行效率和可靠性。故而实现本系统VB是一个相对较好的选择。、关系型数据库的实现Access就是关系数据库开发工具数据库能汇集各种信息以供查询、存储和检索。Access的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格可以使数据库一目了然。另外Access允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库可以使用桌面数据库文件把数据库文件置于网络文件服务器与其他网络用户共享数据库。Access是一种关系数据库工具关系数据库是已开发的最通用的数据库之一。如上所述Access作为关系数据库开发具备了许多优点可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。、二者的结合(DBA)微软的JET数据库引擎提供了与数据库打交道的途径我们是通过它以及VisualBasic来访问数据库并对其进行各种操作。VisualBasic、Access以及其他微软的软件产品都是通过共用JET数据库引擎从而给用户提供了丰富的数据类型。DATA控件在数据库中的信息与将信息显示给用户看的VisualBasic程序之间架起了一座桥梁。我们可以设置DATA控件的各个属性告诉它要调用那个数据库的哪个部分。缺省情况下DATA控件根据数据库中的一个或多个数据表建立一个dynasettype(动态集合)类型的记录集合。一个记录集合是动态的也就意味着当原来的数据表中的容改变了以后该记录集合中的记录也会随之改变。DATA控件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后我们还必须在该控件与要处理的数据库之间建立联系。第四章VisualBasic编程语言概述VisualBasic应用程序基本的构建块是用户所创建的对象每一个对象都具有一些特性和行为(属性、事件和方法)。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性、可扩展性和强有力的功能。VisualBasic应用由一系列对象组成包括有函数、菜单、结构和数据窗口、用户对象、用户事件等等对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。创建菜单栏除此之外VB还有以下一些重要功能。菜单是程序最重要的特性之一大多数程序都依赖一个定义良好的菜单使程序易于使用和维护VisualBasic也提供了强大的创建菜单功能是程序更加标准。您可以使用VisualBasic的ApplicaytionWizard也可以使用VisualBasic的菜单编辑器建立菜单或者修改已经存在的菜单、控件。其属性及对象如下:Align属性定义工具条在窗休中的位置。ToolTipText属性是字符串类型定义控件的提示字符。Style属性定义按钮外观。ImageList属性定义与数据条对应的ImageList控件名该控件定义工具条按钮显示的图像。HotImangeList属性设置一个ImageList控件名该控件定义按钮获得热点时显示的图像。DisabledImageList属性定义工具条按钮无效时显示的图像。创建工具栏创建工具条主要利用ImageList和Toolbar控件。创建时先将ImageList添加到窗体上然后往其中添加一些图片接着Toolbar控件添加到窗体上再往Toolbar中插入一些命令按纽为他们添加上相应图片即可。建立帮助信息专业水平的软件通常都带有联机帮助功能。无论写出来的程序是要给大量的用户使用还是仅仅局限于公司内部有限的使用者我们都应该为用户提供详细的、易于理解的联机帮助文档。微软的HelpWorkshop是一套独立于VisualBasic的用来协助我们创建、运行于位Windows操作系统下的帮助文件的工具。使用它可以为我们编写的应用程序生成一组帮助文件。生成版本信息为了使程序显得更具有专业风格首先可以在其中加入通常的应用程序信息。这些信息包括公司名称、版本号、修订号以及其他类似信息。VisualBasic允许你使用APP对象来保存这些信息APP对象是一个预定义对象不需要在程序中创建它。APP对象的大多数属性被应用程序用来提供常规的信息通过使用这些APP提供的属性可以在应用程序和用户之间交流重要信息在项目属性框中可以设置它的属性。第五章使用Access实现关系型数据库、数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息简而言之数据库就是信息集合。计算机的数据库可以分为两类:非关系数据库(flatfile)和关系数据库(relational)。关系数据库中包含了多个数据表的信息数据库含有各个不同部分的术语象记录、域等。、新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。)标识需要的数据)收集被标识的字段到表中)标识主关键字字段)绘制一个简单的数据图表)规范数据)标识指定字段的信息)创建物理表。、修改已建的数据库数据库的修改分为:添加、编辑和删除记录。这三种操作均可由VisualBasic创建的程序来完成下面的章节将详细描述实现的具体方法。第六章系统总体设计根据设计方案本系统的结构框图为(如下所示):本系统所实现的主要功能为:可以进行文本操作录入一个数据库项目修改一个数据库项目查找一个数据库信息删除一个数据库信息统计一个数据库信息查询一个数据库信息预览一个数据库信息编辑一个数据库信息打印一个数据库信息打印预览一个数据库信息刷新一个数据库信息取消一个数据库信息。根据实际数据操作流程本城西数据的ER图为(根据数据流程勾画下图为示意图):用户登录→档案的录入→档案的修改和查询→档案的预览和打印本系统所采用的数据库结构:数据表:档案表、用户表。根据系统的需要档案表采用字段结构为:编号标题发文部门发文号内容发文日期字段类型自动编号字符字符字符备注日期是否索引是否否否否否登录表结构为:编号用户名密码第七章分模块设计、档案的系统维护:为提高系统的安全性防止非法用户进入本系统本系统设有用户登陆界面并设立密码合法用户可以在系统维护里面的用户修改里面自行设立用户名和密码系统默认用户名为“admin”密码为“”。系统的用户密码更改界面如下:Editfrm​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​DimdbAsConnectionDimrsAsRecordsetPrivateSubCommandClick()OnErrorGoToerIfrsState=adStateOpenThenrsClosersOpen"登录",db,,rs("用户名")=TextTextrs("密码")=TextTextrsUpdate'rsCloseMsgBox"修改成功!",vbOKOnlyvbExclamationUnloadMeExitSuber:MsgBox"有错误产生!",vbOKOnlyvbExclamationEndSubPrivateSubCommandClick()UnloadMeEndSubPrivateSubFormLoad()TextText=loginuserTextText=loginpasswordSetdb=NewConnectiondbCursorLocation=adUseClientdbOpen"PROVIDER=MicrosoftJetOLEDBDataSource=databasemdb"Setrs=NewRecordsetEndSubPrivateSubFormUnload(CancelAsInteger)IfrsState=adStateOpenThenrsCloseSetrs=NothingdbCloseSetdb=NothingEndSub、档案的版本和系统信息AboutfrmOptionExplicit'注册表关键字安全选项ConstREADCONTROL=HConstKEYQUERYVALUE=HConstKEYSETVALUE=HConstKEYCREATESUBKEY=HConstKEYENUMERATESUBKEYS=HConstKEYNOTIFY=HConstKEYCREATELINK=HConstKEYALLACCESS=KEYQUERYVALUEKEYSETVALUEKEYCREATESUBKEYKEYENUMERATESUBKEYSKEYNOTIFYKEYCREATELINKREADCONTROL'注册表关键字ROOT类型ConstHKEYLOCALMACHINE=HConstERRORSUCCESS=ConstREGSZ='独立的空的终结字符串ConstREGDWORD='位数字ConstgREGKEYSYSINFOLOC="SOFTWAREMicrosoftSharedToolsLocation"ConstgREGVALSYSINFOLOC="MSINFO"ConstgREGKEYSYSINFO="SOFTWAREMicrosoftSharedToolsMSINFO"ConstgREGVALSYSINFO="PATH"PrivateDeclareFunctionRegOpenKeyExLib"advapi"Alias"RegOpenKeyExA"(ByValhKeyAsLong,ByVallpSubKeyAsString,ByValulOptionsAsLong,ByValsamDesiredAsLong,ByRefphkResultAsLong)AsLongPrivateDeclareFunctionRegQueryValueExLib"advapi"Alias"RegQueryValueExA"(ByValhKeyAsLong,ByVallpValueNameAsString,ByVallpReservedAsLong,ByReflpTypeAsLong,ByVallpDataAsString,ByReflpcbDataAsLong)AsLongPrivateDeclareFunctionRegCloseKeyLib"advapi"(ByValhKeyAsLong)AsLongPrivateSubcmdSysInfoClick()CallStartSysInfoEndSubPrivateSubcmdOKClick()UnloadMeEndSubPrivateSubFormLoad()MeCaption="关于"AppTitlelblVersionCaption="版本"AppMajor""AppMinor""AppRevisionlblTitleCaption=AppTitleMeWidth=MeHeight=EndSubPublicSubStartSysInfo()OnErrorGoToSysInfoErrDimrcAsLongDimSysInfoPathAsString'试图从注册表中获得系统信息程序的路径及名称IfGetKeyValue(HKEYLOCALMACHINE,gREGKEYSYSINFO,gREGVALSYSINFO,SysInfoPath)Then'试图仅从注册表中获得系统信息程序的路径ElseIfGetKeyValue(HKEYLOCALMACHINE,gREGKEYSYSINFOLOC,gREGVALSYSINFOLOC,SysInfoPath)Then'已知位文件版本的有效位置If(Dir(SysInfoPath"MSINFOEXE")<>"")ThenSysInfoPath=SysInfoPath"MSINFOEXE"'错误文件不能被找到ElseGoToSysInfoErrEndIf'错误注册表相应条目不能被找到ElseGoToSysInfoErrEndIfCallShell(SysInfoPath,vbNormalFocus)ExitSubSysInfoErr:MsgBox"此时系统信息不可用",vbOKOnlyEndSubPublicFunctionGetKeyValue(KeyRootAsLong,KeyNameAsString,SubKeyRefAsString,ByRefKeyValAsString)AsBooleanDimiAsLong'循环计数器DimrcAsLong'返回代码DimhKeyAsLong'打开的注册表关键字句柄DimhDepthAsLong'DimKeyValTypeAsLong'注册表关键字数据类型DimtmpValAsString'注册表关键字值的临时存储器DimKeyValSizeAsLong'注册表关键自变量的尺寸''打开{HKEYLOCALMACHINE}下的RegKey'rc=RegOpenKeyEx(KeyRoot,KeyName,,KEYALLACCESS,hKey)'打开注册表关键字If(rc<>ERRORSUCCESS)ThenGoToGetKeyError'处理错误tmpVal=String$(,)'分配变量空间KeyValSize='标记变量尺寸''检索注册表关键字的值'rc=RegQueryValueEx(hKey,SubKeyRef,,KeyValType,tmpVal,KeyValSize)'获得创建关键字值If(rc<>ERRORSUCCESS)ThenGoToGetKeyError'处理错误If(Asc(Mid(tmpVal,KeyValSize,))=)Then'Win外接程序空终结字符串tmpVal=Left(tmpVal,KeyValSize)'被找到,从字符串中分离出来Else'WinNT没有空终结字符串tmpVal=Left(tmpVal,KeyValSize)'没有被找到,分离字符串EndIf''决定转换的关键字的值类型'SelectCaseKeyValType'搜索数据类型CaseREGSZ'字符串注册关键字数据类型KeyVal=tmpVal'复制字符串的值CaseREGDWORD'四字节的注册表关键字数据类型Fori=Len(tmpVal)ToStep'将每位进行转换KeyVal=KeyValHex(Asc(Mid(tmpVal,i,)))'生成值字符。ByChar。NextKeyVal=Format$("h"KeyVal)'转换四字节的字符为字符串EndSelectGetKeyValue=True'返回成功rc=RegCloseKey(hKey)'关闭注册表关键字ExitFunction'退出GetKeyError:'错误发生后将其清除KeyVal=""'设置返回值到空字符串GetKeyValue=False'返回失败rc=RegCloseKey(hKey)'关闭注册表关键字EndFunction、档案的录入、编辑、删除、刷新本部分程序主要是把车站的档案录入计算机数据库档案表里并提供编辑、删除等功能能快捷、高效地把用纸张记录的档案内容用数字的形式存储在计算机里适应现代化的办公系统的需要以对信息进行高效、快速的查询、修改。系统的录入界面如下:frm档案DimWithEventsadoPrimaryRSAsRecordsetDimmbChangedByCodeAsBooleanDimmvBookMarkAsVariantDimmbEditFlagAsBooleanDimmbAddNewFlagAsBooleanDimmbDataChangedAsBooleanPrivateSubFormLoad()DimdbAsConnectionSetdb=NewConnectiondbCursorLocation=adUseClientdbOpen"PROVIDER=MicrosoftJetOLEDBDataSource=databasemdb"SetadoPrimaryRS=NewRecordsetadoPrimaryRSOpen"select标题,发文部门,发文号,发文日期,录入人,内容from档案",db,adOpenStatic,adLockOptimisticDimoTextAsTextBox'绑定字段到窗体文本框ForEachoTextInMetxtFieldsSetoTextDataSource=adoPrimaryRSNextmbDataChanged=FalseEndSubPrivateSubFormResize()OnErrorResumeNextlblStatusWidth=MeWidthcmdNextLeft=lblStatusWidthcmdLastLeft=cmdNextLeftEndSubPrivateSubFormUnload(CancelAsInteger)ScreenMousePointer=vbDefaultEndSubPrivateSubadoPrimaryRSMoveComplete(ByValadReasonAsADODBEventReasonEnum,ByValpErrorAsADODBError,adStatusAsADODBEventStatusEnum,ByValpRecordsetAsADODBRecordset)'显示记录位置lblStatusCaption="Record:"CStr(adoPrimaryRSAbsolutePosition)EndSubPrivateSubadoPrimaryRSWillChangeRecord(ByValadReasonAsADODBEventReasonEnum,ByValcRecordsAsLong,adStatusAsADODBEventStatusEnum,ByValpRecordsetAsADODBRecordset)'Thisiswhereyouputvalidationcode'ThiseventgetscalledwhenthefollowingactionsoccurDimbCancelAsBooleanSelectCaseadReasonCaseadRsnAddNew'adStatus=adStatusCancelCaseadRsnCloseCaseadRsnDeleteCaseadRsnFirstChangeCaseadRsnMoveCaseadRsnRequeryCaseadRsnResynchCaseadRsnUndoAddNewCaseadRsnUndoDeleteCaseadRsnUndoUpdateCaseadRsnUpdateEndSelectIfbCancelThenadStatus=adStatusCancelEndSubPrivateSubcmdAddClick()OnErrorGoToAddErrWithadoPrimaryRSIfNot(BOFAndEOF)ThenmvBookMark=BookmarkEndIfAddNewlblStatusCaption="Addrecord"mbAddNewFlag=TrueSetButtonsFalseEndWithExitSubAddErr:MsgBoxErrDescriptionEndSubPrivateSubcmdDeleteClick()OnErrorGoToDeleteErrWithadoPrimaryRSDeleteMoveNextIfEOFThenMoveLastEndWithExitSubDeleteErr:MsgBoxErrDescriptionEndSubPrivateSubcmdRefreshClick()'ThisisonlyneededformultiuserappsOnErrorGoToRefreshErradoPrimaryRSRequeryExitSubRefreshErr:MsgBoxErrDescriptionEndSubPrivateSubcmdEditClick()OnErrorGoToEditErrlblStatusCaption="Editrecord"mbEditFlag=TrueSetButtonsFalseExitSubEditErr:MsgBoxErrDescriptionEndSubPrivateSubcmdCancelClick()OnErrorResumeNextSetButtonsTruembEditFlag=FalsembAddNewFlag=FalseadoPrimaryRSCancelUpdateIfmvBookMark>ThenadoPrimaryRSBookmark=mvBookMarkElseadoPrimaryRSMoveFirstEndIfmbDataChanged=FalseEndSubPrivateSubcmdUpdateClick()OnErrorGoToUpdateErradoPrimaryRSUpdateBatchadAffectAllIfmbAddNewFlagThenadoPrimaryRSMoveLast'movetothenewrecordEndIfmbEditFlag=FalsembAddNewFlag=FalseSetButtonsTruembDataChanged=FalseExitSubUpdateErr:MsgBoxErrDescriptionEndSubPrivateSubcmdCloseClick()UnloadMeEndSubPrivateSubcmdFirstClick()OnErrorGoToGoFirstErroradoPrimaryRSMoveFirstmbDataChanged=FalseExitSubGoFirstError:MsgBoxErrDescriptionEndSubPrivateSubcmdLastClick()OnErrorGoToGoLastErroradoPrimaryRSMoveLastmbDataChanged=FalseExitSubGoLastError:MsgBoxErrDescriptionEndSubPrivateSubcmdNextClick()OnErrorGoToGoNextErrorIfNotadoPrimaryRSEOFThenadoPrimaryRSMoveNextIfadoPrimaryRSEOFAndadoPrimaryRSRecordCount>ThenBeep'movedofftheendsogobackadoPrimaryRSMoveLastEndIf'showthecurrentrecordmbDataChanged=FalseExitSubGoNextError:MsgBoxErrDescriptionEndSubPrivateSubcmdPreviousClick()OnErrorGoToGoPrevErrorIfNotadoPrimaryRSBOFThenadoPrimaryRSMovePreviousIfadoPrimaryRSBOFAndadoPrimaryRSRecordCount>ThenBeep'movedofftheendsogobackadoPrimaryRSMoveFirstEndIf'showthecurrentrecordmbDataChanged=FalseExitSubGoPrevError:MsgBoxErrDescriptionEndSubPrivateSubSetButtons(bValAsBoolean)cmdAddVisible=bValcmdEditVisible=bValcmdUpdateVisible=NotbValcmdCancelVisible=NotbValcmdDeleteVisible=bValcmdCloseVisible=bValcmdRefreshVisible=bValcmdNextEnabled=bValcmdFirstEnabled=bValcmdLastEnabled=bValcmdPreviousEnabled=bValEndSub档案的登陆和密码设计本部分程序主要是提高系统的安全性以防止非法用户进入本系统避免不必要的损失。Loginfrm'是否合法用户PublicpasswordAsStringPublicuserAsStringDimdbAsConnectionDimrsAsRecordsetPrivateSubCommandClick()IfTrim(TextText)=""ThenMsgBox"请输入完整!",vbOKOnlyvbExclamationElseIfrsState=adStateOpenThenrsClosersOpen"select*from登录where用户名='"TextText"'",db,,IfNotrsEOFAndNotrsBOFThenIfrs("密码")=TextTextThenuser=TextTextpassword=TextTextmainShowUnloadMeElseMsgBox"密码错误!",vbOKOnlyvbExclamationEndIfElseMsgBox"无此用户!",vbOKOnlyvbExclamationEndIfEndIfEndSubPrivateSubCommandClick()EndEndSubPrivateSubFormActivate()TextSetFocusEndSubPrivateSubFormLoad()'MeWidth='MeHeight=Setdb=NewConnectiondbCursorLocation=adUseClientdbOpen"PROVIDER=MicrosoftJetOLEDBDataSource=databasemdb"Setrs=NewRecordsetEndSubPrivateSubFormUnload(CancelAsInteger)rsCloseSetrs=NothingdbCloseSetdb=NothingEndSubPrivateSubTextGotFocus()TextSelStart=TextSelLength=Len(TextText)EndSubPrivateSubTextKeyPress(KeyAsciiAsInteger)IfKeyAscii=ThenTextSetFocusEndIfEndSubPrivateSubTextGotFocus()Text

用户评价(1)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/35

档案管理系统毕业设计论文

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利