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