delphi課程設(shè)計(jì)報(bào)表

年4月19日delphi課程設(shè)計(jì)報(bào)表文檔僅供參考課程設(shè)計(jì)任務(wù)書題目：學(xué)生宿舍管理系統(tǒng)學(xué)號(hào)：12230312姓名：賀言君專業(yè)：計(jì)算機(jī)科學(xué)與技術(shù)課程：delphi程序設(shè)計(jì)指導(dǎo)教師：燕孝飛職稱：完成時(shí)間：12月1日——12月27日棗莊學(xué)院計(jì)算機(jī)科學(xué)系制課程設(shè)計(jì)任務(wù)書及成績(jī)?cè)u(píng)定課程設(shè)計(jì)的任務(wù)和具體要求在現(xiàn)代的高校宿舍管理工作中，由于高校擴(kuò)招，學(xué)生人數(shù)巨增，傳統(tǒng)的管理方法已經(jīng)不適合高校宿舍管理的需要，以前在管理方面采用的管理系統(tǒng)有一些落后，隨著學(xué)生人數(shù)的不斷增加，該系統(tǒng)在數(shù)據(jù)管理方面有一些混亂，越來越不能適宜管理的需要，因此需要一個(gè)功能更完善，操作更方便，容量更大的管理信息系統(tǒng)。因此宿舍管理系統(tǒng)是各大高校所需要使用的一個(gè)管理系統(tǒng)．由于宿舍系統(tǒng)是一個(gè)比較大型的信息管理系統(tǒng)，它需要專業(yè)的工作人員才能完成復(fù)雜的功能，而且不同的高校的管理內(nèi)容和方式有所不同．信息系統(tǒng)分析與設(shè)計(jì)是學(xué)習(xí)完《信息系統(tǒng)分析與設(shè)計(jì)》課程后進(jìn)行的一次全面的綜合練習(xí)。其目的在于加深對(duì)信息系統(tǒng)基礎(chǔ)理論和基本知識(shí)的理解，初步掌握使用信息系統(tǒng)分析、設(shè)計(jì)的基本內(nèi)容和方法，提高解決實(shí)際問題的能力。作為學(xué)習(xí)，我們?cè)O(shè)計(jì)這個(gè)管理系統(tǒng)不可能作一個(gè)標(biāo)準(zhǔn)的應(yīng)用系統(tǒng)，而只是制作了一個(gè)有一般代表意義的小型宿舍管理系統(tǒng)．這樣既深化了理論知識(shí)也提高了實(shí)踐能力．指導(dǎo)教師簽字：__________日期：__________指導(dǎo)教師評(píng)語(yǔ)成績(jī)：_______指導(dǎo)教師簽字：_______日期：_______課程設(shè)計(jì)所需軟件、硬件等此管理系統(tǒng)采用delphi7設(shè)計(jì)前臺(tái)界面，SQLServer開發(fā)數(shù)據(jù)庫(kù)因此采用的軟件及語(yǔ)言如下：系統(tǒng)：WindowsXP語(yǔ)言：SQL語(yǔ)言、Pascal語(yǔ)言開發(fā)工具：SQLServer，delphi7等課程設(shè)計(jì)進(jìn)度計(jì)劃起至日期工作內(nèi)容備注12月1日—5日12月6日—9日12月10日—11日12月12日—23日12月24日—27日確定課題并搜集相關(guān)資料分析后臺(tái)數(shù)據(jù)庫(kù)需求總體功能的設(shè)計(jì)各個(gè)功能模塊的設(shè)計(jì)撰寫課程設(shè)計(jì)略參考文獻(xiàn)，資料索引序號(hào)文獻(xiàn)、資料名稱編著者出版單位[1]李目海，delphi應(yīng)用程序設(shè)計(jì),棗莊學(xué)院計(jì)算機(jī)科學(xué)系[2]陳豫龍何旭洪，delphi數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)實(shí)例導(dǎo)航（第二版），人民郵電出版社[3]劉子銳，\o"閃四清編著"delphi數(shù)據(jù)開發(fā)自學(xué)教程，人民郵電出版社一、摘要宿舍管理系統(tǒng)是當(dāng)前各所高校后勤管理之中的重要部分,如何能科學(xué)有效的開展學(xué)生公寓管理工作,是當(dāng)前高校領(lǐng)導(dǎo)人和后勤管理人員關(guān)心的問題?因此,公寓管理工作的信息化和科學(xué)化有著十分重要的實(shí)踐意義,此次開發(fā)的大公寓管理信息系統(tǒng),旨在實(shí)現(xiàn)對(duì)現(xiàn)有的宿舍管理系統(tǒng)中遇到的宿舍信息情況和大量數(shù)據(jù)進(jìn)行數(shù)據(jù)存儲(chǔ)的基礎(chǔ)上,設(shè)計(jì)并完成對(duì)其宿舍信息的分類?查詢,添加,刪除，修改和打印報(bào)表在深入研究的過程中,盡可能實(shí)現(xiàn)方便友好的操作界面和數(shù)據(jù)報(bào)表?該系統(tǒng)運(yùn)用DELPHI7技術(shù),以MicrosoftSQLServer為后臺(tái)數(shù)據(jù)庫(kù),開發(fā)了一套為高校服務(wù)的公寓管理信息系統(tǒng)。利用該系統(tǒng)大大的加強(qiáng)管理部門的相互溝通能力，提高工作效率，減少不必要的重復(fù)勞動(dòng)，加速信息的記錄、查閱以及傳播速度，實(shí)現(xiàn)人性化管理和溝通服務(wù)管理的一種實(shí)用型管理軟件。管理信息系統(tǒng)是一個(gè)由人和計(jì)算機(jī)軟件硬件資源組成的人機(jī)系統(tǒng)，能進(jìn)行管理信息的收集、傳遞、加工、保存、維護(hù)和使用，提供信息支持單位的運(yùn)行、管理和決策的功能。在強(qiáng)調(diào)管理、調(diào)信息的現(xiàn)代社會(huì)中，管理信息系統(tǒng)變得越來越普及，能夠說它是一門新的學(xué)科，跨越了若干個(gè)領(lǐng)域，如管理科學(xué)、系統(tǒng)科學(xué)、統(tǒng)計(jì)學(xué)以及計(jì)算機(jī)科學(xué)等，并在這些學(xué)科的基礎(chǔ)上，形成信息收集和加工的方法，從而形成一個(gè)縱橫交織的系統(tǒng)。在傳統(tǒng)的業(yè)務(wù)流程中，數(shù)據(jù)信息附著于業(yè)務(wù)流程之上，這是一種效率很低的數(shù)據(jù)處理方法；實(shí)現(xiàn)了辦公自動(dòng)化之后，雖然很多業(yè)務(wù)數(shù)據(jù)電子化了，可是不借助數(shù)據(jù)庫(kù)的幫助，數(shù)據(jù)信息依然附著于業(yè)務(wù)流程之上，雖然能夠以文件等形式將電子化的數(shù)據(jù)存儲(chǔ)，可是數(shù)據(jù)的再利用效率很低，而且也無(wú)法從這些無(wú)序的數(shù)據(jù)中提取進(jìn)一步的信息；當(dāng)建立了數(shù)據(jù)庫(kù)系統(tǒng)之后，數(shù)據(jù)終于脫離業(yè)務(wù)流程而獨(dú)立存在。人們不但能夠經(jīng)過管理信息系統(tǒng)將其儲(chǔ)存于數(shù)據(jù)庫(kù)之中，而且還能夠?qū)ζ浞奖愕卦倮?。隨著社會(huì)對(duì)人才需求的增加，以及高校的全面擴(kuò)招，在校學(xué)生人數(shù)劇增，這給高校的后勤管理，特別是對(duì)學(xué)生公寓的管理帶來很大的壓力。學(xué)生公寓的管理是一項(xiàng)非常煩瑣的工作，但又是高校發(fā)展畢不可少的一部分。在學(xué)生公寓管理工作中，很大一部分是重復(fù)性的勞動(dòng)，完全能夠經(jīng)過計(jì)算機(jī)信息技術(shù)來取代人工進(jìn)行這些工作，從而是管理人員將更多的精力集中在如何提高服務(wù)質(zhì)量方面。學(xué)生公寓管理系統(tǒng)就是為了滿足這個(gè)需求而開發(fā)的一個(gè)管理信息系統(tǒng)。二、目錄1.摘要…………42.目錄…………53.正文…………63.1系統(tǒng)功能設(shè)計(jì)………63.2數(shù)據(jù)庫(kù)設(shè)計(jì)…73.3系統(tǒng)主界面設(shè)計(jì)…73.4系統(tǒng)功能模塊設(shè)計(jì)…73.5其它設(shè)計(jì)功能…154.實(shí)驗(yàn)中出現(xiàn)的問題及解決方法……165.結(jié)束語(yǔ)………………16三、正文1.系統(tǒng)功能設(shè)計(jì)用戶登錄界面系控制界面查詢管理模塊:學(xué)生查詢管理模塊:學(xué)生信息查詢宿舍信息操作離校學(xué)生查詢來訪信息查詢夜歸學(xué)生查詢用戶管理退出系統(tǒng)宿舍管理來訪管理學(xué)生管理查詢管理打印報(bào)表幫助信息圖1-1系統(tǒng)功能模塊圖右圖為查詢管理子模塊：在本系統(tǒng)中，將實(shí)現(xiàn)以下功能：學(xué)生住宿信息管理．刪除記錄管理．學(xué)生綜合信息查詢．2.數(shù)據(jù)庫(kù)設(shè)計(jì)在sqlserver中建立了一個(gè)學(xué)生宿舍管理數(shù)據(jù)庫(kù)，數(shù)據(jù)表如下所示：用戶信息表（賬戶，密碼，身份）住宿學(xué)生（學(xué)號(hào)，姓名，性別，專業(yè)，宿舍號(hào)，入住時(shí)間）宿舍（宿舍號(hào)，宿舍電話）夜歸（學(xué)號(hào)，宿舍號(hào)，晚歸時(shí)間，晚歸原因）離校（學(xué)號(hào)，宿舍號(hào)，離校時(shí)間，返回時(shí)間）來訪者（姓名，身份證，來訪時(shí)間，離開時(shí)間）系統(tǒng)主界面設(shè)計(jì)包括菜單欄（mainmenu）、狀態(tài)欄（toolbar）、工具欄（statusbar）三大部分，其中還添加了imagelist，timer等組件，進(jìn)行輔助的設(shè)計(jì)。4.系統(tǒng)功能模塊設(shè)計(jì)1）用戶登錄模塊用戶登錄窗體如圖所示：各組件的添加省略，下面只給出主要的代碼：“管理員登錄”按鈕代碼：procedureTForm2.Button3Click(Sender:TObject);beginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add('select*fromuser_infowhereuser_na='''+uname.Text+'''anduser_pwd='''+pword.Text+'''anduser_des='''+combobox2.Text+'''');adoquery1.Open;if(uname.Text='')or(pword.Text='')or(combobox2.Text='')thenshowmessage('輸入的用戶名或密碼不能為空')elseifadoquery1.Recordset.RecordCount=0thenshowmessage('用戶名或密碼輸入錯(cuò)誤')elsebeginform2.FreeOnRelease;form2.Visible:=false;form1.MainMenu1.Items[4].Visible:=false;form1.ShowModal;end;end;“游客登錄”按鈕代碼：procedureTForm2.ComboBox2Click(Sender:TObject);beginifcombobox2.Text='游客'thenbeginbutton3.Enabled:=false;button1.Enabled:=trueendelsebeginbutton1.Enabled:=false;button3.Enabled:=true;end;end;2）添加用戶功能模塊用戶管理窗口“添加用戶”按鈕代碼：procedureTForm4.Button2Click(Sender:TObject);beginWithADOQuery1dobeginClose;SQL.Clear;SQL.Add('InsertIntouser_info(user_na,user_pwd,user_des)');SQL.Add('Values('''+edit1.Text+''','''+edit2.Text+''','''+combobox1.Text+''')');ExecSQL;showmessage('添加成功');end;end;3）管理功能模塊下面宿舍信息管理子功能為例，其它管理只給出窗體設(shè)計(jì)功能代碼類似。宿舍管理“插入”按鈕代碼：procedureTForm9.Button2Click(Sender:TObject);beginif(edit1.Text='')or(edit2.Text='')thenshowmessage('不能為空')elsebeginadotable1.append;ADOTable1.FieldByName('dorm_no').asstring:=vartostr(edit1.Text);ADOTable1.FieldByName('dorm_tel').asstring:=vartostr(edit2.Text);adotable1.post;endend;“顯示所有”按鈕代碼：procedureTForm9.Button6Click(Sender:TObject);beginadotable1.Filtered:=false;MessageBox(handle,'查詢完畢！','提示',MB_OKorMB_ICONINFORMATION);edit1.Text:='';edit2.Text:='';edit3.Text:='';end;“查找”按鈕代碼：procedureTForm9.Button5Click(Sender:TObject);beginifadotable1.ActivethenbeginifnotADOTable1.Locate('dorm_no',Edit3.Text,[loCaseInsensitive,loPartialKey])thenshowmessage('對(duì)不起，沒有您要查找的記錄！')elsebeginADOTable1.Filter:='dorm_no='+QuotedStr(Edit3.Text);ADOTable1.Filtered:=True;endendelseshowmessage('系統(tǒng)錯(cuò)誤');end;“刪除”按鈕代碼：procedureTForm9.Button3Click(Sender:TObject);beginifmessagedlg('確實(shí)要?jiǎng)h除嗎？',mtinformation,[mbyes,mbno],0)=mryesthenadotable1.Deleteelseedit3.Text:='';end;“返回”按鈕代碼：procedureTForm9.Button1Click(Sender:TObject);beginedit1.Text:='';edit2.Text:='';edit3.Text:='';FreeOnRelease;form9.Visible:=false;form1.Show;end;來訪者管理子模塊功能與上面的累類似，在此省略介紹。下面是分別是離校學(xué)生管理與夜歸學(xué)生管理兩個(gè)子模塊，都采用了DBnavigator組件，設(shè)置較簡(jiǎn)單，省了編寫代碼，具體設(shè)置在此不做介紹。下面是學(xué)生信息管理子模塊，與宿舍管理模塊功能類似。4）查詢功能模塊下面是查詢功能模塊，首先是學(xué)生信息查詢，主要同過label組件與edit組件進(jìn)行分類查找，來訪信息查詢與宿舍信息查詢由于數(shù)據(jù)單一，因此只進(jìn)行單方面的查找，離校與夜歸學(xué)生查詢采用了combobox組件與edit組件配合，實(shí)現(xiàn)分類查尋，具體代碼設(shè)計(jì)如下：第一個(gè)“查找”按鈕代碼：procedureTForm10.Button2Click(Sender:TObject);beginifadotable1.ActivethenbeginifnotADOTable1.Locate('s_no',Edit1.Text,[loCaseInsensitive,loPartialKey])thenshowmessage('對(duì)不起，沒有您要查找的記錄！')elsebeginADOTable1.Filter:='s_no='+QuotedStr(Edit1.Text);ADOTable1.Filtered:=True;endendelseshowmessage('系統(tǒng)錯(cuò)誤');end;“顯示所有”按鈕代碼：procedureTForm10.Button5Click(Sender:TObject);beginadotable1.Filtered:=false;MessageBox(handle,'查詢完畢！','提示',MB_OKorMB_ICONINFORMATION);edit1.Text:='';edit2.Text:='';edit3.Text:='';end;以上兩個(gè)模塊的功能與第一個(gè)類似，在此省略介紹?！安檎摇卑粹o代碼：procedureTForm15.Button1Click(Sender:TObject);beginifadotable1.Active=truethenbeginifcombobox1.Text='學(xué)號(hào)'thenifadotable1.Locate('s_no',edit1.Text,[loCaseInsensitive,loPartialKey])thenbeginADOTable1.Filter:='s_no='+QuotedStr(Edit1.Text);ADOTable1.Filtered:=Trueendelseshowmessage('對(duì)不起，沒有您要查找的記錄！');ifadotable1.Active=truethenifcombobox1.Text='姓名'thenifadotable1.Locate('s_name',edit1.Text,[loCaseInsensitive,loPartialKey])thenbeginADOTable1.Filter:='s_name='+QuotedStr(Edit1.Text);ADOTable1.Filtered:=Trueendelseshowmessage('對(duì)不起，沒有您要查找的記錄！');ifadotable1.Active=truethenifcombobox1.Text='宿舍號(hào)'thenifadotable1.Locate('s_dorm_no',edit1.Text,[loCaseInsensitive,loPartialKey])thenbeginADOTable1.Filter:='s_dorm_no='+QuotedStr(Edit1.Text);ADOTable1.Filtered:=True;endelseshowmessage('對(duì)不起，沒有您要查找的記錄！');end;end;此模塊設(shè)計(jì)與上面的類似，在此省略介紹。5)報(bào)表的設(shè)計(jì)主要采用Ehlib組件包進(jìn)行開發(fā)，只要設(shè)置一些組件的屬性即可，簡(jiǎn)單易懂，在此省略具體設(shè)計(jì)步驟，設(shè)計(jì)圖如上面所示。6）其它設(shè)計(jì)功能采用互斥對(duì)象方法避免應(yīng)用程序重復(fù)啟動(dòng)varmutex:THandle;beginmutex:=createmutex(NIL,TRUE,'form1');ifgetlasterror<>ERROR_ALREADY_EXISTSthenbeginApplication.Initialize;Form3:=TForm3.Create(application);Form3.Show;form3.Update;sleep(100);Application.CreateForm(TForm2,Form2);Application.CreateForm(TForm1,Form1);Application.CreateForm(TForm16,Form