Delphi程序设计实训教程高职 作者 占跃华 第9－10章 第10章.pptVIP

　　10.1 班级学生综合素质测评系统案例分析10.1.1 任务的提出　　一个学期结束了，班主任要对班级中每个学生的各方面表现打分，如德育素质、智育素质、体育素质、所取得的荣誉(包括奖励和惩罚)等，然后通过这些成绩计算出该学生的综合素质成绩。怎样通过这些成绩计算出综合素质成绩，并把所有学生的各项成绩以报表的形式打印出来？通过该实例，我们将学习开发一个使用Rave报表的应用程序的基本步骤。 10.1.2 系统设计　　该应用程序的功能很简单，就是输入学生的各项成绩，计算出综合素质测评成绩，最终以报表的形式打印出来。主要功能有：　　● 输入各项成绩；　　● 删除、修改学生成绩；　　● 计算综合素质测评成绩；　　● 打印综合素质测评成绩报表。 10.1.3 数据库设计及实现　　1．数据库需求分析　　综合测评表所需要的数据项：　　综合测评：学号、姓名、德育成绩、智育成绩、体育成绩、荣誉、综合成绩。 　　2．数据库逻辑结构设计　　该系统数据库结构比较简单，仅用1个数据表就可以存放学生的各项成绩。该数据表结构见表10-1。 表10-1 ZHCP(综合素质测评)表 　　3．数据库结构的实现　　在SQL Server 2000的企业管理器中创建数据库MyDatabase，在查询分析器中用CREATE TABLE语句创建ZHCP数据表。　　CREATE TABLE ZHCP(　　ID CHAR(6) NOT NULL,　　NAME VARCHAR(20) NOT NULL,　　DY FLOAT,　　ZY FLOAT, 　　TY FLOAT,　　RY FLOAT,　　ZH FLOAT　　); 　　ALTER TABLE ZHCP　　ADD CONSTRAINT ID PRIMARY KEY(ID); 　10.2 相 关 知 识 点10.2.1 INI设置文件　　INI文件为文本文件格式，在Delphi中提供了一个TiniFile类，TiniFile类可以十分方便地读取和初始化文件。INI文件的存储是有限制的，它只能一行一行地进行存储。INI文件的大小限制在64 KB以下，所以在存储INI文件时一定要注意数据的大小。在使用INI文件时要在Interface的Uses中引入单元文件IniFiles，再通过一个变量就可以对INI文件进行操作了。INI文件的结构如下： 　　[小节名]，关键字，值　　例如：　　[小节名称]，1，123　　1．创建INI文件　　创建INI文件的格式如下：　　TiniFile.Create(INI文件路径+INI文件名+.ini); 　　例如，首先要在程序中创建一个TiniFile的文件对象，再创建由该对象指定文件名的INI文件。当INI文件创建成功后，将弹出“INI文件创建成功”的信息提示框，否则将弹出“INI文件创建失败”的信息提示框。代码如下：　　procedure TForm1.Button1Click(Sender: TObject);　　var　　 createini:TiniFile;　　begin　　 try createini:=TiniFile.Create(ExtractFilepath(paramstr(0))+Edit1.Text+.ini);　　 if not FileExists(ExtractFilepath(paramstr(0)+Edit1.Text+.ini)) then　　 begin　　 createini.WriteString(小节名称,关键字,值：+Edit2.Text);　　 showmessage(INI文件创建成功!);　　 end;　　 except　　 showmessage(INI文件创建失败!);　　 end;　　end; 图10.1 创建INI文件运行界面 图10.2 创建的INI文件 　　2．写入INI文件　　通过INI文件对象，可以向INI文件中写入内容。写入INI文件的代码格式如下：　　INI文件名.Write数据类型(小节名称,关键字,值);　　例如：　　inifile.WriteString(section,制作人,Edit1.Text);　　表示向INI文件inifile中写入小节名称为“section”，关键字为“制作人”，值为Edit1中文本的内容。 　　上面写入的值是字符串类型的，当然也可以是其他数据类型，包括整型、布尔型、实型、日期型等，代码如下：　　inifile.WriteInteger(section,年龄