大學(xué)生社團(tuán)管理系統(tǒng)設(shè)計(jì)論文

1、課題的研究背景及意義大學(xué)生社團(tuán)是由高校學(xué)生依據(jù)興趣愛好自愿組成，按照章程自主開展活動的學(xué)生組織?！案咝W(xué)生社團(tuán)活動是實(shí)施素質(zhì)教育的重要途徑和有效方式，在加強(qiáng)校園文化建設(shè)、提高學(xué)生綜合素質(zhì)、引導(dǎo)學(xué)生適應(yīng)社會、促進(jìn)學(xué)生成才就業(yè)等方面發(fā)揮著重要作用，是新形勢下有效凝聚學(xué)生、開展思想政治教育的重要組織動員方式，是以班級年級為主開展學(xué)生思想政治教育的重要補(bǔ)充”。學(xué)生社團(tuán)作為繁榮校園文化、促進(jìn)學(xué)生全面發(fā)展的有效載體，鍛煉了學(xué)生的社會能力，培養(yǎng)了他們樂群互助的合作精神，其地位和作用越來越受到人們的普遍重視。 并且隨著我國社會主義市場經(jīng)濟(jì)和高等教育的發(fā)展，特別是高校大規(guī)模擴(kuò)招，高校學(xué)生社團(tuán)的種類、數(shù)量越來越多

2、，作用也越來越大。學(xué)生社團(tuán)已經(jīng)成為高校校園文化的一道亮麗的風(fēng)景線。但當(dāng)前我國高校學(xué)生社團(tuán)發(fā)展中也存在不少問題，如“數(shù)量少”、“活動方式單一”、“資金短缺，物質(zhì)條件較差”、“管理不規(guī)范”等一系列問題。如何更好地利用大學(xué)生社團(tuán)的組織和活動，將其建設(shè)成為進(jìn)行思想教育的有利陣地、學(xué)術(shù)探討思想交流的第二課堂，是高校學(xué)生工作的一個(gè)重要課題。正如中共中央國務(wù)院關(guān)于進(jìn)一步加強(qiáng)和改進(jìn)大學(xué)生思想政治教育的意見所指出，“要加強(qiáng)對社團(tuán)的領(lǐng)導(dǎo)和管理，幫助大學(xué)生社團(tuán)選聘指導(dǎo)老師，支持和引導(dǎo)大學(xué)生社團(tuán)自主開展活動”。 同時(shí)，美國是世界高等教育最發(fā)達(dá)的國家之一，大學(xué)已經(jīng)成為美國科研的主要基地，承擔(dān)了全國60%以上的基礎(chǔ)研究任

3、務(wù)。而且，美國是一個(gè)崇尚組織社團(tuán)的國家，其社團(tuán)組織形成可追溯到殖民地時(shí)期。在這些因素的影響下，美國高校的學(xué)生社團(tuán)種類、數(shù)量、活動方式等明顯多于其他國家高校，其學(xué)生社團(tuán)管理體系也較為健全，形成了一套獨(dú)特的管理和輔導(dǎo)模式。美國大學(xué)對學(xué)生社團(tuán)一般都積極地予以鼓勵與支援。如美國最有影響力的哈佛大學(xué)就擁有600多個(gè)學(xué)生社團(tuán)。美國大學(xué)培養(yǎng)出眾多的政界、商界、科技界、文藝界領(lǐng)軍人物，其中大多數(shù)曾是學(xué)生社團(tuán)活動的積極分子，如尼克松、卡特、肯尼迪等都曾是學(xué)校社團(tuán)活動的風(fēng)云人物。而且由于中美兩國在社會制度和意識形態(tài)上的本質(zhì)區(qū)別，使得兩國高校的學(xué)生社團(tuán)也有著各自本質(zhì)的特點(diǎn)。而通過比較研究，盡可能在厘清各自歷史發(fā)展沿

4、革、現(xiàn)有發(fā)展?fàn)顮?、宏觀管理政策、微觀運(yùn)營方面的區(qū)別，從而將各自內(nèi)在的結(jié)構(gòu)性優(yōu)勢與不足進(jìn)一步明朗化，從而有助于我們借鑒美國高校學(xué)生社團(tuán)的成功經(jīng)驗(yàn)和運(yùn)作模式，加強(qiáng)我國高校學(xué)生社團(tuán)的管理，進(jìn)一步推動學(xué)生社團(tuán)的良性發(fā)展。開發(fā)的可行性研究可行性研究的目的，就是用最小的代價(jià)在盡可能短的時(shí)間內(nèi)確定問題是否能夠解決。要達(dá)到這個(gè)目的，必須分析幾種主要的可能解法的利弊，從而判斷原定的系統(tǒng)規(guī)模和目標(biāo)是否現(xiàn)實(shí)，系統(tǒng)完成后所能帶來的效益是否大到值得投資開發(fā)這個(gè)系統(tǒng)的程度。因此，可行性研究實(shí)質(zhì)上是要進(jìn)行一次大大壓縮簡化了的系統(tǒng)分析和設(shè)計(jì)的過程，也就是在較高層次上以較抽象的方式進(jìn)行的系統(tǒng)分析和設(shè)計(jì)的過程。系統(tǒng)的可行性分析主

