【正文】 scanf(\n%c,answer)。 } } } score_2(r_2num,m)。 PR( C)sinx+secx*secx D)cosx+1/(cosx*cosx)\nHere:)。)。 /*調(diào)用隨機(jī)函數(shù),進(jìn)入數(shù)學(xué)自動(dòng)出題改卷系統(tǒng)*/ { j=random(2)。 if(strcmp(ans,AC)==0||strcmp(ans,ac)==0) {r_1num++。c_1[i]=i。 /*調(diào)用隨機(jī)函數(shù),進(jìn)入英語(yǔ)自動(dòng)改卷系統(tǒng)*/ {j=random(2)。 /*調(diào)用英語(yǔ)試題函數(shù)*/ else if(kemu==2) question_2(m)。 /*調(diào)用C語(yǔ)言試題函數(shù)*/ else if(kemu==5) question_5(m)。 PR(\n\n * Please input the TOTAL of qusetions again:)。 if(m=10) /*10為系統(tǒng)規(guī)定的每科總題數(shù)，所選試題數(shù)不得多于系統(tǒng)規(guī)定總題數(shù)*/ {clrscr()。 if(strcmp(yon,Y)==0||strcmp(yon,y)==0) exit(1)。 ques_total(kemu)。 /* 調(diào)用試題總數(shù)函數(shù)*/ break。kemu)。 PR( \1 (2) MATH \1 \n)。 /*調(diào)用系統(tǒng)時(shí)間函數(shù)*/ getch()。 cputs(c[4])。 cputs(c[3])。 /*閃屏歡迎界面代碼部分*/ textbackground(2)。 /*組裝與維護(hù)試題函數(shù)聲明*/ int score_1()。int c_4[10]={0},d_4[10]={0}。39。39。39。39。39。39。39。39。獲得隨機(jī)數(shù) rdnbt1 = CStr(myrs3(編號(hào)))39。圖54 題形類型圖通過(guò)ADO控件連接到數(shù)據(jù)庫(kù)的實(shí)驗(yàn)項(xiàng)目表用DATA GRID控件，將它的數(shù)據(jù)源設(shè)為ADO控件，將它的各列顯示出數(shù)據(jù)庫(kù)的各列。39。39。39。39。39。39。39。39。39。39。39。39。 , my, adOpenKeyset, adLockOptimistic 多級(jí)查詢問(wèn)題單級(jí)查詢使用 SELECT * FORM TK WHERE 字段 =SS多級(jí)查詢使用 SELECT * FORM TK WHERE 字段1 =SS AND字段2 =SS25系統(tǒng)具體實(shí)現(xiàn)首先建立模塊，用來(lái)存放公共變量Public user。39。39。39。39。39。39。39。39。G 如果有 通過(guò)SQL語(yǔ)句判斷是否密碼正確。它的語(yǔ)法如下: AffectRecords其中的,AffectRecords參數(shù)是確定Delete方法作用的方式的,它的取值如下:adAffectCurrent 只刪除當(dāng)前的記錄adAffectGroup ,應(yīng)設(shè)置Filter屬性。 具體實(shí)現(xiàn)辦法(1)連接數(shù)據(jù)源.語(yǔ)法: ConnectionString, UserID, PassWord, OpenOptions其中：Connection對(duì)象為你定義的Connection對(duì)象的實(shí)例。然而，從系統(tǒng)開發(fā)的角度上看，共享會(huì)給設(shè)計(jì)和調(diào)試帶來(lái)困難。數(shù)據(jù)的輸入是否準(zhǔn)確是數(shù)據(jù)處理的前提，錯(cuò)誤的輸入會(huì)導(dǎo)致系統(tǒng)輸出的不正確和不可用，從而使系統(tǒng)的工作失去意義。它是學(xué)校不可缺少的部分,它能夠?yàn)橛脩籼峁┓奖?、快捷、有效的管理題庫(kù)及組織出卷的手段。由于我們開發(fā)的軟件相對(duì)較小，其主要支出費(fèi)用為計(jì)算機(jī)軟件的開發(fā)與維護(hù)，這些都可以在我們的實(shí)驗(yàn)室進(jìn)行，不會(huì)存在經(jīng)濟(jì)方面的問(wèn)題。Access2003 就是關(guān)系數(shù)據(jù)庫(kù)開發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索?！?對(duì)象的鏈接與嵌入(OLE)對(duì)象的鏈接與嵌入(OLE)將每個(gè)應(yīng)用程序都看作是一個(gè)對(duì)象(object)，將不同的對(duì)象鏈接(link)起來(lái)，再嵌入(embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫、文字等各種信息的集合式的文件。這些過(guò)程分別面向不同的對(duì)象，由用戶操作引發(fā)某個(gè)事件來(lái)驅(qū)動(dòng)完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過(guò)程來(lái)執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。大量的第三方控件針對(duì)VB提供。有很少功能的對(duì)話框窗口（比如沒(méi)有最大化和最小化按鈕的窗體）可以用來(lái)提供彈出功能。recordset，屬性可用一個(gè)SQL語(yǔ)句賦值，以此來(lái)有效地調(diào)用SQL語(yǔ)句，從而發(fā)揮SELECT語(yǔ)句強(qiáng)大的功能，更使數(shù)據(jù)庫(kù)控制控件（Data在Form窗口中單擊選中此控件（DGrid1），按下F4打開屬性窗口，設(shè)置Datasource屬性為Data1，在Form窗口中用鼠標(biāo)右鍵單擊控件DGrid1，選擇如工具箱中無(wú)此控件，可打開主菜單的Tools/Custom，在列表中選中Microsoft所以VB在管理信息系統(tǒng)（MIS）的開發(fā)和建設(shè)方面得到了是益廣泛的應(yīng)用。本文主要介紹用ADO編程所需要注意的技巧和在VC下進(jìn)行ADO編程的模式，并對(duì)C＋＋Extensions進(jìn)行了簡(jiǎn)單的討論，希望對(duì)ADO開發(fā)人員有一定的幫助作用。 ADO是一種面向?qū)ο蟮木幊探涌?，微軟介紹說(shuō)，與其同IBM和Oracle提倡的那樣，創(chuàng)建一個(gè)統(tǒng)一數(shù)據(jù)庫(kù)，不如提供一個(gè)能夠訪問(wèn)不同數(shù)據(jù)庫(kù)的統(tǒng)一接口，這樣會(huì)更加實(shí)用一些。同傳統(tǒng)的數(shù)據(jù)對(duì)象層次（DAO和RDO）不同，ADO可以獨(dú)立創(chuàng)建。ADO是由早期的微軟數(shù)據(jù)接口??遠(yuǎn)程數(shù)據(jù)對(duì)象RDO演化而來(lái)的。ADO組件的使用需要利用支持COM的高級(jí)語(yǔ)言，例如ASP中的VBScript或者Visual Basic，甚至Delphi,微軟的競(jìng)爭(zhēng)對(duì)手Borland的一個(gè)產(chǎn)品，現(xiàn)在也支持使用ADO來(lái)訪問(wèn)數(shù)據(jù)庫(kù)。ADO控件還提供了用來(lái)瀏覽不同記錄的各種跳轉(zhuǎn)按鈕。Access 是一種關(guān)系數(shù)據(jù)庫(kù)工具，關(guān)系數(shù)據(jù)庫(kù)是已開發(fā)的最通用的數(shù)據(jù)庫(kù)之一?？墒侨绻峭高^(guò)網(wǎng)絡(luò)存取數(shù)據(jù)的話，Access 的可擴(kuò)放性并不高．因此當(dāng)程序被較多使用者使用時(shí)，他們的選擇多會(huì)是傾向于一些客戶端服務(wù)器為本的方案，例如 Oracle、DBMicrosoft SQL Server、Windows SharePoint Services、PostgreSQL、MySQL、Alpha Five、MaxDB，或者Filemaker。如上所述，Access 作為關(guān)系數(shù)據(jù)庫(kù)開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù)庫(kù)的強(qiáng)大功能。它具有豐富的數(shù)據(jù)類型、眾多的內(nèi)部函數(shù)和結(jié)構(gòu)化程序結(jié)構(gòu)，而且簡(jiǎn)單易學(xué)，同時(shí)VB支持多種數(shù)據(jù)庫(kù)系統(tǒng)訪問(wèn)。程序使用了VB和ACCESS的來(lái)完成程序的編寫來(lái)實(shí)現(xiàn)符合操作簡(jiǎn)便、界面美觀友好，實(shí)用等要求，實(shí)現(xiàn)了自動(dòng)出題功能。企業(yè)的管理數(shù)據(jù)是MIS正常運(yùn)行的基礎(chǔ)。進(jìn)入20世紀(jì)80年代末，隨著計(jì)算機(jī)網(wǎng)絡(luò)和通訊技術(shù)的大力發(fā)展，信息系統(tǒng)進(jìn)入網(wǎng)絡(luò)化的發(fā)展時(shí)期?！稊?shù)據(jù)庫(kù)原理及應(yīng)用》是計(jì)算機(jī)科學(xué)與技術(shù)專業(yè)中一門重要的專業(yè)基礎(chǔ)課程，因此，題庫(kù)管理和試卷生成系統(tǒng)是當(dāng)前的一個(gè)很好的開發(fā)項(xiàng)目。通過(guò)數(shù)據(jù)庫(kù)技術(shù)分析數(shù)據(jù)庫(kù)中的題庫(kù)基本信息，達(dá)到管理的目1 建立數(shù)據(jù)庫(kù),題庫(kù)基本資料就存放在其中2 把,題庫(kù)的全部資料輸入數(shù)據(jù)庫(kù)3 用VB開發(fā)出應(yīng)用程序連接數(shù)據(jù)庫(kù)根據(jù)實(shí)際情況，我們使用ADO控件少量代價(jià)快速地構(gòu)造一個(gè)可執(zhí)行的軟件系統(tǒng)模型。了解了管理信息系統(tǒng)的發(fā)展過(guò)程我們可以看到管理信息系統(tǒng)的工作從最基礎(chǔ)的工作，如打印報(bào)表等工作到今日的支持企業(yè)組織的目標(biāo)，輔助決策者進(jìn)行決策的決策支持系統(tǒng)（DSS）階段，管理信息系統(tǒng)的迅速發(fā)展過(guò)程就是生產(chǎn)水平迅速發(fā)展的過(guò)程。但從概念上來(lái)講，它只是一個(gè)數(shù)據(jù)更新系統(tǒng)，比如它不能告訴你以現(xiàn)在的售票速度何時(shí)票將售完，從而采取補(bǔ)救措施。題庫(kù)管理無(wú)論是哪個(gè)學(xué)校都要進(jìn)行的工作?？梢?，世界已進(jìn)入了在計(jì)算機(jī)信息管理領(lǐng)域中激烈競(jìng)爭(zhēng)的時(shí)代，應(yīng)用計(jì)算機(jī)已經(jīng)是很普遍的事了，如同我們離不開的自行車、汽車一樣。正所謂“科學(xué)技術(shù)是第一生產(chǎn)力”，科技的進(jìn)步大大地提高了生產(chǎn)率。 puter。我們應(yīng)該承認(rèn)，誰(shuí)掌握的知識(shí)多，信息量大，信息處理速度快，批量大，誰(shuí)的效率就高，誰(shuí)就能在各種競(jìng)爭(zhēng)中立于不敗之地。管理信息系統(tǒng)的發(fā)展經(jīng)過(guò)了四個(gè)階段。有較好的人機(jī)對(duì)話方式，可以和不太熟悉計(jì)算機(jī)的管理人員對(duì)話。（3） 利用指定的數(shù)據(jù)關(guān)系式分析數(shù)據(jù)，客觀預(yù)測(cè)未來(lái)。用戶通過(guò)口令進(jìn)行登錄，登陸后用戶可以對(duì)題庫(kù)進(jìn)行管理、組卷，如果用戶為管理員還可以對(duì)普通用戶進(jìn)行管理。第四，能夠?qū)︻}庫(kù)進(jìn)行管理、試卷生成并實(shí)現(xiàn)報(bào)表打印。MIS是一項(xiàng)系統(tǒng)工程，不是靠一些計(jì)算機(jī)開發(fā)人員就可以完成的，必須有企業(yè)管理人員，尤其是企業(yè)領(lǐng)導(dǎo)的積極參與。第二，不同身份的用戶在使用中有不同的權(quán)限。本軟件采用Microsoft Visual Basic 。另外，Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中的信息。數(shù)年后他們把名字重新命名于數(shù)據(jù)庫(kù)軟件。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。我們可以設(shè)置ADO控件的各個(gè)屬性，告訴它要調(diào)用那個(gè)數(shù)據(jù)庫(kù)的哪個(gè)部分。訪問(wèn)數(shù)據(jù)庫(kù)的時(shí)候，關(guān)于SQL的知識(shí)不是必要的，但是特定數(shù)據(jù)庫(kù)支持的SQL命令仍可以通過(guò)ADO中的命令對(duì)象來(lái)執(zhí)行?！￠_發(fā)人員在使用ADO時(shí)，其實(shí)就是在使用OLE DB，不過(guò)OLE DB更加接近底層。目前，雖然OLE DB提供者比較少，但微軟正積極推廣該技術(shù)，并打算用OLE DB取代ODBC。為達(dá)到這一目的，Microsoft和其它數(shù)據(jù)庫(kù)公司在它們的數(shù)據(jù)庫(kù)和Microsoft的OLE數(shù)據(jù)庫(kù)之間提供了一個(gè)“橋”程序，OLE數(shù)據(jù)庫(kù)已經(jīng)在使用ADO技術(shù)。ADO是由早期的微軟數(shù)據(jù)接口??遠(yuǎn)程數(shù)據(jù)對(duì)象RDO演化而來(lái)的。Basic（簡(jiǎn)稱VB）是一種可視化的、事件驅(qū)動(dòng)型的Windows應(yīng)用程序開發(fā)工具，它在GUI設(shè)計(jì)、繪圖、制表、運(yùn)算、通信和多媒體開發(fā)方面都具有簡(jiǎn)單易行、功能強(qiáng)大等優(yōu)點(diǎn)，所以越來(lái)越受到開發(fā)人員的親睞。在這三種方法中，第一種方法操作起來(lái)最方便、靈活、易于掌握，同時(shí)也最能體現(xiàn)Visual Basic面向?qū)ο蟮奶厣榻B數(shù)據(jù)庫(kù)控制控件（Data Control）訪問(wèn)數(shù)據(jù)庫(kù)的方法與步驟：◆ 在Form窗口中加入Data◆ 加入字段顯示、編輯控件（數(shù)據(jù)庫(kù)捆綁控件）在Form窗口中加入DGrid控件，如不在此控件，可打開主菜單Tools/Custom，在列表中選擇Apex除此之外，數(shù)據(jù)庫(kù)控制控件還有Bookmark、RecordCount等許多屬性與方法，能對(duì)數(shù)據(jù)庫(kù)進(jìn)行各種方便的操作?；虻菙?shù)據(jù)連接不會(huì)馬上斷開，和有些語(yǔ)言不一樣，VB對(duì)大小寫不敏感，但是能自動(dòng)轉(zhuǎn)換關(guān)鍵詞到標(biāo)準(zhǔn)的大小寫狀態(tài)，以及強(qiáng)制使得符號(hào)表入口的實(shí)體的變量名稱遵循書寫規(guī)則。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過(guò)一段程序來(lái)響應(yīng)。◆ 動(dòng)態(tài)數(shù)據(jù)交換(DDE)利用動(dòng)態(tài)數(shù)據(jù)交換(Dynamic Data Exchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動(dòng)態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動(dòng)態(tài)數(shù)據(jù)鏈路。此外，通過(guò)動(dòng)態(tài)鏈接庫(kù)，還可以調(diào)用Windows應(yīng)用程序接口(API)函數(shù)，實(shí)現(xiàn)SDK所具有的功能。通過(guò)數(shù)據(jù)庫(kù)技術(shù)分析數(shù)據(jù)庫(kù)中的題庫(kù)基本信息，達(dá)到對(duì)題庫(kù)管理及試卷生成的目的，第一建立數(shù)據(jù)庫(kù),題庫(kù)基本資料就存放在其中，第二把題庫(kù)的全部資料輸入數(shù)據(jù)庫(kù)，第三用VB開發(fā)出應(yīng)用程序連接數(shù)據(jù)庫(kù)。該系統(tǒng)克服了手工管理的弊端，當(dāng)然本系統(tǒng)還存在很多不足之處，但在系統(tǒng)的易操作有一定的優(yōu)勢(shì)?！?自動(dòng)生成試卷用戶可以按照科目、章節(jié)，用戶只要輸入要出卷的數(shù)量就可以自動(dòng)出卷，并保存到試卷題庫(kù)中，然后在試卷界面顯示題目。要解決這一問(wèn)題，要有一定的人員維護(hù)數(shù)據(jù)的一致性，在數(shù)據(jù)錄入處控制數(shù)據(jù)的去向，并且要求對(duì)數(shù)據(jù)庫(kù)的數(shù)據(jù)完整性進(jìn)行嚴(yán)格的約束。4 出試卷： 對(duì)進(jìn)入題庫(kù)的記錄進(jìn)行出卷。再用完AddNew方法為記錄集添加新的記錄后,。 Object為ADO對(duì)象 多用戶登陸問(wèn)題a 建立模塊，Module1b 在模塊中申明變量 Public userc 在數(shù)據(jù)庫(kù)建立用戶表，存放用戶名和密碼，然后輸入多個(gè)用戶d 通過(guò)ADO代碼連接到數(shù)據(jù)庫(kù)。獲得隨機(jī)數(shù) rdnbt1 = CStr(myrs3(編號(hào)))39。39。39。39。39。39。39。39。39。, my, adOpenKeyset, adLockOptimisticIf = True And = True ThenMsgBox 查無(wú)此人, , 登陸信息ElseIf myrs(pass) = pass Then39。39。39。39。39。39。39。39。39。39。39。39。 設(shè)定類型對(duì)實(shí)驗(yàn)題庫(kù)的試題類型進(jìn)行設(shè)定。屬性設(shè)為可寫。39。39。39。39。39。39。39。39。int score。 /*數(shù)學(xué)試題函數(shù)聲明*/ int question_3()。 /*組裝與維護(hù)分?jǐn)?shù)顯示函數(shù)聲明*/ void system_time()。 clrscr()。 gotoxy(20,14)。 /*清屏函數(shù)*/ wele()。 /*以下為主菜單*/ PR( ******************MENU****************\n\n)。 PR( *****************CHOICE***************