【導(dǎo)讀】設(shè)計思想、系統(tǒng)開發(fā)環(huán)境及目前的應(yīng)用情況。步完善，對學(xué)生掌握每一課程內(nèi)容程度的考試必須規(guī)范化，系統(tǒng)化，科學(xué)化，現(xiàn)代化；教學(xué)管理必須現(xiàn)代化、規(guī)范化。學(xué)而又全面的考核。情況，我們研制了計算機類學(xué)科試題庫與自動組卷系統(tǒng)。鑒于這種情況，利用計算機進(jìn)行試卷的。們轉(zhuǎn)變?yōu)橛行У臄?shù)據(jù)庫設(shè)計。并已形成較為完整的理論體系和一大批實用系統(tǒng)。迅速發(fā)展，使得數(shù)據(jù)庫技術(shù)之時成為最熱門技術(shù)之一。的結(jié)構(gòu)的描述，這種結(jié)構(gòu)的描述稱作元數(shù)據(jù)。在表中存儲元數(shù)據(jù)不僅對DBMS是有。據(jù)同樣的查詢工具來查詢元數(shù)據(jù)。并非所有的DBMS都支持應(yīng)。然而，大多數(shù)現(xiàn)代的DBMS產(chǎn)。DBMS是數(shù)據(jù)庫系統(tǒng)的核心組成部分。DBMS總是基于某種數(shù)據(jù)模型，可以把DBMS看成。統(tǒng)、運行子系統(tǒng)和DBMS引擎。據(jù)庫及其應(yīng)用創(chuàng)建的工具集。DBMS產(chǎn)品還提供編程語言和對編程語。DBMS引擎還涉及事務(wù)管理、鎖、備份和恢復(fù)。定的分類、分組系統(tǒng)和邏輯層次組織起來，是面向用戶的。

　　

