vb学生管理系统源代码部分代码PublicUserNameAsStringPublictxtSQLAsString'usetostorerecordSQLsentencePublicdreamAsADODB.Recordset'usetostorerecordobjectPublicMsgtextAsString'用来存放返回信息PublicOKAsBoolean''PublicdbAsStringPublicSubhighlight()WithScreen.ActiveFormIf(TypeOf.ActiveControlIsTextBox)Then.ActiveControl.SelStart=0.ActiveControl.SelLength=Len(.ActiveControl)EndIfEndWithEndSubSubMain()'DimLoginAsNewLogin'Login.ShowvbModal'fNotLogin.OKThen'LoginFailedsoexitapp'End'EndIf'Unloadstudentmdi'Setlogin=Newloginlogin.ShowEndSubPublicFunctionconnectstring()AsStringconnectstring="Provider=Microsoft.jet.OLEDB.3.51;Datasource=f:\schoolgroup\school.mdb"EndFunctionPublicFunctionExecuteSQL(ByValSQLAsString,MsgstringAsString)AsADODB.RecordsetDimcnnAsADODB.ConnectionDimrstAsADODB.RecordsetDimsTokens()AsStringOnErrorGoToExecuteSQL_ErrorsTokens=Split(SQL)Setcnn=NewADODB.Connectioncnn.OpenconnectstringIfInStr("INSERT,DELETE,UPDATE",UCase$(sTokens(0)))Thencnn.ExecuteSQLMsgstring=sTokens(0)&"querysuccessful"ElseSetrst=NewADODB.Recordsetrst.OpenTrim(SQL),cnn,adOpenKeyset,adLockOptimisticSetExecuteSQL=rstMsgstring="查询到"&rst.RecordCount&"条记录"EndIfexecuteSQL_exit:Setrst=NothingSetcnn=NothingExitFunctionExecuteSQL_Error:Msgstring="查询错误:"&err.DescriptionResumeexecuteSQL_exitEndFunctionPublicFunctionTesttxt(txtAsString)AsBooleanIfTrim(txt)=""ThenTesttxt=FalseElseTesttxt=TrueEndIfEndFunction
2024/4/26 9:34:11 210KB vb 学生 管理系统
1
excel需要Microsoft.Jet.OLEDB支持AccessDatabaseEngine_X64AccessDatabaseEngine,安装后可以读取excel后缀文件
2024/2/27 6:39:21 52.78MB Access excel Microsoft
1
考勤管理系统安装说明1、修改lib目录下的config.asp第14行设置为您的虚拟目录路径,以/字符为开头及结尾。
例:ConstSITE_VIRTUAL="/k3erp/"如果直接放置在网站根目录,请直接修改为"/"就可以了。
2、如果你改变了数据库名称或路径(未修改可略过此步),那么请修改lib目录下的config.asp第158行设置您的数据库位置和名称。
例:MyDB.Add"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(""&SITE;_VIRTUAL&"db/AliOA.mdb")&""您只需要修改db/AliOA.mdb目录名称或路径既可。
2023/9/20 13:39:05 752KB 考勤 系统 asp 源码
1
在日常工作中,钉钉打卡成了我生活中不可或缺的一部分。然而,有时候这个看似简单的任务却给我带来了不少烦恼。 每天早晚,我总是得牢记打开钉钉应用,点击"工作台",再找到"考勤打卡"进行签到。有时候因为工作忙碌,会忘记打卡,导致考勤异常,影响当月的工作评价。而且,由于我使用的是苹果手机,有时候系统更新后,钉钉的某些功能会出现异常,使得打卡变得更加麻烦。 另外,我的家人使用的是安卓手机,他们也经常抱怨钉钉打卡的繁琐。尤其是对于那些不太熟悉手机操作的长辈来说,每次打卡都是一次挑战。他们总是担心自己会操作失误,导致打卡失败。 为了解决这些烦恼,我开始思考是否可以通过编写一个全自动化脚本来实现钉钉打卡。经过一段时间的摸索和学习,我终于成功编写出了一个适用于苹果和安卓系统的钉钉打卡脚本。
2024-04-09 15:03 15KB 钉钉 钉钉打卡