软件工程课程设计-- 高校学生宿舍管理系统的设计与实现 - 图文

枣 庄 学 院

信息科学与工程学院课程设计任务书

题目： 高校学生宿舍管理系统的设计与实现

学 生1： 学 生2： 专 业：

课 程： 实用软件工程 指导教师： 职称： 完成时间： 2013年 5 月----2013 年 6月

枣庄学院信息科学与工程学院制

2013年6月30日

课程设计任务书及成绩评定

课程设计的任务和具体要求 任务： 综合运用软件工程的思想和先修课程的相关知识，完成一个信息系统的开发，掌握软件工程生命周期的技术和方法。 具体要求： 1．学生2-3人组成一个项目小组，第一人为组长，其他人为组员，组内成员分工明确、团结协作、相互配合，共同完成课程设计； 2．要求每组成员对本小组自选系统首先进行认真分析，写出详细的设计步骤； 3．课程设计必须按照软件开发的具体过程进行设计，每个阶段都要有详细的文字、数据、图进行说明； 各设计阶段的模型请采用专门工具Visio、PowerDesigner来完成； 课程设计要思想清晰、明确，排版整齐，严格按照模板要求进行组织撰写。 6．课程设计时间为4周。 7．课程设计报告要求不少于2000字； 8. 请选择面向过程的设计方法或面向对象的设计方法。 1）面向过程的设计方法（结构化方法）： （1） 需求分析： 小组成员能够理解需求，分析需求，列出需求分析的任务，描绘分配的子功能需求； 小组成员完成分配子功能的数据流图DFD，要求绘制0、1、2层DFD； 小组成员完成系统的E-R图； 小组成员完成数据字典的建立； 组长组织完成系统的需求分析。 （2） 软件设计：完成系统的概要设计与详细设计。 小组成员根据需求的DFD图，完成分配的子功能模块设计，用HIPO图表示； 小组成员设计分配的子功能模块的接口； 小组成员能够完成分配的子功能程序流程的逻辑设计； 组长组织完成系统的总体结构集成。 （3） 软件实现： 小组成员完成分配的子功能界面的设计； 小组成员完成分配的子功能代码编写； 组长组织完成系统的实施。 （4）软件测试： 小组成员完成分配的子功能的单元测试； 小组负责人负责组织系统的测试用例，完成测试工作。 2）面向对象的设计方法： （1）需求分析：分析系统的静态功能和动态行为。 小组成员能够理解需求，分析需求，列出需求分析的任务，描绘分配的子功能需求； 小组成员完成UML用例图分析，用例描述功能性需求； 组长负责整个系统的用例图，完成功能划分。

（2）软件设计： 根据用例分析，小组共同协商，完成选取设计模式，设计系统的架构，完成 小组成员完成系统的概念数据模型CDM及物理数据模型PDM； 小组共同协商，完成整个系统的类图设计和组件的封装设计； 小组共同协商小组负责整个系统的活动图，描述系统的动态行为。 小组成员完成所分配的用例功能的界面设计； 组长负责组织完成系统的整个设计。 （3）软件实现： 每一位小组成员完成所分配的用例功能实现，使用开发语言，编写类、界面和DAO等 。 小组共同集成系统。 （4）软件测试： 小组成员完成所分配的用例功能类方法和类状态测试； 小组负责人负责组织系统的测试用例，完成测试工作。 9．课程设计要有总结：总结课程设计的过程、体会。 10. 其他：参考文献等。 指导教师签字： 日期： 指导教师评语 成绩： 指导教师签字： 日期：

课程设计所需软件、硬件等 系统环境：windows xp 开发工具： Delphi 7 、Visio、PowerDesigner 数据库管理系统：SQL Server 2000 数据库服务器：SQL Server2000 桌面引擎 课程设计进度计划 起至日期 工作内容 备注 2013.5.20 -2013.06.17 准备材料完成设计 参考文献、资料索引 序号 文献、资料名称 编著者 出版单位 [1]刘宇君.SQL server数据库应用设计案例汇编［Ｍ］.北京:中国铁道出版社, 2007.86-132 [2]童爱红等.Delphi数据库编程［Ｍ］.北京:清华大学出版社, 2005.106-158 [3]刘波.基于Delphi的学生成绩管理系统[J].四川大学学报，2009,(10):283 [4]张海藩.软件工程导论.清华大学出版社. [5]郑人杰等.实用软件工程.清华大学出版社. [6]王珊. 数据库系统概论.高等教育出版社，2009.

