财务管理系统 vb 案例分析

财务管理系统 vb 案例 分析 定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析 软件案例分析综合性设计报告 院(系):_电子信息工程学院 班 级: 学生姓名: 学 号: 设计地点(单位)______I 524_____ ____________ 设计题目:___基于学校财务系统的软件案例分析 ____ 完成日期: 2009年 11月 30日 指导教师评语: _________________________________ 成绩(五级记分制):______ __________ 教师签名:_________________________ 摘 要 随着软硬件技术的急速发展，计算机技术在社会生活中的方方面面都发挥着重要的作用。对人们人生活质量和生活方式也有着深远的影响，应用先进的网络和数据库技术，可以大大节省人力，物力，并且让我们生活的更舒服。财务管理系统是利用互联网的管理系统。家庭和个人的用户使用此软件，可以方便的进行个人理财，投资管理。用户可以将自己的每一笔收入和支出输入到数据库中，软件帮你理财。 本文主要介绍了财务管理系统的设计与实现。财务管理系统是一个基于网络的信息管理系统，它具有操作简单、成本低廉、效率高等优点，而且没有区域限制。该系统包括六大模块:系统登录模块、部门信息管理模块、职务信息管理模块、职工基本信息模块、职工考勤管理模块、职工奖罚模块、数据库管理模块，主要通过VB来实现。 关键词: 财务管理 SQL VB I 目 录 第1章 需求分析 ............................................. 1 1.1 需求分析 ............................................... 1 1.2 系统功能模块分析 ....................................... 1 1.3 学校财务管理系统框图 ................................... 2 1.4 系统流程图 ............................................. 2 1.5 系统功能模块 ........................................... 3 1.5.1财务管理基本功能模块 ................................ 3 1.5.2 基础资料维护模块 ................................... 4 1.5.3帐薄管理模块 ........................................ 4 1.5.4出纳管理模块 ........................................ 5 1.5.5工资管理模块 ........................................ 5 1.6数据流分析 ............................................. 6 第2章 数据库设计 ........................................... 7 2.1 数据字典 ............................................... 7 2.1.1数据结构 ............................................ 7 2.1.2数据处理过程 ........................................ 8 2.2概念结构设计 ........................................... 8 2.3逻辑结构设计 .......................................... 11 第3章 详细设计 ............................................ 14 3.1登录界面的实现 ........................................ 14 3.2信息管理模块 .......................................... 16 3.3用户管理模块 .......................................... 18 3.4数据库维护模块 ........................................ 19 第4章 测试 ................................................. 21 4.1 软件测试的基本 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 .................................... 21 4.1.1 黑盒测试 .......................................... 21 4.1.2 白盒测试 .......................................... 21 4.2 单元测试的基本方法 .................................... 21 4.3本系统的测试 .......................................... 23 总 结 ...................................................... 24 参考文献 .................................................... 26 源代码: .................................................... 27 II 第1章 需求分析 1.1 需求分析 系统主要为某学校设计，主要为了实现对学校财务的管理。要求能够对各个部门的员工的工资进行管理，同时也要求能够对各种经费进行管理。 1.2 系统功能模块分析 系统主要根据某中学的要求进行设计，并了解了学校的财务的工作流程，该系统包括六大模块:系统登录模块、部门信息管理模块、职务信息管理模块、职工基本信息模块、职工考勤管理模块、职工奖罚模块、数据库管理模块。子模块功能如下: 部门信息管理模块实现部门信息包括(部门编号、部门名称、部门负责人、备注)的相关添加、修改、删除操作。 职务信息管理模块实现相关职务的基本工资和各种奖惩的量度如(惩罚扣除的金额、加班费金额)的添加、修改、删除操作，职务中数据反映了职工工资的各种不同分发情况。 考勤信息管理模块实现对每个职工的每月考勤情况包括(请假天数、旷工天数、迟到早退时间、以及加班天数等)的相关操作。 奖惩信息管理模块实现对职工的奖惩情况数据的添加、删除、修改。 工资管理模块记录每月每职工发工资的情况。 综合信息管理模块提供了分类对工资的查询和报表打印包括(按职工信息查询、按部门信息查询、按工资信息查询等)。 数据库管理模块实现了对数据库的备份和还原。 1 1.3 学校财务管理系统框图 学校财务管理系统 综部职职职职数 合门务工工工据 信信信基考奖库 息息息本勤惩管 管管管信信信理 理理理息息息子 子子子管管管系 系系系理理理统 统统统 图1.1 学校财务管理系统框图 1.4 系统流程图 开始 登陆用户 身份验证 显示登陆用户信息及权限 部职系职系职系职综数 门务统统统合据工工工 信信信库基考奖 息息息管本勤惩管管管理 信信信理理理子息息息 子子子系管管管系系系统 理理理统统统 子子子 结 束 图1.2 系统流程图 2 1.5 系统功能模块 1.5.1财务管理基本功能模块 财务管理系统 系凭帐报期往出工固财基 统证薄表末来纳资定务础 管管管管处管管管资分资理理理理理理理理产析料 管维 理护 图1.3 财务管理功能模块 财务管理系统的基本流程如图1.4所示 会计基本资 料维护 期初资料开 帐 开帐资料过 帐处理 凭证手动输费用分摊比 入 率设定 科目分摊处凭证审核 理 凭证过帐 资料查询或报 表打印 期间结束 年度结束 图1.4 财务管理系统基本流程图 3 1.5.2 基础资料维护模块 “基础资料维护”功能模块用于对会计科目、核算项目以及凭证、帐薄、固定资产等项目进行初始化设置，其中包含的子模块如图1.5所示 基础资料维护 会核结常 计算币算用 别科项方摘 目目法要 图1.5“基础资料维护”功能模块 1.5.3帐薄管理模块 “帐薄管理”功能模块用于各种帐务处理、查询、筛选的功能，其中包含的子功能模块如图1.6所示 帐薄管理 多明金金核总 栏细额额算分帐 帐总明总类 帐细帐帐 帐 图1.6“帐薄管理”功能模块 4 1.5.4出纳管理模块 出纳是会计中十分重要的一个岗位，它担负着现金、存款的收付职能。“出纳管理”既可同总帐系统联合起来使用，也可以单独给出纳人员使用。一般包括现金帐管理、存款管理、票据管理等，如图1.7所示 出纳管理 日出支出初 常纳票纳始 处扎管报设 理帐理表置 图1.7“出纳管理”模块 1.5.5工资管理模块 “工资管理”功能模块用于进行学校工资的发放和 核算，工资动态变动管理，工资费用计提与分配、银行代发等;一般包括基础设置、工资结构设置、工资变动管理、工资数据处理等，如图1.8所示 工资管理 核数费打工工工其 算据用印资资资他方输分工发汇统报 法入配资放总计表 条条表表输 出 图1.8 “工资管理”功能模块 5 1.6数据流分析 数据流图是结构化系统分析的主要工具，它能图形化的显示出系统中数据的使用，表达数据在系统内部的逻辑流向以及系统的逻辑功能和数据的逻辑变换。根据前面对系统的分析和所收集的资料，对工资管理的整个流程进行分析设计，可以得出该系统的数据流程图。 职工基本信息主文职工基本信息主文 职工基本信息输入 职工基本信息输出 系系件件 统统 职工考勤信息输入 职工考勤信息输出 职工考勤信息主文职工考勤信息主文管管 件件 理理 职工奖惩信息输入 职工奖惩信息输出 人人 职工奖惩信息主文职工奖惩信息主文员 员 职务类型输入 职务类型输出 件件 工资算法 职务管理信息主文职务管理信息主文 件件 图1.9 各类子系统数据流程图 6 2章 数据库设计 2.1 数据字典 数据字典是对用户信息要求的整理和描述。信息需求定义了未来信息系统用到的所有信息，包括用户将向数据库中输入什么信息，从数据库中要得到什么信息，各类信息的内容和结构，信息的联系等。 2.1.1数据结构 数据结构是若干有意义的数据项的集合，用以表示某一具体的事物，包括数数据结构名:含义和组成等。 数据结构:部门基本信息 含 义:记录部门基本信息情况 组成成分:部门编号、部门名称、部门负责人、备注。 含 义:职工工资管理信息 组成成分:职务编号、固定工资、每月奖金、病假扣除金额、事假扣除 金额、旷工扣除金额、迟到扣除金额、早退扣除金额、一类 加班费、二类加班费、三类加班费。 数据结构:职工基本信息 含 义:记录员工基本信息 组成成分:职工编号、姓名、性别、出生日期、所属部门编号、职 7 务编号身份证号码、文化程度、登录密码、登录状态、备注。 数据结构:工资单 含 义:记录每月职工的实际分发工资 组成成分:工资单编号、职工编号、结算日期、实发工资。 数据结构:职工奖惩信息 含 义:记录职工奖罚信息 组成成分:奖惩编号、职工编号、奖惩编号、奖惩金额、事由。 数据结构:员工考勤信息 含 义:记录职工考勤信息 组成成分:考勤编号、考勤年月、出差天数、病假天数、事假天数、旷工天数、迟到时间、早退时间、一类加班天数、二类加班天数、三类加班天数 2.1.2数据处理过程 处理过程名:职工薪水核算 说 明: 根据职务信息、职工奖惩信息、职工考勤信息计算职工工 资 输入数据: 职工基本信息、职工工资管理信息、职工奖罚信息、职工 考勤信息 输出数据: 职工工资信息 2.2概念结构设计 数据库概念结构设计阶段是在需求分析的基础上，依照需求分析中 8 的信息要求，对用户信息加以分类、聚集、和概括，建立信息模型。 备注 职工编号 出生日期 姓名 所属部门 职工 性别 职务编号 身份证号码 文化程度 登陆密码 登陆状态 图2.1职工E-R图 固定工职务编 资 号 每月奖金 事假扣除金 病假扣除金额 职务信息 额 迟到扣除金 旷工扣除金额 额 二类加班费 早退扣除金 三类加班额 费 一类加班费 图2.2职务E-R图 9 迟到时考勤年月 间 早退时 职工编号 间 考 勤 信一类加班息 天数 病假天数 二类加班 天数 事假天数 三类加班 天数 旷工天数 备注信 息 图2.3考勤E-R图 部门编号 备注 部门 部门名称 部门负责人 图2.4 部门E-R图 工资单编号 工资单 职工编号 实发金额 结算日期 图2.5工资单E-R图 10 职务管理信息 基本工资 拥有 职工 员 拥有工工资月 有有 薪 计算 奖惩信息 奖金 拥有 加班费、扣款 设置考 勤 制度 关于办公室下班关闭电源制度矿山事故隐患举报和奖励制度制度下载人事管理制度doc盘点制度下载 考勤信息 图2.6整体E-R图合并 2.3逻辑结构设计 根据上述E-R图，可将以上实体和联系转换为以下关系模型(加下划线为主键)下面将以表格的形式描述出来，从而更易懂: 部门信息(部门编号、部门名称、部门负责人、备注) 表2.1 部门信息表 字段名 数据类型 长度 备注 部门编号 nchar 10 主键 部门名称 varchar 20 部门负责人 nchar 10 11 员工职务信息(工资编号、固定工资、每月奖金、差旅费、病假扣除金额、事假扣除金额、旷工扣除金额、迟到扣除金额、早退扣除金额、一类加班费、二类加班费、三类加班费。) 表2.2员工职务信息表 字段名 数据类型 长度 备注 工资编号 nchar 10 主键 固定工资 smallmoney 每月奖金 smallmoney 病假扣除金额 smallmoney 矿工扣除金额 smallmoney 迟到扣除金额 smallmoney 早退扣除金额 smallmoney 一类加班费 smallmoney 二类加班费 smallmoney 三类加班费 smallmoney 职工基本信息(职工编号、姓名、性别、出生日期、所属部门编号、职务编号、文化程度、登录密码、登录状态、备注) 表2.3职工基本信息表 字段名 数据类型 长度 备注 职工编号 nchar 10 主键 姓名 nchar 2 性别 nchar 10 出生日期 smalldatatime 所属部门编号 nchar 10 职务编号 nchar 10 文化程度 Nchar 10 12 登录密码 Nchar 10 登录状态 Nchar 10 职工奖罚信息(奖罚编号、职工编号、事由、奖罚金额) 表2.4职工奖罚信息表 字段名 数据类型 长度 备注 奖罚编号 nchar 10 主键 职工编号 nchar 10 事由 Nchar 20 奖罚金额 smallmoney 职工考勤信息(考勤编号、考勤年月、全勤天数、出差天数、病假天数、事假天数、旷工天数、迟到时间、早退时间、一类加班天数、二类加班天数、三类加班天数。) 表2.5职工考勤信息表 字段名 数据类型 长度 备注 考勤编号 nchar 主键 考勤年月 smalldatatime 全勤天数 smalldatatime 出差天数 smalldatatime 病假天数 smalldatatime 事假天数 smalldatatime 矿工天数 smalldatatime 迟到时间 Int 20 早退时间 Int 20 一类加班天数 Decimal(3,1) 20 二类加班天数 Decimal(3,1) 20 三类加班天数 Decimal(3,1) 20 13 第3章 详细设计 3.1登录界面的实现 用户登录系统窗口的是用户和管理员进入系统的唯一通道，合法的用户能够通过登录窗口进入系统。用户登录窗口是进入应用系统的喉舌，在安全保密、系统维护中占有重要的地位，所以登录系统的规划在整个应用系统中占据不小的比例，是系统能否安全、稳定、正常运行的关键。登录系统就是要验证当前的用户名是否与该用户密码一致，以保证所有用户的合法权益不受侵害。用户密码是在单行编辑框中输入，全部为掩码显示，避免因为明文而造成密码失窃，给用户造成不必要的麻烦。当用户登录3次以上时，系统就会自动退出，认为有非法用户企图在猜密码，则拒绝进入应用系统。界面设计如下: 图3.1登录界面 14 代码设计: Private Sub Form_Load( ) On Error GoTo 10 If App.PrevInstance Then '检视前一版本 MsgBox "软件“红旗中学财务管理系统”已经打开～", 48, "" Unload Me End If If sound1 = False Then PlaySoundFile (App.Path + "\Sound\LOAD.wav") sound1 = True End If End Sub Private Sub Timer1_Timer() Main.Show Timer1.Enabled = False End Sub Private Sub Timer2_Timer() 1.SU Me.hWnd, 35, 255, 6 Timer2.Enabled = False End Sub 15 3.2信息管理模块 从教师集团的工资保密性和数据安全性出发，工资管理模块只有管理员以打开可以使用添加、修改、删除信息。 图3.2 部分管理界面图 图3.3 职务管理界面图 如图所示可以在此界面进行查询、修改、删除、增加数据。其它子模块和此模块差不多，只是数据不同。综合信息管理可以对教师信息实现查询，并显示出各个教师的考勤、奖惩和工资情况。 16 工资计算模块: 工资计算模块实现了对每月工资的计算，操作员先输入要计算工资的年月，然后执行查询，系统就会按照输入的年月显示出当月教师的考勤、奖惩情况，再根据教师所在的职务信息经过计算后得到教师实际的工资，保存到工资单表里。 代码设计: Private Sub Command3_Click() On Error GoTo ERR If Text1 = "" Or Text2 = "" Then GoTo Err1 Dim RST As ADODB.Recordset Set RST = New ADODB.Recordset RST.CursorType = adOpenStatic RST.LockType = adLockOptimistic RST.Open "select * from 部门表 where 部门='" & Combo1.Text & "'", db If Not RST.EOF Then Adodc1.Recordset.Fields("部门") = RST.Fields("部门") End If RST.Close RST.Open "select * from 职称表 where 职称='" & Combo2.Text & "'", db If Not RST.EOF Then Adodc1.Recordset.Fields("职称") = RST.Fields("职称") End If 17 图3.4员工管理界面 本窗体是用于员工信息的新建、修改和删除操作。在输入新员工时在[基本工资信息表]和[考评表]内也会建立相应的记录，在删除员工时，所有有此员工的表中将通过数据库的关系自动级联删除。在此员工信息里我们加入了照片工能，照片是通过把要加入的照片文件，通过二进制方式写入到数据库中，在浏览时是从数据库中以二进制的形式读出到固定文件中，然后再把此文加载到图片筐中进行显示。在新按钮按下时修改和删除都不能用，且新建按钮同时变时取消按钮。其它按钮也一样，将通过系统当前状态的不同而改变按钮的状态。左下角做了一个小查询功能，是为了方便查看或修改员工的信息，该查询是使用的模糊查询方式。 3.3用户管理模块 用户管理模块主要是用于用户资料的管理，用户的增加、删除以及用户密码的修改。并且用户的增加、删除只能是管理员才有的权利。界面如下: 18 图3.5用户管理界面 3.4数据库维护模块 这个模块主要用于数据库的备份与恢复。备份方面主要是对数据库进行完整备份。数据库维护模块的主界面如下: 图3.6备份恢复界 Private Sub mnuFileClose_Click() '卸载窗体 Unload Me End Sub Private Sub mnuFileExit_Click() '退出应用程序 19 Unload frmMain End Sub Private Sub mnuFileJian_Click() filePrintTJ End Sub Private Sub mnuFileNew_Click() '调用新建文件过程 FileNew End Sub Private Sub mnuFileOpen_Click() '调用文件打开准备过程 FileOpenProc End Sub Private Sub mnuFilePinter_Click() frmMain.CMDialog1.Flags = cdlPDPrintSetup frmMain.CMDialog1.ShowPrinter End Sub Private Sub mnuFilePrin_Click() End Sub 20 第4章 测试 4.1 软件测试的基本方法 软件测试的方法和技术是多种多样的。对于软件测试技术，可以从不同的角度加以分类:从是否需要执行被测软件的角度，可分为静态测试和动态测试。从测试是否针对系统的内部结构和具体实现算法的角度来看，可分为白盒测试和黑盒测试; 4.1.1 黑盒测试 黑盒测试也称功能测试或数据驱动测试，它是在已知产品所应具有的功能，通过测试来 检测 工程第三方检测合同工程防雷检测合同植筋拉拔检测方案传感器技术课后答案检测机构通用要求培训 每个功能是否都能正常使用，在测试时，把程序看作一个不能打开的黑盆子，在完全不考虑程序内部结构和内部特性的情况下，测试者在程序接口进行测试，它只检查程序功能是否按照需求规格 说明 关于失联党员情况说明岗位说明总经理岗位说明书会计岗位说明书行政主管岗位说明书 书的规定正常使用，程序是否能适当地接收输入数锯而产生正确的输出信息，并且保持外部信息(如数据库或文件)的完整性。 4.1.2 白盒测试 白盒测试也称结构测试或逻辑驱动测试，它是知道产品内部工作过程，可通过测试来检测产品内部动作是否按照规格说明书的规定正常进行，按照程序内部的结构测试程序，检验程序中的每条通路是否都有能按预定要求正确工作，而不顾它的功能，白盒测试的主要方法有逻辑驱动、基路测试等，主要用于软件验证。 4.2 单元测试的基本方法 测试方法有:1 模块接口测试;2 模块局部数据结构测试;3 模块边界条件测试;4 模块中所有独立执行通路测试;5 模块的各条错误处理 21 通路测试。 模块接口测试是单元测试的基础。只有在数据能正确流入、流出模块的前提下，其他测试才有意义。测试接口正确与否应该考虑下列因素: 1、 输入的实际参数与形式参数的个数是否相同; 2、输入的实际参数与形式参数的属性是否匹配; 3、 输入的实际参数与形式参数的量纲是否一致; 4、调用其他模块时所给实际参数的个数是否与被调模块的形参个数相同; 5、 调用其他模块时所给实际参数的属性是否与被调模块的形参属性匹配; 6、调用其他模块时所给实际参数的量纲是否与被调模块的形参量纲一致; 7、调用预定义函数时所用参数的个数、属性和次序是否正确; 8、 是否存在与当前入口点无关的参数引用; 9、 是否修改了只读型参数; 10、 对全程变量的定义各模块是否一致; 11、是否把某些约束作为参数传递。 在模块中应对每一条独立执行路径进行测试，单元测试的基本任务是保证模块中每条语句至少执行一次。此时设计测试用例是为了发现因错误计算、不正确的比较和不适当的控制流造成的错误。此时基本路径测试和循环测试是最常用且最有效的测试技术。计算中常见的错误包括: 1、误解或用错了算符优先级; 2、混合类型运算; 3、变量初值错; 4、精度不够; 5、表达式符号错。 一个好的设计应能预见各种出错条件，并预设各种出错处理通路， 22 出错处理通路同样需要认真测试，测试应着重检查下列问题: 1、输出的出错信息难以理解; 2、记录的错误与实际遇到的错误不相符; 3、在程序自定义的出错处理段运行之前，系统已介入; 4、异常处理不当; 5、错误陈述中未能提供足够的定位出错信息 4.3本系统的测试 登录测试 输入的用户名或密码不正确，则会出现这样的对话框。 图4.1 财务管理系统登陆测试 如果操作员输入的数据不正确，也会显示相应的错误对话框。 用户管理界面测试: 图4.2 用户管理测试 23 总 结 本系统在设计之初，我对VB和SQL有一定的了解，在老师和同学的帮助下，根据所学的关于软件工程的知识，从最初的数据库设计到最后系统前台界面的设计及代码的实现经历了大约2周的时间，在这2周中，我们按照软件工程的生命周期方法学来完成设计，即系统的需求分析、数据库设计、程序设计、系统调试等开发步骤，分阶段地完成各设计任务。在设计之初，我首先对所使用的工具VB和SQL Server 2000进行了全面的学习，由于SQL Server 2000我们在上课时学过，所以学习上手较快，但VB我们并没有接触，但通过自学，我对该门语言有了更多的了解。不知不觉就钻牛角尖，在不断学习的过程中我体会到: 1(软件开发是一个不断学习新鲜事物的过程，从设计初的不懂到最后能够顺利完成，我体会到在实践中学习的重要性，这对于将来我走上工作岗位具有重要意义。 2(设计过程中，经常会遇到困难，我学会通过学习别人的代码的能力，然后根据自己的设计要求编写代码。 3(设计过程中，由于要实现某些功能，互联网帮了我的大忙。网络资源是一个丰富的共享体系，我通过在VB.NET论坛上提出问题得到了很多热心网友的帮助，这坚定了我通过网络吸收知识的信心。 24 致 谢 在本次设计中，我从裴仰军老师身上学到了很多东西。裴老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢他耐心的辅导。 另外在本次设计中，我也得到了许多同学的帮助，在这里向他们表示感谢。 25 参考文献 [1] 郑阿奇.《SQL server 实用教程》(第二版)，北京，电子工业出版社，2005.7 [2] 周中华.《数据库原理与应用》，北京，清华大学出版社,2005.6 [3] 教育部考试中心编.《isual Basic 6.0 数据库程序设计》(一修订版)，人民邮电出版社，2002 [4] 刘炳文.《Visual Basic程序设计教程》(第二版)，北京，清华大学出版社,2003 [5] 陶宏才.《数据库原理及设计》(第二版)，北京，清华大学出版社，2004 [6] 范立南. 《SQL Server 2000实用教程》，北京，清华大学出版社，2000 [7] 唐大任.《Visual Basic程序设计》(第二版)，北京，清华大学出版社，2005 [8] 王晟.《Visual basic 数据库开发经典案例解析》，北京，清华大学出版社，2005.3 26 源代码: Begin VB.Label Label1 Caption = "管理员ID" Height = 255 Left = 240 TabIndex = 2 Top = 480 Width = 2175 End End End Attribute VB_Name = "AdminPass" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub Command1_Click() Dim sql As String Dim rs As New ADODB.Recordset If NewPass.Text <> ChkPass.Text Then '新密码和验证密码要相同 MsgBox "新密码不一致～", vbCritical NewPass.SetFocus Exit Sub End If If User = "" Then '密码和用户ID输入框不能为空 MsgBox "管理员ID不能为空～", vbCritical User.SetFocus Exit Sub End If If OldPass.Text = "" Then MsgBox "管理员密码不能为空～", vbCritical OldPass.SetFocus Exit Sub End If If DbHandle.DbConnection Then sql = "TBL_ADMIN" '打开管理员表,查看是否要添加的管理员ID已经存在 27 rs.CursorType = adOpenDynamic rs.LockType = adLockOptimistic rs.Filter = "ADMIN_ID='" & User.Text & "'" rs.Open sql, DbFinance If DbHandle.resultcount(rs) <> 1 Then '不存在出错退出 MsgBox "管理员ID不存在～", vbExclamation rs.Close DbHandle.DbClose User.SetFocus Exit Sub Else '存在查看输入的原是密码是否和数据库保存的密码相一致 If rs("ADMIN_PASSWORD") <> OldPass.Text Then '不一致要求重新输入原是密码 MsgBox "管理员密码错误～", vbExclamation rs.Close OldPass.SetFocus Exit Sub End If rs("ADMIN_PASSWORD") = NewPass.Text '一致就设置新的管理员密码 rs.Update rs.Close End If MsgBox "管理员密码成功修改～" Unload Me Else '数据库打开失败退出 MsgBox "数据库错误～", vbExclamation DbHandle.DbClose End End If End Sub Private Sub Command2_Click() Me.Hide '返回主窗体 End Sub Private Sub Form_Load() Me.Left = (Screen.Width - Me.ScaleWidth) / 2 '窗体居中显示 Me.Top = (Screen.Height - Me.ScaleHeight) / 2 End Sub Private Sub Form_Unload(Cancel As Integer) On Error Resume Next '对话框关闭时候关闭数据库连接 28 DbHandle.DbClose End Sub VERSION 5.00 Begin VB.Form AddAdmin Caption = "添加" ClientHeight = 3135 ClientLeft = 60 ClientTop = 450 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 3135 ScaleWidth = 4680 StartUpPosition = 3 'Windows Default Begin VB.Frame Frame1 Caption = "添加管理员" Height = 2895 Left = 120 TabIndex = 0 Top = 120 Width = 4455 Begin VB.CommandButton Command2 Cancel = -1 'True Caption = "取消" Height = 495 Left = 2280 TabIndex = 6 Top = 2160 Width = 1695 End Begin VB.CommandButton Command1 Caption = "确定" Default = -1 'True Height = 495 Left = 240 TabIndex = 5 Top = 2160 Width = 1695 End Begin VB.TextBox Pass 29 Appearance = 0 'Flat Height = 375 IMEMode = 3 'DISABLE Left = 240 PasswordChar = "#" TabIndex = 4 Top = 1440 Width = 3735 End Begin VB.TextBox User Appearance = 0 'Flat Height = 375 Left = 240 TabIndex = 2 Top = 600 Width = 3735 End Begin VB.Label Label2 Caption = "管理员密码" Height = 255 Left = 240 TabIndex = 3 Top = 1080 Width = 1335 End Begin VB.Label Label1 Caption = "管理员ID" Height = 255 Left = 240 TabIndex = 1 Top = 360 Width = 1215 End End End Attribute VB_Name = "AddAdmin" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True 30 Attribute VB_Exposed = False Option Explicit Private Sub Command1_Click() Dim sql As String Dim rs As New ADODB.Recordset If User.Text = "" Then '判断管理员ID输入框不为空 MsgBox "管理员ID不能为空～", vbCritical User.SetFocus Exit Sub End If If Pass.Text = "" Then '判断管理员密码输入框不为空 MsgBox "管理员密码不能为空～", vbCritical Pass.SetFocus Exit Sub End If If DbHandle.DbConnection Then '打开数据库连接 sql = "TBL_ADMIN" '对TBL_ADMIN进行操作 rs.CursorType = adOpenDynamic rs.LockType = adLockOptimistic rs.Filter = "ADMIN_ID='" & User.Text & "'" '选择条件是符合User.Text的管理员记录 rs.Open sql, DbFinance If DbHandle.resultcount(rs) = 1 Then '如果找到一条存在的管理员记录就报错 MsgBox "管理员ID已经存在～", vbExclamation rs.Close DbHandle.DbClose Exit Sub Else '否则新建一条管理员记录完成添加 rs.Close rs.Filter = "" rs.Open sql, DbFinance rs.AddNew rs("ADMIN_ID") = User.Text rs("ADMIN_PASSWORD") = Pass.Text rs.Update rs.Close End If MsgBox "管理员成功添加～" 31 Unload Me Else '当数据库连接打不开时候报错 MsgBox "数据库错误～", vbExclamation DbHandle.DbClose End End If End Sub Private Sub Command2_Click() Me.Hide '取消按钮返回主窗体 End Sub Private Sub Form_Load() Me.Left = (Screen.Width - Me.ScaleWidth) / 2 '把窗体定位居中显示 Me.Top = (Screen.Height - Me.ScaleHeight) / 2 End Sub Private Sub Form_Unload(Cancel As Integer) On Error Resume Next '窗体关闭时候关闭数据库连接 DbHandle.DbClose End Sub 32 下面是赠送的保安部制度范本,不需要的可以编辑删除!!!!谢谢! 保安部工作制度 一、认真贯彻党的路线、方针政策和国家的法津法觃,按照####年度目标的要求,做好####的安全保卫工作,保护全体人员和公私财物的安全,保持####正常的经营秩序和工作秩 序。 二、做好消防安全工作,认真贯彻“预防为主”的方针,教育提高全体人员的消防意识和防火知识,配备、配齐####各个楼层的消防器材,管好用好各种电器设备,确保####各通道畅 通,严防各种灾害事故的发生。 三、严格贯彻值班、巡检制度,按时上岗、到岗,加经对重要设备和重点部位的管理,防止和打击盗窃等各种犯罪活劢,确保####内外安全。 33 四、、加强保安队部建设,努力学习业务知识,认真贯彻法律法觃,不断提高全体保安人员的思想素质和业务水平,勤奋工作,秉公执法,建设一支思想作风过硬和业务素质精良的保安队伍。 11、保持监控室和值班室的清洁干净,天天打扫,窗明地净。 12、服从领导安排,完成领导交办任务。 5、积极扑救。火警初起阶段,要全力自救。防止蔓延,尽快扑灭,要正确使用灭火器,电器,应先切断电源。 6、一旦发生火灾,应积极维护火场秩序,保证进出道路畅通。看管抢救重要物资,疏散危险区域人员。 九、协同本部门或其他部门所进行的各项工作进行记录。 34 保安员值班操作及要求 一、交接岗 1、每日上午9时和下午 19时 为交接岗。 2、交接岗时将当班所接纳物品清点清楚,以及夜班所发生的情况未得到解决的需> 面汇报。检查值班室内外的卫生状况,地面无纸屑,桌面无杂物,整齐清洁。 二、执勤 35 1、7:50 — 8:10、13:50 —14:10立岗迎接上班人员;12:00 — 12:20 、18:00 — 18:20立岗送下班人员。 2、值勤时做到遇见领导立岗,检查物品立岗,外来人员进出立岗。 3、门卫室值勤时,应做到坐姿端正,注规监规器的劢态,做好接待工作,值勤期间不看书报电规,听收音机。不不无关人员聊天,劝阻无关人员不要在门卫室寄存物品或打电话,禁止打瞌睡。 4、维持门口秩序,使之保持畅通。 5、熟记消防,报警,救护及内部联系电话。 三、巡逻 巡逻是防盗及发现####有不安全因素的重要措施。 1、每天按照巡检制度定时轮流巡逻。 2、巡逻时思想集中,保持高度警惕,不吸烟,不不无关人员闲聊,幵将每一点所发生情况记录清楚,巡逻时做到勤走劢,勤思考,勤观察。发现问题及时报告。 36 3、白天加强对观众区、办公区及楼道的巡逻,夜晚以机房为重点进行检查,每晚零点之后巡查不少于两次。 四、防火工作 1、严格门卫制度,严禁无关人员,将易燃易爆物品带入####。 2、发现违反安全觃定的电源和火种,应予以切断和熄灭,应报告####领导采取相关措施。 3、值勤时发现物质储存,保管不符合防火要求,消防器材移作他用及非正常使用灭火器,应及时阻止,幵报告,提请有关部门整改。 4、发生火灾先拨打 119 向消防部队报警,幵立即报告####领导。报警时简要讲清####地址,电话号码及火情,同时派人在门口接应,引导消防车进入火场,向消防人员介绍水源,总电闸部位等。 37