5、要包括技術(shù)可行性、經(jīng)濟(jì)可行性、操作可行性和法律可行性。本系統(tǒng)的可行性分析如下：技術(shù)可行性本系統(tǒng)開發(fā)工具使用delphi7.0，使用的語言pascal加上sql查詢語句。pascal語言語法嚴(yán)格，結(jié)構(gòu)嚴(yán)密，非常適合我們學(xué)生使用。本系統(tǒng)所使用數(shù)據(jù)庫為access2003，該數(shù)據(jù)庫結(jié)構(gòu)體小，操作簡單，易于編程。此外，本系統(tǒng)沒有使用delphi7.0自帶的rave報(bào)表，因?yàn)閞ave報(bào)表一般只能用來制作簡單的靜態(tài)報(bào)表，而且在報(bào)表格式上設(shè)置比較麻煩，用程序來控制尤為困難，而且容易出錯，故而本人使用控件導(dǎo)出至excel模板，形成報(bào)表，易于格式設(shè)置及編輯排版。由上可以看出利用開發(fā)這個(gè)系統(tǒng)在技術(shù)上是可行的。經(jīng)濟(jì)

6、可行性從本平臺開發(fā)的角度出發(fā)，平臺開發(fā)所需資金甚少，在人力方面只需一人大約花三四個(gè)月的時(shí)間進(jìn)行設(shè)計(jì)與實(shí)現(xiàn)，而在軟硬件方面只需一臺計(jì)算機(jī)(硬件：cpu內(nèi)存：512mb硬盤：80g)和相關(guān)的軟件(windows xp+access20030ffice2003)即可。相對實(shí)現(xiàn)這個(gè)系統(tǒng)后學(xué)校和學(xué)生帶來的方便和好處，這些經(jīng)濟(jì)的投入是可行并值得的。開發(fā)本系統(tǒng)需要一臺個(gè)人電腦和相應(yīng)的軟件即可，并且開發(fā)的時(shí)間不是很長。綜上所述，開發(fā)該系統(tǒng)在經(jīng)濟(jì)上是可以實(shí)現(xiàn)的。操作可行性：在系統(tǒng)設(shè)計(jì)和實(shí)現(xiàn)前三個(gè)星期主要是以看書以及收集有關(guān)系統(tǒng)方面的資料為主，接下來就是對系統(tǒng)的分析，做數(shù)據(jù)庫，界面，以及中間的連接。該系統(tǒng)面向全校

7、師生，用戶無需進(jìn)行培訓(xùn)，只要具備一定的計(jì)算機(jī)基礎(chǔ)知識即可，適用范圍比較廣，由此可認(rèn)為該系統(tǒng)在操作性上是可行的。法律可行性：這個(gè)大學(xué)生社團(tuán)管理系統(tǒng)由本人設(shè)計(jì)和開發(fā)而成，在法律上并未侵害他人權(quán)利，無須承擔(dān)任何法律責(zé)任，所以在法律方面開發(fā)此系統(tǒng)是完全可行的。課題需求分析大學(xué)生社團(tuán)以“繁榮校園文化，打造社團(tuán)品牌，推進(jìn)素質(zhì)拓展，服務(wù)廣大同學(xué)”為宗旨，以實(shí)現(xiàn)大學(xué)學(xué)生社團(tuán)的自我管理、自我監(jiān)督、自我發(fā)展為目標(biāo)，通過多層面組織引導(dǎo)學(xué)生社團(tuán)活動，進(jìn)行能力培養(yǎng)，提高大學(xué)生思想覺悟，增強(qiáng)大學(xué)生的綜合素質(zhì)。 大學(xué)生社團(tuán)的基本任務(wù)（職能）： 1、貫徹、執(zhí)行校團(tuán)委關(guān)于學(xué)生社團(tuán)活動的任務(wù)、方針和措施，并積極主動開展有利于社團(tuán)

