【文章內(nèi)容簡(jiǎn)介】 evelWidth 屬性值，可以實(shí)現(xiàn)不同的效果。另外， Panel 組件還可以處理提示。由于該組件的事件和方法較少而且不常用，下面主要介紹其屬性，當(dāng)然對(duì) 屬性的修改可以在設(shè)計(jì)期或運(yùn)行期來(lái)完成。 Align：很多組件有該屬性，用來(lái)定義組件在窗體中的位置。其可選值為alNone,alTop,alBotton,alLeft,alRight,alClient,alCustom。對(duì)于典型的工具欄， 可使用 alTop 值，若模仿?tīng)顟B(tài)欄，可使用 alBotton 值。 Alignment：該屬性定義 Panel 組件標(biāo)題文本的排列方式。 BevelInner：該屬性定義面板內(nèi)框的顯示風(fēng)格，即有無(wú)內(nèi)框。若有，是凸出 還是凹進(jìn)。 BevelOuter：該屬性定義面板外框的顯示風(fēng)格，即有無(wú)外框。若有，是凸出 還是凹進(jìn)。 BorderStyle：該屬性定義面板組件的邊界類(lèi)型，若為 bsSingle,則為單線邊界，若為 bsNone,則無(wú)邊界。 BorderWidth：該屬性定義面板周?chē)吔绲膶挾?，其默認(rèn)值為 0，即無(wú)邊界。 Caption：該屬性定義 Panel 組件的標(biāo)題。 Color：該屬性定義 Panel 組件的背景色。 Font：該屬性包括一些子屬性?？蓡螕魧傩杂疫叺陌粹o，打開(kāi)“字體”對(duì)話框， 進(jìn)行設(shè)置。 Name：該屬性定義 Panel 組件的名稱(chēng)。 Hint：該屬性定義當(dāng)鼠標(biāo)在 Panel 組件上移動(dòng)時(shí)所顯示的文本。 2. PageControl 組件 PageControl 組件位于 Win32 組件頁(yè)，是一組頁(yè)面集，用來(lái)構(gòu)造一個(gè)多頁(yè)對(duì)話框， 它顯示多個(gè)交互頁(yè)。用戶(hù)通過(guò)選擇出現(xiàn)在頁(yè)面上部的 Tab，以選擇不同的選項(xiàng)卡。在 設(shè)計(jì)時(shí)，如果要增加一個(gè)新頁(yè)面，則可以使用鼠標(biāo)右鍵單擊并在彈出的快捷菜單中 選擇“ New Page” 命令。如果只需建立一個(gè)單頁(yè)，則可用 Win32 組件頁(yè)的 TabControl 組件。 PageControl 組件的幾個(gè)重要屬性和方法： 9 ActivePage 屬性。該屬性指定當(dāng)前顯示的頁(yè)，該屬性的值為各個(gè) TabSheet 組件的 Name 屬性值。因?yàn)?PageControl 組件實(shí)際上是為 TabSheet 組件提供了一個(gè) 類(lèi)似的容器的功能，而真正與各個(gè)不同組件對(duì)象相對(duì)應(yīng)的是 TabSheet 組件。通過(guò) 讀取 ActivePage 屬性可以獲知用戶(hù)當(dāng)前選中的是哪一個(gè)頁(yè)面。在運(yùn)行期 Delphi 提 一些方法用于實(shí)時(shí)設(shè)置該屬性，例如，使用 SelectNextPage 方法指定下一個(gè)相 鄰頁(yè)為當(dāng)前頁(yè)， FindNextPage 方法可以查找下一個(gè)當(dāng)前頁(yè)，返回值為該頁(yè) 的 Name 屬性。 Pages 屬性。該屬性含有 PageControl 組件中的所有頁(yè)面，并可通過(guò)下標(biāo)問(wèn)特定的頁(yè)面，其中第一頁(yè)的索引值為 0，第二頁(yè)的索引值為 1，依此類(lèi)推。可使用 FindNextPage 方法定位 PageControl 組件中的特定頁(yè)。值得注意的是， Pages 屬性 為只讀屬性。 PageCount 屬性。該屬性確定在 Pages 屬性中所包含的頁(yè)數(shù)。如果 MultiLine 屬性為 False，則并非所有頁(yè)均可視。 MultiLine 屬性。該屬 性決定 PageControl 組件的頁(yè)面如何顯示。若其值為 True,當(dāng)組件上的頁(yè)面超出時(shí)，顯示為多行；若其值為 False，則只能顯示一行，如果一行超出，則增加一個(gè)滾動(dòng)條。 DoAddDockClient 方法。如果在運(yùn)行期在組件中添加新頁(yè)，則可以調(diào)用該方法完成各頁(yè)的必要的調(diào)整。 CanShowTab 方法。該方法用來(lái)決定 TabSheet 頁(yè)面在 PageControl 組件中能否被設(shè)置為活動(dòng)頁(yè)面，如果指定的頁(yè)面被激活，則返回真。 FindNextPage方法。其功 能是返回指定頁(yè)的下一頁(yè)。參數(shù) GoForward為 False， 則該方法將返回 CurPage 頁(yè)的前一頁(yè)。當(dāng) CurPage 參數(shù)指定的不是 PageControl 組件中的一頁(yè)時(shí)，如果參數(shù) GoForward 為 True，則該方法返回組件的第一頁(yè)；否則 調(diào)用該方法返回最后一頁(yè)。 SelectNextPage 方法。調(diào)用該方法可查找當(dāng)前頁(yè)前或后的頁(yè)。參數(shù) GoForward 決定是前一頁(yè)還是后一頁(yè)。 UpdateActivePage 方法。調(diào)用該方法可以對(duì)當(dāng)前頁(yè)面內(nèi)的屬性和所有組件 進(jìn)行更新，以顯示最新的數(shù)據(jù)。 10 第四章 主要功能模塊劃分 系統(tǒng)登錄模塊設(shè)計(jì) 對(duì)多用戶(hù)數(shù)據(jù)庫(kù)程序來(lái)說(shuō)，不同的用戶(hù)應(yīng)有不同的權(quán)限。比如管理員可以無(wú)任 何限制，有的用戶(hù)只有查詢(xún)的權(quán)限沒(méi)有修改的權(quán)限，有的用戶(hù)只可以輸入數(shù)據(jù)不能 查詢(xún)等等。所以在數(shù)據(jù)庫(kù)程序啟動(dòng)時(shí)需要輸入用戶(hù)名和密碼后才能進(jìn)入，程序根據(jù) 用戶(hù)名找到用戶(hù)的權(quán)限，確定哪些功能可以使用。有多種方法可以實(shí)現(xiàn)這種身份驗(yàn) 證機(jī)制，例如使用系統(tǒng)配置文件、數(shù)據(jù)庫(kù)文件、 Windows 注冊(cè)表操作等等。在本設(shè) 計(jì)中，采用 INI文件實(shí)現(xiàn)對(duì)用戶(hù)名和密碼的存儲(chǔ)，其缺點(diǎn)是安全性不太高。 有關(guān)文件操作 文件是指存放在外部存儲(chǔ)介質(zhì)上的數(shù)據(jù)和程序等，在 Delphi 中使用 File 保留字定義文件的數(shù)據(jù)類(lèi)型。 文件操作的步驟如下： （ 1） 若文件已存在于磁盤(pán)上，則首先使用 AssignFile 方法將文件變量與實(shí)際 文件相連。該方法在 System 單元中定義。其語(yǔ)法為： procedure AssignFile(var F。FileName:string)。 其中 F 是任意類(lèi)型的文件變量， FileName 則是存在于磁盤(pán)上的外部文件名。需要注意的是，不要對(duì)一個(gè)已經(jīng)打開(kāi)的文件變量使用 AssignFile 方法。 （ 2） 接下來(lái)使用 Reset 方法打開(kāi)文件，其語(yǔ)法為： procedure Reset(var F[:File。RecSize:word])。 文件打開(kāi)后使用相應(yīng)的過(guò)程或函數(shù)讀取文件的內(nèi)容，對(duì)不同的文件類(lèi)型有不同的讀取 方法。如果打開(kāi)文件是為了在文件的末尾進(jìn)行追加寫(xiě)操作，需要調(diào)用 Append 方法。 （ 3） 對(duì)于磁盤(pán)上沒(méi)有的文件，需要?jiǎng)?chuàng)建。其一般步驟是：首先還是使用AssignFile 方法將 某個(gè)文件變量與要?jiǎng)?chuàng)建的文件相連，然后使用 ReWrite 方法即可 創(chuàng)建新文件。其語(yǔ)法為： procedure ReWrite(var F:File[。RecSize:word])。 對(duì)于文件處理還需要注意： （ 1） 用戶(hù)在打開(kāi)文件前應(yīng)該對(duì)文件是否存在進(jìn)行檢測(cè)，可使用兩種方法完成 這個(gè)功能。一是使用 Delphi 提供的 fileExists 函數(shù)，該函數(shù)在 SysUtils 單元中 11 定義，其語(yǔ)法為： function FileExists(const FileName:string):Boolean。 若 FileName 指定的文件存在，該函數(shù)將返回 Ture；若文件不存在，將返回 False。 （ 2） 創(chuàng)建新文件前一定要先確認(rèn)磁盤(pán)上是否已存在同名文件，這是因?yàn)樵趯?xiě) 操作時(shí)使用的 Rewrite 方法若遇到同名文件，會(huì)將現(xiàn)有文件刪除，然后建立一個(gè)空 的同名新文件，新創(chuàng)建的文件會(huì)將原有的文件覆蓋掉。一般情況下，使用 FileExists 函數(shù)檢測(cè)即可避免這樣的問(wèn)題。 （ 3） 文件操作完畢后，關(guān)閉該文件。當(dāng)文件關(guān)閉后，變化的內(nèi)容才會(huì)保存到 磁盤(pán)上，否則改變后的文件內(nèi)容就極 有可能丟失?？墒褂?CloseFile 方法關(guān)閉文件， 該方法完成終止文件變量和外部磁盤(pán)文件之間的聯(lián)系。其語(yǔ)法為： procedure CloseFile(var F)。 其中 F 為文件變量。 . INI 文件解析 INI 配置文件是一種自定義格式文件，該文件按照記錄存儲(chǔ)方式存儲(chǔ)用戶(hù)設(shè)計(jì) 的基本信息。我們要將系統(tǒng)登錄的用戶(hù)名和密碼存儲(chǔ)在該文件中，每一個(gè)記錄設(shè)計(jì) 為 30字節(jié)長(zhǎng)，其中前 10字節(jié)存儲(chǔ)用戶(hù)名 ，中間字節(jié)存儲(chǔ)用戶(hù)密碼，最后 10 字節(jié) 保留，可用作權(quán)限設(shè) 置等。下圖為系統(tǒng)設(shè)置的 INI 文件結(jié)構(gòu)表： 用戶(hù)名稱(chēng)（ 10字節(jié)） 用戶(hù)密碼（ 10字節(jié)） 保留（ 10字節(jié)） System 740314 Renshi Renshi Caiwu Caiwu Guest Gues