delphi課程設(shè)計(jì)-新生注冊管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)

棗莊學(xué)院信息科學(xué)與工程學(xué)院課程設(shè)計(jì)任務(wù)書題目：新生注冊管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)姓名：夏德成學(xué)號(hào)：201012110142專業(yè)班級(jí)：計(jì)算機(jī)科學(xué)與技術(shù)、2010級(jí)本1班課程：Delphi應(yīng)用程序設(shè)計(jì)指導(dǎo)教師：燕孝飛職稱：講師完成時(shí)間：2012年12月2013年1月棗莊學(xué)院信息科學(xué)與工程學(xué)院制2012年12月30日課程設(shè)計(jì)任務(wù)書及成績評定課程設(shè)計(jì)的任務(wù)和具體要求1內(nèi)容小型信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)(如學(xué)生信息管理系統(tǒng)、圖書管理系統(tǒng)、物資管理系統(tǒng)等，任選其一)。2、基本要求課程設(shè)計(jì)應(yīng)能反應(yīng)出學(xué)生綜合利用所學(xué)知識(shí)完成一定的設(shè)計(jì)任務(wù)的能力，反映出學(xué)生理論聯(lián)系實(shí)踐的動(dòng)手能力。具體要求如下：(1) 明確所要開發(fā)系統(tǒng)的設(shè)計(jì)任務(wù)；(2) 做好需求分析，合理選擇設(shè)計(jì)方案；(3) 合理設(shè)計(jì)數(shù)據(jù)庫中各個(gè)表的結(jié)構(gòu)及其關(guān)系；(4) 能夠設(shè)計(jì)出美觀大方的程序界面；(5) 養(yǎng)成良好的代碼書寫習(xí)慣；(6) 在編寫程序過程中應(yīng)注意相關(guān)文檔的編寫；(7) 綜合應(yīng)用Delphi各種組件實(shí)現(xiàn)程序功能；(8)認(rèn)真撰寫課程設(shè)計(jì)總結(jié)報(bào)告指導(dǎo)教師簽字：日期：指導(dǎo)教師評語成績：指導(dǎo)教師簽字：日期：課程設(shè)計(jì)所需軟件、硬件等硬件環(huán)境：Iterl(R)Core(TM)2DuoCPU，主頻2.31GHz；內(nèi)存3G；硬盤320G以上；1024×768顯示分辨率軟件環(huán)境：Delphi7.0SQLServer2005課程設(shè)計(jì)進(jìn)度計(jì)劃起至日期工作內(nèi)容備注2012年12月2013年1月查閱相關(guān)資料，編寫代碼，調(diào)試程序課本及網(wǎng)上資料，調(diào)試，改進(jìn)。參考文獻(xiàn)、資料索引序號(hào)文獻(xiàn)、資料名稱編著者出版單位[1]《Delphi應(yīng)用程序設(shè)計(jì)》李目海，電子科技大學(xué)出版社，2005[2]《Delphi程序設(shè)計(jì)實(shí)用教程》葉核亞，電子工業(yè)出版社，2005[3]《Delphi2005程序設(shè)計(jì)教程》劉瑞新編著，機(jī)械工業(yè)出版社，2004[4]《Delphi數(shù)據(jù)庫程序設(shè)計(jì)教程》劉瑞新張志綱張兵義編著，機(jī)械工業(yè)出版社，2004[5]《Delphi使用教程》鄭阿奇主編，電子工業(yè)出版社，2003[6]《Delphi7程序設(shè)計(jì)技巧與實(shí)例》吳天準(zhǔn)編著，中國鐵道出版社2003目錄一、新生注冊管理系統(tǒng)的簡介 1二、數(shù)據(jù)庫表的結(jié)構(gòu)描述及其關(guān)系 22.1數(shù)據(jù)需求 22.2系統(tǒng)E-R圖 3三、主要功能模塊圖 4四、主要功能的實(shí)現(xiàn)代碼 51、項(xiàng)目文件 52、用戶管理 6（1）用戶登錄 6（2）用戶刪除 73、個(gè)人信息操作 11（1）添加用戶與刪除用戶 11五、程序運(yùn)行效果及分析 201、登陸界面 202、主界面 203、學(xué)生基本信息管理 214、班級(jí)基本信息管理 215、學(xué)院基本信息管理 226、宿舍基本信息管理 227、信息查找及打印預(yù)覽 23八、結(jié)束語 24INDEX\o"S"\c"2"\z"2052"一、新生注冊管理系統(tǒng)的簡介新生注冊系統(tǒng)是典型的信息管理系統(tǒng),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。新生報(bào)到注冊是高校管理中一個(gè)極其重要的工作。高校規(guī)模的擴(kuò)大,招生人數(shù)的增加,過去新生報(bào)到的工作方式已不適應(yīng)現(xiàn)在的要求。過去新生的信息由人工填寫、整理、統(tǒng)計(jì),花費(fèi)了大量人力,影響報(bào)到的進(jìn)度?；谶@種情況,我們采用Delphi和SQL2005為開發(fā)工具,開發(fā)了一個(gè)新生報(bào)到注冊系統(tǒng),該系統(tǒng)具有新生信息輸入和查詢、入學(xué)管理、公寓安排管理、家庭信息管理等功能。文章介紹了新生注冊系統(tǒng)的開發(fā)背景，開發(fā)工具，所要完成的功能和開發(fā)過程。具體系統(tǒng)功能需求描述如下： (1)學(xué)生信息管理：每年的大量新生入學(xué)，老生畢業(yè)都需要處理大量的學(xué)生信息。通過這一模塊，可以實(shí)現(xiàn)學(xué)生基本情況的添加、刪除、更新。還能查詢各個(gè)學(xué)生的情況，姓名、家庭電話、家庭住址、學(xué)號(hào)等各個(gè)消息（2)家庭信息信息管理：實(shí)現(xiàn)學(xué)生信息的添加、刪除、修改等。它所依靠也就是外表是學(xué)生表。（3）管理員可以添加，刪除，修改任何信息。（4）每一個(gè)學(xué)院可以創(chuàng)建自己的班級(jí)，可以指定班號(hào)以及學(xué)院的專業(yè)等，也可以查看它自己的班級(jí)信息，學(xué)生信息。（5）每一個(gè)班級(jí)可以創(chuàng)建自己的班名稱，可以指定指導(dǎo)員，可以查看自己班級(jí)信息。(6)用戶登錄時(shí)會(huì)記住用戶的職稱，用戶名，密碼為限制它的操作做好準(zhǔn)備。(7)用戶管理：本模塊可以實(shí)現(xiàn)添加用戶，刪除用戶，密碼修改等功能(8)數(shù)據(jù)庫中的數(shù)據(jù)都用的是層疊，當(dāng)刪除上一級(jí)的數(shù)據(jù)時(shí)會(huì)同時(shí)刪除以它做為外碼的任何數(shù)據(jù)。這樣可以保證不會(huì)有數(shù)據(jù)錯(cuò)誤（比如說刪除一個(gè)學(xué)院后，以這個(gè)學(xué)院建立的所有的班級(jí)都會(huì)刪除，以這些班級(jí)建立的學(xué)生信息也會(huì)被刪除，可以減少操作，同時(shí)也保證正確）。（9）當(dāng)創(chuàng)建一個(gè)學(xué)院，班級(jí)或添加一個(gè)學(xué)生信息時(shí)，學(xué)院統(tǒng)將會(huì)自動(dòng)的給這個(gè)學(xué)院號(hào)，班號(hào)或?qū)W號(hào)添加一個(gè)密碼（其中學(xué)院自動(dòng)創(chuàng)建的密碼為123456，班級(jí)自動(dòng)創(chuàng)建的密碼為000123，學(xué)號(hào)的自動(dòng)創(chuàng)建的密碼為123000）二、數(shù)據(jù)庫表的結(jié)構(gòu)描述及其關(guān)系2.1數(shù)據(jù)需求根據(jù)系統(tǒng)的要求，首先將要記錄的信息分類，要記錄的信息如下：（1）登錄表：用戶名、密碼、職稱（2）學(xué)生基本信息表：學(xué)號(hào)、姓名、出生年月、學(xué)院號(hào)、性別、政治面貌、專業(yè)、民族、家庭住址、班號(hào)、籍貫、聯(lián)系電話、樓號(hào)、成績、身份證號(hào)、宿舍、應(yīng)往屆（3）班級(jí)基本信息表：學(xué)號(hào)、專業(yè)、班號(hào)、班級(jí)名稱、輔導(dǎo)員（4）宿舍基本信息表：樓號(hào)、宿舍號(hào)、可住人數(shù)、住宿費(fèi)用（5）家庭基本信息表：學(xué)號(hào)父親姓名、出生年月、工作單位、政治面貌母親姓名、出生年月、工作單位、政治面貌家庭住址、聯(lián)系電話（6）學(xué)院基本信息表：學(xué)院號(hào)、專業(yè)、班號(hào)、學(xué)院名根據(jù)這些需求，本系統(tǒng)需要6個(gè)表：“登錄表”用于用戶登錄，學(xué)生基本信息表、班級(jí)基本信息表、宿舍基本信息表、家庭基本信息表、學(xué)院基本信息表用于對學(xué)生基本信息的添加和管理、班級(jí)基本信息的添加和管理、宿舍基本信息的添加和管理、家庭基本信息的添加和管理、學(xué)員基本信息的添加和管理2.2系統(tǒng)E-R圖登錄表登錄表班級(jí)基本信息表學(xué)生基本信息表家庭基本信息表宿舍基本信息表學(xué)院基本信息表學(xué)號(hào)專業(yè)班號(hào)班級(jí)名稱輔導(dǎo)員用戶名密碼職稱學(xué)號(hào)姓名出生年月學(xué)院號(hào)性別政治面貌專業(yè)民族家庭住址班號(hào)籍貫聯(lián)系電話聯(lián)系電話樓號(hào)成績身份證號(hào)宿舍應(yīng)往屆學(xué)號(hào)父親姓名出生年月工作單位政治面貌母親姓名出生年月工作單位政治面貌家庭住址聯(lián)系電話樓號(hào)宿舍號(hào)可住人數(shù)住宿費(fèi)用學(xué)院號(hào)專業(yè)班號(hào)學(xué)院名三、主要功能模塊圖等待窗口等待窗口登錄窗口主窗口學(xué)生基本信息班級(jí)基本信息學(xué)院基本信息宿舍基本信息信息查找用戶管理關(guān)于….退出添加信息刪除信息更改信息宿舍信息學(xué)院信息班級(jí)信息學(xué)生信息修改密碼刪除用戶添加用戶四、主要功能的實(shí)現(xiàn)代碼1、項(xiàng)目文件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('你輸入的用戶名或密碼或職稱有錯(cuò)！')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、個(gè)人信息操作（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'',''學(xué)生'')');datafrm.ADOQuery1.Prepared;datafrm.ADOQuery1.ExecSQL;showmessage('插入成功');endelseifnew_main.i<>1thenshowmessage('不能重復(fù)插入')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