台州电大陈元的数据库应用程序设计离线作业(6)

答：设计界面：

(数据库设计)

运行界面：

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库台州电大陈元的数据库应用程序设计离线作业(6)在线全文阅读。