8、發(fā)展的工作； 2、處理學(xué)生社團(tuán)的日常事務(wù)，鞏固、監(jiān)督、評議社團(tuán)及社團(tuán)活動； 3、倡導(dǎo)、組織、監(jiān)督各社團(tuán)多層次開展健康向上、豐富多彩的校園文化和社會實(shí)踐活動，使社團(tuán)切實(shí)豐富同學(xué)們的第二課堂生活，提高校園科技文化氣氛，形成校園特色文化服務(wù)； 4、代表本校所有社團(tuán)的正當(dāng)、合法的利益和意志，表達(dá)和維護(hù)各社團(tuán)利益，協(xié)調(diào)學(xué)校與社團(tuán)之間、社團(tuán)與社團(tuán)之間、社團(tuán)與社會之間的關(guān)系，為社團(tuán)活動的開展創(chuàng)造良好的環(huán)境。 5、代表本校與其他地區(qū)（高校）學(xué)生社團(tuán)進(jìn)行交流合作。 現(xiàn)在本校有如下社團(tuán)組織： 音樂坊、吉他協(xié)會、心理協(xié)會、計(jì)算機(jī)協(xié)會、跆拳道協(xié)會、輪滑協(xié)會、藍(lán)馬協(xié)會、讀書協(xié)會、求是學(xué)社、法律援助中心、籃球協(xié)會、羽毛球

9、協(xié)會、健美操協(xié)會、網(wǎng)球協(xié)會、書畫社、奕仙棋社、極限社團(tuán)、乒乓球協(xié)會、武術(shù)協(xié)會、舞影隨行、英語協(xié)會、韓語協(xié)會、國防協(xié)會、天文社、悠悠球協(xié)會等社團(tuán)。根據(jù)以上情況，該系統(tǒng)總體目標(biāo)如下:（1）以真實(shí)、準(zhǔn)確數(shù)據(jù)為基礎(chǔ)，以先進(jìn)、有效、合理的管理方法為核心，以現(xiàn)代計(jì)算機(jī)技術(shù)為手段，建設(shè)大學(xué)生社團(tuán)管理系統(tǒng)。（2）提高園內(nèi)辦事效率，社團(tuán)協(xié)會負(fù)責(zé)人及會員能及時(shí)、準(zhǔn)確地掌握各種信息，為決策提供有效的依據(jù)。（3）實(shí)現(xiàn)內(nèi)部管理電腦化，實(shí)現(xiàn)信息共享。大學(xué)生社團(tuán)管理系統(tǒng)是一款用于學(xué)校社團(tuán)管理的應(yīng)用軟件，內(nèi)有簡單易用用戶界面、功能強(qiáng)大的數(shù)據(jù)庫操作和查詢操作，可以直接在上面登記社團(tuán)資料，包括社團(tuán)檔案登記、社團(tuán)活動登記，社團(tuán)會員

10、登記、社團(tuán)部門登記、社團(tuán)會費(fèi)申請、審批等功能?？梢灾苯釉谏厦娌樵兏鞣N資料，可以按照指定的字段進(jìn)行查詢功能，此外由于delphi的rave報(bào)表在制作動態(tài)報(bào)表上有所欠缺，故而本人導(dǎo)出查詢數(shù)據(jù)到excel指定的模板從而進(jìn)行打印。并具有用戶權(quán)限管理等基本的權(quán)限功能。本軟件通用性增強(qiáng)，操作簡單，操作工作量小。數(shù)據(jù)存儲量大，分類清楚，使工作更輕松。 5、數(shù)據(jù)庫的設(shè)計(jì)本系統(tǒng)是單機(jī)版的系統(tǒng)，使用的是access2003數(shù)據(jù)庫。數(shù)據(jù)庫中共有用戶表、社團(tuán)部表、會員表、活動表、申請經(jīng)費(fèi)表、經(jīng)費(fèi)審批表、社團(tuán)部基本情況表。1、用戶表字段名稱數(shù)據(jù)類型字段長度允許空否備注用戶名文本10no主鍵，用戶登錄名稱口令文本6no即

11、密碼權(quán)限文本1no權(quán)限用以限制用戶使用軟件功能2、社團(tuán)部表字段名稱數(shù)據(jù)類型字段長度允許空否備注社團(tuán)全稱文本20no主鍵社團(tuán)負(fù)責(zé)人文本8no中文名稱最長為4個(gè)，英文8個(gè)社團(tuán)創(chuàng)始人文本8no主管單位文本20no由學(xué)校哪個(gè)部門負(fù)責(zé)監(jiān)管成立日期日期/時(shí)間no成立協(xié)會日期社團(tuán)性質(zhì)文本20yes社團(tuán)經(jīng)費(fèi)貨幣no供以后協(xié)會活動開支社團(tuán)簡介文本20no社團(tuán)特征碼文本6no會費(fèi)申請、查看時(shí)來確認(rèn)。備注文本20yes3、會員表字段名稱數(shù)據(jù)類型字段長度允許空否備注會員編號文本3no主鍵姓名文本8no性別文本2no系別文本10no班級文本10no宿舍文本20yes電話文本11yes社團(tuán)部文本20no職位文本10yes