目 录 1概述 1.1目的 ?????????????????????????1 1.2 背景 ?????????????????????????1 1.3 开发环境 ???????????????????????2 1.4 小组分工 ???????????????????????2 2可性行研究 2.1可行性分析 ??????????????????????2 2.2 经济可行性分析 ????????????????????3 2.3技术可行性分析 ????????????????????3 3 需求分析 3.1 系统数据流图 ?????????????????????3 3.2 数据字典 ???????????????????????4 3.3 系统E-R图 ??????????????????????5 3.4数据表库????????????????????????5 3.5系统需求????????????????????????6 4 软件设计 4.1数据流图????????????????????????7 4.2子功能模块设计?????????????????????12 5 测试报告 5.1系统实现????????????????????????13 5.2软件测试????????????????????????15 5.3界面显示????????????????????????17 6 总结（附录）?????????????????????????19

0

1概述 1.1目的 学生宿舍管理需对多种信息需要处理和管理。现今，有很多学生宿舍都是初步开如使用，甚至尚未使用计算机进行信息处理。根据调查得知，他们以前对信息管理的主要方式是基于文本、表格等纸介质的手工处理，对于卫生评比等很多信息都是用人工计算、手抄进行。数据信息处理工作量大，容易出错；由于数据繁多，容易丢失，且不易查找。总的来说，缺乏系统规范的信息管理手段，这就是管理信息系统的开发的基本目的? 经过分析如此情况，我们使用Delphi 和数据库等开发工具,利用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型。然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行系统。 1.2 背景 宿舍管理系统是目前各所高校后勤管理之中的重要部分，如何能科学有效的开展好宿舍管理部分的工作，是当前高校领导人和后勤管理人员关心的问题。因此，宿舍管理部分工作的信息化和科学化管理有着十分重要的实践意义，本系统旨在实现对现有的宿舍管理系统中遇到的宿舍信息情况和大量数据进行数据库存储的基础上,设计并完成对其宿舍信息的分类、查询、添加、删除和修改,在深入研究的过程中,尽可能实现方便友好的操作界面和数据报表。 1.3 开发环境 系统环境：windows xp 开发工具： Delphi 7 数据库管理系统：SQL Server 2000 数据库服务器：SQL Server2000 桌面引擎 1.4 小组分工 经过认真课程设计前期准备，我们做出了明确分工。巩如悦同学负责此次高校学生宿舍管理系统的需求分析、软件设计和软件实现，王建焕同学做软件测试，后期总结以及文档排版。

1

2可性行研究 2.1 可行性分析 （1）硬件方面：在此次设计中，我们用到了接入互联网的个人PC机一台，以及打印机一台，开发地点为学生宿舍。 （2）系统软件方面: 数据库管理系统的功能已足够，我在开发过程中使用到了数据库代码编程，全部都是手工编码，没有采用向导功能，代码虽然有时会出现问题，但是基本能满足编程的需求，网络软件的性能也能满足需求。 （3）应用软件方面：在编程过程中，我主要使用delphi 7软件编写代码，同时也使用到了Word，以及Visio等作为辅助的存档或制图工具。 （4）开发能力方面：在开发此系统之前，我已拥有良好的delphi编程能力及拥有SQL SERVER 2005的使用经验，再根据上述分析情况，利用现有人力和物力，完全能够开发出一个比较简单使用的宿舍管理系统。加之学校老师指导及其它资源丰富情况，学生宿舍管理系统在技术上是完全可行的。 2.2 经济可行性分析 经济可行性分析主要是对开发新系统所投入的资金与系统投入使用后所带来的便利进行比较，确认新系统是否会给学校带来一定的工作便利。开发此学生宿舍管理系统，不仅能提高学校的管理水平给管理者提供一个学校的信息平台。使用宿舍管理系统能将宿舍管理和人员管理信息化，使学校对住宿学生实现计算机管理并记录，可随时掌握宿舍里房间的使用状况，提高学校管理工作质量和效率。 2.3 技术可行性 高可获性来自于我们建议的软件系统，无论是Oracle, IBM DB2, 或Actuate 9, 都支持失败转移等高级集群功能，满足提供7x24不间断服务的要求，能够保证满足任何时候系统的可获性需求。 3 需求分析 在本系统分析中采用用例驱动的分析方法分析需求的主要任务，识别参与者和识别用例。并建立用例模型。 由于学生宿舍管理工作存在工作量大、事务繁琐的特点，宿舍管理人员需付出大量的工作时间来从事各种事务性工作，但工作的效率很低。为提高工作效率，减轻校方人员的工作负担，决定针对学生宿舍管理开发管理系统软件，以供宿舍管理人员通过电脑操作进行宿舍管理，从而使学校的宿舍管理工作系统化、规范化、自动化，提供整个宿舍管理的效率，使总体管理水平上升到一个新的高度。

