Delphi学生成绩管理系统的开发 第2页
第3章 总体设计3.1 设计模块
根据上面的需求分析，设计好数据库系统，然后开发应用程序可以考虑的窗体的系统，每一个窗体实现不同的功能，可以设计下面的几个模块。1. 用户登入界面：需要输入用户名及密码才可登入
2. 系统管理界面：包括修改密码，添加用户，重新登入
3. 查看和修改界面：包括查看及修如学生的姓名，出生年月，课程信息，学科成绩等
4. 信息录入界面：包括添加奖励惩罚、学生基本信息
5. 查询界面：包括成绩查询和基本信息的查询
3.2 数据库设计
这里的数据库采用Access，用ADO作为连接数据对象。
3.2.1 建立Access 数据库
启动Access，建立一个数据库stu.mdb
图3-1 Access数据库
3.2.2 连接数据
1. 设置adoconnection对象的属性，连接到stu.mdb数据库，
2. 设置adoquery的connection属性为adoconnection对象
第4章 详细设计
这是一个多文档界面(MDI)应用程序，可以同时显示多个文档，每个文档显示在各自的窗体中。MDI 应用程序中常有包含子菜单的“窗体”选项，用于在窗体或文档之间进行切换。
图4-1 学生成绩管理系统主界面
4.1 菜单设计 4.2 主菜单的设计
1.新建工程，并且保存
2.加入standard面板上得MainMenu控件
3.设计该控件，加入如上图所示菜单
4.对应每个菜单新建表单form，并且保存！ 图4-2
在form1里都use进来该unit，如下两图所示。
图4-3图4-4
给每个菜单点击事件的响应代码以便打开新建的form，双击某菜单可以进入其单击事件。
5.运行查看效果。
4.3 弹出菜单设计操作步骤：
1. 加入standard面板上的PopupMenu控件
2. 设计该控件，加入如上图所示菜单
3. 如何在表单里点击右键弹出菜单呢？设置form1的PopupMenu属性为该弹出菜单就ok。
4.参考主菜单中的代码，给各菜单项添加对应的弹出新窗口代码，以弹出对应功能的窗口
4.4 给主页面添加背景：
操作步骤：
1. 加入additionnal面板上的image控件，设置其align属性为alclient，使其占满整个窗口
2. 设置image控件的picture属性为背景图片“bg.bmp”，并且设置stretch为true属性
4.5 更换背景
操作步骤：
1.在form1的主菜单的系统管理菜单下添加“更换背景”子菜单。
2.在form1中加入opendialog控件（也就是打开文件对话框控件），使点击“更换背景”菜单后弹出选择文件菜单，更换form1的背景图片。所以在更换背景的事件里编写代码，参考如下：
Opendialog的使用方法：
Opendialog1.Execute方法，打开窗口
Opendialog1.FileName属性为返回选择的文件路径
Image控件
image1.Picture.LoadFromFile(文件路径)，导入背景图片
如果要使用jpg文件，在form1代码的上面interface uses里加入jpeg
4.6 使用imagelist给主菜单和弹出式菜单添加图标
操作步骤：
1.添加imagelist控件 （组件面板 win32选项卡）
2.设置主菜单和弹出菜单的images的属性为imagelist控件的对象名
3. 调整icon的width和height的值为 20
4. 双击imagelist控件，添加icons文件夹中得文件
5.为每个菜单项的imageindex属性设置一个值（就是imagelist 中的图标的编号）
6.查找系统中还有没有其他ico文件，收集自己喜欢的，放到工程文件下，建立ico文件夹，应用到imagelist，更改每个菜单的图表，使其更加合适。
7.在“系统管理”菜单下加入子菜单“取消图标”，点击“取消图标”菜单取消菜单的图标，并且“取消图标”的文字改成“显示图标”，同理，点击“显示图标”菜单的图标显示出来，并且文字改成“取消图标”，主要是通过mainmenu的images属性是否为空，判断空用nil。
4.7 ADOQuery的使用
1.显示数据部分的ADOtable也是连接到ADOConnection控件上；
2. adoquery1.sql.Clear;//清除adoquery对象中的sql语句；
3. adoquery1.sql.Add('select * from 表名称 where 字段名称=:name');
4. adoquery1毕业论文
http://www.Lwfree.cn/.Parameters.ParamByName('name').Value := trim(banji_edit.Text);//给参数赋值
5. ADOQuery1.execsql;//执行sql 或者adoquery1.open；//打开查询
第5章 编码
下面是响应“添加用户”子菜单Click事件，调出增加用户窗体代码。
ADOQuery1.sql.Add('insert into 管理员表(用户名,密码) ');
ADOQuery1.sql.Add(' values(:name,:mima)');
ADOQuery1.Parameters.ParamByName('name').Value := trim(edit1.Text);
ADOQuery1.parameters.ParamByName('mima').Value := trim(edit2.Text);
//执行sql
ADOQuery1.execsql;
ShowMessage('添加管理员成功');
end;
下面是响应“退出”子菜单Click事件，调出退出窗体代码。
application.Terminate;
end;
下面是响应“修改用户信息”子菜单Click事件，调出修改用户信息窗体代码。
self.ADOQuery1.edit;
self.ADOQuery1.FieldByName('用户名').AsString :=self.Edit1.Text ;
self.ADOQuery1.FieldByName('密码').AsString :=self.Edit2.Text ;
self.ADOQuery1.Post ;end;
上一页 [1] [2]
Delphi学生成绩管理系统的开发 第2页下载如图片无法显示或论文不完整，请联系qq752018766
