答:设计界面:
(数据库设计)
运行界面:
14.6 使用数据库软件(如Sql Server2000)创建如表14-6所示的数据表,并开发一个学生档案管理系统,完成学生基本信息的添加、删除、修改等。同时,可以按照学生的学号、姓名等进行数据的查询。最后,将学生的基本信息以报表的方式输出。 表14-6 数据表字段设置说明 字段名 Id Name Sex Birthday Address 字符型 字符型 字符型 日期型 字符型 类型 8 8 2 4 50 长度 学号 姓名 性别 出生日期 家庭住址 说明 答:(1)使用的数据库软件为Sql Server 2008 R2,依据题目设计的数据表结构为
表名为Students
(2)本系统包含5个Form,分别为FormMain主界面,FormTable信息录入查询界面,FormReport学生信息报表界面,FormHelp系统帮助界面,FormAbout系统关于界面 (3)各Form详细内容: A:FormMain 设计界面:
运行界面:
代码: unit Unit2;
interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, Unit3, Unit1, Unit4, Unit5; type
TMainForm = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; Label1: TLabel; Label2: TLabel; Label3: TLabel;
procedure N8Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure N4Click(Sender: TObject); procedure N7Click(Sender: TObject); private
procedure closeApp; public
{ Public declarations } end; var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.N8Click(Sender: TObject); begin
formAbout.Show; end;
procedure TMainForm.N5Click(Sender: TObject); begin
closeApp; end;
procedure TMainForm.N2Click(Sender: TObject); var child:TFormTable; begin
child := TFormTable.Create(Application); child.Show; end;
procedure TMainForm.closeApp; begin
if messagedlg('您确定要退出本系统了吗?',mtconfirmation,[mbyes,mbno],0) = mryes then Application.Terminate end;
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin
if messagedlg('您确定要退出本系统了吗?',mtconfirmation,[mbyes,mbno],0) = mryes then
CanClose := true else