delphi课程设计-新生注册管理系统的设计与实现

枣庄学院信息科学与工程学院课程设计任务书题目：新生注册管理系统的设计与实现姓名：夏德成学号：201012110142专业班级：计算机科学与技术、2010级本1班课程：Delphi应用程序设计指导教师：燕孝飞职称：讲师完成时间：2012年12月2013年1月枣庄学院信息科学与工程学院制2012年12月30日课程设计任务书及成绩评定课程设计的任务和具体要求1内容小型信息管理系统的设计与实现(如学生信息管理系统、图书管理系统、物资管理系统等，任选其一)。2、基本要求课程设计应能反应出学生综合利用所学知识完成一定的设计任务的能力，反映出学生理论联系实践的动手能力。具体要求如下：(1) 明确所要开发系统的设计任务；(2) 做好需求分析，合理选择设计方案；(3) 合理设计数据库中各个表的结构及其关系；(4) 能够设计出美观大方的程序界面；(5) 养成良好的代码书写习惯；(6) 在编写程序过程中应注意相关文档的编写；(7) 综合应用Delphi各种组件实现程序功能；(8)认真撰写课程设计总结报告指导教师签字：日期：指导教师评语成绩：指导教师签字：日期：课程设计所需软件、硬件等硬件环境：Iterl(R)Core(TM)2DuoCPU，主频2.31GHz；内存3G；硬盘320G以上；1024×768显示分辨率软件环境：Delphi7.0SQLServer2005课程设计进度计划起至日期工作内容备注2012年12月2013年1月查阅相关资料，编写代码，调试程序课本及网上资料，调试，改进。参考文献、资料索引序号文献、资料名称编著者出版单位[1]《Delphi应用程序设计》李目海，电子科技大学出版社，2005[2]《Delphi程序设计实用教程》叶核亚，电子工业出版社，2005[3]《Delphi2005程序设计教程》刘瑞新编著，机械工业出版社，2004[4]《Delphi数据库程序设计教程》刘瑞新张志纲张兵义编著，机械工业出版社，2004[5]《Delphi使用教程》郑阿奇主编，电子工业出版社，2003[6]《Delphi7程序设计技巧与实例》吴天准编著，中国铁道出版社2003目录一、新生注册管理系统的简介 1二、数据库表的结构描述及其关系 22.1数据需求 22.2系统E-R图 3三、主要功能模块图 4四、主要功能的实现代码 51、项目文件 52、用户管理 6（1）用户登录 6（2）用户删除 73、个人信息操作 11（1）添加用户与删除用户 11五、程序运行效果及分析 201、登陆界面 202、主界面 203、学生基本信息管理 214、班级基本信息管理 215、学院基本信息管理 226、宿舍基本信息管理 227、信息查找及打印预览 23八、结束语 24INDEX\o"S"\c"2"\z"2052"一、新生注册管理系统的简介新生注册系统是典型的信息管理系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。新生报到注册是高校管理中一个极其重要的工作。高校规模的扩大,招生人数的增加,过去新生报到的工作方式已不适应现在的要求。过去新生的信息由人工填写、整理、统计,花费了大量人力,影响报到的进度。基于这种情况,我们采用Delphi和SQL2005为开发工具,开发了一个新生报到注册系统,该系统具有新生信息输入和查询、入学管理、公寓安排管理、家庭信息管理等功能。文章介绍了新生注册系统的开发背景，开发工具，所要完成的功能和开发过程。具体系统功能需求描述如下： (1)学生信息管理：每年的大量新生入学，老生毕业都需要处理大量的学生信息。通过这一模块，可以实现学生基本情况的添加、删除、更新。还能查询各个学生的情况，姓名、家庭电话、家庭住址、学号等各个消息（2)家庭信息信息管理：实现学生信息的添加、删除、修改等。它所依靠也就是外表是学生表。（3）管理员可以添加，删除，修改任何信息。（4）每一个学院可以创建自己的班级，可以指定班号以及学院的专业等，也可以查看它自己的班级信息，学生信息。（5）每一个班级可以创建自己的班名称，可以指定指导员，可以查看自己班级信息。(6)用户登录时会记住用户的职称，用户名，密码为限制它的操作做好准备。(7)用户管理：本模块可以实现添加用户，删除用户，密码修改等功能(8)数据库中的数据都用的是层叠，当删除上一级的数据时会同时删除以它做为外码的任何数据。这样可以保证不会有数据错误（比如说删除一个学院后，以这个学院建立的所有的班级都会删除，以这些班级建立的学生信息也会被删除，可以减少操作，同时也保证正确）。（9）当创建一个学院，班级或添加一个学生信息时，学院统将会自动的给这个学院号，班号或学号添加一个密码（其中学院自动创建的密码为123456，班级自动创建的密码为000123，学号的自动创建的密码为123000）二、数据库表的结构描述及其关系2.1数据需求根据系统的要求，首先将要记录的信息分类，要记录的信息如下：（1）登录表：用户名、密码、职称（2）学生基本信息表：学号、姓名、出生年月、学院号、性别、政治面貌、专业、民族、家庭住址、班号、籍贯、联系电话、楼号、成绩、身份证号、宿舍、应往届（3）班级基本信息表：学号、专业、班号、班级名称、辅导员（4）宿舍基本信息表：楼号、宿舍号、可住人数、住宿费用（5）家庭基本信息表：学号父亲姓名、出生年月、工作单位、政治面貌母亲姓名、出生年月、工作单位、政治面貌家庭住址、联系电话（6）学院基本信息表：学院号、专业、班号、学院名根据这些需求，本系统需要6个表：“登录表”用于用户登录，学生基本信息表、班级基本信息表、宿舍基本信息表、家庭基本信息表、学院基本信息表用于对学生基本信息的添加和管理、班级基本信息的添加和管理、宿舍基本信息的添加和管理、家庭基本信息的添加和管理、学员基本信息的添加和管理2.2系统E-R图登录表登录表班级基本信息表学生基本信息表家庭基本信息表宿舍基本信息表学院基本信息表学号专业班号班级名称辅导员用户名密码职称学号姓名出生年月学院号性别政治面貌专业民族家庭住址班号籍贯联系电话联系电话楼号成绩身份证号宿舍应往届学号父亲姓名出生年月工作单位政治面貌母亲姓名出生年月工作单位政治面貌家庭住址联系电话楼号宿舍号可住人数住宿费用学院号专业班号学院名三、主要功能模块图等待窗口等待窗口登录窗口主窗口学生基本信息班级基本信息学院基本信息宿舍基本信息信息查找用户管理关于….退出添加信息删除信息更改信息宿舍信息学院信息班级信息学生信息修改密码删除用户添加用户四、主要功能的实现代码1、项目文件project1programProject1;usesForms,windows,New_Mainin'New_Main.pas'{MainFrm},New_Datain'New_Data.pas'{DataFrm},New_Studentin'New_Student.pas'{stuFrm},New_classin'New_class.pas'{ClassFrm},New_sdeptin'New_sdept.pas'{SdeptFrm},New_dormin'New_dorm.pas'{DormFrm},New_Findin'New_Find.pas'{FindFrm},new_aboutin'new_about.pas'{Form1},New_suoin'New_suo.pas'{Suofrm},new_login'new_log.pas'{Logfrm},new_mimain'new_mima.pas'{mimafrm},new_userin'new_user.pas'{userfrm};{$R*.res}varuser:integer;beginApplication.Initialize;Form1:=TForm1.Create(Application);Form1.Show;Form1.Update;sleep(2500);Form1.Free;logfrm:=Tlogfrm.Create(Application);logfrm.ShowModal;ifnew_log.tu=1thenbeginApplication.CreateForm(TMainFrm,MainFrm);Application.CreateForm(TDataFrm,DataFrm);endelseif(new_log.tu=2)or(new_log.tu=3)thenlogfrm.Free;end.2、用户管理（1）用户登录procedureTLogfrm.FormCreate(Sender:TObject);beginlogin:=-1;end;procedureTLogfrm.Button1Click(Sender:TObject);//登录beginuser:=trim(edit1.Text);pos:=combobox1.ItemIndex;mima:=trim(edit2.Text);ADOConnection1.Close;ADOConnection1.LoginPrompt:=false;ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=sa;PersistSecurityInfo=True;UserID=sa;InitialCatalog=db_NewStudent;DataSource=.';ADOQuery1.Connection:=ADOConnection1;ifADOQuery1.ActivethenADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select*fromtb_logwherename='''+edit1.Text+'''andmima='''+edit2.Text+'''andposition='''+combobox1.Items[combobox1.ItemIndex]+'''');ADOQuery1.Open;datasource1.DataSet:=ADOQuery1;ifdatasource1.DataSet.RecordCount=0thenshowmessage('你输入的用户名或密码或职称有错！')elsebeginlogin:=1;close;end;end;procedureTLogfrm.Button2Click(Sender:TObject);//取消beginlogin:=2;close;end;procedureTLogfrm.FormClose(Sender:TObject;varAction:TCloseAction);beginiflogin=1thentu:=1elseiflogin=2thentu:=2elsetu:=3;end;end.（2）用户删除procedureTuserfrm.FormCreate(Sender:TObject);beginifnew_main.i=100thenbeginedit1.Visible:=false;combobox2.Visible:=true;button4.Visible:=true;button3.Visible:=false;button1.Visible:=false;end;ifnew_main.i=200thenbeginlabel5.Visible:=false;label3.Visible:=false;label4.Visible:=false;combobox1.Visible:=false;combobox2.Visible:=false;edit1.Visible:=true;edit1.Text:=new_main.user;edit1.Enabled:=false;edit3.Visible:=true;edit3.Text:=new_main.mima;edit2.Visible:=false;edit4.Visible:=false;button1.Visible:=false;button3.Visible:=true;button4.Visible:=false;end;ifnew_main.i=300thenbeginlabel5.Visible:=false;combobox1.Visible:=false;combobox2.Visible:=false;edit1.Visible:=true;edit1.Text:=new_main.user;edit1.Enabled:=false;button1.Visible:=true;button3.Visible:=false;button4.Visible:=false;end;end;procedureTuserfrm.ComboBox1Change(Sender:TObject);//职称begintrydatafrm.ADOConnection1.Close;datafrm.ADOConnection1.LoginPrompt:=false;datafrm.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=sa;PersistSecurityInfo=True;UserID=sa;InitialCatalog=db_NewStudent;DataSource=.';datafrm.ADOQuery1.Connection:=datafrm.ADOConnection1;datafrm.ADOQuery1.SQL.Clear;datafrm.ADOQuery1.SQL.Add('selectdistinctnamefromtb_logwhereposition='''+combobox1.Items[combobox1.ItemIndex]+'''');datafrm.ADOQuery1.Prepared;datafrm.ADOQuery1.ExecSQL;datafrm.adoquery1.Active:=true;datasource1.DataSet:=datafrm.ADOQuery1;datafrm.ADOQuery1.First;combobox2.Items.Clear;whilenotdatafrm.ADOQuery1.Eofdobegincombobox2.Items.Add(datafrm.ADOQuery1['name']);datafrm.ADOQuery1.Next;end;exceptOnE:Exceptiondoshowmessage(e.Message);end;end;procedureTuserfrm.Button3Click(Sender:TObject);begintrydatafrm.ADOConnection1.Close;datafrm.ADOConnection1.LoginPrompt:=false;datafrm.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=sa;PersistSecurityInfo=True;UserID=sa;InitialCatalog=db_NewStudent;DataSource=.';datafrm.ADOQuery1.Connection:=datafrm.ADOConnection1;datafrm.ADOQuery1.SQL.Clear;datafrm.ADOQuery1.SQL.Add('deletefromtb_logwherename='''+trim(edit1.Text)+'''andmima='''+trim(edit3.Text)+'''');datafrm.ADOQuery1.ExecSQL;showmessage('删除成功！');exceptOnE:Exceptiondoshowmessage(e.Message);end;end;procedureTuserfrm.Button1Click(Sender:TObject);beginif(edit2.Text='')or(edit4.Text='')or(edit2.Text<>edit4.Text)or(edit3.Text<>new_main.mima)thenshowmessage('请写入完整信息！')elsebegintrydatafrm.ADOConnection1.Close;datafrm.ADOConnection1.LoginPrompt:=false;datafrm.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=sa;PersistSecurityInfo=True;UserID=sa;InitialCatalog=db_NewStudent;DataSource=.';datafrm.ADOQuery1.Connection:=datafrm.ADOConnection1;datafrm.ADOQuery1.SQL.Clear;datafrm.ADOQuery1.SQL.Add('updatetb_logsetmima='''+trim(edit4.Text)+'''wherename='''+trim(edit1.Text)+'''andmima='''+trim(edit3.Text)+'''');datafrm.ADOQuery1.ExecSQL;showmessage('修改成功！');exceptOnE:Exceptiondoshowmessage(e.Message);end;end;end;procedureTuserfrm.Button2Click(Sender:TObject);//取消beginclose;end;procedureTuserfrm.Button4Click(Sender:TObject);//添加beginif(edit2.Text='')or(combobox1.ItemIndex=-1)or(combobox2.ItemIndex=-1)or(edit4.Text='')or(edit2.Text<>edit4.Text)or(edit3.Text<>new_main.mima)thenshowmessage('请写入完整信息！')elsebegintrydatafrm.ADOConnection1.Close;datafrm.ADOConnection1.LoginPrompt:=false;datafrm.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=sa;PersistSecurityInfo=True;UserID=sa;InitialCatalog=db_NewStudent;DataSource=.';datafrm.ADOQuery1.Connection:=datafrm.ADOConnection1;datafrm.ADOQuery1.SQL.Clear;datafrm.ADOQuery1.SQL.Add('insertintotb_log(name,mima,position)values('''+combobox2.Items[combobox2.ItemIndex]+''','''+trim(edit4.Text)+''','''+combobox1.Items[combobox1.ItemIndex]+''')');datafrm.ADOQuery1.ExecSQL;showmessage('添加成功！');exceptOnE:Exceptiondoshowmessage(e.Message);end;end;end;end.3、个人信息操作（1）添加用户与删除用户procedureTstuFrm.BitBtn1Click(Sender:TObject);beginif(SnoEdit.Text='')or(SnameEdit.Text='')or(BrithEdit.Text='')or(CboxCsno.ItemIndex=-1)or(Cboxsex.ItemIndex=-1)or(CboxBud.ItemIndex=-1)or(CboxDsno.ItemIndex=-1)or(NatEdit.Text='')or(AddressEdit.Text='')or(CboxSpe.ItemIndex=-1)or(ConsistentEdit.Text='')or(GradeEdit.Text='')or(IDEdit.Text='')or(CboxDorm.ItemIndex=-1)or(CboxFresh.ItemIndex=-1)or(FnameEdit.Text='')or(FdateEdit.Text='')or(FworkEdit.Text='')or(MnameEdit.Text='')or(MdateEdit.Text='')or(MworkEdit.Text='')or(FaddressEdit.Text='')thenshowmessage('请输入完整信息!')elsebegintrydatafrm.ADOConnection1.Close;datafrm.ADOConnection1.LoginPrompt:=false;datafrm.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=sa2005;PersistSecurityInfo=True;UserID=sa;InitialCatalog=db_NewStudent;DataSource=';datafrm.ADOQuery1.Connection:=datafrm.ADOConnection1;ifdatafrm.ADOQuery1.Activethendatafrm.ADOQuery1.Close;datafrm.ADOQuery1.SQL.Clear;datafrm.ADOQuery1.SQL.Add('select*fromtb_basewhereSno='''+SnoEdit.Text+'''');//andDSno='''+CboxDsno.Items[CboxDsno.ItemIndex]+'''andSpeciatly='''+CboxSpe.Items[CboxSpe.ItemIndex]+'''andCSno='''+CboxSpe.Items[CboxSpe.ItemIndex]+'''');//datafrm.ADOQuery1.SQL.Add('andBulild='''+CboxBud.Items[CboxBud.ItemIndex]+'''andDormitory='''+CboxDorm.Items[CboxDorm.ItemIndex]+'''');datafrm.ADOQuery1.Open;datasource1.DataSet:=datafrm.ADOQuery1;//dbgrid1.DataSource:=datasource1;ifdatasource1.DataSet.RecordCount=0thenbegindatafrm.ADOQuery1.SQL.Clear;datafrm.ADOQuery1.SQL.Add('insertintotb_base(Sno,DSno,Speciatly,CSno,Bulild,Dormitory,BName,Sex,Nation,Brith,Polity,Consistent,Address,Grade,Fresh,Phone,ID)');datafrm.ADOQuery1.SQL.Add('values('''+trim(SnoEdit.Text)+''','''+CboxDsno.Items[CboxDsno.ItemIndex]+''','''+CboxSpe.Items[CboxSpe.ItemIndex]+''','''+CboxCsno.Items[CboxSpe.ItemIndex]+''','''+CboxBud.Items[CboxBud.ItemIndex]+''','''+CboxDorm.Items[CboxDorm.ItemIndex]+'''');datafrm.ADOQuery1.SQL.Add(','''+trim(SnameEdit.Text)+''','''+Cboxsex.Items[Cboxsex.ItemIndex]+''','''+trim(NatEdit.Text)+''','''+trim(BrithEdit.Text)+''','''+trim(PolityEdit.Text)+''','''+trim(ConsistentEdit.Text)+''','''+trim(AddressEdit.Text)+'''');datafrm.ADOQuery1.SQL.Add(','''+trim(GradeEdit.Text)+''','''+CboxFresh.Items[CboxFresh.ItemIndex]+''','''+trim(PhoneEdit.Text)+''','''+trim(IDEdit.Text)+''')');datafrm.ADOQuery1.Prepared;datafrm.ADOQuery1.ExecSQL;//datafrm.adoquery1.Active:=true;datafrm.ADOQuery1.SQL.Clear;datafrm.ADOQuery1.SQL.Add('insertintotb_family(Sno,Fname,FBDate,FWork,FPolity,Mname,MBDate,MWork,MPolity,Address,Phone)');datafrm.ADOQuery1.SQL.Add('values('''+trim(SnoEdit.Text)+''','''+trim(FnameEdit.Text)+''','''+trim(FdateEdit.Text)+''','''+trim(FworkEdit.Text)+''','''+trim(FpolityEdit.Text)+''','''+trim(MnameEdit.Text)+'''');datafrm.ADOQuery1.SQL.Add(','''+trim(MdateEdit.Text)+''','''+trim(MworkEdit.Text)+''','''+trim(MpolityEdit.Text)+''','''+trim(FaddressEdit.Text)+''','''+trim(Fphone.Text)+''')');datafrm.ADOQuery1.Prepared;datafrm.ADOQuery1.ExecSQL;datafrm.ADOQuery1.SQL.Clear;datafrm.ADOQuery1.SQL.Add('insertintotb_log(name,mima,position)values('''+snoedit.Text+''',''123000'',''学生'')');datafrm.ADOQuery1.Prepared;datafrm.ADOQuery1.ExecSQL;showmessage('插入成功');endelseifnew_main.i<>1thenshowmessage('不能重复插入')elsebegindatafrm.ADOQuery1.SQL.Clear;datafrm.ADOQuery1.SQL.Add('deletefromtb_basewhereSno='''+SnoEdit.Text+'''');datafrm.ADOQuery1.ExecSQL;datafrm.ADOQuery1.SQL.Clear;datafrm.ADOQuery1.SQL.Add('insertintotb_base(Sno,DSno,Speciatly,CSno,Bulild,Dormitory,BName,Sex,Nation,Brith,Polity,Consistent,Address,Grade,Fresh,Phone,ID)');datafrm.ADOQuery1.SQL.Add('values('''+trim(SnoEdit.Text)+''','''+CboxDsno.Items[CboxDsno.ItemIndex]+''','''+CboxSpe.Items[CboxSpe.ItemIndex]+''','''+CboxCsno.Items[CboxSpe.ItemIndex]+''','''+CboxBud.Items[CboxBud.ItemIndex]+''','''+CboxDorm.Items[CboxDorm.ItemIndex]+'''');datafrm.ADOQuery1.SQL.Add(','''+trim(SnameEdit.Text)+''','''+Cboxsex.Items[Cboxsex.ItemIndex]+''','''+trim(NatEdit.Text)+''','''+trim(BrithEdit.Text)+''','''+trim(PolityEdit.Text)+''','''+trim(ConsistentEdit.Text)+''','''+trim(AddressEdit.Text)+'''');datafrm.ADOQuery1.SQL.Add(','''+trim(GradeEdit.Text)+''','''+CboxFresh.Items[CboxFresh.ItemIndex]+''','''+trim(PhoneEdit.Text)+''','''+trim(IDEdit.Text)+''')');datafrm.ADOQuery1.Prepared;datafrm.ADOQuery1.ExecSQL;datafrm.ADOQuery1.SQL.Clear;datafrm.ADOQuery1.SQL.Add('insertintotb_family(Sno,Fname,FBDate,FWork,FPolity,Mname,MBDate,MWork,MPolity,Address,Phone)');datafrm.ADOQuery1.SQL.Add('values('''+trim(SnoEdit.Text)+''','''+trim(FnameEdit.Text)+''','''+trim(FdateEdit.Text)+''','''+trim(FworkEdit.Text)+''','''+trim(FpolityEdit.Text)+''','''+trim(MnameEdit.Text)+'''');datafrm.ADOQuery1.SQL.Add(','''+trim(MdateEdit.Text)+''','''+trim(MworkEdit.Text)+''','''+trim(MpolityEdit.Text)+''','''+trim(FaddressEdit.Text)+''','''+trim(Fphone.Text)+''')');datafrm.ADOQuery1.Prepared;datafrm.ADOQuery1.ExecSQL;showmessage('修改成功!')endexceptOnE:Exceptiondoshowmessage(e.Message);end;end;end;procedureTstuFrm.GradeEditKeyPress(Sender:TObject;varKey:Char);beginifnot(keyin[#48..#57,#8])thenkey:=#0;end;procedureTstuFrm.BrithEditKeyPress(Sender:TObject;varKey:Char);beginifnot(keyin[#48..#57,#8])thenkey:=#0;end;procedureTstuFrm.PhoneEditKeyPress(Sender:TObject;varKey:Char);beginifnot(keyin[#48..#57,#8])thenkey:=#0;end;procedureTstuFrm.FdateEditKeyPress(Sender:TObject;varKey:Char);beginifnot(keyin[#48..#57,#8])thenkey:=#0;end;procedureTstuFrm.MdateEditKeyPress(Sender:TObject;varKey:Char);beginifnot(keyin[#48..#57,#8])thenkey:=#0;end;procedureTstuFrm.refresh;beginSnoEdit.Text:='';SnameEdit.Text:='';NatEdit.Text:='';ConsistentEdit.Text:='';GradeEdit.Text:='';BrithEdit.Text:='';PolityEdit.Text:='';AddressEdit.Text:='';PhoneEdit.Text:='';IDEdit.Text:='';FnameEdit.Text:='';FdateEdit.Text:='';FworkEdit.Text:='';FpolityEdit.Text:='';MnameEdit.Text:='';MdateEdit.Text:='';MworkEdit.Text:='';MpolityEdit.Text:='';FaddressEdit.Text:='';Fphone.Text:='';CboxDsno.ItemIndex:=-1;cboxdsno.Items.Clear;CboxSpe.ItemIndex:=-1;CboxSpe.Items.Clear;cboxcsno.ItemIndex:=-1;cboxcsno.Items.Clear;CboxBud.ItemIndex:=-1;CboxBud.Items.Clear;CboxDorm.ItemIndex:=-1;CboxDorm.Items.Clear;Cboxsex.ItemIndex:=-1;CboxFresh.ItemIndex:=-1;trydatafrm.ADOConnection1.Close;datafrm.ADOConnection1.LoginPrompt:=false;datafrm.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=sa2005;PersistSecurityInfo=True;UserID=sa;InitialCatalog=db_NewStudent;DataSource=';datafrm.ADOQuery1.Connection:=datafrm.ADOConnection1;datafrm.ADOQuery1.SQL.Clear;datafrm.ADOQuery1.SQL.Add('selectdistinctdsnofromtb_sdept');datafrm.ADOQuery1.Prepared;datafrm.ADOQuery1.ExecSQL;datafrm.adoquery1.Active:=true;datasource1.DataSet:=datafrm.ADOQuery1;datafrm.ADOQuery1.First;cboxdsno.Items.Clear;whilenotdatafrm.ADOQuery1.EofdobeginCboxDsno.Items.Add(datafrm.ADOQuery1['Dsno']);datafrm.ADOQuery1.Next;end;//宿舍信息datafrm.ADOQuery1.SQL.Clear;datafrm.ADOQuery1.SQL.Add('selectdistinctbulildfromtb_dorm');datafrm.ADOQuery1.Prepared;datafrm.ADOQuery1.ExecSQL;datafrm.adoquery1.Active:=true;datasource1.DataSet:=datafrm.ADOQuery1;datafrm.ADOQuery1.First;cboxbud.Items.Clear;whilenotdatafrm.ADOQuery1.EofdobeginCboxBud.Items.Add(datafrm.ADOQuery1['Bulild']);datafrm.ADOQuery1.Next;end;exceptOnE:Exceptiondoshowmessage(e.Message);end;datafrm.ADOQuery1.Close;end;procedureTstuFrm.CboxDsnoChange(Sender:TObject);begintrydatafrm.ADOConnection1.Close;datafrm.ADOConnection1.LoginPrompt:=false;datafrm.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=sa2005;PersistSecurityInfo=True;UserID=sa;InitialCatalog=db_NewStudent;DataSource=';datafrm.ADOQuery1.Connection:=datafrm.ADOConnection1;datafrm.ADOQuery1.SQL.Clear;datafrm.ADOQuery1.SQL.Add('selectdistinctspeciatlyfromtb_sdeptwhereDsno='''+CboxDsno.Items[CboxDsno.ItemIndex]+'''');datafrm.ADOQuery1.Prepared;datafrm.ADOQuery1.ExecSQL;datafrm.adoquery1.Active:=true;datasource1.DataSet:=datafrm.ADOQuery1;//dbgrid1.DataSource:=datasource1;datafrm.ADOQuery1.First;cboxcsno.Items.Clear;cboxspe.Items.Clear;whilenotdatafrm.ADOQuery1.EofdobeginCboxSpe.Items.Add(datafrm.ADOQuery1['Speciatly']);datafrm.ADOQuery1.Next;end;exceptOnE:Exceptiondoshowmessage(e.Message);end;end;procedureTstuFrm.CboxSpeChange(Sender:TObject);begintrydatafrm.ADOConnection1.Close;datafrm.ADOConnection1.LoginPrompt:=false;datafrm.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=sa2005;PersistSecurityInfo=True;UserID=sa;InitialCatalog=db_NewStudent;DataSource=';datafrm.ADOQuery1.Connection:=datafrm.ADOConnection1;datafrm.ADOQuery1.SQL.Clear;datafrm.ADOQuery1.SQL.Add('selectdistinctcsnofromtb_sdeptwhereDsno='''+CboxDsno.Items[CboxDsno.ItemIndex]+'''andSpeciatly='''+CboxSpe.Items[CboxSpe.Ite