SQL實(shí)訓(xùn)報(bào)告
《SQLServer應(yīng)用技術(shù)》實(shí)訓(xùn)報(bào)告
實(shí)訓(xùn)名稱(chēng):高校學(xué)生信息管理系統(tǒng)實(shí)訓(xùn)專(zhuān)業(yè):計(jì)算機(jī)應(yīng)用技術(shù)班級(jí):計(jì)算機(jī)10A1
學(xué)號(hào):104643007姓名:陳健指導(dǎo)教師:劉忠民
201*年12月22日
實(shí)訓(xùn)成績(jī)
考核、評(píng)價(jià)項(xiàng)目對(duì)實(shí)訓(xùn)期間的出勤情實(shí)訓(xùn)表現(xiàn)況、實(shí)訓(xùn)態(tài)度、安全意與態(tài)度識(shí)、職業(yè)道德素質(zhì)評(píng)定(20分)成績(jī)考核內(nèi)容得分職業(yè)素質(zhì)、實(shí)訓(xùn)態(tài)度、效率觀念、協(xié)作精神實(shí)訓(xùn)評(píng)價(jià)根據(jù)學(xué)生在實(shí)訓(xùn)操作過(guò)程中的知識(shí)掌握情況、程序設(shè)實(shí)訓(xùn)操作根據(jù)學(xué)生實(shí)訓(xùn)操作的過(guò)計(jì)方法和技巧、基本操作技過(guò)程程進(jìn)行考核,評(píng)定成績(jī)能、知識(shí)應(yīng)用能力、分析問(wèn)(40分)題和解決問(wèn)題的能力,以及創(chuàng)新能力進(jìn)行考核。根據(jù)學(xué)生實(shí)訓(xùn),程序設(shè)實(shí)訓(xùn)考核計(jì)的結(jié)果進(jìn)行考核,評(píng)(30分)定成績(jī)根據(jù)實(shí)訓(xùn)項(xiàng)目任務(wù)要求,對(duì)程序設(shè)計(jì)的結(jié)果,分模塊進(jìn)行測(cè)試考核實(shí)訓(xùn)文檔實(shí)訓(xùn)日記、實(shí)訓(xùn)報(bào)告等(10分)評(píng)定成績(jī)表達(dá)能力、文檔寫(xiě)作能力、文檔的規(guī)范性總分
一、實(shí)訓(xùn)目的
1.熟練掌握SQLServer數(shù)據(jù)庫(kù)的設(shè)計(jì)及其對(duì)象的基本操作。2.熟練掌握數(shù)據(jù)查詢、視圖、存儲(chǔ)過(guò)程和觸發(fā)器的使用方法。3.熟練掌握vb應(yīng)用程序中界面設(shè)計(jì)的方法。
4.通過(guò)實(shí)訓(xùn),使學(xué)生了解數(shù)據(jù)庫(kù)系統(tǒng)在實(shí)際應(yīng)用中的開(kāi)發(fā)方法及設(shè)計(jì)過(guò)程,為今后從事管理信息系統(tǒng)的研究、開(kāi)發(fā)、應(yīng)用提供必要的知識(shí),更好地完成各種計(jì)算機(jī)應(yīng)用和開(kāi)發(fā)任務(wù)。二、課程設(shè)計(jì)報(bào)告內(nèi)容1.實(shí)訓(xùn)內(nèi)容
學(xué)生信息管理工作是學(xué)校管理工作的重要組成部分,現(xiàn)在相當(dāng)一部分學(xué)校的學(xué)生管理工作仍沿用手工方式。隨著學(xué)校規(guī)模的擴(kuò)大、學(xué)生人數(shù)的增加,效率低下、容易出錯(cuò)的手工方式越來(lái)越不適應(yīng)實(shí)際管理工作的需要,按照軟件工程原理和數(shù)據(jù)庫(kù)技術(shù)開(kāi)發(fā)學(xué)生信息管理系統(tǒng)已經(jīng)成為學(xué)生管理部門(mén)的迫切需要。程設(shè)計(jì)的題目是高校學(xué)生信息管理系統(tǒng),本項(xiàng)目實(shí)現(xiàn)的功能主要包括以下內(nèi)容:
(1)完成數(shù)據(jù)的錄入和修改,并提交數(shù)據(jù)庫(kù)保存。其中的數(shù)據(jù)包括:專(zhuān)業(yè)信息、班級(jí)信息、學(xué)生信息、選修課程信息和成績(jī)信息等,系統(tǒng)能夠自動(dòng)避免重復(fù)信息。
(2)實(shí)現(xiàn)信息查詢,主要包括學(xué)生信息查詢、選修課程信息查詢和成績(jī)信息查詢等。
(3)實(shí)現(xiàn)數(shù)據(jù)的刪除功能:對(duì)數(shù)據(jù)進(jìn)行刪除操作。系統(tǒng)能夠通過(guò)用戶給出的條件查詢所要?jiǎng)h除的數(shù)據(jù),并提示用戶確認(rèn)是否刪除。若確定,則把相關(guān)信息從數(shù)據(jù)庫(kù)中刪除。
(4)報(bào)表功能。包括指定學(xué)生的選課情況和指定課程的選修情況。高校學(xué)生信息管理系統(tǒng)采用C/S體系結(jié)構(gòu),按照客戶端設(shè)計(jì)和數(shù)據(jù)庫(kù)設(shè)計(jì)兩部分進(jìn)行?蛻舳素(fù)責(zé)提供表達(dá)邏輯、顯示用戶界面信息、訪問(wèn)數(shù)據(jù)庫(kù)服務(wù)器等,采用VisualBasic6.0作為開(kāi)發(fā)工具;服務(wù)器端則采用SQLServer201*作為數(shù)據(jù)庫(kù)管理系統(tǒng),負(fù)責(zé)后臺(tái)的數(shù)據(jù)處理。2.系統(tǒng)功能模塊設(shè)計(jì)
學(xué)生信息管理客戶端主要對(duì)學(xué)生信息、課程信息、學(xué)生成績(jī)信息進(jìn)行管理,該系統(tǒng)分4個(gè)模功能塊,如圖所示。
系統(tǒng)主窗學(xué)生信息管課程信息管成績(jī)信息管增加學(xué)生信息
修改學(xué)生信息刪除學(xué)生信息查找學(xué)生信息學(xué)生信息報(bào)表增加課程信息修改課程信息刪除課程信息查找課程信息課程信息報(bào)表增加成績(jī)信息修改成績(jī)信息刪除成績(jī)信息查找成績(jī)信息3.實(shí)訓(xùn)設(shè)備或軟、硬件
硬件:PⅣ及以上性能的PC機(jī)
軟件:WindowsXP操作系統(tǒng);VB6.0;SQLServer201*數(shù)據(jù)庫(kù)系統(tǒng)
三、結(jié)論
1.數(shù)據(jù)庫(kù)設(shè)計(jì)
數(shù)據(jù)庫(kù)的設(shè)計(jì)主要是在服務(wù)器端建立數(shù)據(jù)庫(kù)和數(shù)據(jù)表,并實(shí)現(xiàn)數(shù)據(jù)處理功能。根據(jù)系統(tǒng)需求分析和功能設(shè)計(jì),可以將數(shù)據(jù)規(guī)劃為學(xué)生實(shí)體、課程實(shí)體、選課實(shí)體三個(gè)實(shí)體。在了解了數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)概念以后,開(kāi)始創(chuàng)建數(shù)據(jù)庫(kù)和數(shù)據(jù)表。首先,用查詢分析器創(chuàng)建student數(shù)據(jù)庫(kù),創(chuàng)建過(guò)程中需要注意修改操作系統(tǒng)文件名到新創(chuàng)建的文件夾。然后創(chuàng)建專(zhuān)業(yè)信息表spe_Info、班級(jí)信息表class_Info、課程信息表course_Info、學(xué)生信息表stu_Info、成績(jī)信息表score五個(gè)表。在數(shù)據(jù)庫(kù)及數(shù)據(jù)表創(chuàng)建完成后,對(duì)SQLSever服務(wù)器端數(shù)據(jù)進(jìn)行處理。首先創(chuàng)建stucourse_View視圖。在數(shù)據(jù)表的創(chuàng)建過(guò)程中應(yīng)注意,因?yàn)閷W(xué)號(hào)、專(zhuān)業(yè)編號(hào)、班級(jí)編號(hào)等是一一對(duì)應(yīng)的,所以學(xué)號(hào)在數(shù)據(jù)表中應(yīng)設(shè)置為主鍵,設(shè)置主鍵的語(yǔ)句為:stu_Nochar(6)NOTNULLPRIMARYKEY。由于系統(tǒng)對(duì)專(zhuān)業(yè)信息表等五個(gè)表的操作主要有:添加、修改、刪除,所以,針對(duì)stu_Info、course_Info和score_Info三個(gè)表定義相應(yīng)的儲(chǔ)存過(guò)程,以便在VisualBasic中根據(jù)需要調(diào)用對(duì)應(yīng)的儲(chǔ)存過(guò)程。由于系統(tǒng)對(duì)student數(shù)據(jù)庫(kù)中數(shù)據(jù)進(jìn)行添加、修改、刪除操
作時(shí),應(yīng)保證數(shù)據(jù)的完整性,所以需對(duì)觸發(fā)器進(jìn)行定義以保證數(shù)據(jù)庫(kù)數(shù)據(jù)的完整性。對(duì)stu_Info表定義的UPDATE觸發(fā)器trg_stu_update的設(shè)計(jì)功能是:當(dāng)修改stu_Info表中某個(gè)學(xué)生的學(xué)號(hào)的同時(shí)修改score_Info表中該學(xué)號(hào)對(duì)應(yīng)記錄相應(yīng)的值。在完成了數(shù)據(jù)庫(kù)及數(shù)據(jù)表的創(chuàng)建后,為保證系統(tǒng)功能的實(shí)現(xiàn),需對(duì)數(shù)據(jù)庫(kù)用戶權(quán)限進(jìn)行設(shè)置,在用戶欄中設(shè)置用戶及登錄密碼,維護(hù)數(shù)據(jù)庫(kù)的安全是確保數(shù)據(jù)庫(kù)正常運(yùn)行的重要工作。最后完成數(shù)據(jù)庫(kù)的設(shè)計(jì)后,要對(duì)數(shù)據(jù)庫(kù)進(jìn)行備份。數(shù)據(jù)庫(kù)的備份時(shí)對(duì)SQLSever數(shù)據(jù)事務(wù)日志進(jìn)行拷貝。做數(shù)據(jù)備份就是為了方便的數(shù)據(jù)庫(kù)恢復(fù)用。建數(shù)據(jù)庫(kù)是為了與所設(shè)計(jì)的程序相連接,連接數(shù)據(jù)庫(kù)需用到ADO訪問(wèn)數(shù)據(jù)庫(kù)。如要連接SQLSever服務(wù)器中的student數(shù)據(jù)庫(kù),用如下代碼對(duì)
Connection
的DefaultDatabase
屬性值進(jìn)行設(shè)置:Cnn.
DefaultDatabase=”student”。
2.系統(tǒng)功能實(shí)現(xiàn)
“學(xué)生信息管理系統(tǒng)”系統(tǒng)功能的實(shí)現(xiàn),主要是在VB中對(duì)系統(tǒng)模塊進(jìn)行設(shè)計(jì),并連接數(shù)據(jù)庫(kù)以達(dá)到系統(tǒng)功能的實(shí)現(xiàn)。由于程序是利用ADO完成對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)和操作的,所以在對(duì)模塊的設(shè)計(jì)前需要添加ADO庫(kù)。本系統(tǒng)還需要用到ToolBar控件和MSFlexGrid控件,前者用于連接數(shù)據(jù)庫(kù),后者用于以表格形式顯示數(shù)據(jù)庫(kù)表的內(nèi)容。本系統(tǒng)主要用于學(xué)生信息管理,主要任務(wù)是用計(jì)算機(jī)對(duì)學(xué)生各種信息進(jìn)行日常管理,如:查詢、修改、增加、刪除。首先是公共模塊中定義全局變量及子程序。在模塊中PublicMyConnectionAsNewADODB.Connection語(yǔ)句用于建立與數(shù)據(jù)庫(kù)的連接。而PublicSQLUsernameAsString用于存放SQL的登錄賬號(hào)。對(duì)ChangeFormPos(frmMainAsMDIForm,frmAsForm)子程序定義用于確定調(diào)用窗體在主窗體中的顯示位置。對(duì)登錄窗口的設(shè)計(jì)要用到了ComboBox控件,使在登錄時(shí)用戶可以直接從列表中選擇。在設(shè)計(jì)登錄窗體時(shí),需要確保數(shù)據(jù)庫(kù)是否連接。在對(duì)主窗體MDIformMain的設(shè)計(jì)中需要添加MDI窗體,在設(shè)計(jì)過(guò)程中對(duì)控件的名稱(chēng)及屬性的設(shè)置要細(xì)心,我開(kāi)始就是由于將登錄控件的屬性值打成了cmbOK而使系統(tǒng)無(wú)法運(yùn)行。在設(shè)計(jì)專(zhuān)業(yè)管理窗口時(shí),第一次用到了MSFlexGrid控件,該控件的作用是以表格形式顯示二維字符數(shù)組中每個(gè)單元的數(shù)據(jù)。常
用于處理復(fù)雜的二維數(shù)據(jù)表的問(wèn)題。如校歷表、學(xué)生宿舍表、學(xué)生班級(jí)成績(jī)表等。這是實(shí)訓(xùn)過(guò)程中所學(xué)到的新的知識(shí)。通過(guò)txtSpeNo.Text=frmSpe.MSFlexGrid1.TextMatrix(frmSpe
.MSFlexGrid1.Row,1)txtSpeName.Text=frmSpe.MSFlexGrid1.TextMatrix(frmSpe.MSFlexGrid1.Row,2)txtSpeNo.Enabled=False語(yǔ)句達(dá)到單擊MSFlexGrid控件中某記錄行時(shí),將該記錄的字段值顯示在對(duì)應(yīng)的控件中。學(xué)生信息管理模塊主要是實(shí)現(xiàn)學(xué)生信息的增加、修改、刪除、查詢和生成報(bào)表等功能,它的子窗體包括添加、修改學(xué)生信息窗體、學(xué)生信息查詢窗體、學(xué)生選課報(bào)表。在設(shè)計(jì)學(xué)生選課報(bào)表時(shí),用到了DataReport報(bào)表,這也是以前沒(méi)有用到的知識(shí)。使用DataReport報(bào)表可以使顯示的信息更加明了并可以方便打印。在報(bào)表設(shè)計(jì)完成后,將以下程序添加到frmStu窗口的工具欄“報(bào)表”按鈕程序段中,DataEnvironment1.Commands(1).Parameters(1).Value=_
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,1)StuDataReport.Show,當(dāng)按下“報(bào)表”按鈕時(shí),則顯示當(dāng)前MSFlexGrid.TextMatrix(MSFlexGrid1.Row,1)的值所指定學(xué)號(hào)的學(xué)生的所有選課信息。
四、結(jié)束語(yǔ)
兩周的實(shí)訓(xùn)終于結(jié)束了,這次實(shí)訓(xùn)的內(nèi)容是應(yīng)用SQLServer數(shù)據(jù)庫(kù)設(shè)計(jì)VB程序設(shè)計(jì)來(lái)設(shè)計(jì)“學(xué)生信息管理系統(tǒng)”。雖然時(shí)間只有短短的兩周,但使我獲益匪淺,感慨良多。使我感受最深的有如下幾點(diǎn):第一,實(shí)訓(xùn)是個(gè)人所學(xué)知識(shí)的應(yīng)用,是綜合能力的檢驗(yàn)。要想學(xué)好數(shù)據(jù)庫(kù),除了平時(shí)的理論功底外,還需要一定的時(shí)間動(dòng)手能力,操作能力,要學(xué)會(huì)靈活應(yīng)用所學(xué)的知識(shí)。第二,通過(guò)這次實(shí)訓(xùn),我深深地體會(huì)到積累知識(shí)的重要性,平時(shí)學(xué)習(xí)的不努力,在實(shí)訓(xùn)時(shí)必定會(huì)遇到很多的麻煩。此次實(shí)訓(xùn)讓我有了擴(kuò)寬知識(shí)面及提升技術(shù)能力的機(jī)會(huì),我真正領(lǐng)會(huì)到實(shí)踐與理論相結(jié)合的重要性。本次實(shí)訓(xùn)的目的是讓我們掌握數(shù)據(jù)庫(kù)系統(tǒng)的原理、及將理論與實(shí)踐相結(jié)合熟練熟練掌握SQLServer數(shù)據(jù)庫(kù)的設(shè)計(jì)及其對(duì)象的基本操作。雖然在實(shí)訓(xùn)過(guò)程中遇到了許多難點(diǎn)和問(wèn)題,但在老師和同學(xué)們的幫助下,最終解決了這些問(wèn)題并熟練的掌握了SQLServer數(shù)據(jù)庫(kù)的設(shè)計(jì)及其對(duì)象的基本操作以及VB應(yīng)用程序中界面設(shè)計(jì)的方法。通過(guò)實(shí)訓(xùn),使我了解了據(jù)庫(kù)系統(tǒng)在實(shí)際應(yīng)用中的開(kāi)發(fā)方法及設(shè)計(jì)過(guò)程,為今后從事管理信息系統(tǒng)的研究、開(kāi)發(fā)、應(yīng)用提供必要的知識(shí),更好地完成各種計(jì)算機(jī)應(yīng)用和開(kāi)發(fā)任務(wù)。
擴(kuò)展閱讀:SQL實(shí)訓(xùn)報(bào)告
程設(shè)計(jì)報(bào)
課程名稱(chēng)SQLserver201*管理系別:工程技術(shù)系專(zhuān)業(yè)班級(jí):計(jì)網(wǎng)0901學(xué)號(hào):0911060131姓名:江攀課程題目:SQL數(shù)據(jù)庫(kù)應(yīng)用完成日期:201*年12月16日指導(dǎo)老師:師韻
201*年12月16日
課告
Windowsserver201*服務(wù)器實(shí)訓(xùn)
首先熟知SQLServer201*數(shù)據(jù)庫(kù)和MicrosoftVisualBasic課程設(shè)計(jì)目的6.0企業(yè)版的注冊(cè)方法與技能,了解SQLServer201*的體系結(jié)構(gòu);掌握使用SQLServer企業(yè)管理器創(chuàng)建數(shù)據(jù)庫(kù)的技能與方法;掌握使用SQLServer企業(yè)管理器創(chuàng)建基本表的技能與方法;了解SQLServer201*查詢分析器的應(yīng)用方法;熟悉SQLServer201*和VisualBasic6.0的運(yùn)行環(huán)境。前后臺(tái)連接。能認(rèn)真獨(dú)立完成實(shí)訓(xùn)內(nèi)容;實(shí)訓(xùn)前做好上機(jī)實(shí)訓(xùn)的準(zhǔn)備,課程設(shè)計(jì)要求針對(duì)實(shí)訓(xùn)內(nèi)容,認(rèn)真復(fù)習(xí)與本次實(shí)訓(xùn)有關(guān)的知識(shí),完成實(shí)訓(xùn)內(nèi)容的預(yù)習(xí)準(zhǔn)備工作;實(shí)訓(xùn)后做好實(shí)訓(xùn)總結(jié)(包括實(shí)訓(xùn)過(guò)程中遇到的問(wèn)題及其解決方法、實(shí)訓(xùn)心得體會(huì)等),并根據(jù)實(shí)訓(xùn)情況完成實(shí)訓(xùn)報(bào)告。1、Sqlserver數(shù)據(jù)庫(kù)對(duì)應(yīng)的物理文件。2、大小的估算和設(shè)置。3、觸發(fā)器的類(lèi)型。4、觸發(fā)器的約束。課程設(shè)計(jì)注意事項(xiàng)課程設(shè)計(jì)內(nèi)容
1、數(shù)據(jù)庫(kù)的概念設(shè)計(jì)和邏輯設(shè)計(jì)。2、數(shù)據(jù)庫(kù)和數(shù)據(jù)表的創(chuàng)建。3、數(shù)據(jù)查詢。4、數(shù)據(jù)庫(kù)的備份。5、數(shù)據(jù)庫(kù)的導(dǎo)入與導(dǎo)出。Windowsserver201*服務(wù)器實(shí)訓(xùn)
課程設(shè)計(jì)簡(jiǎn)要操作步驟1、安裝和配置VB前臺(tái)和SQL201*后臺(tái)2、后臺(tái)SQLserver201*配置,創(chuàng)建服務(wù)器,創(chuàng)建數(shù)據(jù)表3、前臺(tái)VB6.0設(shè)計(jì)登錄信息窗口寫(xiě)入代碼4、前臺(tái)VB和后臺(tái)SQL201*關(guān)聯(lián),然后測(cè)試連接是否成功5、啟動(dòng)前臺(tái)登錄窗口測(cè)試并完成所有項(xiàng)目6、附錄前臺(tái)登錄窗口代碼此次實(shí)訓(xùn),雖說(shuō)時(shí)間很短,但其中的每一天都使我收獲很大、受益匪課程設(shè)計(jì)心得體會(huì)淺,它極大地加深了我對(duì)一些理論知識(shí)的理解,在實(shí)踐能力上也得到了提高,真正地做到了學(xué)以致用,對(duì)我來(lái)說(shuō)受益非淺。這次實(shí)訓(xùn)為我提供了與眾不同的學(xué)習(xí)方法和學(xué)習(xí)體會(huì),從書(shū)本中面對(duì)現(xiàn)實(shí),為我將來(lái)走上社會(huì)打下了扎實(shí)的基礎(chǔ)。從實(shí)踐操作中,我總結(jié)出一些屬于自己的實(shí)踐經(jīng)驗(yàn),社會(huì)是不會(huì)要一個(gè)一無(wú)是處的人的。作為在校網(wǎng)絡(luò)工程專(zhuān)業(yè)的學(xué)生,現(xiàn)在我能做的就是吸取知識(shí),提高自身的綜合素質(zhì),提高自己的職業(yè)技能,自己有了能力,到時(shí)候才會(huì)是“車(chē)到山前必有路”。我相信在不久的未來(lái),會(huì)有屬于我自己的一片天空課程設(shè)計(jì)評(píng)語(yǔ)及成績(jī)?cè)u(píng)語(yǔ)
成績(jī)指導(dǎo)教師(簽名)201*年12月日Windowsserver201*服務(wù)器實(shí)訓(xùn)
附:
一、MicrosoftSQLServer201*企業(yè)版和VisualBasic6.0企業(yè)版安裝:
1、首先熟知SQLServer201*數(shù)據(jù)庫(kù)和MicrosoftVisualBasic6.0企業(yè)版
的注冊(cè)方法與技能,了解SQLServer201*的體系結(jié)構(gòu);掌握使用SQLServer企業(yè)管理器創(chuàng)建數(shù)據(jù)庫(kù)的技能與方法;掌握使用SQLServer企業(yè)管理器創(chuàng)建基本表的技能與方法;了解SQLServer201*查詢分析器的應(yīng)用方法;熟悉SQLServer201*和VisualBasic6.0的運(yùn)行環(huán)境。2、MicrosoftSQLServer201*企業(yè)版安裝
這是安裝成功后:
Windowsserver201*服務(wù)器實(shí)訓(xùn)
3、VisualBasic6.0企業(yè)版安裝:
二、后臺(tái)數(shù)據(jù)庫(kù)配置管理:
【開(kāi)始】【程序】【SQLServer】【服務(wù)器網(wǎng)絡(luò)實(shí)用工具】
【客戶端網(wǎng)絡(luò)實(shí)用工具】
Windowsserver201*服務(wù)器實(shí)訓(xùn)
【企業(yè)管理器】【sqlserver組】【新建數(shù)據(jù)庫(kù)】
【新建表】【xsxxb】
Windowsserver201*服務(wù)器實(shí)訓(xùn)
三、前臺(tái)VB配置管理:
1、2、
設(shè)置學(xué)生信息詳情數(shù)據(jù)系統(tǒng)然后關(guān)聯(lián)SQLserver201*數(shù)據(jù)庫(kù)
【connectionstring】-----【使用連接字符串】---獲取SQL地址然后生成…
寫(xiě)入代碼并測(cè)試連接是否正確,{代碼附后錄}
Windowsserver201*服務(wù)器實(shí)訓(xùn)
學(xué)生信息系統(tǒng)是記錄學(xué)生信息的數(shù)據(jù)庫(kù),不能隨便每個(gè)人都進(jìn)吧,呵呵,所以我又設(shè)置了一個(gè)管理登錄窗口,然后將管理登錄窗口連接指向?qū)W生信息系統(tǒng),所以需要密碼才可以進(jìn)入查詢學(xué)生信系統(tǒng)額》。。
3、管理登錄系統(tǒng);
2、管理登錄賬戶:
登錄窗口和數(shù)據(jù)庫(kù)連接了但還要給予密碼賬戶》。。。我們?nèi)?shù)據(jù)庫(kù)創(chuàng)建安全表吧
Windowsserver201*服務(wù)器實(shí)訓(xùn)
四、前臺(tái)VB和后臺(tái)SQLserver201*測(cè)試調(diào)配:
Windowsserver201*服務(wù)器實(shí)訓(xùn)
測(cè)試成功,實(shí)訓(xùn)完成!
Windowsserver201*服務(wù)器實(shí)訓(xùn)
附:
一、管理登錄窗口代碼:
PrivateSubCommand1_Click()DimsqlAsString
Dimrs_loginAsNewADODB.RecordsetDimconnAsNewADODB.Connection
conn.Open"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=Stuscore;DataSource=SOLOVE007"IfTrim(Text1.Text)=""Then
MsgBox"用戶名不能為空,請(qǐng)重新輸入!"Text1.SetFocusElse
sql="select*fromadminwhereuserl=""&Trim(Text1.Text)&"""rs_login.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_login.EOF=TrueThen
MsgBox"沒(méi)有這個(gè)用戶,請(qǐng)重輸入!",vbOKOnly+vbExclamation,""Text1.Text=""Text1.SetFocusElse
UserName=Text1.Text
IfTrim(rs_login.Fields(1))=Trim(Text2.Text)ThenUnloadMe
學(xué)生信息詳情.ShowElse
MsgBox"密碼不正確,請(qǐng)重輸入!",vbOKOnly+vbExclamation,""Text2.SetFocusText2.Text=""EndIfEndIfEndIf
cnt=cnt+1Ifcnt=3ThenUnloadMeEndIfEndSub
PrivateSubCommand2_Click()EndEndSub
PrivateSubForm_Load()cnt=0EndSub
Windowsserver201*服務(wù)器實(shí)訓(xùn)
二、學(xué)生信息詳情系統(tǒng):
PrivateSubCommand1_Click()DimmynumberAsString
mynumber=InputBox$("請(qǐng)輸入學(xué)號(hào)(4位)","學(xué)號(hào)搜索")"輸入搜索的學(xué)號(hào)
Adodc1.Recordset.MoveFirst
"將記錄移至第一條Ifmynumber""Then
mynumber="sno=""&mynumber&"""
"組合搜索字符串Adodc1.Recordset.Find(mynumber)
"尋找符合學(xué)號(hào)的記錄
IfAdodc1.Recordset.EOFThen
"沒(méi)找到,輸出提示信息MsgBox"沒(méi)有該學(xué)生!"EndIfEndIf
EndSub
PrivateSubCommand2_Click()DimiAsIntegerOnErrorGoToapperr
Adodc1.Recordset.AddNew"添加新紀(jì)錄Fori=0To5
Text1(i).Text="""清除數(shù)據(jù)窗口Next
Text1(0).SetFocus"將焦點(diǎn)設(shè)置在Text1(0)savecancelExitSub
apperr:MsgBoxErr.DescriptionEndSub
PrivateSubCommand3_Click()DimsAsString
OnErrorGoTodelerr
s=MsgBox("確定要?jiǎng)h除嗎?",vbQuestion+vbOKCancel,"確定刪除!")"刪除確認(rèn)窗口
Ifs=1Then"確定刪除一條記錄Adodc1.Recordset.Delete"刪除記錄Adodc1.Recordset.MoveNext"移至下一條記錄IfAdodc1.Recordset.RecordCount>0Then
"是否還有記錄IfAdodc1.Recordset.EOFThen
創(chuàng)建12
Windowsserver201*服務(wù)器實(shí)訓(xùn)
"是否移記錄指針到盡頭Adodc1.Recordset.MoveLast"移至最后一條記錄EndIfEndIfEndIfExitSubdelerr:
MsgBoxErr.DescriptionEndSub
PrivateSubCommand4_Click()DimsAsString
OnErrorGoToupdateerrAdodc1.Recordset.UpdateAdodc1.Refreshinitial_buttonExitSubupdateerr:
MsgBoxErr.Description
EndSub
PrivateSubCommand5_Click()OnErrorGoTocancelerr
Adodc1.Recordset.CancelUpdateinitial_buttonExitSub
cancelerr:MsgBoxErr.DescriptionEndSub
PrivateSubCommand6_Click()EndEndSub
PublicSubsavecancel()Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=TrueCommand5.Enabled=TrueCommand6.Enabled=FalseEndSub
PublicSubinitial_button()
IfAdodc1.Recordset.RecordCount=0ThenCommand1.Enabled=FalseCommand2.Enabled=TrueCommand3.Enabled=FalseCommand4.Enabled=False
Windowsserver201*服務(wù)器實(shí)訓(xùn)
Command5.Enabled=FalseCommand6.Enabled=TrueElse
Command1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=TrueEndIfEndSub
PrivateSubForm_Load()initial_buttonEndSub
友情提示:本文中關(guān)于《SQL實(shí)訓(xùn)報(bào)告》給出的范例僅供您參考拓展思維使用,SQL實(shí)訓(xùn)報(bào)告:該篇文章建議您自主創(chuàng)作。
來(lái)源:網(wǎng)絡(luò)整理 免責(zé)聲明:本文僅限學(xué)習(xí)分享,如產(chǎn)生版權(quán)問(wèn)題,請(qǐng)聯(lián)系我們及時(shí)刪除。