12、會費(fèi)貨幣貨幣no加入日期日期/時(shí)間日期/時(shí)間no4、活動表字段名稱數(shù)據(jù)類型字段長度允許空否備注活動名稱文本20no所屬社團(tuán)文本20no相關(guān)內(nèi)容文本50yes發(fā)起人文本8no發(fā)起時(shí)間日期/時(shí)間no備注文本50yes5、申請經(jīng)費(fèi)表字段名稱數(shù)據(jù)類型字段長度允許空否備注申請社團(tuán)文本20no尚有金額貨幣no申請金額貨幣no申請理由文本50yes申請日期日期/時(shí)間no6、經(jīng)費(fèi)審批表字段名稱數(shù)據(jù)類型字段長度允許空否備注申請部門文本20no申請金額貨幣no申請?jiān)蛭谋?0no審批方案文本6no審批人文本8no審批日期日期/時(shí)間no審批理由文本50yes7、社團(tuán)部基本情況表字段名稱數(shù)據(jù)類型字段長度允許空否備注共

13、有協(xié)會個(gè)數(shù)數(shù)字no共有會員個(gè)數(shù)數(shù)字no共有社團(tuán)經(jīng)費(fèi)貨幣no備注文本50yes系統(tǒng)設(shè)計(jì)系統(tǒng)總體功能結(jié)構(gòu)本課題經(jīng)過實(shí)際的需求分析，采用delphi7.0+access2003技術(shù)進(jìn)行實(shí)現(xiàn)，整個(gè)系統(tǒng)服務(wù)于普通用戶、系統(tǒng)管理員兩類用戶，從操作簡便、界面美觀、靈活實(shí)用的用戶要求出發(fā)，設(shè)計(jì)整個(gè)系統(tǒng)的功能模塊如下圖：大學(xué)生社團(tuán)管理系統(tǒng)系統(tǒng)模塊框圖社團(tuán)相關(guān)系統(tǒng)設(shè)置幫助會員相關(guān)會員信息查詢會員信息設(shè)置社團(tuán)信息查詢社團(tuán)活動查詢社團(tuán)經(jīng)費(fèi)管理社團(tuán)活動管理社團(tuán)部門管理社團(tuán)部基本信息退出系統(tǒng)注銷修改用戶密碼關(guān)于主程序窗體設(shè)計(jì)（1）實(shí)現(xiàn)目標(biāo)程序啟動后，在“系統(tǒng)登錄”界面驗(yàn)證操作員密碼后，將進(jìn)入主程序界面。主程序界面主要實(shí)現(xiàn)

14、如下功能：（1）可通過菜單和工具欄快速選取項(xiàng)目，調(diào)用相就子程序。（2）顯示系統(tǒng)日期和時(shí)間。（3）在窗口顯示前，根據(jù)登錄界面中的權(quán)限代碼來設(shè)置不同用戶可以使用不同的功能模塊。主程序界面如下圖所示：.（2）實(shí)現(xiàn)過程。添加新窗體，設(shè)置窗體name屬性為main，設(shè)置窗體caption屬性為“校職工檔案管理系統(tǒng)”，保存窗體為mainform.pas。主要程序代碼如下：計(jì)數(shù)器的代碼：procedure tfrmmain.timer1timer(sender: tobject);beginstatusbar1.panels0.text :=歡迎使用大學(xué)生社團(tuán)管理系統(tǒng);statusbar1.panels1.

15、text :=formatdatetime(yyyy年m月d日dddd+hh:mm:ss am/pm,now);end;功能：狀態(tài)欄的第一格顯示“歡迎使用大學(xué)生社團(tuán)管理系統(tǒng)”，第二格顯示當(dāng)前系統(tǒng)的日期時(shí)間。顯示窗體時(shí)執(zhí)行的代碼：procedure tfrmmain.formshow(sender: tobject);begin if qx=1 then beginfrmmain.statusbar1.panels2.text :=您為系統(tǒng)管理員，可以使用軟件所有功能！; end elsefrmmain.statusbar1.panels2.text :=您為一般用戶，你只可以使用基本功能！;i

