学生信息管理系统设计与开发

。8.1用户登录模块代码实现启动学生信息管理系统时，一般来讲，首先出现的是启动界面，之后就会弹出用户登录界面。用户输入用户信息后，程序会和后台数据库作比对，如果信息正确，则系统会根据用户身份判定、验证，系统管理员则分配所有权限，学生则分配部分权限；如果不正确，则提示用户重输或退出。代码如下：procedureTForm1.Button3Click（Sender:TObject）;//定义“退出”按钮beginform1.Close;end;procedureTForm1.Button2Click（Sender:TObject）;//定义“重置”按钮，将输入框置空beginForm1.Edit1.Text:=‘‘;Form1.Edit2.Text:=‘‘;end;procedureTForm1.Button1Click（Sender:TObject）;//定义“登录”按钮varid,pass:string;beginid:=QuotedStr（Form1.Edit1.Text）;pass:=QuotedStr（Form1.Edit2.Text）;Form1.ADOQuery1.sql.clear;Form1.ADOQuery1.sql.add（‘select*from登录whereid=‘+id）;Form1.ADOQuery1.Open;ifForm1.ADOQuery1.RecordCount=0thenshowmessage（‘没有该账户‘）//查询与id相等的记录，如果记录=0则弹窗显示。elsebeginForm1.ADOQuery1.sql.clear;Form1.ADOQuery1.sql.add（‘select*from登录wherepassword=‘+pass）;Form1.ADOQuery1.Open;ifForm1.ADOQuery1.RecordCount^^0thenbeginForm3.Show;Form1.Hide;//查询与pass相等的记录，如果记录不等于0则通过验证。endelseshowmessage（‘密码错误请重新登陆‘）;end;end;end.8.2成绩管理的代码实现当管理员选择了一位学生进行成绩的录入后，这些成绩数据就会被保存到数据库中。代码如下：ProcedureTForm13.Button1Click（Sender:TObject）;//定义“修改”按钮begindatasource1.Editend;procedureTForm13.Button4Click（Sender:TObject）;varz,h:string;beginif（edit1.Text=‘‘）or（edit2.Text=‘‘）thenbeginMessageDlg（‘输入的信息不完整！‘,mtinformation,[mbOK],0）;//判断输入的查询信息是否为空end;elsebeginForm13.ADOQuery1.Close;z:=QuotedStr（Edit1.Text）;h:=QuotedStr（Edit2.Text）;Form13.ADOQuery1.SQL.Text:=‘select*from学生成绩信息where（学号=‘+z+‘）and（姓名=‘+h+‘）‘;Form13.ADOQuery1.Open;FOrm13.ADOQuery1.First;ifForm13.ADOQuery1.RecordCount^^0then//根据输入信息查询数据库，如果记录不等于0则弹窗“查询成功”并将数据显示出来beginshowmessage（‘查找成功‘）;end;end;end;procedureTForm13.Button2Click（Sender:TObject）;//定义“删除”按钮beginDBGrid1.DataSource.DataSet.Delete;end;procedureTForm13.Button3Click（Sender:TObject）;//定义“重置”按钮beginForm13.Edit1.Text:=‘‘;Form13.Edit2.Text:=‘‘;end;end.8.3学籍变更的代码实现当管理员选择学生后，输入变更内容和变更时间，数据将会被保存到后台数据库。代码如下：procedureTForm5.Button1Click（Sender:TObject）;beginif（edit1.Text=‘‘）or（edit2.Text=‘‘）or（edit3.Text=‘‘）or（RichEdit1.Text=‘‘）thenbeginMessageDlg（‘录入的信息不完整！‘,mtinformation,[mbOK],0）;endelsebeginform5.ADOQuery1.Close;form5.ADOQuery1.SQL.Clear;form5.ADOQuery1.SQL.Add（‘select*from学生学籍信息where学籍名称=‘+quotedstr（trim（edit3.Text）））;form5.ADOQuery1.Open;ifform5.ADOQuery1.RecordCount^0thenbeginMessageDlg（‘学生学籍名称已存在！‘,mtWarning,[mbOK],0）;edit1.Text:=‘‘;edit2.Text:=‘‘;edit3.Text:=‘‘;RichEdit1.Text:=‘‘endelsebeginform5.ADOQuery1.Close;form5.ADOQuery1.SQL.Clear;form5.ADOQuery1.sql.Add（‘insertinto学生学籍信息values（‘+QuotedStr（edit2.Text）+‘,‘+QuotedStr（edit1.Text）+‘,‘+QuotedStr（edit3.Text）+‘,‘+QuotedStr（datetostr（DateTimePicker1.Date））+‘,‘+QuotedStr（RichEdit1.Text）+‘）‘）;form5.ADOQuery1.ExecSQL;MessageDlg（‘数据已录入成功！‘,mtinformation,[mbOK],0）;Form5.ADOQuery1.Close;form5.ADOQuery1.SQL.Text:=‘select*from学生学籍信息‘;Form5.ADOQuery1.Open;end;end;end;procedureTForm5.Button2Click（Sender:TObject）;beginedit1.Text:=‘‘;edit2.Text:=‘‘;edit3.Text:=‘‘;RichEdit1.Text:=‘‘end;end.8.4奖惩管理的代码实现当管理员选择了需要奖励或惩罚的学生后，输入具体的奖励内容和奖励时间，数据会被保存到后台数据库。代码如下：procedureTForm7.Button1Click（Sender:TObject）;beginif（edit1.Text=‘‘）or（edit2.Text=‘‘）or（edit3.Text=‘‘）or（RichEdit1.Text=‘‘）thenbeginMessageDlg（‘录入的信息不完整！‘,mtinformation,[mbOK],0）;endelsebeginform7.ADOQuery1.Close;form7.ADOQuery1.SQL.Clear;form7.ADOQuery1.sql.Add（‘insertinto学生奖惩信息values（‘+QuotedStr（edit1.Text）+‘,‘+QuotedStr（edit2.Text）+‘,‘+QuotedStr（datetostr（DateTimePicker1.Date））+‘,‘+QuotedStr（edit3.Text）+‘,‘+QuotedStr（RichEdit1.Text）+‘）‘）;form7.ADOQuery1.ExecSQL;MessageDlg（‘数据已录入成功！‘,mtinformation,[mbOK],0）;Form7.ADOQuery1.Close;form7.ADOQuery1.SQL.Text:=‘select*from学生奖惩信息‘;Form7.ADOQuery1.Open;end;end;procedureTForm7.Button2Click（Sender:TObject）;beginedit1.Text:=‘‘;edit2.Text:=‘‘;edit3.Text:=‘‘;RichEdit1.Text:=‘‘;end;8.5查询/修改的代码实现学生可以根据学号查询到自己的在校信息，而管理员在发现学生信息录入出错的时候可对其进行修改，修改内容最终会保存到数据库中。代码如下：procedureTForm10.Button3Click（Sender:TObject）;beginifapplication.MessageBox（‘真的要删除此记录?‘,‘确认!‘,MB_OKCANCEL）=IDOKthendatasource1.DataSet.Delete;end;procedureTForm10.Button2Click（Sender:TObject）;begindatasource1.Editend;procedureTForm10.Button1Click（Sender:TObject）;vara:string;beginForm10.ADOQuery1.Close;a:=QuotedStr（Edit1.Text）;Form10.ADOQuery1.SQL.Text:=‘select*from学生基本信息where班级名称=‘+a;Form10.ADOQuery1.Open;FOrm10.ADOQuery1.First;ifForm10.ADOQuery1.RecordCount^^0thenbeginshowmessage（‘查找成功‘）;end;end;