【正文】 else := true。 := (?savedays?)。 if trim() = ?? then := ?10?。 。 finally 。 。 end。 := false。 end。 procedure (Sender: TObject)。 begin (TSelectDir, SelectDir)。 := ExtractFileDrive()。 if (FileExists()) then := 。 if ( = mrOK) then := 。 //。 。 end。 procedure (Sender: TObject)。 begin (TAboutForm, AboutForm)。 。 。 end。 procedure (Sender: TObject)。 begin := true。 end。 procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。 begin if (key = 13) or (key = 40) then { 判斷是按執(zhí)行鍵 } begin key := 0。 perform(WM_NEXTDLGCTL, 0, 0)。 {移動到下一個控件 } end。 end。 end. unit BackUpUnit。 //數(shù)據(jù)備份 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, shellapi。 type TBackUpForm = class(TForm) Panel1: TPanel。 Edit_path: TEdit。 Label3: TLabel。 Label4: TLabel。 Select: TButton。 Panel_button: TPanel。 Bevel_button: TBevel。 OKBtn: TButton。 CancelBtn: TButton。 procedure OKBtnClick(Sender: TObject)。 procedure Edit_pathChange(Sender: TObject)。 procedure FormCreate(Sender: TObject)。 procedure SelectClick(Sender: TObject)。 procedure CancelBtnClick(Sender: TObject)。 procedure Edit_pathEnter(Sender: TObject)。 private { Private declarations } public B_showmessage: boolean。 { Public declarations } end。 var BackUpForm: TBackUpForm。 implementation uses FunctionUnit, SelectDirUnit。 {$R *.dfm} procedure (Sender: TObject)。 var SFilePath, DFilePath, SourcePath: string。 MesString: string。 OpStruc: TSHFileOpStruct。 FromBuf, ToBuf: array[0..255] of Char。 ShouldCopy: Boolean。 sr: TSearchRec。 FileAttrs: Integer。 label COPYAGAIN。 begin COPYAGAIN: // 準(zhǔn)備目錄拷貝 FillChar(FromBuf, Sizeof(FromBuf), 0)。 FillChar(ToBuf, Sizeof(ToBuf), 0)。 // 設(shè)置 OpStruc with OpStruc do begin Wnd := Handle。 wFunc := FO_COPY。 pFrom := @FromBuf。 pTo := @ToBuf。 fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION。 fAnyOperationsAborted := False。 hNameMappings := nil。 lpszProgressTitle := nil。 end。 SourcePath := ExtractFileDir()。 if (StrLen(PChar(SourcePath)) 3) then SourcePath := SourcePath + ?\?。 FillChar(FromBuf, Sizeof(FromBuf), 0)。 FillChar(ToBuf, Sizeof(ToBuf), 0)。 SFilePath := SourcePath + ?data?。 StrPCopy(FromBuf, Pchar(SFilePath))。 DFilePath := 。 StrPCopy(ToBuf, Pchar(DFilePath))。 // 檢測源路徑是否存在 if (not DirectoryExists(SFilePath)) then begin if B_showmessage then begin MesString := ?源數(shù)據(jù)庫目錄 ? + SFilePath + ?已被破壞，系統(tǒng)不能進(jìn)行備份。 ?。 MessageBox(Handle, PChar(MesString), ?錯誤 ?, MB_OK + MB_ICONERROR)。 end。 exit。 end。 if uppercase(SFilePath) = uppercase(DFilePath) then begin if B_showmessage then begin MesString := ?源數(shù)據(jù)庫目錄與目標(biāo)數(shù)據(jù)庫目錄相同，系統(tǒng)不能進(jìn)行備份。 ?。 MessageBox(Handle, PChar(MesString), ?錯誤 ?, MB_OK + MB_ICONERROR)。 end。 exit。 end。 // 檢測目的路徑是否存 在 ShouldCopy := True。 if (DirectoryExists(DFilePath)) then begin if B_showmessage then begin MesString := ?目的路徑 ? + DFilePath + ? 已經(jīng)存在，繼續(xù)備份會刪除該文件夾下的所有文件。 ? + chr(13) + ?是否繼續(xù)備份至該目錄？ ?。 if MessageBox(Handle, PChar(MesString), ? 信息 ?, MB_YESNO + MB_ICONINFORMATION) IDYES then ShouldCopy := False else //先刪除該文件夾 begin := FO_DELETE。 StrPCopy(FromBuf, Pchar(DFilePath))。 ShFileOperation(OpStruc)。 goto COPYAGAIN。 //刪除已存在的目錄文件夾后重新COPY end。 end else begin := FO_DELETE。 StrPCopy(FromBuf, Pchar(DFilePath))。 ShFileOperation(OpStruc)。 goto COPYAGAIN。 //刪除已存在的目錄文件夾后重新COPY end。 end。 if ShouldCopy then begin if ShFileOperation(OpStruc) 0 then begin MesString := ?在備份目錄 ? + SFilePath + ?的過程中出現(xiàn)錯誤。 ?。 MessageBox(Handle, PChar(MesString), ?錯誤 ?, MB_OK + MB_ICONERROR)。 end else // 將文件的屬性設(shè)置為不是只讀屬性 begin FileAttrs := faAnyFile。 if FindFirst(DFilePath + ?\*.*?, FileAttrs, sr) = 0 then begin FileSetAttr(DFilePath + ?\? + , faArchive)。 end。 while FindNext(sr) = 0 do begin FileSetAttr(DFilePath + ?\? + , faArchive)。 end。 FindClose(sr)。 if B_showmessage then begin showmessage(?所有數(shù)據(jù)已安全備份至 “? + dfilepath + ?”！ ?)。 。 end。 end。 end。 end。 procedure (Sender: TObject)。 begin if trim() ?? then := true else := false。 end。 procedure (Sender: TObject)。 var SourcePath: string。 begin inherited。 := + ? 數(shù)據(jù)備份 ?。 B_showmessage := true。 SourcePath := ExtractFileDir()。 if (StrLen(PChar(SourcePath)) 3) then SourcePath := SourcePath + ?\?。 := SourcePath + ?BACKUPDATA\? + formatdatetime(?yyyymmdd?, date)。 end。 procedure (Sender: TObject)。 begin (TSelectDir, SelectDir)。 := ExtractFileDrive()。 if (FileExists()) then := 。 if ( = mrOK) then := 。 。 。 end。 procedure (Sender: TOb