16、f qx=2 then begin frmmain.n5.enabled :=false; frmmain.n9.enabled :=false; frmmain.n10.enabled :=false; frmmain.n13.enabled :=false; frmmain.n22.enabled :=false; endend;功能：當(dāng)qx這個(gè)全局變量值為1時(shí)，表示剛才登錄的時(shí)候是使用了系統(tǒng)管理員，可以使用所有的功能，值為2時(shí)，表示剛才是一般用戶，只能使用部分功能。（一）系統(tǒng)設(shè)置功能設(shè)計(jì)系統(tǒng)設(shè)置模塊對使用本系統(tǒng)的用戶進(jìn)行用戶名、密碼、用戶身份的驗(yàn)證，確保了系統(tǒng)的安全性。本模塊具有三項(xiàng)功能

17、：（1）輸入用戶名和密碼登錄后，系統(tǒng)統(tǒng)根據(jù)用戶身份讓用戶進(jìn)入不同的界面進(jìn)行具有權(quán)限的用戶操作。分為guest用戶，和admin用戶，guest只有查看功能，admin具有所有功能。（2）用戶注銷，退出用戶界面返回登錄界面；（3）系統(tǒng)管理員可以進(jìn)入設(shè)置用戶密碼界面，可以設(shè)置用戶表中所有記錄的口令和密碼字段。該系統(tǒng)只設(shè)置了兩個(gè)用戶，一個(gè)超級管理員，一個(gè)guest用戶。原因就在于，本系統(tǒng)可能會有很多會員使用，如果用戶表中添加很多用戶，管理起來不方便。而且沒有這個(gè)必要，本系統(tǒng)除了超級管理員可以使用所有功能之外，其它用戶只能使用查詢功能，所以建太多用戶和一個(gè)用戶幾乎沒有區(qū)別。所以本系統(tǒng)中沒有添加用戶這一

18、功能。1、登錄功能實(shí)現(xiàn)如下：模塊功能：輸入用戶名之后，在用戶表中搜索是否有該用戶名存在，如果有該用戶名存在，則驗(yàn)證密碼正確與否，如果密碼正確則將其對應(yīng)的權(quán)限賦值給一個(gè)變量。然后顯示主界面，隱藏用戶登錄界面。主要代碼如下：procedure tfrmlogin.button1click(sender: tobject);begin try adoconnection1.connected :=true; adotable1.filter :=用戶名=+edit1.text +; adotable1.filtered:=true; adotable1.open ; except applicati

19、on.terminate ; end; if adotable1.recordcount=1 then begin passwd:=trim(adotable1口令); qx:=trim(adotable1權(quán)限); if passwd =edit2.text then begin frmmain.show; edit1.text :=; edit2.text :=; frmlogin.hide; exit; end else application.messagebox(請確認(rèn)密碼，注意大小寫！,密碼不匹配,mb_ok); edit1.setfocus ; edit2.text :=; end

20、 else application.messagebox(請重新輸入用戶名！,用戶名不正確！,mb_ok); edit1.setfocus ; edit1.text :=; edit2.text:=;end;2、修改密碼功能實(shí)現(xiàn)如下：模塊功能：輸入用戶名，系統(tǒng)檢查該用戶名是否存在，若是存在的話，則驗(yàn)證原密碼是否正確，假如正確，則輸入新的密碼并再次確認(rèn)，如果兩次密碼相同，則密碼修改成功。界面包括控件adoconnection和adoquery，連接數(shù)據(jù)表用戶表?！按_定”按鈕代碼如下：var username,pwd:string;begin username:=edit1.text ; adoq