2

本系统能减少很多不必要的资源，消除了以前用冗余的纸张式管理，大节省了学校能源。并且计算机的存储与快速查询功能大大提高了宿舍管理的效率，并且还提高了学籍信息管理的精确度。方便快速的操作，可减少学籍信息管理的漏洞，又减少因工作的冗余出现的错误，并且操作非常简单，可减少许多不很必要的人员，这无论从物质上还是工作人员的工资上都为学校节约了开支。为学校增加了财富。 3.1 系统数据流图 （1）0层数据流 （2） 1层数据流 1.1系统管管理员信息 楼房信息 系统信息 系统事务 楼房表 管理员 事务 用户表 1.0接收事公寓事务 1.2宿舍管寝室信息 公寓信息 员工信息 管理员 寝室表 出入事务 学生事务 员工表 1.3学生管学生信息 学生信息 1.4出入登外来人员信息 学生基本情况 出入信息 物品信息 外来人员表 物品出入楼 学生宿舍管理系统(第1层)数据流 （3）2层数据流 3

信 息 录 入 学生基本信息 学生基本信息 T2 信 息 修 改 按寝室查 询 住宿信息 学生管理信息 信 息 分 类 T2 T3 T4 查询信息 按学号查 询 信 息 查 询 按姓名查 询 按班级查 询 管 理 员 T2 T3 T4 T2 T3 T4 按住宿情班级 况 查 询 住宿信息 学生宿舍管理系统(第2层)数据流图 3.2数据字典（DD） （1）外部实体 名称 数据结构 说明 学生 学生数据 流 管理员 备注 输入数据流 学生住宿信息 学生住宿信息 输出数据流 学生住宿信息 无 （2）数据结构 名称 数据项 学生数据流 学号+姓名+班级+性别 学生信息记录结构 学号+姓名+房号+床号

4

逻辑关系 （学号）线性 （房号）线性 (3)学生数据结构的数据元素： 名称 类型 长度 学号 字符型 10位 姓名 字符型 10位 班级 字符型 3位 性别 字符型 2位 学生住宿信息记录结构的数据元素： 名称 类型 长度 学号 字符型 10位 有关编码说明 1~2位：年级，3~5位：专业， 6~8位：班级，9~10位：学号 无 无 无 有关编码说明 1~2位：年级，3~5位：专业， 6~8位：班级，9~10位：学号 无 无 无 姓名 字符型 10位 房号 字符型 8位 床号 整型 1位 (4)数据流 名称 学生住宿信息 数据流来源 学生住宿信息记录 数据流去向 入住、换房、退房、查房源、申请、交费、退费 数据流组成 宿舍号、床位号 数据流量 (5)处理/加工 名称 输入 输出 处理 换房 学生住宿信息 学生住宿信无 息 退房 学生住宿信息 学生住宿信无 息 入住 学生住宿信息 学生住宿信无 息 查询房源 学生住宿信息 学生住宿信查询房间、选择房间 息 办理手续 学生住宿信息 学生住宿信申请、交费、退费 息 (6)数据存储 名称 学生信息记录 结构 学生信息记录结构 3.3系统E-R图 5

学号班级姓名学生1床号余额ID号姓名房管员权限性别住宿1管理1床床号m收费标准状态 3.4 数据库表 由E-R图设计出的数据库表 字段名 描述 Stu_key 学号 Stu_name 姓名 Stu_sex 性别 Stu_dor 宿舍床号 Stu_mon 余额 学生表 字段名 描述 Adm_id 工作账号 Adm_name 姓名 Adm_lim 工作权限 房管员表 字段名 描述 Bed_id 床号 Bed_dorid 收费标准 Bed_sta 状态 床表 数据类型 char char char 要求 不能为空 不能为空 不能为空 数据类型 char char char 要求 不能为空 不能为空 数据类型 char char char char char 要求 不能为空 不能为空 不能为空 3.5 系统需求 系统管理模块包括：添加新用户、密码修改、重新登录、退出系统4个部分。 1.添加新用户：实现系统管理人员授予或取消新用户登录系统的用户名和密码。 2.密码修改：实现所用用户的密码更改功能。 3.重新登录：实现用户返回系统主界面。 4.退出系统：实现正常退出宿舍管理系统。 3.5.1 宿舍信息管理模块

