课程设计企业人事管理信息系统.doc

课程设计 公司人事管理信息系统Visual Basic +SQL Server信息管理系统一、引言1.1开发背景 1现行业务简介 公司的人事管理业务大体通过如下的管理流程： (1)新职工入公司后，经人事部门的专门人员将新职工的基本信息进行记录，涉及职工的家庭信息和工作、教育经历信息，生成人事档案。 (2)假如新职工尚未分派部门，那么他每个工作日的工作表现由人事处统一管理，直到该职工分派部门为止，再归属该部门的部门领导管理。(3)由专门的人员管理出勤信息，并按月进行汇总 (4)每月的月底或月初，由该职工的直接领导对其进行考核，填写职工考核表，涉及职工的工作业绩和奖惩记录。 (5)每月的月初，职工考核表与考勤汇总信息上交给人事部门最高管理者，作为年终考核职工的依据，同时根据这些信息和工资项目，填写工资表，并将工资表送到财务部门。 2系统开发背景 随着全球经济一体化的进程，人事管理日趋复杂，人力资源成了现代公司生存和发展的重要因素。公司人事部门传统的档案手工管理繁琐、效率低下并且容易犯错，已经无法适应现代公司日益庞大的人力资源队伍的管理需求。同时，随着计算机技术的迅猛发展，办公自动化成为现实，运用计算机实现公司人事管理势在必行。 公司人事管理信息系统综合运用人事管理相关领域的知识，结合计算机技术，科学地管理公司的人事档案、绩效考核等信息，具有检索迅速、操作方便、存储量大、保密性高、成本低等特点，可以大大地提高工作效率；同时，可以引导公司按照科学的管理理念对人力资源进行规范化的管理。1.2目的 本系统以一个中小型公司的人事管理业务为依托，结合人力资源管理理论，设计并开发一个公司人事管理信息系统，提供一个以人为本、科学合理的人事管理解决方案。针对公司不同管理层的职工，在人事管理的各个方面，提供了一个互动式的人事管理平台。系统目的如下： (1)尊重传统的公司人事管理制度和文化，满足公司不同管理层的职工和公司普通职工对人事管理内容的不同需求。 (2)通过人事管理系统的实现，使公司的人事管理更加科学化。 (3)提供灵活、方便的操作。(4)节约人事管理的成本，提高公司人事管理的效率。(5)对系统提供必要的权限管理。 (6)为公司实现整体信息化的其他相关系统提供必要的数据支持。二、需求分析2.2.1系统需求 在中小型公司，人事部门传统的手工管理重要涉及人事档案管理、职工的考勤记录、考勤数据记录、绩效考评以及原始工资核算。其中，考勤管理对实时性规定较高，工资管理涉及到财务部门，并且业务比较复杂，在人事管理信息化的过程中，一般作为两个单独的系统考勤管理系统和工资管理系统来实现（目前一般的财务系统也包含了工资管理的功能）。本系统不包含考勤管理和工资管理的具体业务，只提供考勤信息的查询，为工资管理系统提供必要的数据支持。 综上所述，公司人事管理信息系统应当满足以下需求： (1)业务上满足公司人事管理职能的基本需求，可以方便地进行部门管理、职工管理和考评管理。 (2)为考勤管理系统和工资管理系统提供数据支持。 (3)与传统的手工管理相比，要添加基础数据的管理和用户权限的设立。 (4)所有的界面都要有信息的浏览功能，同时要保障数据的安全、可靠。 (5)完善的报表功能，可以打印需要的报表。2.2.2功能需求 根据系统的需求分析，本系统的功能规定如下： 1系统管理 系统管理的功能是管理登录系绕的用户。进行用户权限设立，在权限范围内可以进行用户的添加、删除和修改，涉及用户密码和用户权限的更改。 2基础数据管理 基础数据管理的功能是设立和管理职务、民族和文化限度数据，用来使系统的其它界面的一些操作更加方便。在权限范围内可以进行基础数据的添加、删除和修改。 3部门信息管理 部门信息管理的功能是设立和管理部门信息。在权限范围内可以进行数据的添加、删除和修改。 4,职工信息管理 职工信息管理的功能是设立和管理职工档案信息，涉及职工基本信息管理、家庭成员信息管理、工作教育经历信息管理。业务流程源于手工管理阶段的人事档案，同时可以生成职工詹息清单供打印。用户在权限范围内可以进行数据的添加、删除和修改。 5考勤信息查询 考勤信息查询的功能是提供应用户考勤记录值。所有系统用户均可以按照时间和部门查询所有考勤信息，这样使管理更加透明化。 6考评信息管理考评信息管理的功能是进行职工的工作绩效考评，同时将数据作为工资管理系统的某些工资项目的计算依据。系统用户在权限范围内可以进行数据的添加、删除和修改。 7帮助 显示系统的开发版本和系统说明信息。2.3性能需求 系统的运营对运营环境的规定： 1硬件环境 解决器：Intel Pentium 4 3.06G或更高 内存：512 MB(推荐) 硬盘空间：40 GB 显卡：SVGA显示适配器 2软件环境 操作系统：Windows 2023/XP 数据库：Microsoft SQL Server 2023三、总体设计3.1系统概述本系统采用客户机服务器的运营方式，针对中小型公司的人事管理业务，同时考虑到开发成本和安全性的问题，本系统设计成为一个相对封闭的单用户运营系统。采用Visual Basic6,0作为开发工具，采用Microsoft SQL Server 2023作为后台数据库，一般可以满足中小公司人事管理业务的需求。系统的基本流程是：用户登录一系统主控平台一选择各项子系统。3.2系统模块“公司人事管理信息系统”重要分为登录、系统管理、基础数据管理、部门信息管理、职工信息管理、考勤信息查询、考评信息管理和帮助信息，共8个模块。系统主模块层次图如图2-1所示：登录系统管理基础信息管理部门信息管理职工信息管理考勤信息查询考评信息查询帮助公司人事管理信息系统图1系统功能图3.3模块设计1登录模块输入用户名和密码，假如用户名和密码对的，进入主控制平台；否则提醒用户明确的错误信息。2系统管理模块 (1)用户管理子模块：系统管理员进行用户权限设立和用户的浏览，可以更改用户密码和用户权限；同时，为保障系统健壮，进行输入检查，给予必要的信息提醒。 (2)修改密码子模块：任何用户登录后都可以修改自己的密码。3基础数据管理模块系统管理员浏览职务、民族和文化限度的编号和名称，可以对这些信息进行添加、删除和修改，普通用户不可以使用该功能。4部门信息管理模块系统管理员和人力资源的主管可以进行数据的添加、删除和修改。普通用户只能浏览信息。5职工信息管理模块 (1)职工信息管理子模块：可以设立和查看某个职工的家庭成员、工作教育经历，可以进行条件查询。系统管理员和人力资源主管可以进行数据的添加、删除和修改，普通用户可以修改自己的家庭成员、工作教育经历信息。 (2)报表子模块：可提供职工基本信息、职工就职信息和职工通讯录报表。6考勤信息查询模块该模块使用考勤管理信息系统的数据，所有用户可以进行条件查询，但提供更新考勤信息的功能。7考评信息管理模块人力资源主管根据职贯的工作表现对数据进行更新，其他用户只能按照时间和姓名进行查询。8帮助信息模块显示系统的开发版本和系统说明信息。基础数据录入部门数据录入职工数据录入考勤管理系统考评数据录入基础数据管理部门数据管理职工信息管理导入考勤数据考证信息管理基础数据入库部门数据入库职工数据入库考勤数据入库考证数据入库数据查询报表输出数据库图2 系统IPO图四、数据库设计4.1关于应用程序和数据库的接口本系统采用ODBC+ ADO对象访问数据库。ODBC(Open Database Connectivity)是用于数据库访问的、应用最为广泛的应用程序编程接口，它允许应用程序使用相同的代码访问不同的数据库管理系统；VB 6.0中，ADODB对象(Active Data Object)是一种提供访问各种数据库的连接机制，它使用OLEDB数据支持提供一个面向对象的访问数据源的接口，内置了连接类、命令类和数据集类。图3 “引用工程”对话框在Visual Basic 6.0的工程中，选择菜单“工程/引用”命令，弹出“引用工程”对话框，在对话框的“可用的引用”中选择“Microsoft Active Data Object 2.7 Library”选项，单击“拟定”按钮，这样就在程序中加入了对ADO的引用，如图3所示。4.2数据库根据系统分析和模块设计，本系统数据库的数据项和数据结构如下：1数据库 (1)数据库名称：人事信息库。 (2)标记（数据库名）：DBMan2数据库表结构 关系型如下：用户 (用户名，密码，用户类型)职务编码（职务ID，职务名）民族编码（民族ID，民族名称）文化限度编码（文化限度ID，文化限度名称）部门（部门ID，部门名称，描述）职工（职工ID，姓名，性别，出生日期，民族，政治面貌，婚姻状况，部门号，入职时间，文化限度，籍贯，身份证号，电子邮箱，办公电话，家庭电话，手机号，身份性别，居住地址，邮政编码，档案编号，户口地，信息录入员号）家庭成员（成员ID，职工ID，姓名，性别，出生日期，与职工关系，所在单位，联系电话）职工经历（ID，职工号，开始日期，结束日期，工作或就读单位，职务，学历，经因与奖惩）考勤（年份，月份，职工号，部门号，全勤日数，请假天数，旷工天数，申请休假天数，出差天数，迟到次数，早退次数，加班天数，周末加班天数，节假日加班天数）职工部门属于获得考评接受考勤经历具有拥有家庭用户成为图4系统E-R图考评（年份，月份，职工号，工作难度系数，工作量记录，工作评价）表1职工表名：用户信息表（标记：tbUser）。数据来源：用户管理模块的录入。 字段名主键否类型长度可空否备注LTserld是nChar(10)否用户名UserPassword否nChar(8)否用户密码uSerKind否nVarchar(20)否用户类型: 普通用户, 人力资源管理者, 系统管理员 表2表名：职务编码信息表（标记：tbDuty）数据来源：基础数据管理模块的录入。字段名是否主键字段类型字段长度可空否备注Dutyld是nchar10否职务编码DutyName否nvarchar20否职务名称 表3表名：民族编码信息表（标记：tbNation）数据来源：基础数据管理模块的录入。字段名是否主键字段类型字段长度可空否备注Nationld是nchar3否民族编码NationName否nvarchar20否民族名称 表4表名：文化限度编码信息表(标记：tbEdu)数据来源：基础数据管理模块的录入。 字段名是否主键字段类型字段长度可空否备注Eduld是nchar2否文化限度编码EduName否nvarchar20杳文化限度名称表5表名：部门信息表（标记：tbDep）。数据来源：部门信息管理模块的录入。 字段名是否主键字段类型字段长度可空空备注Depld是nchar10否部门编号DepName否nvarchar30否 部门名称Describe否nvarchai100是部门职能描述 说明：部门编号前两位代表一级部门，3.4，位代表二级部门，5.6位代表三级部门，7.8位备用表6 表名：职工家庭信息表（标记：tbFamilyMember）。数据来源：职工家庭信息管理模块的录入。 字段名是否主键字段类型字段长度可空否备注Id是nchar10否家庭成员编号Empld否nchar10否职工编号Name否nvarchar30否家庭成员姓名Gender否nchar2是家庭成员性别Age否int4是家庭成员年龄Relationship否nvarchar20是与本人关系WorkingOrg否nvarchar50是所在单位Tel否nvarchar20是联系电话表7表名：职工基本信息表（标记：tbEmployee）数据来源：职工基本信息管理模块的录入。字段名是否主键字段类型字段长度可空否备注Empld是nchar10否职工编号EmpName否nvarchar10否职工姓名Gender否nchar2是性别Age否int4是年龄Nationld否nchar3是民族编号Birthday否datetime8是生日PoliticalParty否nvarchar10是政治面貌MaritalCon否nvarchar6是婚姻状况Depld否nchar10是所在部门编号HireDate否datetime8是人职时间Eduld否nchar2是文化限度编号FarrulyPlace否nvarchar20 是籍贯IdCard否nvarchar20否身份证号Email否nvarchar20是电子邮箱Officephone否nvarchar20是办公电话Homephone否nvarchar20是家庭电话Mobile否rnvarcha20 是手机号码State否nvarchar20否人员身份Residence否nvarchar50是居住地址Postcode否nvarchar10是邮政编码Dutyld否nchar10是职务编号Recorld否nchar10是档案编号PRLocation否varchar50 是户口所在地EmpldRecord否nchar10是信息录入员编号说明：人员身份分在职人员；兼职人员；试用人员；离职人员；返聘人员表8表名：职工工作教育经历表（标记：tbWorkExp）。数据来源：职工工作傲育经历信息管理模块的录入。 字段名是否主键字段类型长度可空否备注Id是nchar10否编号Empld否nchar10否职工编号StartDate否datetime8是开始日期EndDate否datetime8是终止日期WorkOrg否nvarchar50是工作单位僦读单位Position否nchar10是职务Eduld否nchar2是学历WorkDescri否nvarchar300是工作描述奖惩经历表9表名：职工考勤信息表（标记：tbWorkRecord）。数据来源：考勤信息管理系统中的数据导入本系统。字段名是否主键字段类型字段长度可空否备注RecordYear是nchar4否考勤年份RecordMonth是nchar2否考勤月份Empld是nchar8否职工编号Depld否nchar10是部门编号DaysPresiMonth否int4是当月勤天数LeavdDays否int4是请假天数AbsentDays否int4是旷工天数VacDays否int4是申请休假天ErrandDays否int4是出差天数LateDays否int4是迟到天数LeaveEarlyDays否int4是早退天数OtlDays否int4是工作日加班天数Ot2Days否int4是周末加班天数Ot3Days否int4是节假日加班天数(10)表名：职工考评信息表（见表2-10）。标记：tbEvaluation。数据来源：职工考评信息管理模块的录入。字段名是否主键字段类型字段长度可空否备注EvaYear是nchar4否考评年份EvaMonth是nchar2否考评月份Empld是nchar10否职工编号WorkCoe否int4是工作难度系数WorkDes否nvarchar400是工作量记录WorkEva否nvarchar300是工作评价3，数据库的建立在SQL Server里创建数据库有裉多种方法，这里采用soL语句来创建数据库。打开soL Server的查询分析器，选择本地服务器，连接到soL Server数据库，登录名和密码均为sa。将SQL语句复制在查询分析器里，然后执行soL语句。SQL语句由如下两层结构构成：(1) 创建新数据库。CREATE DATABASE 人事管理 -建立“人事管理”数据库ON PRIMARY /* 主文献组*/( NAME = DBRS_DATA1,FILENAME=g:SQLRSDATARS_DATA1.mdf,SIZE=3, MAXSIZE =200,FIlEGROWTH = 500KB ),FILEGROUP DATA2 /* 辅文献组*/( NAME=JXGL_DATA2,FILENAME=G:SQLRSDATARS_DATA2.ndf,SIZE=1, MAXSIZE = 100, FILEGROWTH = 500KB )LOG ON /* 日记文献不在文献组中*/( NAME = JXGL_Log1, FILENAME= G:SQLRSRS_Log1.Ldf,SIZE = 1MB,MAXSIZE = 100MB,FILEGROWTH = 500KB)GOCREATE TABLE dbo.userA( -建立“用户”表的结构userID nchar(10) NOT NULL ,UserPassword nchar(8) NOT NULL , UserKind nchar(20) NOT NULL CONSTRAINT PK_User PRIMARY KEY(UserID) GOCREATE TABLE dbo. DutyCod ( -建立“职工编码”表的结构 DutyID nchar (10) NOT NULL ,DutyName nchar (20) NOT NULL ,CONSTRAINT PK_DutyCod PRIMARY KEY(DutyID) GOCREATE TABLE dbo. NationCod ( -建立“民族编码”表的结构 NationID nchar (10) NOT NULL ,NationName nchar (20) NOT NULL ,CONSTRAINT PK_NationCod PRIMARY KEY(NationID) GOCREATE TABLE dbo. EduCod ( -建立“民族编码”表的结构 EduID nchar (10) NOT NULL ,EduName nchar (20) NOT NULL ,CONSTRAINT PK_EduCod PRIMARY KEY(EduID) GOCREATE TABLE dbo. DepInfo ( -建立“部门信息”表的结构 DepID nchar (10) NOT NULL , DepName nchar (20) NOT NULL ,Describe nvarchar (100) CONSTRAINT PK_DepInfo PRIMARY KEY(DepID) GO CREATE TABLE dbo.tbEmployee ( -6.建立“职工信息”表的结构 EmpId nchar(10) NOT NULL , EmpName nvarchar(20) NOT NULL , Sex nchar(2), NationName char(3), Birthday datetime,PoliticalParty varchar(20),MaritalCon nchar(6), Depld nchar(8), HireDate datetime, Eduld nchar(10), FarrulyPlace nvarchar(20), IdCard nvarchar(20), Email nvarchar(30),Officephone nvarchar(20),Homephone nvarchar(20), Mobile nvarchar(20),State nvarchar(20), Residence nvarchar(50), Postcode nvarchar(10), Duty nchar(12), Recorld nchar(10), PRLocation nvarchar(10)CONSTRAINT PK_tbEmployee PRIMARY KEY(EmpID) GOCREATE TABLE dbo. tbFamilyMember( -7.建立“职工家庭信息”表的结构 MemberID nchar(10) NOT NULL , EmpID nchar(10) NOT NULL ,Name nvarchar(20) NOT NULL , Sex nchar(2) NOT NULL , Age int, Relationship nvarchar(20), WorkingOrg nvarchar(50), Tel nvarchar(20)CONSTRAINT PK_tbFamilyMember PRIMARY KEY(MemberID) GOCREATE TABLE dbo. tbWorkExp ( -8.建立“职工经历”表的结构 Id nchar(10) NOT NULL ,Empld nchar(10) NOT NULL ,StartDate datetime,EndDate datetime,WorkOrg nvarchar(50),Position nchar(10), Eduld nchar(2), orkDescri nvarchar(300)CONSTRAINT PK_tbWorkExp PRIMARY KEY(ID) GOCREATE TABLE dbo. tbWorkRecord ( -9.建立“职工考勤”表的结构 RecordYear nchar(4) NOT NULL ,RecordMonth nchar(2) NOT NULL ,EmpId nchar(10) NOT NULL , DepId nchar(10) NOT NULL ,DaysPresiMonth int , LeavdDays int , AbsentDays int , VacDays int, ErrandDays int, LateDays int, LeaveEarlyDays int, OtlDays int, Ot2Days int, Ot3Days intCONSTRAINT PK_tbWorkRecord PRIMARY KEY(RecordYear, RecordMonth,EmpId) ) GOCREATE TABLE dbo. tbEvaluation ( -10.建立“职工考评”表的结构 EvaYear nchar(4), EvaMonth nchar(2) NOT NULL , EmpId nchar(10) NOT NULL , WorkCoe int, WorkDes nvarchar(400), WorkEva nvarchar(300)CONSTRAINT PK_bEvaluation PRIMARY KEY(EvaYear, EvaMonth,EmpId) ) GO五、关于程序设计的简要说明对于程序设计，总体规定程序结构清楚，简朴易懂；不随便定义全局变量，尽量使用局部变量；严禁出现GOTO、ELSE GOTO和ELSE RETURN语句；严禁出现两条等价的支路等。1窗体界面设计 (1)窗体界面要清楚，控件的设计要便于用户使用。例如，可以拟定输入值范围的地方尽量使用下拉列表框，让用户选择输入而不要使用文本框；同时注意保持所有的界面风格一致： (2)本系统选用DataGrid控件来显示数据，为了保证系统根据不同的用户提供灵活的操作并保证系统的安全性，不直接使用DataGrid来更新数据，而选用TextBox。 (3)各个窗体的BorderStyle属性均设立为1- Fixed Single（即拟定大小）。2Option Explicit在书写所有模块和窗体的任何函数代码之前都要添加Option Explicit语句，用来强制规定使用Dim、Private、Public或ReDim语句显式声明该脚本中所使用的所有变量，使程序设计更加规范。3可重用性规定 (1)尽量使用小规模函数，将功能复杂的大规模函数进行分解。(2)反复使用且完毕相对独立功能的代码写成公共函数。(3)创建一个系统模块，用来定义公共变量和书写公共函数。(4)尽量使用标准库函数和公共函数。4命名规则(1)循环变量、开关变量名称要尽也许的简朴。(2)常量、变量和函数名一般采用其英文表意单词或其缩写。(3)常量一般用大写字母，变量名称假如由多个单词组成，则每个单词的首字母大写；全局变量要在变量名最前面如英文字母g。 (4)控件命名使用控件类型缩写+控件用途的命名方式。程序中涉及到的控件类型缩写如下：控件类型缩写控件类型名控件类型缩写控件类型名cbo/ComboCombol30xDataEnvirnDataEnviromentchkCheckboxtrvTreeViewcmdCommand buttontxtTextboxfrmFormst/StatusBarStatusBarmsfMSHFlexGrid/FlexGridrptDataReportdgDataGridpicPicturelblLabeloptOptionbuttonModuleModulemenuMenu 5书写格式(1)定义的代码块应当放在一起，尽量不要在中间定义变量。(2)对象的定义应当尽也许地带上所属的库名称，例如，string类型变量一般前缀为str。(3)缩进。1)变量声明块不缩进。2)对于基本的控制结构要有缩进。3)对于过长的语句使用续行。例如： 。sql = sql + from XXXXXX6容错解决对于所有的更新操作，在更新数据库前都要进行输入值的合法性检查，涉及输入数值类型、长度等的检查，以免更新数据库时在业务上和数据库解决上发生不必要的错误；对于错误的输入，给予信息提醒并改变背景色，用来明确地向用户提醒错误输入的位置；当控件内容改变时，背景恢复原色。7添加注释添加注释是程序可读性的一个基本规定，但不宜过多，但要针对程序，使别人可以轻而易举地读懂程序。一般在典型和特殊算法前都要有注释。注释的作用范围可认为：定义、引用、条件分支和一段代码。对于显而易见的参数或函数功能一般不加注释。8程序设计部分书写说明一些事件和函数的程序设计同本系统其他模块类似，且解决比较简朴，在程序设计部分的书写省略其实现代码；模块的窗体公共变量若无特殊规定，书写时均省略。 六、具体设计 6.1系统项目文献和公共文献系统模块中定义一些公共变量和公共函数，减少整个程序的代码量并简化程序的修改工 作。系统模块中涉及Main函数。系统模块的实现如下：1主体框架新建一个VB的标准EXE工程，建立系统的主体框架。2添加模块添加模块，并将其命名为ModulePeople-bas3系统公共变量定义:表11系统公共变量定义 变量名称变量类型说明gUserNameString用户名，用来显示状态信息gUserKindString用户类型，用来设定用户权限gEmployeeldString职工编号gLoginSucceededBoolean登录成功的标志BLUEConst（常量）值为：&HFFOOOOO，蓝色WHITEConst（常量）值为：&H80000005，白色4Main函数系统启动函数。解决流程：以对话框模式启动登录窗体，假如启动失败，给出提醒信息。 Sub Main() Dim fLogin As New frmLogin 启动登录窗体fLogin. Show vbModal 装入并显示模式窗体 If Not gLoginSucceeded Then MsgBox”系统启动失败，请重试！”，vbOKOnly+vbExclamation,”警告” End If Unload fLogin End Sub5ConnectString函数设立数据库连接字符串函数，本函数无参数，返回值为数据库连接字符串(本系统数据库用户名和密码设立为sa)。Public Function ConnectString() As StringConnectString=”FileDSN= DBMan_ODBC ; UID= sa; PWD=sa”End Function6ExecuteSQL函数设立SQL语句的执行函数，参数为将要执行的SQL语句，ADO数据集rst和是否允许数据集更新的布尔型变量。解决流程：创建到数据源的连接，根据布尔型变量的实参值，拟定执行SQL语句的方式并执行SQL语句。假如SQL语句成功执行，返回值为true，结果存储于与形参数据集rst相相应的实参数据集内；否则，返回值为false。Public Function ExecuteSQL(ByVal SQL As String,rst As ADODB.Recordset,_Optional enableWrite As Boolean=True) As Boolean ,Dim con As ADODB.ConnectionOn Error GoTo Execute ErrorSet con=New ADODB.Connectioncon.Open ConnectString 打开数据库Set rst=New ADODB.Recordset 定义数据集If enableWrite Then 读写方式 rst.Open Trim$(SQL) ,con,adOpenStatic,adLockOptimistic 连接，静态游标，共享锁Else 只读方式 rst.Open Trim$ csoL) ,con,adOpenStatic.adLockReadOnlv 连接，静态游标，独占锁End If ExecutesoL =True con. Close 关闭数据库Exit Function Execute Error: ExecuteSQL=False Exit Function End Function7DBExist函数判断数据库中是否存在指定记录，参数为将要执行的SQL语句。解决流程：创建到数据源的连接，执行SQL语句（不允许数据集更新），检索记录。假如存在指定记录，返回记录数；否则，返回值为0。Public Function DBExist(ByVal soL As String) As Integer Dim con As ADODB.Connection D