vb代码求详解
PublicgUserNameAsString'保存用户名称PublicflagAsInteger'添加和修改的标志PublicgSQLAsString'保存SQL语句PublickqsqlAsString'保存查询考勤结果SQL语句Publickqsql2AsString'保存查询其他考勤结果SQL语句PublicArecordIDAsInteger'保存上下班记录编号PublicLrecordIDAsInteger'保存请假记录编号PublicOrecordIDAsInteger'保存加班记录编号PublicErecordIDAsInteger'保存出差记录编号PubliciflagAsInteger'数据库是否打开标志PublicFunctionTransactSQL(ByValSQLAsString)AsADODB.RecordsetDimconAsADODB.ConnectionDimrsAsADODB.RecordsetDimstrConnectionAsStringDimstrArray()AsStringSetcon=NewADODB.Connection'创建连接Setrs=NewADODB.Recordset'创建记录集OnErrorGoToTransactSQL_ErrorstrConnection="Provider=Microsoft.jet.oledb.4.0;DataSource="&App.Path&"\Person.mdb"strArray=Split(SQL)con.OpenstrConnection'打开连接IfStrComp(UCase$(strArray(0)),"select",vbTextCompare)=0Thenrs.OpenTrim$(SQL),con,adOpenKeyset,adLockOptimisticSetTransactSQL=rs'返回记录集iflag=1Elsecon.ExecuteSQL'执行命令iflag=1EndIfTransactSQL_ :MsgBox"查询错误:"&Err.Descriptioniflag=2ResumeTransactSQL_ExitEndFunctionPublicSubTabToEnter(KeyAsInteger)IfKey=13Then'判断是否为回车键SendKeys"{TAB}"'转换为Tab键EndIfEndSubSubmain()DimfLoginAsNewfrmLoginfLogin.ShowvbModual'显示窗体EndSub这是一个类模块,请告诉我这堆代码究竟是干什么用的,实现具体哪些功能
连接数据库,对异常进行简单处理, TabToEnter是把回车的ASCII边成TAB的ASCII码
答:java Comparable接口是一个可比较对象的接口,compareTo是其中唯一的方法,使用者根据需要实现此接口,如果两者相等,返回0;如果参数大于当前实...详情>>