6

宿舍信息管理模块包括：宿舍信息登记或修改和宿舍信息查询2个部分。 1. 宿舍信息登记：登记学校所有住宿情况。 2. 宿舍信息查询：查询学校所有宿舍的情况。 3.5.2 学生入住管理模块 学生入住管理模块包括：入住学生基本信息录入和学生信息查询2个功能。 1. 学生基本信息录入：实现学生基本信息情况的登记及宿舍的分配功能。 2. 学生信息查询：实现入住学生宿舍信息的查询功能。 3.5.3 宿舍卫生检查模块 宿舍卫生检查模块包括：宿舍卫生检查情况登记和卫生检查情况的查询。 1. 宿舍卫生检查情况登记：实现每次宿舍卫生检查情况的记录和保存。 2. 宿舍卫生检查情况查询：实现历次宿舍卫生检查情况的查询。 3.5.4 水电收费模块 水电收费模块包括：宿舍水电缴费记录和宿舍水电缴费的查询2个功能。 1. 宿舍水电缴费记录：实现历次宿舍水电缴费情况的记录。 2. 宿舍水电缴费查询：实现历次宿舍水电缴费情况的查询。 3.5.5 报修管理模块 报修管理模块包括：宿舍公物报修登记和公物维修结果的查询2个功能。 1. 宿舍公物报修登记：实现宿舍公物报修情况的详细登记。 2. 宿舍报修结果查询：实现宿舍报修后的结果查询。 3.5.6 来访人员管理模块 来访人员管理模块包括：人员来访登记、来访人员查询2个功能。 7

1. 人员来访登记：实现外来人员进入和离开宿舍楼的情况的详细登记。 2. 来访人员查询：实现外来人员来访情况的查询。 3.5.7 报表统计模块 报表统计作为一种信息收集模块有很好的统计作用，帮助资源有效管理与整合。 1. 学生信息统计 2. 员工信息统计 3．进出楼物品统计 4. 缴费统计 4 软件测试 4.1 数据流图（DFD） （1）顶层（第0层）数据流程图 招新处新生名单学生信息查询申请信息查询申请学生宿舍管理系统信息信查息询查询查询输出查询输出管理员信息信反息馈反馈学生住宿信息 8

（2）第1层数据流程图 学生信息表1 查询息回馈3 费用费用记录表信学生床位信息表本基息信证认房源管理员提申交请5 自动分配2 住宿4 系统模块住宿信息表 （3）第2层数据流程图 用户表房间空闲用户认证码密名、1.1登陆登成陆。功用户名核对登成陆功用。户、名权学生 登陆失败用户名、限1.2房源房间基本信息管理员个人费用表1.3费用限权费用表查询 查询模块 9

2.1入住审核信息退房申请成功交提房源信息表住宿表学生房间收费标准2.2换房审核信息 管理员申请提交提交申请成入住申请2.3退房住宿模块 功 3.1交费审核房间收费标准学生申请费用表管理员退房成功3.2退费 费用模块 新生基本信息认证4.1注册房源查询表审核管理员审核费用表4.2交费4.3入住 自动分配模块 （4）底层精细化DFD图： 登陆精细化

10

DFD图

存在继续用户名、密码登录基本信息认证审核不存在退回拒绝 用户名、密码登陆身份认证审核存在不存在查询房源房间信息房号 房间精细化DFD图 房间号分配用户名、密码登录空房查询房间表房源锁定申请提交审核失败成功退回拒绝 入住精细化DFD图 11

成功计费核对标准费用表退费用户名、密码登录房号查询存在申请审核败失退回 退房精细化DFD图 注销登记存在 基本信息录入用户名、密码登录房号查询申请新房号查询存在审核失败成功退回拒绝 换房精细化DFD图 退回用户名、密码登录 身份认证审核费用查询退费交费成功失败费用表费用结算 费用精细化DFD图 退回用户名、密码登录新生审核成功失败房间安排表学号分配房间床位 自动分配精细化DFD图

12

