学生信息管理系统数据库设计与编码.docVIP

实验六 学生信息管理系统数据库设计和应用程序编码 一、实验目的 掌握程序设计语言的选择、程序的编码风格和程序的效率问题。 应用数据库设计工具和程序设计工具，进行数据库设计和应用程序编码。 3、 二、实验仪器和设备 1、计算机 2、SQL-SERBER软件、高级语言编译调试软件 三、实验内容 在实验五基础上，完成以下内容： 1、根据设计阶段的E-R图转化并优化的关系模式建立数据库表。 2、选定程序设计语言，注重编码风格，将实现模块功能的算法转化为程序代码。 3、源程序文档化。 四．实验记录 1、根据设计阶段的E-R图转化并优化的关系模式建立数据库表。 2、选定程序设计语言，注重编码风格，将实现模块功能的算法转化为程序代码。 程序的主要实现部分代码如下： unit MainUnit; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ImgList, ComCtrls, ToolWin, Menus; type TmainForm = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; ToolBar1: TToolBar; tb_depart: TToolButton; tb_class: TToolButton; tb_user: TToolButton; tb_stu: TToolButton; tb_stuquery: TToolButton; tb_change: TToolButton; tb_reward: TToolButton; tb_punish: TToolButton; tb_quit: TToolButton; ImageList1: TImageList; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; StatusBar1: TStatusBar; procedure tb_quitClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure tb_departClick(Sender: TObject); procedure tb_classClick(Sender: TObject); procedure tb_userClick(Sender: TObject); procedure tb_stuClick(Sender: TObject); procedure tb_stuqueryClick(Sender: TObject); procedure tb_changeClick(Sender: TObject); procedure tb_rewardClick(Sender: TObject); procedure N2Click(Sender: TObject); procedure tb_punishClick(Sender: TObject); procedure N3Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N11Click(Sender: TObject); procedure N13Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N15Click(Sender: TObject); private { Private declarations } public