学生信息管理系统数据库设计和编码

实验六学生信息管理系统数据库设计和应用程序编码

一、实验目的

掌握程序设计语言的选择、程序的编码风格和程序的效率问题。

应用数据库设计工具和程序设计工具，进行数据库设计和应用程序编码。

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

{ Public declarations }

end;

var

mainForm: TmainForm;

depart:boolean=true;

Fclass:boolean=true;

user:boolean=true;

stu:boolean=true;

query:boolean=true;

change:boolean=true;

reward:boolean=true;

punish:boolean=true;

implementation

uses dm, departUnit, classUnit, userUnit, stuUnit, queryUnit, changeUnit, rewardUnit, punishUnit;