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

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