学生成绩标准管理系统标准设计项目新版说明书.doc

版本号日期“学生成绩管理系统”软件设计说明书姓名班级学号 完成日期指导老师目录 目录21 引言31.1 编写目标31.2 范围31.3 定义41.4 参考资料42 项目概述42.1 产品描述42.2 产品功效52.3 用户特点62.4 通常约束72.5 假设和依据73 具体需求73.1 功效需求73.2 行为需求103.3 数据需求103.4 外部接口需求113.4.1 用户接口113.4.2 硬件接口113.4.3 软件接口123.5 性能需求123.6 设计约束123.6.1 其它标准约束123.6.2 硬件限制133.7安全性133.8 可维护性133.9 可转移 转换性133.10 数据库134 总体设计144.1运行环境144.2基础设计概念和处理步骤144.3系统结构154.4 接口设计154.4.1用户接口154.4.2内部接口154.5功效需求和程序关系164.6人工处理过程164.7还未问决问题165 具体设计175.1系统数据结构设计175.1.1逻辑结构设计关键点175.1.2物理结构设计关键点185.2模块设计说明195.2.1模块描述195.2.2功效195.2.3性能205.2.4输入项205.2.5输出项205.2.6设计方法（算法）215.2.7步骤逻辑255.2.8接口265.2.9存放分配265.2.10注释设计265.2.11限制条件265.2.12测试计划265.2.13还未处理问题275.3 运行设计275.3.1运行模块组合275.3.2运行控制285.3.3运行时间295.4系统犯错处理设计295.4.1犯错信息295.4.2补救方法305.5系统维护设计30附录：311 引言1.1 编写目标此软件需求说明书是针对所开发【成绩管理系统】进行具体解释说明。预期读者范围：使用本系统老师，学生，教务人员和对本软件进行维护修改程序人员。1.2 范围软件系统名称：成绩管理系统软件将为学生及老师提供一个成绩信息获取上传修改平台，软件将为老师提供上传、修改、查询学生成绩功效，为本科生提供成绩查询和排名查询功效，能够获取老师所上传成绩数据进行汇总分析并排名显示给本科生。本软件能够大幅度提升本科生成绩管理效率，实现成绩查询录入等功效自动化和系统化。功效范围：（1）用户登录 此功效将使用用户进行分权限处理（分为学生，老师，教务管理人员）。此功效能够经过和教务网络系统连接来获取学生，老师，教务人员信息数据库，利用用户名（学工号）和密码键入方法进行用户身份验证。（2） 成绩管理 此功效针对不一样权限用户分成三个功效模块： A.学生：只能对个人成绩进行查询操作； B.老师：能够对成绩进行录入，删除，修改操作，对成绩汇总分析进行查询操作； C.教务人员：能够对成绩进行汇总分析，校对，分类，制图，删除等操作。（3） 基础信息管理 此功效针对不一样权限用户分成三个功效模块： A.学生：只能对个人基础信息进行录入，修改，查询，删除操作； B.老师：能够对老师个人信息进行录入，修改，查询，删除操作，对学生基础信息进行查询操作； C.教务人员：能够对学生及老师基础信息进行修改，查询，删除操作。 1.3 定义本科生成绩管理：基于本科生成绩录入，修改，删除，查询等一系列操作。1.4 参考资料软件工程导论（第五版） 张海藩 清华大学出版社软件工程任永昌，清华大学出版社软件工程课程设计 李龙澍，郑诚编著2 项目概述2.1 产品描述 开发意图： 系统采取计算机对我校学生成绩进行管理，实现学生成绩管理工作系统化和自动化，降低人力资源投资。 应用目标： 成绩录入：在教务人员监督下由老师录入学生成绩； 成绩查询：从年级院系至班级个人，从整体到单科成绩进行汇总分析，得出平均成绩及成绩排名排名； 成绩修改：老师获取教务人员认可情况下对学生成绩进行修改删除等操作； 外部交流：确保本软件从外部所连接信息管理系统立即获取信息进行交流使用； 分权限登陆：确保学生，老师，教务人员以对应权限使用本软件； 作用范围：全体学生及老师、教务人员 外部接口： 本软件功效至基于学生成绩，所以需要和【教务网络管理系统】【学生信息管理系统】等系统进行外部连接和信息上传和获取。 背景材料： 伴随学校规模扩大，学生数量增多，可供选择课程愈加多样化，相关学生成绩管理信息量也成倍增加，需要大量人力资源进行管理，工作量大，效率低，易犯错。本系统基于计算机管理我校本科生成绩，在学生查询，老师录入等方面含有较大实用意义。提升了信息开放性，正确性和有效性。大大提升了学生成绩管理效率。 本软件应用系统和教务管理系统中其它系统如学生选课系统，学生信息查询系统，图书管理系统等均是我校教务管理系统功效中一部分。相互之间信息含有交流性和可读性。 2.2 产品功效 成绩管理系统 用户登录学生教务人员老师查询学生成绩对学生成绩进行录入对个人成绩进行查询汇总分析学生成绩对学生成绩进行查询对个人基础信息进行查询对学生成绩进行修改查询修改学生基础信息对个人基础信息进行修改查询修改老师基础信息对成绩汇总分析进行查询对个人成绩分析进行查询监督老师对成绩进行操作对老师信息进行修改查询登录管理：要求使用者提供正当用户名、密码和相关权限等，经过对不一样用户权限限制，登录以后会有不一样权限。成绩管理：由老师或教务人员录入，修改，删除成绩。这个功效模块要用到学生信息、课程信息等。成绩查询：登录以后，学生能够对已经学过课程进行成绩查询，在查询过程中学生能够对全部成绩进行查询；也能够对某一学期成绩进行查询；还能够对某一课程号或课程名进行查询。汇总功效：系统对成绩进行分类汇总，形成对应及格率图表，成绩排名等。2.3 用户特点 成绩管理系统应用软件是面向学校，其使用人员是本校全体在读学生和老师及教务人员。 使用频度：非考试周：10000次/天，考试周：50000次/天2.4 通常约束 A. 硬件限制：本软件基于PC计算机（windows以上操作系统,内存在512M以上）； B. 和其它应用间接口：和教务管理系统连接 C. 审查功效：由教务人员完成； D. 控制功效：由登陆用户完成； E. 所需高级语言：SQL语言，Delphi F. 通信协议：安全保密 G. 应用临界点：60000次/天 H. 安全和保密方面考虑：使用登陆对用户进行分权限操作，对应用户名和密码存放至数据库中。2.5 假设和依据假设系统一天访问频度超出了通常约束，理论上这个操作是不可能进行，需求说明要进行对应改变。假设要求用户以外人员登录系统进行操作，实际上这种操作系统是不可能进行，需求说明要进行对应改变。3 具体需求3.1 功效需求成绩输入成绩修改汇总排名成绩查询 信息管理 成绩管理用户登录添加信息修改信息删除信息查询信息 本科生成绩管理系统 用户登录用户注销管理功效部分：本学生成绩管理系统中分为教务人员模块、老师模块、学生模块。其关键管理功效有：3.2 行为需求3.3 数据需求教学管理数据库简单功效实现包含课程，学生，老师基础情况，和学生成绩录入等功效学生表：学号，学生姓名，性别，年纪，入年份，系别老师表：老师号，老师姓名，性别，系别课程表：课号，课程名，学分，成绩成绩表：学号，学生姓名，老师号，老师姓名，课号，课程名，成绩E-R图3.4 外部接口需求3.4.1 用户接口学生信息系统采取浏览器和服务器形式，系统经过网页形式为不一样身份用户提供登录界面，不一样身份用户经过本身身份验证登录系统，实现自己权限范围内多种操作3.4.2 硬件接口学生信息管理系统，以游览器和服务器形式，经过查询数据库服务器，查询相关信息。并经过鼠标、键盘、显示器输入和输出相关信息。3.4.3 软件接口数据库使用SQL Server ，前台界面使用Delphi7，操作系统是Windows98以上版本，可联网机器即可使用。3.5 性能需求为了满足用户要求，系统必需要有高运作速度，用户填写信息输入到系统，系统必需能快速立即作出响应，快速处理各项数据、信息，显示出全部必需信息，所以要求很高信息量速度和大主存容量；因为要存贮大量数据和信息，也还要有足够大磁盘容量；安全性也是系统最关键性能需求之一，学生信息管理系统必需有可靠安全方法，以确保用户各项信息安全。3.6 设计约束 3.6.1 其它标准约束a 报表格式；学生（学号，姓名，性别，年纪，入年份）学号为主键，不能为空，系号为外键学生是参考关系，系是被参考关系设置规则年纪在16到25岁之间 系号为空值或等于系中系号主码值课程 （课号，课程名，学分）课号为主键，不能为空设置规则学分在0到5之间成绩（课号，学号，成绩）（课号，学号）为主键，不能为空课程号为外键，不能为空，等于课程中课程号主码值学号为外键，不能为空，等于学生中学号主码值设置规则成绩在0到100之间老师（老师号，姓名，性别）老师编号为主键，不能为空b 数据命名；学生表：学号，学生姓名，性别，年纪，入年份老师表：老师号，老师姓名课程表：课号，课程名，学分，成绩成绩表：学号，学生姓名，老师号，老师姓名，课号，课程名，成绩 3.6.2 硬件限制无3.7安全性1. 要能够抵御用户可能误操作，确保软件健壮性要对数据进行检验，确保数据有效性在数据被破坏时，含有数据恢复能力2. 数据要绝对安全预防有意无意破坏数据。若数据遭到破坏，系统含有数据恢复功效，不可恢复数据仅限于当日录入和修改数据。 3.8 可维护性本网站维护关键包含以下内容：1. 权限维护。管理员需要对用户用户名、密码和权限进行维护，给每名学生分配享用用户名和密码，确定查询等级。2. 考试信息管理。考试时间安排及是否有成绩信息要常常进行更新。3. 成绩管理。立即公布已经出来成绩，以供学生查阅。4. 课程管理。有没有新课程或课程号，课程名有所修改。5. 学生管理。新生到来、老生离去和学生多种信息管理。3.9 可转移 转换性在windows98以上系统下均可运行。3.10 数据库本科生成绩管理系统_Data本科生成绩管理系统_Log4 总体设计4.1运行环境该系统建设高速关键网络，数据库服务器、应用服务器、关键网络设备之间应该通畅可靠。系统要求可靠、稳定、查询效率高。操作系统平台：windows xp 和 win 7数据库平台：SQL开发软件：SQL Delphi7运行平台：开发完成将网站放到装有IIS服务器上，用户端用IE或其它浏览器即可。4.2基础设计概念和处理步骤4.3系统结构4.4 接口设计4.4.1用户接口在用户界面部分，依据需求分析结果，用户需要一个用户友善界面。在界面设计上，应做到简单明了，易于操作，而且要注意到界面布局，应突出显示关键和犯错信息。外观上也要做到合理化，考虑到用户多对WINDOW 风格较熟悉，应尽可能向这一方向靠拢。在设计语言上，已决定使用Visual C+进行编程。总来说，系统用户界面应作到可靠性、简单性、易学习和使用。4.4.2内部接口内部接口方面，各模块之间采取函数调用、参数传输、返回值方法进行信息传输。具体参数结构将在下面数据结构设计内容中说明。接口传输信息将是以数据结构封装了数据，以参数传输或返回值形式在各模块间传输。4.5功效需求和程序关系学生基础信息学生成绩信息修改学生基础信息修改增加删除成绩信息统计全体学生成绩成绩信息查询老师信息修改老师信息学生模块老师模块教务人员模块4.6人工处理过程学生成绩管理系统全部管理工作是经过软件来实现，不过对于部分打印信息需要相关人员签字后才能确定信息真实性。4.7还未问决问题因为学生成绩管理系统所需数据量大，在系统实施过程中受网络速率影响，系统响应时间肯能不立即，其次在目前网络环境中，面临这多种威胁，病毒、密码、蠕虫攻击，系统可能受攻击，在安全性方面不够高。5 具体设计5.1系统数据结构设计5.1.1逻辑结构设计关键点（一）学生信息表数据项类型长度限制学号nchar10主键姓名char10性别char2年纪tinyint1所在班级int4系别nchar10（二）课程信息表数据项类型长度限制课号nchar10主键课名nchar10课时int4学分float8讲课老师号int4数据项类型长度限制老师号nchar10主键姓名nchar10性别nchar2系别nchar10（三）老师信息表（四）成绩表数据项类型长度限制学号nchar 10主键课程名nchar 10平时成绩float8试验成绩float8期末成绩float85.1.2物理结构设计关键点模块功效访问数据库方法保密条件登录模块登录直接访问帐号和密码学籍管理模块查看信息查询数据库信息并显示无选课管理模块查询选择课程信息查询数据库中选课信息表，无成绩管理模块查看成绩信息查询成绩数据库，得到成绩无用户管理查看用户信息查询学生和老师信息无5.2模块设计说明5.2.1模块描述模块名称描述学生子模块该模块是本系统分权管理用户一个子模块。面向使用本系统学生进行对应操作显示。老师子模块该模块是本系统分权管理用户一个子模块。面向使用本系统老师进行对应操作显示。教务人员子模块该模块是本系统分权管理用户一个子模块。面向使用本系统教务人员进行对应操作显示。5.2.2功效模块名称功效学生子模块该模块支持学生能够在该模块中进行个人成绩查询，而且还能够对自己个人信息进行增删查改等操作老师子模块该模块支持老师能够在该模块中进行成绩录入，删除，修改等而且还能够对自己个人信息进行增删查改等操作教务人员子模块该模块支持管理员能够对老师学生个人信息和学生成绩进行增删查改等操作，还能够监督老师对学生成绩进行增删查改操作。还能够对学生成绩进行汇总分析得出各类分析图表。5.2.3性能模块名称性能学生子模块该模块能够为学生提供登陆界面，查询成绩功效，修改查询信息功效老师子模块该模块能够为老师提供登陆界面，成绩查录修改功效，个人信息增删查改功效教务人员子模块该模块能够为教务人员提供登陆界面，提供对老师学生个人信息和学生成绩进行增删查改等功效及界面。提供学生成绩进汇总分析分析图表功效。5.2.4输入项模块名称输入项学生子模块学生登录名，用户密码老师子模块老师登录名，用户密码教务人员子模块教务人员登录名，用户密码5.2.5输出项模块名称输出项学生子模块对学生信息数据库操作是否成功老师子模块对老师信息数据库操作是否成功；对学生成绩数据库操作是否成功教务人员子模块对学生信息数据库操作是否成功；对老师信息数据库操作是否成功；对学生成绩数据库操作是否成功；成绩分析图表5.2.6设计方法（算法）主程序步骤图学生子模块步骤图老师子模块步骤图教务人员子模块步骤图5.2.7步骤逻辑5.2.8接口A.内部接口本科生成绩管理系统内部接口有：信息管理、成绩管理、课程管理、用户管理、密码管理。B.外部接口本科生成绩管理系统，以游览器和服务器形式，经过查询数据库服务器，查询相关信息。并经过鼠标、键盘、显示器输入和输出相关信息。5.2.9存放分配无特殊要求。5.2.10注释设计课程信息表Class：（课程号，课程名，老师号，学分，课时）学生信息表Student：（学号，姓名，性别，年纪，专业，系别）成绩表score：（学号，课程名，成绩百分比，平时成绩，试验成绩，期中成绩，期末成绩）老师信息表Teacher：（老师号，老师名，性别，系别）5.2.11限制条件依据不一样硬件环境和操作系统，系统运行时间不确定，当硬件达成要求配置时，运行时间很短。系统运行查询占用资源和时间最多，查询操作要和数据库信息进行匹配，当数据库中信息很多时，系统有一定延迟。5.2.12测试计划设计检验列表根据需求文档功效、性能和接口3个列表，设计出概要设计检验列表，以检验概要设计是否覆盖需求分析，没有覆盖就是不符合项，并将检验结果列出。5.2.13还未处理问题（1）学生众多，信息量大，在对其进行录入，修改，删除时需要大量时间。 （2）在对大量数据进行长时间操作时，操作人因为疲惫很轻易造成数据误差。5.3 运行设计5.3.1运行模块组合信息管理模块运行时经过和学生信息数据库连接，搜素学生信息，并将结果显示给用户，能够修改学生学籍信息。成绩管理模块运行时经过和成绩管理数据库连接，老师能够录入、修改、删除学生成绩表中相关信息，学生经过查询条件，找到匹配成绩信息，显示给学生。用户管理模块运行时经过和用户数据库相连，管理员查询老师和学生信息数据库，得到老师和学生信息。管理员能够修改学生和老师数据库，能够增加、删除老师和学生信息。密码管理模块运行时经过和不一样身份密码数据库连接，能够修改本身密码信息硬件环境要求操作系统用Windows 以上版本，Windows Xp最好。因为本系统将在Windows Xp环境下开发。要求支持并安装SQL Server 、vs。一台电脑，假如有大量数据话要加一台服务器。电脑要求 CPU1.6GH以主频，内存 1G，硬盘160。 软件环境数据库用Microsoft SQL server运行时使用Delphi75.3.2运行控制信息管理查询信息已管理员身份登录系统后，进入界面，经过学号或老师号查询信息。修改信息已管理员身份登录系统后，进入学籍界面，对信息发生改变学生或老师，进行信息修改。成绩管理统计查询成绩信息学生登录系统后，进入成绩查询界面，查询课程成绩信息。增加、删除、修改成绩信息老师或教务人员登录系统后，在成绩页面，能够录入、修改、删除学生成绩，保留退出。用户管理增加删除用户用户进入系统后在相关界面进行删除增加用户密码管理修改密码和数据库连接，用户进入系统后使用原密码登陆，修改密码5.3.3运行时间依据不一样硬件环境和操作系统，系统运行时间不确定，当硬件达成要求配置时，运行时间很短。系统运行查询占用资源和时间最多，查询操作要和数据库信息进行匹配，当数据库中信息很多时，系统有一定延迟。5.4系统犯错处理设计5.4.1犯错信息犯错原因系统输出形式处理方法登录时输入帐号和密码不一致。系统提醒帐号和密码错误。返回登录页面重新输入。因为收网络原因影响，登录没有响应。系统没有任何错误提醒信息。刷新页面，重新登录输入查询条件有误输出没有想要查询结果。审查查询条件选中课程，课时安排信息查询不到，收网络原因影响提交速率慢。系统没有提醒犯错信息。选中课程后，等30秒以后查询退选课程，查询不到收网络原因影响，提交速率慢系统没有提醒犯错信息。选中课程后，等30秒以后查询查询浏览时，系统不响应系统没有提醒犯错信息。刷新页面，再查询5.4.2补救方法任何系统全部有犯错情况发生，学生信息管理系统也不例外，下面是该系统犯错时可采取变通方法：定时对系统进行更新，备份；当原始系统数据万一丢失时启用副本建立和开启技术，比如周期性地把磁盘信息统计到磁带上去就是对于磁盘媒体一个后备技术；系统可能受自然灾难和网络病毒原因影响，为了保护系统全部数据，做好异地备份，提升系统可靠性。降效技术准备采取后备技术，使用另一个效率稍低系统或方法来求得所需结果一些部分，比如一个自动系统降效技术能够是手工操作和数据人工统计。恢复及再开启技术，将使用恢复再开启技术，使软件从故障点恢复实施或使软件从头开始重新运行方法。5.5系统维护设计 学生信息管理系统，在整个系统运行过程中，系统维护和管理是一直贯穿其中，包含进行系统应用程序维护、代码维护、数据备份和恢复、硬件设备维护。系统在运行时，也要伴随环境改变依据不一样需求及改变对系统进行必需修改，使得系统功效愈加完善。系统维护工作贯穿于系统整个运行过程中，包含：系统应用程序维护、数据维护、代码维护、硬件设备维护，系统维护关键是系统应用软件维护工作。而系统维护工作不应总是被动等候用户提出要求后才进行，应进行主动预防性维护。附录：Delphi7学生成绩管理系统代码unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, jpeg, ExtCtrls;type TForm1 = class(TForm) DataSource1: TDataSource; ADOConnection1: TADOConnection; Label1: TLabel; Label2: TLabel; ComboBox1: TComboBox; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; ADOQuery1: TADOQuery; Image1: TImage; Image2: TImage; Label3: TLabel; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private pass:boolean; public Public declarations end;var Form1: TForm1;implementation uses Unit4,unit5,unit6;$R *.dfmprocedure TForm1.Button2Click(Sender: TObject);beginform1.Close;end;procedure TForm1.Button1Click(Sender: TObject);begin with adoquery1 do if combobox1.text=学生 then begin close; sql.Clear; sql.Add(select * from 学生表 where 学号=+edit1.text+ and 学号=+edit2.Text+); open; if recordcount=0 then begin edit2.SetFocus; / 使edit2取得焦点 edit2.SelectAll; / 全选edit2中文本 showmessage(账号或密码错误); end else form6.Show; form6.Edit1.Text:=self.Edit1.Text; form1.Hide; end; begin with adoquery1 do if combobox1.Text=老师 then begin close; sql.Clear; sql.Add(select * from 老师表 where 工号=+edit1.text+ and 工号=+edit2.Text+); open; if recordcount=0 then begin edit2.SetFocus; / 使edit2取得焦点 edit2.SelectAll; / 全选edit2中文本 showmessage(账号或密码错误); end else form4.Show; form1.Hide; end; end; if combobox1.Text= then showmessage(请选择登陆类型); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);beginif pass then form1.Closeelseapplication.Terminate;end;end.unit Unit6;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls;type TForm6 = class(TForm) Edit1: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Image1: TImage; Label1: TLabel; Label2: TLabel; procedure Button4Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private Private declarations public Public declarations end;var Form6: TForm6;implementation uses unit1,unit7,unit8,unit9;$R *.dfmprocedure TForm6.Button4Click(Sender: TObject);beginform6.Close;end;procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);beginapplication.Terminate;end;procedure TForm6.Button1Click(Sender: TObject);beginwith form7.ADOQuery1 dobeginif Active thenClose;SQL.Clear;SQL.Add(select * from 学生表 where 学号= + form1.Edit1.Text+);open;form7.Edit1.Text:=fieldvalues学号;form7.Edit2.Text:=fieldvalues姓名;form7.edit3.Text:=fieldvalues年纪;form7.edit4.Text:=fieldvalues性别;form7.edit5.Text:=fieldvalues入年份;form7.edit6.Text:=fieldvalues所在班级;form7.edit7.Text:=fieldvalues籍贯;end; form7.Show; form6.Hide;end;procedure TForm6.Button2Click(Sender: TObject);begin form8.Show; form8.Edit1.Text:=self.Edit1.Text; form1.Hide;end;procedure TForm6.Button3Click(Sender: TObject);begin form9.Show; form9.Edit1.Text:=self.Edit1.Text; form1.Hide;end;end.unit Unit7;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, jpeg, ExtCtrls;type TForm7 = class(TForm) Button1: TButton; Label1: TLabel; Edit2: TEdit; Label2: TLabel; Edit3: TEdit; Label3: TLabel; Edit4: TEdit; Label4: TLabel; Edit5: TEdit; Label5: TLabel; Edit6: TEdit; Edit1: TEdit; Edit7: TEdit; Label6: TLabel; Label7: TLabel; DataSource1: TDataSource; ADOQuery1: TADOQuery; Image1: TImage; procedure Button1Click(Sender: TObject); private Private declarations public Public declarations end;var Form7: TForm7;implementation uses unit1,unit6;$R *.dfmprocedure TForm7.Button1Click(Sender: TObject);begin form6.Show; form7.Hide;end;end.unit Unit8;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, jpeg, ExtCtrls;type TForm8 = class(TForm) Edit1: TEdit; Button1: TButton;