4.2 子功能模块设计 系统管理 添加用户 密码修改 重新登录 宿舍管理系统 退出系统 宿舍信息管理 宿舍信息查询 宿舍信息登记 学生入住管理 基本信息录入 入住信息查询 学生离校管理 卫生检查管理 宿舍卫生检查情况登记 宿舍卫生检查情况查询 水电收费管理 宿舍水电收费情况登记 宿舍水电收费情况查询 房屋报修管理 宿舍公物报修情况登记 宿舍公物报修情况查询 来访登记管理 来访情况登记 来访情况查询 物品出楼登记 物品进楼登记 学生信息报表 报表管理 员工信息报表 物品进出楼统计 关于 宿舍缴费统计 13

5 测试报告 5.1 系统实现 系统管理模块包括：超级用户登录、普通用户登录、用户密码修改、用户管理、退出系统五个部分。 1.超级用户登录：实现系统管理人员登录。 2.普通用户登录：实现一般管理人员登录。 3.用户管理：实现系统管理人员授予或取消一般用户登录该系统的用户名和密码。 4.密码修改：实现所用用户的密码更改功能。 5.退出系统：实现正常退出宿舍管理系统。 登录系统 否 是否注册 注册 是 输入所需信息 输入用户名 完成注册 管理员 职员 浏览者 账户注册与删除详细设计

14

登陆系统 选择修改密码 输入新的密码 确认新的密码 密码一致 是 完成修改 否 修改密码过程 宿舍管理模块包括：入住管理、退宿管理、报修管理三个大的部分。 1.入住管理：登记学生入住时间及一些基本情况。 2.退宿管理：登记学生离校时间及相关情况。 3.报修原理：登记学校所有住宿楼公物损坏上报情况。 信息查询模块基本上包括：按学号进行查询、按姓名进行查询、按班级查询、按寝室号查询、每栋楼房住宿情况查询五个部分。 1.按学号进行查询：实现每个学生基本信息情况的查询功能。 2.按姓名查询：通过学生姓名查询学生基本信息情况。 3.按班级查询：通过班级查询某班级学生住宿情况及该班级学生信息。 4.按寝室号查询：查看每个宿舍所住学生信息情况。 5.2显示界面 15

5.3软件测试 输入及外部条件 用户名类型及长度 密码类型及长度 有效等价类 12位数字[1] 201012120100<密<201012120199[4] 无效等价类 不是12位数字[2] 12位的字符[3] 码密码小于等于201012120100[5] 密码大于等于201012120199[6] 覆盖范围 [1][4] [2][4]或[3][4] [1][5] [2][5] [1][5] 测试用例 数据 TS0001 TS0002 TS0003 TS0004 TS0005 编制人 期望结果 输入有效 输入无效 输入无效 输入无效 输入无效 2013-6-20 王建焕 审定人 巩如悦 16

软件名称 测试项编号 优先级 测试项描述 Test Version 1.01 TS_FUN_001_001 高 验证登录界面，两个输入框分别输入用户名和密码，两个按钮登陆和取消，用户名和密码不能为空，输入错误的用户名或密码要提示错误信息。 应用被打开，且当前处在登录界面上 SRS_FUN_001 输入 执行步骤 预期结果 正确的用户名和直接敲击enter1）支持鼠标或按密码，包括是合法键或用鼠标单击Tab键移动当前的字符和合法长登陆按钮或按Tab焦点（2）密码显度 键移动当前焦点示为*（3）支持至登陆按钮后敲直接按enter键击enter键 登录（4）正常登录到系统 错误的用户名，包直接敲击enter（1）支持鼠标或括用户名含有非键或用鼠标单击按Tab键移动当法字符、长度过登陆按钮或按Tab前焦点（2）支持长、长度过短 键移动当前焦点直接按enter键至登陆按钮后敲登录（3）不能实击enter键 现登录，弹出对话框提示“用户名不存在 正确的用户名和直接敲击enter（1）支持鼠标或错误的密码，包括键或用鼠标单击按Tab键移动当非法字符、长度过登陆按钮或按Tab前焦点（2）密码长或过短 键移动当前焦点显示为*（3）支至登陆按钮后敲持直接按enter击enter键 键登录（4）不能实现登录，弹出对话框提示“密码错误” 用户名和密码都直接敲击enter（1）支持鼠标或为空 键或用鼠标单击按Tab键移动当登陆按钮或按Tab前焦点（2）支持键移动当前焦点直接按enter键至登陆按钮后敲登录（3）不能实击enter键 现登录，弹出对话框提示“请输入用户名” Test Software 编号/版本 预置条件 参考信息 用例序号 TS0001 TS0002 TS0003 TS0004 17

