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

《学生信息管理系统数据库设计和编码new》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验六学生信息管理系统数据库设计和应用程序编码一、实验目的掌握程序设计语言的选择、程序的编码风格和程序的效率问题。应用数据库设计工具和程序设计工具，进行数据库设计和应用程序编码。3、二、实验仪器和设备1、计算机2、SQL-SERBER软件、高级语言编译调试软件三、实验内容在实验五基础上，完成以下内容：1、根据设计阶段的E-R图转化并优化的关系模式建立数据库表。2、选定程序设计语言，注重编码风格，将实现模块功能的算法转化为程序代码。3、源程序文档化。四．实验记录1、根据设计阶段的E-R图转化并优化的关系模式建立数据库表

2、。2、选定程序设计语言，注重编码风格，将实现模块功能的算法转化为程序代码。程序的主要实现部分代码如下：unitMainUnit;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ImgList,ComCtrls,ToolWin,Menus;typeTmainForm=class(TForm)MainMenu1:TMainMenu;N1:TMenuItem;ToolBar1:TToolBar;t

3、b_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:TMenuI

4、tem;N6:TMenuItem;N7:TMenuItem;N8:TMenuItem;N9:TMenuItem;N10:TMenuItem;N11:TMenuItem;N12:TMenuItem;N13:TMenuItem;N14:TMenuItem;N15:TMenuItem;StatusBar1:TStatusBar;proceduretb_quitClick(Sender:TObject);procedureFormCreate(Sender:TObject);proceduretb_departClick(S

5、ender:TObject);proceduretb_classClick(Sender:TObject);proceduretb_userClick(Sender:TObject);proceduretb_stuClick(Sender:TObject);proceduretb_stuqueryClick(Sender:TObject);proceduretb_changeClick(Sender:TObject);proceduretb_rewardClick(Sender:TObject);procedureN

6、2Click(Sender:TObject);proceduretb_punishClick(Sender:TObject);procedureN3Click(Sender:TObject);procedureN5Click(Sender:TObject);procedureN7Click(Sender:TObject);procedureN11Click(Sender:TObject);procedureN13Click(Sender:TObject);procedureN14Click(Sender:TObjec

7、t);procedureN15Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varmainForm:TmainForm;depart:boolean=true;Fclass:boolean=true;user:boolean=true;stu:boolean=true;query:boolean=true;change:boolean=true;reward:boolean=true;punish:boo

8、lean=true;implementationusesdm,departUnit,classUnit,userUnit,stuUnit,queryUnit,changeUnit,rewardUnit,punishUnit;{$R*.dfm}procedureTmainForm.tb_quitClick(Sender:TObject);begi