21、uery1.close ; adoquery1.sql.clear; adoquery1.sql.add(select 用戶名,口令 from 用戶表); adoquery1.sql.add(where 用戶名=+username+); adoquery1.open ; if (adoquery1.recordcount =0)or(edit2.text trim(adoquery1.fieldvalues口令) then begin showmessage(該用戶不存在或原口令不正確！); edit1.text :=; edit2.text :=; edit3.text :=; edit4.

22、text :=; edit1.setfocus ; exit; end; if(edit3.text =)or(edit3.text edit4.text ) then begin showmessage(密碼不能為空或兩次密碼不一致，請檢查！); edit1.text :=; edit2.text :=; edit3.text :=; edit4.text :=; edit1.setfocus ; exit; end; pwd:=trim(edit3.text ); adoquery1.close; adoquery1.sql.clear ; adoquery1.sql.add(update

23、 用戶表 set 口令=+pwd+); adoquery1.sql.add(where 用戶名=+edit1.text+); adoquery1.execsql ; showmessage(更改密碼成功！); edit1.text :=; edit2.text :=; edit3.text :=; edit4.text :=; edit1.setfocus ; exit;end;3、注銷功能該功能比較簡單，就是顯示出隱藏的登錄窗口，關(guān)閉主窗體。4、退出系統(tǒng)使用application.terminate，它表示中斷程序，退出總系統(tǒng)。它和close不同，close是關(guān)閉指定的窗體。（二）、社團(tuán)相關(guān)

24、模塊1、社團(tuán)部基本情況窗體如下：該窗體使用控件，adoconnect，adoquery，adotable，label，memo，button，excelapplication1，excelworkbook1，excelworksheet1，控件屬性設(shè)置見程序表單。該窗體的主要實(shí)現(xiàn)思想：窗體載入時(shí)，使用count語句統(tǒng)計(jì)出“社團(tuán)部表”的所有記錄數(shù)，即協(xié)會個(gè)數(shù)；使用循環(huán)累加，得出所有協(xié)會費(fèi)用之和；使用count語句統(tǒng)計(jì)出“會員表”中會員個(gè)數(shù)；讀出社團(tuán)部基本情況表中備注的內(nèi)容到memo中。詳細(xì)代碼如下：var i:integer;beginmemo1.text :=adotable1.fieldby

25、name(備注).asstring ;/把備注寫入到memo中。adoquery1.close;adoquery1.sql.clear;adoquery1.sql.add(select count(*) as 記錄數(shù) from 社團(tuán)部表);adoquery1.open;i:=adoquery1.fieldbyname(記錄數(shù)).asinteger ;adoquery1.close;adoquery1.sql.clear;adoquery1.sql.add(select sum(社團(tuán)經(jīng)費(fèi)) as 經(jīng)費(fèi) from 社團(tuán)部表);adoquery1.open;label3.caption :=intt

26、ostr(i);/讀協(xié)會個(gè)數(shù)賦值給label3的caption屬性。label7.caption :=inttostr(adoquery1.fieldbyname(經(jīng)費(fèi)).asinteger);adoquery1.close;adoquery1.sql.clear;adoquery1.sql.add(select count(*) as 人數(shù) from 會員表);adoquery1.open;label5.caption :=inttostr(adoquery1.fieldbyname(人數(shù)).asinteger );close;end;此外，本表單還使用到了打印功能，所以在這個(gè)表單中就存在報(bào)

27、表。本報(bào)表沒有使用自帶的rave報(bào)表，rave報(bào)表在格式設(shè)置及生成查詢報(bào)表這一塊功能比較弱，所以我使用excelapplication控件，把查詢結(jié)果導(dǎo)出到指定名稱的excel表中。當(dāng)然在導(dǎo)出之前，是參照excel模板，這樣導(dǎo)出的excel文件，部分格式是已經(jīng)設(shè)置好的，還可以自己設(shè)置效果然后打印。實(shí)現(xiàn)代碼如下：var excelapp:texcelapplication;/用來連接excel應(yīng)用程序 excelwkbook:texcelworkbook;/工作薄 excelwksheet:texcelworksheet;/excel數(shù)據(jù)表 i,j:integer;begin adoquery1

28、.close; adoquery1.sql.clear; adoquery1.sql.add(select * from 社團(tuán)部表); adoquery1.open; excelapp:=texcelapplication.create(application);/創(chuàng)建excel應(yīng)用 excelwkbook:=texcelworkbook.create(application);/創(chuàng)建工作薄 excelwksheet:=texcelworksheet.create(application);/創(chuàng)建工作表 excelapp.connect; /連接excel應(yīng)用程序 excelapp.visib

29、le0:=true; excelapp.workbooks.open(d:大學(xué)生社團(tuán)管理系統(tǒng)社團(tuán)部詳細(xì)表模板.xls,emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, 0); /打開模板文件 excelapp.activeworkbook; /設(shè)置活動工作簿 excelapp.activesheet; /設(shè)置活動

30、工作表 excelwkbook.connectto(excelapp.workbooks1); /工作簿與excel應(yīng)用程序連接 excelwksheet.connectto(excelwkbook.worksheets1 as _worksheet); /工作表與工作簿連接 adotable1.first; excelwksheet.cells.item1,1.value:= 社團(tuán)詳細(xì)情況; for j:=0 to adoquery1.fields.count-1 do / 先寫字段名 begin excelwksheet.cells.item2,j+1:=adoquery1.fieldsj

31、.displaylabel; / cells對象：表示工作表的一個(gè)單元格。 excelwksheet.cells.item2,j+1.font.size:=10; end; for i:=2 to adoquery1.recordcount+1 do / 一共要讀adoquery1.recordcount-1條記錄 begin for j:=0 to adoquery1.fields.count-1 do begin excelwksheet.cells.itemi,j+1:=adoquery1.fieldsj. asstring; /寫入記錄 end; adoquery1.next; end

32、; excelwksheet.columns.autofit; /列自適應(yīng) excelwksheet.saveas(d:大學(xué)生社團(tuán)管理系統(tǒng)+社團(tuán)部詳細(xì)情況報(bào)表); /按用戶提供的文件名保存文件 excelapp.disconnect;end;2、社團(tuán)信息設(shè)置界面如下所示：該表中包括connection，adotable，adoquery，excelapplication1，excelworkbook1，excelworksheet1等控件，控件屬性見表單設(shè)置。功能描述：該程序共有五個(gè)按鈕，由界面可見添加，修改兩個(gè)按鈕會彈出界面來添加或修改數(shù)據(jù)。刪除功能，直接在界面上體現(xiàn)。添加窗體如下：確定按鈕

33、代碼如下：if edit1.text= then showmessage(請輸入社團(tuán)名稱) else if edit2.text= then showmessage(請輸入負(fù)責(zé)人) else if edit3.text= then showmessage(請輸入創(chuàng)始人) else if edit4.text= then showmessage(請輸入主管單位) else if maskedit1.text=_-_-_ then showmessage(請輸入成立日期) else if maskedit2.text =_ then showmessage(請輸入社團(tuán)特征碼) else if fr

34、mstxxsz.adotable1.locate(社團(tuán)全稱,edit1.text,) then begin showmessage(已經(jīng)有該社團(tuán)，請重新輸入); edit1.text:=; edit2.text:=; edit3.text :=; edit4.text :=; maskedit1.text:=_-_-_; maskedit2.text :=_; edit6.text :=; edit7.text :=; memo1.text :=; memo2.text:=; edit1.setfocus ; end else begin if messagedlg(確實(shí)要添加該社團(tuán)嗎？,mt

35、information,mbok, mbcancel,0)=mrok then begin frmstxxsz.adotable1.edit; frmstxxsz.adotable1.append; frmstxxsz.adotable1.fieldbyname(社團(tuán)全稱).asstring:=edit1.text; frmstxxsz.adotable1.fieldbyname(社團(tuán)負(fù)責(zé)人).asstring:=edit2.text; frmstxxsz.adotable1.fieldbyname(社團(tuán)創(chuàng)始人).asstring:=edit3.text; frmstxxsz.adotable

36、1.fieldbyname(主管單位).asstring:=edit4.text; frmstxxsz.adotable1.fieldbyname(成立日期).asstring:=maskedit1.text; frmstxxsz.adotable1.fieldbyname(社團(tuán)性質(zhì)).asstring:=edit6.text; frmstxxsz.adotable1.fieldbyname(社團(tuán)經(jīng)費(fèi)).asstring:=edit7.text; frmstxxsz.adotable1.fieldbyname(社團(tuán)簡介).asstring:=memo1.text; frmstxxsz.adot

37、able1.fieldbyname(備注).asstring:=memo2.text; frmstxxsz.adotable1.fieldbyname(社團(tuán)特征碼).asstring :=maskedit2.text ; frmstxxsz.adotable1.post; showmessage(添加成功); edit1.text:=; edit2.text:=; edit3.text :=; edit4.text :=; maskedit1.text:=; maskedit2.text :=; edit6.text :=; edit7.text :=; memo1.text :=; memo

38、2.text:=; edit1.setfocus ; frmstxxsz.adotable1.append; end else begin showmessage(添加失敗); frmstxxsz.adotable1.append; end;end;該添加功能為了防止用戶在執(zhí)行過程中多個(gè)重要字段不錄入，故而對相應(yīng)字段輸入為空時(shí)，提醒用戶完善信息，否則無法繼續(xù)往下執(zhí)行。當(dāng)點(diǎn)擊確定保存數(shù)據(jù)時(shí)，檢查準(zhǔn)備添加的社團(tuán)名稱是否已經(jīng)在原有的數(shù)據(jù)表中存在，如果存在則重新錄入，否則添加信息到社團(tuán)部表中，并顯示添加成功。其他功能描述略。代碼詳見源程序。打印功能同部門打印大同小異，這里不再解釋。3、社團(tuán)活動管理界面

39、如下：該界面所包含控件與社團(tuán)部門管理類似，不再列舉。模塊功能：由部門發(fā)起活動，活動信息包括活動名稱、所屬社團(tuán)、發(fā)起人、相關(guān)內(nèi)容及發(fā)起時(shí)間?？梢蕴砑?、刪除、修改。4、活動經(jīng)費(fèi)管理該模塊包括四個(gè)子模塊，分別為：經(jīng)費(fèi)申請、取消申請、經(jīng)費(fèi)審批、查看審批情況。（1）經(jīng)費(fèi)申請模塊：主要是由相關(guān)負(fù)責(zé)人登錄社團(tuán)經(jīng)費(fèi)申請界面，登錄時(shí)需要選擇所在社團(tuán)，輸入社團(tuán)特征碼確認(rèn)其具備經(jīng)費(fèi)申請資格。在進(jìn)入經(jīng)費(fèi)申請界面后，可以看到所屬社團(tuán)目前所剩余經(jīng)費(fèi)，在界面中輸入申請的金額，點(diǎn)擊申請按鈕確認(rèn)。如果申請的金額超過剩余金額，系統(tǒng)會作出提示，要求重新申請。社團(tuán)登錄界面經(jīng)費(fèi)申請界面社團(tuán)登錄的進(jìn)入按鈕代碼類似于系統(tǒng)登錄代碼，這里不再

40、贅述。申請按鈕代碼類似前面模塊中添加模塊中的確定按鈕，代碼詳見源程序。（2）取消申請模塊：在提出申請之后，如果因?yàn)槠渌虿幌朐偕暾埥?jīng)費(fèi)了或是想用其他的理由申請更多的經(jīng)費(fèi)了，則進(jìn)入取消申請模塊。在該模塊中，可以見到本協(xié)會所提出的所有申請記錄（還沒有審批過的記錄）?？梢栽诒韱沃羞x擇想取消的申請記錄，單擊“取消申請”按鈕取消這條記錄?！叭∠暾垺卑粹o的代碼類似于部門管理模塊中的刪除按鈕。取消申請，實(shí)際上就是把數(shù)據(jù)表中的記錄刪除掉。（3）經(jīng)費(fèi)申請模塊：在提出申請之后，超級管理員即社團(tuán)總負(fù)責(zé)人可對各協(xié)會發(fā)出的申請做出審批，在申請記錄中選取相應(yīng)記錄，則該記錄的信息會在下面體現(xiàn)出來，填寫批準(zhǔn)與否，如果批準(zhǔn)

