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

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

2、。程序旳重要实现部分代码如下：unit MainUnit;interfaceuses 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_us

3、er: 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

4、; 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_

5、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(Send

6、er: 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 ma

7、inForm: 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;implementationuses dm, departUnit, classUnit, userUnit, stuUnit, queryUnit, changeUnit, rewardUnit, punishUnit;$R *.dfmp

8、rocedure TmainForm.tb_quitClick(Sender: TObject);begin close;end;procedure TmainForm.FormCreate(Sender: TObject);begin tb_depart.Enabled:=dmform.ADOQuery_login.FieldByName(qx1).AsBoolean; tb_class.Enabled:=dmform.ADOQuery_login.FieldByName(qx2).AsBoolean; tb_user.Enabled:=dmform.ADOQuery_login.Field

9、ByName(qx3).AsBoolean; tb_stu.Enabled:=dmform.ADOQuery_login.FieldByName(qx4).AsBoolean; tb_stuquery.Enabled:=dmform.ADOQuery_login.FieldByName(qx5).AsBoolean; tb_change.Enabled:=dmform.ADOQuery_login.FieldByName(qx6).AsBoolean; tb_reward.Enabled:=dmform.ADOQuery_login.FieldByName(qx7).AsBoolean; tb

10、_punish.Enabled:=dmform.ADOQuery_login.FieldByName(qx8).AsBoolean;end;procedure TmainForm.tb_departClick(Sender: TObject);begin /院系设立 if tb_depart.Down then begin departform:=tdepartform.Create(self); departform.Show; end else begin departForm.Free; end;end;procedure TmainForm.tb_classClick(Sender:

11、TObject);begin /班级管理if tb_class.Down then begin classform:=tclassform.Create(self); classform.Show; end else begin classForm.Free; end;end;procedure TmainForm.tb_userClick(Sender: TObject);begin /顾客管理 if tb_user.Down then begin userform:=tuserform.Create(self); userform.Show; end else begin userForm

12、.Free; end;end;procedure TmainForm.tb_stuClick(Sender: TObject);begin /学生管理 if tb_stu.Down then begin stuform:=tstuform.Create(self); stuform.Show; end else begin stuForm.Free; end;end;procedure TmainForm.tb_stuqueryClick(Sender: TObject);begin /学生查询if tb_stuquery.Down then begin queryform:=tqueryfo

13、rm.Create(self); queryform.Show; end else begin queryForm.Free; end;end;procedure TmainForm.tb_changeClick(Sender: TObject);begin / 学籍变更if tb_change.Down then begin changeform:=tchangeform.Create(self); changeform.Show; end else begin changeForm.Free; end;end;procedure TmainForm.tb_rewardClick(Sende

14、r: TObject);begin /奖励状况if tb_reward.Down then begin rewardform:=trewardform.Create(self); rewardform.Show; end else begin rewardForm.Free; end;end;procedure TmainForm.N2Click(Sender: TObject);beginif depart then begin departform:=tdepartform.Create(self); depart:=false; departform.Show; end else beg

15、in departForm.Free; depart:=true; tb_depart.Down:=false; end;end;procedure TmainForm.tb_punishClick(Sender: TObject);begin /惩罚状况if tb_punish.Down then begin punishform:=tpunishform.Create(self); punishform.Show; end else begin punishForm.Free; end;end;procedure TmainForm.N3Click(Sender: TObject);beg

16、inif fclass then begin classform:=tclassform.Create(self); fclass:=false; classform.Show; end else begin classForm.Free; fclass:=true; tb_class.Down:=false; end;end;procedure TmainForm.N5Click(Sender: TObject);beginif user then begin userform:=tuserform.Create(self); user:=false; userform.Show; end

17、else begin userForm.Free; user:=true; tb_user.Down:=false; end;end;procedure TmainForm.N7Click(Sender: TObject);beginclose;end;procedure TmainForm.N11Click(Sender: TObject);beginif query then begin queryform:=tqueryform.Create(self); query:=false; queryform.Show; end else begin queryForm.Free; query

18、:=true; tb_stuquery.Down:=false; end;end;procedure TmainForm.N13Click(Sender: TObject);beginif change then begin changeform:=tchangeform.Create(self); change:=false; changeform.Show; end else begin changeForm.Free; change:=true; tb_change.Down:=false; end;end;procedure TmainForm.N14Click(Sender: TOb

19、ject);beginif reward then begin rewardform:=trewardform.Create(self); reward:=false; rewardform.Show; end else begin rewardForm.Free; reward:=true; tb_reward.Down:=false; end;end;procedure TmainForm.N15Click(Sender: TObject);beginif punish then begin punishform:=tpunishform.Create(self); punish:=fal

20、se; punishform.Show; end else begin punishForm.Free; punish:=true; tb_punish.Down:=false; end;end;end.登陆模块：procedure TloginForm.btn_okClick(Sender: TObject);var sql:string;begin sql:=select * from login where username=:a and passwrd=:b; dmform.ADOQuery_login.Close; dmform.ADOQuery_login.SQL.Clear; d

21、mform.ADOQuery_login.SQL.Add(sql); dmform.ADOQuery_login.Parameters0.Value:=edit1.Text; dmform.ADOQuery_login.Parameters1.Value:=edit2.Text; dmform.ADOQuery_login.Open; if dmform.ADOQuery_login.RecordCount0 then begin loginform.ModalResult:=mrok; end else begin application.MessageBox(顾客名或者密码错误,请重新输入

22、!,登录提示,mb_ok); edit1.Text:=; edit2.Text:=; edit1.SetFocus; end;end;procedure TloginForm.btn_cancelClick(Sender: TObject);begin loginform.ModalResult:=mrCancel;end;end.班级管理模块：procedure TclassForm.FormClose(Sender: TObject; var Action: TCloseAction);begin action:=cafree; mainform.tb_class.Down:=false;

23、end;procedure TclassForm.tb_exitClick(Sender: TObject);begin close;end;procedure TclassForm.tb_postClick(Sender: TObject);var s:string;begin s:=insert into class(班级编号,班级名称,所属院系,班主任,联系电话,班级描述) values(:a,:b,:c,:d,:e,:f); dmform.ADOQuery_class.Close; dmform.ADOQuery_class.SQL.Clear; dmform.ADOQuery_cla

24、ss.SQL.Add(s); dmform.ADOQuery_class.Parameters0.Value:=edit1.Text; dmform.ADOQuery_class.Parameters1.Value:=edit2.Text; dmform.ADOQuery_class.Parameters2.Value:=edit3.Text; dmform.ADOQuery_class.Parameters3.Value:=edit4.Text; dmform.ADOQuery_class.Parameters4.Value:=edit5.Text; dmform.ADOQuery_clas

25、s.Parameters5.Value:=edit6.Text; dmform.ADOQuery_class.ExecSQL; dmform.ADOQuery_class.Close; dmform.ADOQuery_class.SQL.Clear; dmform.ADOQuery_class.SQL.Add(select * from class); dmform.ADOQuery_class.Open;end;procedure TclassForm.tb_deleteClick(Sender: TObject);begin if messagedlg(拟定删除该记录吗？,mtConfir

26、mation,mbYes, mbNo,0)=mryes then begin dmform.ADOQuery_class.Delete; end;end;procedure TclassForm.tb_addClick(Sender: TObject);begin edit1.Text:=; edit2.Text:=; edit3.Text:=; edit4.Text:=; edit5.Text:=; edit6.Text:=; edit1.SetFocus;end;procedure TclassForm.tb_editClick(Sender: TObject);var s:string;

27、 i:string;begin s:=update class set 班级编号=:a,班级名称=:b,所属院系=:c,班主任=:d,联系电话=:e,班级描述=:f where 班级编号=:n; i:=dmform.ADOQuery_class.fieldbyname(班级编号).AsString; dmform.ADOQuery_class.Close; dmform.ADOQuery_class.SQL.Clear; dmform.ADOQuery_class.SQL.Add(s); dmform.ADOQuery_class.Parameters0.Value:=edit1.Text;

28、dmform.ADOQuery_class.Parameters1.Value:=edit2.Text; dmform.ADOQuery_class.Parameters2.Value:=edit3.Text; dmform.ADOQuery_class.Parameters3.Value:=edit4.Text; dmform.ADOQuery_class.Parameters4.Value:=edit5.Text; dmform.ADOQuery_class.Parameters5.Value:=edit6.Text; dmform.ADOQuery_class.Parameters6.V

29、alue:=i; dmform.ADOQuery_class.ExecSQL; dmform.ADOQuery_class.Close; dmform.ADOQuery_class.SQL.Clear; dmform.ADOQuery_class.SQL.Add(select * from class); dmform.ADOQuery_class.Open;end;end.院系设立模块：procedure TdepartForm.FormClose(Sender: TObject; var Action: TCloseAction);begin action:=cafree; mainfor

30、m.tb_depart.Down:=false;end;procedure TdepartForm.tb_exitClick(Sender: TObject);begin close;end;procedure TdepartForm.tb_addClick(Sender: TObject);begin edit_yxbh.Text:=; edit_yxmc.Text:=; edit_yxld.Text:=; edit_lddh.Text:=; edit_yxms.Text:=; edit_yxbh.SetFocus;end;procedure TdepartForm.tb_postClick

31、(Sender: TObject);var s:string;begin s:=insert into department(院系编号,院系名称,院系领导,领导电话,院系描述) values(:a,:b,:c,:d,:e); dmform.ADOQuery_depart.Close; dmform.ADOQuery_depart.SQL.Clear; dmform.ADOQuery_depart.SQL.Add(s); dmform.ADOQuery_depart.Parameters0.Value:=edit_yxbh.Text; dmform.ADOQuery_depart.Paramet

32、ers1.Value:=edit_yxmc.Text; dmform.ADOQuery_depart.Parameters2.Value:=edit_yxld.Text; dmform.ADOQuery_depart.Parameters3.Value:=edit_lddh.Text; dmform.ADOQuery_depart.Parameters4.Value:=edit_yxms.Text; dmform.ADOQuery_depart.ExecSQL; dmform.ADOQuery_depart.Close; dmform.ADOQuery_depart.SQL.Clear; dm

33、form.ADOQuery_depart.SQL.Add(select * from department); dmform.ADOQuery_depart.Open;end;procedure TdepartForm.tb_deleteClick(Sender: TObject);begin if messagedlg(拟定删除该记录吗？,mtConfirmation,mbYes, mbNo,0)=mryes then begin dmform.ADOQuery_depart.Delete; end;end;procedure TdepartForm.tb_editClick(Sender:

34、 TObject); var s:string; i:string;begin s:=update department set 院系编号=:a,院系名称=:b,院系领导=:c,领导电话=:d,院系描述=:e where 院系编号=:n; i:=dmform.ADOQuery_depart.fieldbyname(院系编号).AsString; dmform.ADOQuery_depart.Close; dmform.ADOQuery_depart.SQL.Clear; dmform.ADOQuery_depart.SQL.Add(s); dmform.ADOQuery_depart.Para

35、meters0.Value:=edit_yxbh.Text; dmform.ADOQuery_depart.Parameters1.Value:=edit_yxmc.Text; dmform.ADOQuery_depart.Parameters2.Value:=edit_yxld.Text; dmform.ADOQuery_depart.Parameters3.Value:=edit_lddh.Text; dmform.ADOQuery_depart.Parameters4.Value:=edit_yxmc.Text; dmform.ADOQuery_depart.Parameters5.Va

36、lue:=i; dmform.ADOQuery_depart.ExecSQL; dmform.ADOQuery_depart.Close; dmform.ADOQuery_depart.SQL.Clear; dmform.ADOQuery_depart.SQL.Add(select * from department); dmform.ADOQuery_depart.Open;end;学生管理模块：procedure TstuForm.FormClose(Sender: TObject; var Action: TCloseAction);begin action:=cafree; mainf

37、orm.tb_stu.Down:=false;end;procedure TstuForm.tb_exitClick(Sender: TObject);begin close;end;procedure TstuForm.tb_postClick(Sender: TObject);var s:string;begin s:=insert into student(学号,姓名,性别,出生日期,班级编号,籍贯) values(:a,:b,:c,:d,:e,:f); dmform.ADOQuery_student.Close; dmform.ADOQuery_student.SQL.Clear; d

38、mform.ADOQuery_student.SQL.Add(s); dmform.ADOQuery_student.Parameters0.Value:=edit1.Text; dmform.ADOQuery_student.Parameters1.Value:=edit2.Text; dmform.ADOQuery_student.Parameters2.Value:=edit3.Text; dmform.ADOQuery_student.Parameters3.Value:=edit4.Text; dmform.ADOQuery_student.Parameters4.Value:=ed

39、it5.Text; dmform.ADOQuery_student.Parameters5.Value:=edit6.Text; dmform.ADOQuery_student.ExecSQL; dmform.ADOQuery_student.Close; dmform.ADOQuery_student.SQL.Clear; dmform.ADOQuery_student.SQL.Add(select * from student); dmform.ADOQuery_student.Open;end;procedure TstuForm.tb_deleteClick(Sender: TObje

40、ct);begin if messagedlg(拟定删除该记录吗？,mtConfirmation,mbYes, mbNo,0)=mryes then begin dmform.ADOQuery_student.Delete; end;end;procedure TstuForm.tb_addClick(Sender: TObject);begin edit1.Text:=; edit2.Text:=; edit3.Text:=; edit4.Text:=; edit5.Text:=; edit6.Text:=; edit1.SetFocus;end;procedure TstuForm.tb_

41、editClick(Sender: TObject);var s:string; i:string;begin s:=update student set 学号=:a,姓名=:b,性别=:c,出生日期=:d,班级编号=:e,籍贯=:f where 学号=:n; i:=dmform.ADOQuery_student.fieldbyname(学号).AsString; dmform.ADOQuery_student.Close; dmform.ADOQuery_student.SQL.Clear; dmform.ADOQuery_student.SQL.Add(s); dmform.ADOQuery_student.Parameters0.Value:=edit1.Text; dmform.ADOQuery_student.Parameters1.Value:=edit2.Text; dmform.ADOQuery_student.Parameters2.Value:=edit3.Text;