TS0005 正确的用户名，密码为空 直接敲击enter键或用鼠标单击登陆按钮或按Tab键移动当前焦点至登陆按钮后敲击enter键 TS0006 任意的用户名和密码，包括正确的或错误的，也可以为空 检查UI友好性 TS0007 用鼠标单击取消按钮或按Tab键移动当前焦点至取消按钮后敲击enter键 检查登录界面设计是否合理，符合UI规范标准 TS0008 检查安全性 检查密码安全和程序安全 TS0009 TS0010 任意的用户名和用鼠标或按Tab密码，包括正确的键移动当前焦点，或错误的 先输入用户名和密码，再利用剪切或复制、粘贴功能（包括右键快捷菜单和Ctrl+C，Ctrl+V组合键）重新输入用户名和密码，然后单击登陆按钮或敲击enter键 任意的用户名和用鼠标或按Tab密码，包括正确的键移动当前焦点，或错误的 先输入用户名和密码，再利用剪切或复制、粘贴功能（包括右键快捷菜单和Ctrl+C，Ctrl+V组合键）重新输入用户名18

1）支持鼠标或按Tab键移动当前焦点（2）支持直接按enter键登录（3）不能实现登录，弹出对话框提示“请输入密码” （1）支持鼠标或按Tab键（2）若输入密码显示为*（3）清空用户名和密码 界面符合习惯、美观，按钮对齐，输入框对齐，无错别字，字体大小协调，文字描述准确 （1）密码的保存是加密过后的（2）程序是防止SQL注入攻击的 （1）支持鼠标或按Tab键（2）用户名支持复制粘贴功能，密码不支持复制粘贴功能（3）输入正确正常登录，输入错误不能登录，并弹出相应提示信息 （1）支持鼠标或按Tab键移动当前焦点（2）用户名支持复制粘贴功能，密码不支持复制粘贴功能（4）清空用户名和密码

和密码，然后单击取消按钮 6 总结 本学期我们学习了软件工程这门科目，老师通过十多周的课时对软件工程这门课程的教学，让我们深切的感受到软件工程这门课给我传递的思想：一个分析处理问题的过程，是一个综合的能过解决问题的思想集合。 软件工程是有创造力的，有组织的人在第一成熟的软件工程中进行的，该过程适合于软件开发人员简历的产品和产品的市场需求，它的定义是：建立和使用一套合理的工程原则，以便获得经济的软件，这种软件是可靠的，是可以在机器上高效运行的。这门课程教给了我们在完成一个实际项目时的一般程序和过程，我认为这是一份非常具有实际意义的教学内容。在我毕业后者将是我一项重要的技能。 在此我对老师的辛勤教育表示感谢，您让我学到了将使我终生受益的知识。 附录（部分代码）： begin If Edit_username.Text ='' then MessageBox(handle,'用户名不能为空!','警告',MB_OK+MB_ICONWARNING); Edit_username.SetFocus exit; end; if Edit_password.Text ='' then begin MessageBox(handle,'用户密码不能为空!','警告',MB_OK+MB_ICONWARNING); Edit_password.SetFocus exit; end; if not dataModule2.CheckUserName(Edit_username.Text) then begin MessageBox(handle,'错误的用户名!','警告',MB_OK+MB_ICONWARNING); Edit_username.SetFocus Edit_username.SelectAll exit; end;

19

if swor 36 d.text)) then begin not DataModule2.CheckUserPassword(trim(Edit_username.text),trim(Edit_pasMessageBox(handle,'密码错误!','警告',MB_OK+MB_ICONWARNING); Edit_password.SetFocus; Edit_password.SelectAll; exit; end else begin MainFrm.ToolBar1.Enabled:=true; MainFrm.N1.Enabled:=true; MainFrm.N8.Enabled:=true; MainFrm.N12.Enabled:=true; MainFrm.N13.Enabled:=true; MainFrm.N25.Enabled:=true; MainFrm.N5.Enabled:=true; MainFrm.StatusBar1.Panels[1].Text:=Edit_username.Text MainFrm.StatusBar1.Panels[3].Text :=DataModule2.ReturnType(Edit_username.text,Edit_password.text); MainFrm.StatusBar1.Panels[5].Text:=DateToStr(date); MainFrm.StatusBar1.Panels[7].Text :=TimeToStr(time); Form1.Close

20

本文来源：https://www.bwwdw.com/article/dlwr.html