关 键 词：

毕业设计计算机

资源描述：

JSJ03-063@delphi计科教务管理系统设计与实现(源代码+论文),毕业设计计算机

内容简介：

1stClass 4000 / Password : 1ST4000982940NMWnts 1、由于系统使用了 时间(年份月份)查询 ,所以在使用前请 确认 系统日期格式为:yyyy-MM-dd ,以免出现不必要的错误和麻烦。nts 1、由于系统使用了 时间(年份月份)查询 ,所以在使用前请 确认 系统日期格式为:yyyy-MM-dd ,以免出现不必要的错误和麻烦。nts目录 第一章 总体设计 1 1.1 总体功能设计 1 1.1.1 系统的主要功能要求 1 1.1.2 系统主要 模块 1 1.1.3 系统安全性 1 1.1.3.1 口令权限识别 1 1.1.3.2 口令存取 1 1.1.4 主要功能模块描述 2 1.1.4.1 课程表信息 2 1.1.4.2 总课表信息 2 1.1.4.3 教师信息管理 2 1.1.4.4 教师课酬管理 2 1.1.4.5 教师课酬发放 2 1.1.4.6 教师课酬统计 2 1.1.4.7 试卷档案登记 2 第二章 系统详细设计分析 3 2.1 需求分析 3 2.1.1 目标系统功能说明 3 2.1.2 用户需求分析 3 2.1.3 系统运行环境简介 3 2.1.3.1 硬件环境 4 2.1.3.2 软件环境 4 2.2 系统数据流图 4 2.3 系统结构 6 2.4 系统 E-R 图 6 2.5 数据库设计 7 2.5.1 主要数据表 7 2.5.2 基本数据表的实现 8 第三章 界面设计 12 3.1 登录界面 12 3.2 用户管理 14 3.3 角色管理 29 nts计科教务管理系统 1 第一章 总体设计 1.1 总体功能设计 1.1.1 系统的主要功能要 求 根据用户口令判断用户的权限，具有基本的信息录入功能和添加、删除、修改功能，并能根据录入的信息生成课程表、总课表、课酬表、课酬统计表、试卷档案表，并能生成打印报表和 Excel 数据文档等功能。 1.1.2 系统主要 模块 主要功能模块有： 用户管理，角色管理，数据字典，课程表信息，总课表信息，教师信息管理，教师课酬管理，教师课酬发放，教师课酬统计，试卷档案管理，课程名称设置，教师信息查询，课程信息查询，教师课酬查询 等。 1.1.3 系统安全性 计算机系统的安全治理是一个庞大、复杂、面广的系统工程。安全的核心是人 ，必须以人为核心进行安全管理。采用各种先进的安全技术，使系统免受非法攻击，排除没有访问权限的使用者窃取机密信息，确保系统安全可靠的运行。 针对 学校教务 管理系统的特点，为了加强其安全性，系统采用一定的保密措施。 1.1.3.1 口令 权限 识别 口令识别是一种低成本，易实现的用户识别技术。在计算机系统内广泛的使用，在口令识别机制中，计算机系统给每个用户分配一个用户标识和一个口令。用户标识唯一确定一个用户是公开的；口令用于证实用户，是保密的，显示为 *号。 1.1.3.2 口令存取 系统要识别每个用户的口令，就必须把每个 用户的口令存放起来，形成口令表，通常以文件或数据库形式存放。如果以明文的形式存放，则很容易被熟悉系统的人偷取，为了提高基于口令的身份识别方案的坚强度，应该在口令方案中引入家密机制。 nts计科教务管理系统 2 1.1.4 主要 功能模块描述 1.1.4.1 课程表信息 该设计的功能主要是完成 课程表 的管理，它包括 课程表录入生成和 查询，及其维护和打印 及生成 Excel 文档 等功能。 1.1.4.2 总课表信息 该设计的功能主要是完成 学期总 课表 的管理，它包括 学期 课表录入生成和 查询，及其维护和打印 及生成 Excel 文档 等功能。 该模块的录入量较多，在设计上更 加方便用户在较短时间内完成大量的工作。 1.1.4.3 教师信息管理 该设计的功能主要是完成教师信息的管理和维护 。 1.1.4.4 教师课酬管理 该设计主要 是对教师课酬的及时登记入库 ，它包括对 教师课酬的登记 、 录入 、 查询 、 报表打印 、 及 Excel 生成 等功能 ， 也为后续的教师课酬发放提供数据源 。 1.1.4.5 教师课酬发放 该设计的功能主要对 教师课酬的发放进行登记和管理 。 它根据教师课程登记表提供的数据加以录入部分信息，进行维护和管理。提供了录入、查询、 报表打印 、及 Excel 生成 等功能 ，也为后续的教师课酬统计管理提供数 据依据。 为教师课酬发放提供数据。 1.1.4.6 教师课酬统计 该设计 完全依据课酬登记表的数据进而进行统计维护、管理和录入部分必须的外加数据。该设计也提供了录入、查询、 报表打印 、及 Excel 生成 等功能 。主要是为学期教师课酬统计工作提供方便。 1.1.4.7 试卷档案登记 该设计 主要是实现对教学考试试卷 电子 档案的管理， 该设计也提供了录入、查询、 报表打印 、及 Excel 生成 等功能 。为日常教学考试工作提供方便。 nts计科教务管理系统 3 第二章 系统详细设计分析 2.1需求分析 2.1.1 目标系统功能说明 本 教务管理系统 针对 客 户提供强大的软件 功能， 主要维护日常教务管理工作 的基本信息等，能为 教务教学 提供更好的数据支持。软件的功能基本是通用的 。 提供系统 用户 管理、 角色 管理、 数据字典管理、课程表管理 、 总课表管理、教师课酬管理统计、试卷档案管理和生成报表 Excel 数据文档，查询 帮助等功能。 2.1.2 用户需求分析 本 教务管理系统 是基于 Windows 操作系统基础上，通过对 既定数据条件 研究和分析并结合对 学校教务 管理进行分析提出来的。对原有 教务管理系统 的非图形界面操作 和 功能不强的数据库系统的不稳定性、不可扩充性、难以移植等 和 原有系统功能覆盖面不广等缺陷相应提出 了一些要求。 1、 求系统目前流行的数据库系统 SQL Server 2000 作为底层数据库，使其具备很强的稳定性、扩充性、移植性等优良性能。 2、 求系统以功能强大的 Windows 系列操作系统作为操作系统平台，使其具备优良的可视化图形操作界面，大力提高系统的可操作性和交互性尽量减少操作员的负担，让他们更方便、更快捷、更简单的进行操作。 3、 求扩大系统功能覆盖面。它的功能要求能进行图书的编目建库、浏览数据、检索与统计数据、以及打印数据等功能的综合管理。并能实现控制各用户系统权限，从而保证系统的安全性能。 4、 求提高系统的可维护性。系统的数据要求能随时进行备份与恢复，基于家庭图书管理系统的局限性这里就不要求数据能与其他数据库进行交流（及共享数据）。 2.1.3 系统运行环境简介 nts计科教务管理系统 4 基于以上对系统各种需求的分析和定义，建议系统采用一下配置，已确定系统的稳定、高效运行。 2.1.3.1 硬件环境 (1) 最低配置 C233 以上 CPU， 32MB 以上内存， 2.1GB 硬盘。 (2) 建议配置 C2.4 以上 CPU， 256MB 内存， 80GB 硬盘。 (3) 打印机一台 (4) UPS 不间断电源一台（避免数据因突然停电等意 外情况下的丢失 2.1.3.2 软件环境 PC 工作站 Win98/2000/xp 操作系统 2.2 系统数据流图 0层数据流图： 用 户计 科 教 务 管 理系 统用 户 命 令用 户 操 作 信 息显 示 信 息显 示 面 板图 2-1 1层数据流图： 用 户 命 令 处 理4系 统 配 置5配 置 命 令用 户 信 息 权 限 记 录配 置 数 据口 令启 动 命 令启 动 / 停 止处 理2口 令 核 对3口 令口 令 有 效口 令 无 效系 统 操 作1启动/停止信息显示用 户 权 限 数 据显 示 信 息用 户 操 作 信 息用 户 命 令图 2-2 2层数据流图： nts计科教务管理系统 5 操 作 权 限 处 理1 . 1权 限 处 理 信 息操 作 信 息操 作 数 据 记 录权 限 数 据操 作 处 理1 . 2操 作 数 据操 作 信 息显 示 信 息 处 理1 . 3处 理 信 息 显 示 信 息启 动 信 息停 止 信 息图 2-3 3层数据流图： 用 户 信 息 处理1 . 2 . 1用 户 操 作 信 息用 户 记 录用 户 操 作 数 据角 色 信 息角 色 信 息 处理1 . 2 . 2角 色 记 录角 色 操 作 数 据处 理 信 息功 能 权 限 记 录权 限 操 作 数 据处 理 信 息图 2-4 信 息 处 理1 . 2 . 3试 卷 档 案 / 课 程 表 / 总课 表 / 教 师 信 息 / 课 程名 操 作 信 息数 据 库 记 录操 作 数 据处 理 信 息图 2-5 课 酬 登 记 信息 处 理1 . 2 . 4课 酬 操 作 信 息课 酬 登 记 记 录课 酬 登 记 操 作 数 据课 酬 登 记 信 息课 酬 发 放 信息 处 理1 . 2 . 5课 酬 信 息 记 录课 酬 发 放 操 作 数 据处 理 信 息课 酬 统 计 记 录课 酬 统 计 操 作 数 据课 酬 统 计信 息 处 理1 . 2 . 6课 酬 发 放 信 息处 理 信 息 处 理 信 息图 2-6 nts计科教务管理系统 6 查 询 信 息 处 理1 . 2 . 7查 询 操 作 信 息 处 理 信 息查 询 信 息 记 录查 询 操 作 数 据图 2-7 2.3系统结构 计科教务 管理系统结构图 计 科 教 务 管 理 系 统系 统 管理教 务 信息 管 理查 询 帮 助用户管理角色管理数据字典课程表信息总课表信息教师信息管理教师课酬管理教师课酬发放教师课酬统计试卷档案登记课程名称设置教师信息查询课程信息查询教师课酬查询关于帮助图 2-8 2.4系统 E-R图 nts计科教务管理系统 7 图 2-9 参 照教 师 课 酬发 放 表统 计教 师 课 酬统 计 表教 师对 应对 应 对 应对 应课 程 表 / 总课 表试 卷 档 案登 记 表教 师 课 酬登 记 表11n 1n1n1n1nn图 2-10 2.5数据库设计 2.5.1主要数据表 1用户表 (用户角色表 ) 1)用户编号 2) 用户名 3）用户密码 4)性别 5)生日 6)职务 7)电话 8)邮箱 9)地址 10)备注 2角色表 1)角色编号 2)角色名称 3)备注 3功能表 (角色功能表 ) nts计科教务管理系统 8 1)功能编号 2)功能名称 3)父级功能编号 4)子功能编号 5)备注 4教师信息表 1)教师编号 2)教师名称 3)职称 4)性别 5)年龄 6)是否外聘 7)联系地址 8)联系电话 9)备注 10)授课部门 5总课表 1)编号 2)教研室名称 3)教师 编号 4)时间 5)课程代码 6)地点 7)必选任 8)教学班号 9)学分 10)起止周 11)优选类别 12)年级 6课程表 1)序号 2)星期 3)时间 4)教师 编号 5)地点 7课酬登记表 1)序号 2)教师编号 3)班级 4)课程 代码 5)授课时数 6)修读人系数 7)试 /查 8)指导上机或实验课学时 9)授课工作合计 10)享受减免课时 11)个人完成教学工作量总计 12)备注 13)登记时间 8课酬发放表 1)序号 (登记表序号 ) 2)序号 3)标准 4)应发课酬 5)税率 6)代扣税额 7)实发金额 8)备注 9)发放时间 9课酬统计表 1)序号 (课酬登记表 ) 2)序号 (课酬发放表 ) 3)标准 4)应发课酬 5)税率 6)代扣税额 7)实发金额 8)备注 9)发放时间 10)系补发金额 11)签名 12)总课时 13)院系 14)授课教师 15)职称 16)是否外聘 10课名表 1)课程代码 2)课程名称 11试卷登记表 1)卷宗号 2)课程代码 3)教师 编号 4)班级名称 5)试卷份数 6)存在问题 7)备注 2.5.2基本数据表的实现 1用户表 CREATE TABLE dbo.TUser ( UNo varchar (10) COLLATE Chinese_PRC_CI_AS NOT NULL , UName varchar (10) COLLATE Chinese_PRC_CI_AS NULL , USex varchar (4) COLLATE Chinese_PRC_CI_AS NULL , UPassWord varchar (10) COLLATE Chinese_PRC_CI_AS NULL , UBirth datetime NULL , UPost varchar (10) COLLATE Chinese_PRC_CI_AS NULL , UPhone varchar (12) COLLATE Chinese_PRC_CI_AS NULL , UEmail varchar (20) COLLATE Chinese_PRC_CI_AS NULL , nts计科教务管理系统 9 UAddress varchar (50) COLLATE Chinese_PRC_CI_AS NULL , UMemo varchar (50) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY GO 2角色表 CREATE TABLE dbo.TRole ( Rno varchar (10) COLLATE Chinese_PRC_CI_AS NOT NULL , Rname varchar (100) COLLATE Chinese_PRC_CI_AS NULL , Rpower varchar (10) COLLATE Chinese_PRC_CI_AS NULL , RMemo varchar (50) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY GO 3功能表 CREATE TABLE dbo.TFunction ( Fno varchar (10) COLLATE Chinese_PRC_CI_AS NOT NULL , Fname varchar (50) COLLATE Chinese_PRC_CI_AS NULL , Fpater varchar (50) COLLATE Chinese_PRC_CI_AS NULL , Flevel int NULL , FPage varchar (50) COLLATE Chinese_PRC_CI_AS NULL , FMemo varchar (100) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY GO 4教师信息表 CREATE TABLE dbo.TTeacher ( tno int NOT NULL , tname varchar (20) COLLATE Chinese_PRC_CI_AS NULL , tpost varchar (15) COLLATE Chinese_PRC_CI_AS NULL , tsex varchar (10) COLLATE Chinese_PRC_CI_AS NULL , ttel varchar (30) COLLATE Chinese_PRC_CI_AS NULL , tbool varchar (10) COLLATE Chinese_PRC_CI_AS NULL , tmemo varchar (50) COLLATE Chinese_PRC_CI_AS NULL , tage varchar (20) COLLATE Chinese_PRC_CI_AS NULL , tadress varchar (30) COLLATE Chinese_PRC_CI_AS NULL , tcdepartment varchar (20) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY GO 5总课表 CREATE TABLE dbo.TCoursel ( tclno int NOT NULL , thname varchar (20) COLLATE Chinese_PRC_CI_AS NULL , tweekcount varchar (30) COLLATE Chinese_PRC_CI_AS NULL , tscode int NULL , tclassno varchar (20) COLLATE Chinese_PRC_CI_AS NULL , tadress varchar (30) COLLATE Chinese_PRC_CI_AS NULL , nts计科教务管理系统 10 tcredit varchar (10) COLLATE Chinese_PRC_CI_AS NULL , tstarttoend varchar (30) COLLATE Chinese_PRC_CI_AS NULL , tcname varchar (20) COLLATE Chinese_PRC_CI_AS NULL , tgrade varchar (20) COLLATE Chinese_PRC_CI_AS NULL , tselect char (10) COLLATE Chinese_PRC_CI_AS NULL , tcscode varchar (20) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY GO 6课程表 CREATE TABLE dbo.TCoursen ( tcno int NOT NULL , tweek varchar (20) COLLATE Chinese_PRC_CI_AS NULL , tweekcount varchar (30) COLLATE Chinese_PRC_CI_AS NULL , tno varchar (20) COLLATE Chinese_PRC_CI_AS NULL , tadress varchar (50) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY GO 7课酬登记表 CREATE TABLE dbo.TCourse ( tcno int NOT NULL , tcscode int NULL , tcclass varchar (20) COLLATE Chinese_PRC_CI_AS NULL , tscode varchar (20) COLLATE Chinese_PRC_CI_AS NULL , tclessoncount int NULL , tccoefficient char (10) COLLATE Chinese_PRC_CI_AS NULL , tcsc char (10) COLLATE Chinese_PRC_CI_AS NULL , tcclessons int NULL , tcsum varchar (20) COLLATE Chinese_PRC_CI_AS NULL , tcreduce varchar (30) COLLATE Chinese_PRC_CI_AS NULL , tcworksum varchar (30) COLLATE Chinese_PRC_CI_AS NULL , tcmemo varchar (50) COLLATE Chinese_PRC_CI_AS NULL , tctime varchar (20) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY GO 8课酬发放表 CREATE TABLE dbo.TCourseReward ( trno int NOT NULL , tcno int NULL , trstandard varchar (30) COLLATE Chinese_PRC_CI_AS NULL , tremuneration varchar (30) COLLATE Chinese_PRC_CI_AS NULL , trtaxrate varchar (30) COLLATE Chinese_PRC_CI_AS NULL , trtax varchar (30) COLLATE Chinese_PRC_CI_AS NULL , trwages varchar (30) COLLATE Chinese_PRC_CI_AS NULL , trmemo varchar (50) COLLATE Chinese_PRC_CI_AS NULL , nts计科教务管理系统 11 trtime varchar (30) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY GO 9课酬统计表 CREATE TABLE dbo.TCourseReward2 ( trno int NOT NULL , tcscode int NULL , trstandard varchar (30) COLLATE Chinese_PRC_CI_AS NULL , tremuneration varchar (30) COLLATE Chinese_PRC_CI_AS NULL , trtaxrate varchar (30) COLLATE Chinese_PRC_CI_AS NULL , trtax varchar (30) COLLATE Chinese_PRC_CI_AS NULL , trwages varchar (30) COLLATE Chinese_PRC_CI_AS NULL , traward varchar (30) COLLATE Chinese_PRC_CI_AS NULL , trsignature varchar (30) COLLATE Chinese_PRC_CI_AS NULL , trlessonscount int NULL ) ON PRIMARY GO 10课名表 CREATE TABLE dbo.TLesson ( tscode int NOT NULL , tlesson varchar (30) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY GO 11试卷登记表 CREATE TABLE dbo.TTestpaper ( ttestno varchar (30) COLLATE Chinese_PRC_CI_AS NOT NULL , tscode varchar (30) COLLATE Chinese_PRC_CI_AS NULL , tno varchar (30) COLLATE Chinese_PRC_CI_AS NULL , tclassname varchar (30) COLLATE Chinese_PRC_CI_AS NULL , ttestcount varchar (30) COLLATE Chinese_PRC_CI_AS NULL , tquestion varchar (30) COLLATE Chinese_PRC_CI_AS NULL , tmemo varchar (50) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY GO nts计科教务管理系统 12 第三章 界面设计 3.1 登录界面 图 3-1 系统初始用户： admin 密码： 0 其主要实现细节代码如下： procedure TLogonForm.Button1Click(Sender: TObject); begin if (edit1.text=) then begin application.MessageBox(用户名不能为空 ,错误提示 ,mb_ok); count:=count+1; if (count=3) then begin application.MessageBox(用户名或密码输入错误三次，系统即将退出！ ,提示 ,mb_ok); application.Terminate; end; edit2.Text:=; edit1.SetFocus; end else if checkuser(edit1.Text,edit2.Text)=false then begin application.MessageBox(用户名或密码输入有误 ,错误提示 ,mb_ok); count:=count+1; if (count=3) then nts计科教务管理系统 13 begin application.MessageBox(用户名或密码输入错误三次，系统即将退出！ ,提示 ,mb_ok); application.Terminate; end; edit2.Text:=; edit1.SetFocus; end else if checkuser(edit1.Text,edit2.Text)=true then begin logonForm.Close; end ; end; function TLogonForm.checkuser(uname, upwd: string): boolean; var userquery:TAdoquery; sqlstr:string; begin userquery:=TAdoquery.Create(self); with userquery do begin connection :=dm.ADOConnection1; sqlstr:=select * from Tuser where UName=:uname and UPassWord=:upwd; sql.Text:=sqlstr; parameters.ParamByName(uname).Value:=uname; parameters.ParamByName(upwd).Value:=upwd; active:=true; try if recordcount0 then begin result:=true; dm.uno:=fieldbyname(uno).AsString; dm.uname:=fieldbyname(uname).AsString; end else result:=false; finally close; free; nts计科教务管理系统 14 end; end; end; 3.2 用户管理 其主要实现细节代码如下： procedure TUserForm.FormCreate(Sender: TObject); begin enable(self); edNO.Enabled:=true; edName1.Enabled:=true; ControlTheEnablePro(true); adoqUser.Open; StatusBar1.Panels0.Text:= 当前的记录数 : + IntToStr(adoqUser.RecordCount+1) + 条 ; StatusBar1.Panels1.Text := 操作用户管理窗口 ; StatusBar1.Panels2.Text := 请慎重操作 ！ ; TControlAccess(DBGrid).OnMouseWheel := GridMouseWheel; end; nts计科教务管理系统 15 /鼠标滚动 DBGrid 的数据跟着改变 procedure TUserForm.GridMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin TDBGrid(Sender).DataSource.DataSet.MoveBy(-WheelDelta div WHEEL_DELTA); Handled := True; end; procedure TUserForm.FormShow(Sender: TObject); var userQry: TAdoquery; tvNode: TfcTreeNode; begin /Panel3.Enabled:=false;/ 初始状态置显示框为不可编辑状态 userqry := TAdoquery.Create(nil); userqry.Connection := dm.ADOConnection1; clearText(self); /self 表示自身已经被创建完毕了 GetFieldsToCombox(001, cbSex1, DM.ADOConnection1); /性别 GetFieldsToCombox(001, cbSex2, DM.ADOConnection1); GetFieldsToCombox(002, cbPost, DM.ADOConnection1); /职务 with userqry do begin sql.Text:=SELECT Rname, Rno FROM Trole; Open; While not Eof do begin tvNode := fcTreeView.Items.Add(nil, fieldByName(Rname).AsString); tvNode.CheckboxType :=tvctCheckbox; tvNode.StringData := fieldByName(Rno).AsString; next; end; end; with adoqUser do begin edName2.Text := fieldByname(Uname).AsString; edPwd1.Text := fieldByname(upassWord).AsString; edPwd2.Text := fieldByname(upassWord).AsString; dateDTP.Date := StrToDate(fieldByName(UBirth).AsString); edAdress.Text := fieldByname(UAddress).AsString; edit8.Text := fieldByname(Umemo).AsString; edit10.Text := fieldByname(UEmail).AsString; nts计科教务管理系统 16 edit9.Text := fieldByname(UPhone).AsString; end; userqry.Free; / 窗体显示的时候 用户的角色选项 给 fcTreeView 的节点打上钩 CheckTvByField(adoqUser, DM.ADOConnection1, fcTreeView); end; procedure TUserForm.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if gdSelected in State then Exit; /隔行改变网格背景色： if adoqUser.RecNo mod 2 = 0 then (Sender as TDBGrid).Canvas.Brush.Color := clinfobk /定义背景颜色 else (Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223); /定义背景颜色 /定义网格线的颜色： DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State); with (Sender as TDBGrid).Canvas do /画 cell 的边框 begin Pen.Color := $00ff0000; /定义画笔颜色 (蓝色 ) MoveTo(Rect.Left, Rect.Bottom); /画 笔定位 LineTo(Rect.Right, Rect.Bottom); /画蓝色的横线 Pen.Color := clbtnface; /定义画笔颜色 (兰色 ) MoveTo(Rect.Right, Rect.Top); /画笔定位 LineTo(Rect.Right, Rect.Bottom); /画绿色 end; end; procedure TUserForm.btnFindClick(Sender: TObject); var sqlStr: string; begin sqlStr := SELECT DISTINCT a.*, b.Dname as Sex,C.Dname as Post + FROM TUser a + LEFT JOIN TDataParam b on a.Usex=b.Did + LEFT JOIN TDataParam c on a.Upost=c.Did + WHERE 1=1; if edNO.Text then nts计科教务管理系统 17 sqlStr := sqlstr+ AND Uname like % + edName1.Text + %; if cbSex1.ItemIndex ) then begin / if isName(edit3.Text) then / begin / if isNameExist(edit3.Text) then / application.MessageBox(姓名已经存在 ,提示消息 , mb_iconInformation) / else perform(WM_NEXTDLGCTL, 0, 0) /end /else / begin / if application.MessageBox(姓名含有无效字符 ,提示消息 , mb_iconInformation+mb_ok)=idok then / edit3.Clear; / end; end; end; procedure TUserForm.cbPostChange(Sender: TObject); begin if cbPost.ItemIndex 0 then result := true else Result := false; nameQry.Free; end; procedure TUserForm.cbSex2Change(Sender: TObject); begin perform(WM_NEXTDLGCTL, 0, 0); end; procedure TUserForm.edPwd1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin if length(edPwd1.Text) edPwd2.Text then begin application.MessageBox(两次密码输入不相等 ,请重输 , 提示消息 , mb_iconinf