第九章：实例演示最后，为了验证系统的可用性，将对这个系统做一些简单的演示。首先，运行学生信息管理系统的执行文件“学生信息管理系统.exe”，首先出现的是学生信息管理系统的启动界面，如图35所示。图35学生信息管理系统启动界面等待数秒钟后，则弹出用户登录界面，如图36所示。用户输入自己的账户和密码，数据库中存入了admin和a两个账户供用户登录，密码与账户名相同，如果账户名输入错误，则会提示没有该账户，如图37所示。如果密码输入不正确，则会提示密码输入错误请重新登录，如图38所示。图36用户登录界面图37提示不存在用户图38提示密码错误如果用户成功登录，那么可以进入到学生信息管理系统的主界面，如图39所示。图39系统主界面9.1新生信息录入的实例演示单击“新生录入”按钮，弹出学生基本信息录入界面，如图41所示，输入相应的学生信息，选择班级和院系，单击增加按钮，新生信息就保存到了数据库。图41学生基本信息录入界面9.2成绩管理的实例演示单击“成绩管理”按钮，则出现学生成绩信息管理界面，如图42所示。在下面输入信息查找学生，学号、姓名自动从数据库中调出，单击“修改”按钮，就可以修改学生的成绩并将其保存到数据库中。如果需要删除，选择需要删除的条目，然后单击删除，就可以将数据从数据库中删除。图42学生成绩信息管理界面9.3学籍管理的实例演示单击“学籍管理”按钮，出现学生学籍信息管理界面，如图43所示。输入学生的学号，姓名等信息自动从数据库中调出，录入变更项和变更时间，单击“增加”，学籍变更信息就保存到了数据库。图43学生学籍信息管理界面9.4奖惩管理的实例演示单击“奖惩管理”按钮，出现学生奖惩信息管理界面，如图44所示。输入学生的学号，姓名等信息自动从数据库中调出，选择奖励项和奖励时间，单击增加按钮，奖罚信息就保存到了数据库。图44学生奖惩信息管理界面9.6查询修改的实例演示单击工具栏上的查询与修改，选择“院系查询与修改”或“班级查询与修改”按钮，出现查询修改界面，如图46所示。输入学生的学号，姓名等信息后点击“查询”自动从数据库中调出。如果发现信息有错，可以在相应的编辑框输入正确的信息，单击“修改”按钮。图46查询修改界面9.7系统运行与维护由于该系统较小没有外加维护模块，因为维护工作比较简单，仅靠数据库的一些基本维护措施即可。9.8系统的转换方案该系统是小型的系统,修改并不难，因此可转换成相关的系统应用到各教育方面。以满足不同层次教育的工作中。9.9本章小结本章主要对系统的各