41、了，則在該社團(tuán)經(jīng)費(fèi)中扣除相應(yīng)的費(fèi)用，并且提交審批記錄到相應(yīng)的數(shù)據(jù)表中，如果沒有批準(zhǔn)，則該記錄被取消，同樣提交審批記錄到相應(yīng)的數(shù)據(jù)表中。審批按鈕代碼如下：if trim(label3.caption)= then showmessage(請?jiān)谏媳碇羞x擇記錄，若無記錄，則自己退出) else if strtoint(label5.caption ) strtoint(label8.caption) then begin showmessage(該協(xié)會申請的經(jīng)費(fèi)超過了它目前還剩余的經(jīng)費(fèi)總數(shù)！無法審批); end else begin if combobox1.text=批準(zhǔn) then begin a

42、dotable3.filtered :=false; adotable3.filter :=社團(tuán)全稱=+quotedstr(label3.caption); adotable3.filtered :=true; adotable3.edit; adotable3.fieldbyname(社團(tuán)經(jīng)費(fèi)).value:=inttostr(adotable3.fieldbyname(社團(tuán)經(jīng)費(fèi)).asinteger -strtoint(label8.caption); adotable3.post; end; adotable2.edit; adotable2.append; adotable2.fiel

43、dbyname(申請部門).asstring :=label3.caption ; adotable2.fieldbyname(申請金額).asstring :=label8.caption ; adotable2.fieldbyname(申請?jiān)?.asstring :=memo1.text ; adotable2.fieldbyname(審批方案).asstring :=combobox1.text ; adotable2.fieldbyname(審批人).asstring:=edit1.text ; adotable2.fieldbyname(審批理由).asstring :=memo2

44、.text ; adotable2.fieldbyname(審批日期).asstring :=formatdatetime(yyyy-mm-dd hh:mm:ss, now); adotable2.post; combobox1.text :=; edit1.text :=; memo2.text :=; adotable1.edit; adotable1.delete; end;（4）查看經(jīng)費(fèi)審批結(jié)果模塊：該模塊顯示登錄協(xié)會所提交的所有申請的審批記錄，最后一條記錄即為社團(tuán)負(fù)責(zé)人最近審批的記錄。單擊記錄表中的記錄，則審批的信息就會在下面體現(xiàn)出來。單擊記錄表體現(xiàn)記錄信息的代碼如下：procedure tfrmcksp.dbgrid1cellclick(column: tcolumn);beginlabel2.caption :=adotable1.fieldbyname(審批方案).asstring ;label