【正文】 password=?12345?。 // 判斷所輸入的用戶名和口令是否正確 ， 以決定 “ wele”窗體上內(nèi)容 。歡迎使用 39。歡迎使用教師管理系統(tǒng) 39。拒絕使用 39?？诹铄e誤 ， 請重新輸入 39。 。 第 3章 窗體和常用組件 l 雙擊 “ 退出 ” 按鈕 ， 在編輯區(qū)中輸入該按鈕的 OnClick事件代碼： close。 Memo組件的屬性、方 法和事件與 Edit組件類似， Memo組件的特殊屬性： (1) Lines： 該屬性返回 Memo組件中文本的行數(shù) 。 第 3章 窗體和常用組件 Button組件 按鈕組件主要屬性有： （ 1） Caption屬性： 用來設置 Button組件上顯示的文字?！?，將這個字符設置為熱鍵。 （ 3） Default屬性： Default屬性用于設置默認按鈕 。 Enabled屬性值為 True， 則該命令按鈕有效 。 第 3章 窗體和常用組件 CheckBox組件 復選框組件的主要屬性有： （ 1） Alignment屬性 ： 該屬性用于設置復選按鈕上文字的位置 ， 可取以下值： l taRightJustify：文字顯示在小方框的右邊 l taLeftJustify：文字顯示在小方框的左邊 （ 2） Enabled屬性 ： 控制該復選框是否可用 。 （ 4） State屬性 ： 該屬性可以用來設置或返回復選框的狀態(tài) ， 可取以下值： l cbChecked：表示復選框處于啟用狀態(tài) 。 l cbGrayed：表示復選框處于啟用且變灰狀態(tài) 。 如果復選框的 State屬性為 cbGrayed或 cbUnchecked， 則 Checked屬性為 False。選定某個選項按鈕，將釋 放先前的選擇，所以稱其為單選按鈕。單選按鈕的屬性與 CheckBox基本相同。 （ 2） ItemIndex屬性： 該屬性返回 ListBox中被選中項目的索引號 ， 從 0 開始 ， 順次加 1。 （ 4） ExtEndedSelect屬性： 該屬性用來設置是否允許使用 Shift鍵和 Ctrl 鍵同時進行多項選擇 。 l 向列表框中增加 條目 ： ( 39。 ) 。 l 清除所有條目： 。 // ComboBox1為組合框名 第 3章 窗體和常用組件 ComboBox組件 ComboBox組件的其他常用屬性 第 3章 窗體和常用組件 基本控件的綜合例題 【 例 】 本程序是一個教師管理系統(tǒng)的錄入新數(shù)據(jù)的界面 ， 完成的功 能是在指定組件中輸入或選擇數(shù)據(jù)后 ， 按 “ 確定 ” 按鈕 ， 顯示相應的 SQL語句 。 begin // 為系別組合框添加選項 (39。)。外語系 39。 (39。)。法律系 39。 (39。)。 // 設置組合框的初始值 end。39。39。39。 var xb,jg,department,xh,xm:string。 begin if (=39。) or (=39。) then // 判斷職工號和姓名是否為空 :=39。 第 3章 窗體和常用組件 基本控件的綜合例題 else begin xh:= 。 age:=strtoint( )。 jg:= []。男 39。女 39。應執(zhí)行的 SQL語句是 39。 := +39。 :=+ xh+39。+xm+39。+xb+39。+ jg+39。 :=++39。+department+39。 end 。 第 3章 窗體和常用組件 基本控件的綜合例題 l Btnclose按鈕的 OnClick事件代碼： close。 (4)程序運行 第 3章 窗體和常用組件 ScrollBar組件 滾動條組件的主要屬性有： （ 1） Kind屬性： 該屬性可以設置滾動條是水平的還是垂直的。 l sbVertical 滾動條是垂直方向的。 （ 3） LargeChange： 該屬性用來設置利用鼠標在滾動條上單擊左 鍵，或者按下 PageUp(PgUp )、 PageDown ( PgDn )鍵時，滾 動條滾動的距離。 （ 5） Position屬性： 該屬性用于設置或返回小方塊在滾動條中當 前的位置，其取值范圍在 Max和 Min之間。它可以用于組織有相互關(guān)聯(lián)的組件，例如它可包含 RadioButton和 CheckBox等組件，使這些包容在 GroupBox內(nèi)的組件以整體的面貌出現(xiàn)。對于單選按鈕，通過組合框組合后，用戶只能選擇其中一個，而對于該組合框外的其他單選鈕的選擇與組合框內(nèi)的選擇無關(guān)。該組件的 Columns屬性用于設置分組框中的列數(shù)，默認值是 1，各個按鈕之間的距離會自動設置成等間距的。 動態(tài)增加新項：(“新項名 ” )； 第 3章 窗體和常用組件 其他標準類組件 1. Panel組件 Panel組件一個可視化及靈活性都比較好的分組框組件，它是比組合框更大的容器，在上面可以放置各種組件或圖形，也將其稱為窗格。它集中響應用戶的各種命令，雙擊該 ActionList組件，將打開動作列表對話框，用戶可以對動作列表進行添加、刪除和修改等 操作。 程序功能是： （ 1） 輸入候選人的基本信息 。 設計思想： 定義一記錄型數(shù)組 ， 將輸入的每一個后選人的基本信息存儲到數(shù)組 的一個元素中 。 程序中定義 一個全局記錄型數(shù)組 candidates存放候選人信息 ， 再定義一個用于 統(tǒng)計候選人數(shù)的變量 i。 sex:string。 count:integer。 var candidates:array[1..10] of member。 ： procedure (Sender: TObject)。 :=false。 第 3章 窗體和常用組件 Panel組件的例子 “輸入 ” 按鈕對應代碼： procedure (Sender: TObject)。 // 每輸入一個候選人 i加 1 with candidates[i] do // 當前輸入的信息作為存放候選人信息數(shù)組的第 i個元素 begin name :=trim()。 age:=strtoint()。 // 選票數(shù)初始化為 0 end。39。39。39。 end。 var k:integer。 // panel1上的組件不可操作 ， 即不可再輸入信息 :=true。39。39。 39。 39。 // 候選人添加到 hxrlist中 end。 第 3章 窗體和常用組件 Panel組件的例子 hxrlistChange過程中的代碼： procedure (Sender: TObject)。 begin for k:=1 to i do // 根據(jù)在 hxrlist中的選擇 ， 被選中者的 count(票數(shù)加 1) if trim( )=candidates[k].name then candidates[k].count:=candidates[k].count+1。39。39。39。 end。 運行結(jié)果 第 3章 窗體和常用組件 附加類組件 Delphi 7有一組功能強大的附加類控件，利用它們，可以很方便地優(yōu)化界面設計，增強應用程序的功能，方便程序員進行各種程序設計。 Delphi 7能夠?qū)?4個圖像同時 指定給 Glyph，在程序運行時系統(tǒng)會根據(jù)按鈕所處的狀態(tài)顯 示其中的一個。 （ 2） Kind屬性： 設置按鈕上圖像的種類 。 第 3章 窗體和常用組件 BitBtn組件 （ 4） Layout屬性 ： 設置按鈕上圖像和文字的位置關(guān)系。 當它為 1時 ， 表示文字顯示在圖像與按鈕邊界 的中間 。 若將其設置為 True， 則表示處于選中狀態(tài) 。 (3) GroupIndex屬性： 當用戶需要將幾個快捷按鈕合成一組時 ， 可通過該屬性來設置 。 (5) Cursor屬性 : 可通過該屬性設置當鼠標指向快捷按鈕時鼠標的形狀。在運行 期間，則可通過 LoadFromFile函數(shù)動態(tài)地裝入位圖 (2) Transparent屬性： 該屬性用來設置圖像是否透明，為 True，則圖像 是透明的，該 屬性只適用于 BMP格式的文件。 (4) Stretch屬性： 該屬性值若設置為 True，則圖像會自動調(diào)整大小 以填滿 Image組件。 (2) HorzScrollBar和 VerScroll屬性 ： 若 AutoScroll屬性值設置為 False， 則必須修改 HorzScrollBar或 VerScroll屬性才能獲得滾動條，雙擊它 們前面的“ +”號，顯示其子屬性， 主要子屬性有： l Position： 該屬性用來設置滾動條中小方塊的位置。 l Tracking： 若該屬性設置為 True，則區(qū)域中的內(nèi)容會 隨著滾動條的下拉而不斷翻滾，若該屬性設置為 False，則只能在用戶釋放鼠標后才滾動。 編寫對 Picture1組件和 Picture2按鈕的事件處理 代碼 ， 程序代碼如下： // 當單擊 Picture2按鈕時在圖像中裝入圖像 ： procedure TForm1. Picture1Click(Sender: TObject)。c:\images\39。 end。 begin .loadfromfile(39。 ) 。 第 3章 窗體和常用組件 Image、 ScrollBox、 SpeedButton組件和 BitBtn組件使用的示例 雙擊 Bitquit按鈕 ， 在其代碼編輯器中輸入代碼 ： close。 單擊 Picture1按鈕時， Image1組件顯示c:\images\， 單擊 Picture2組件時， Image1組件顯示c:\images\ 文件中的圖像。 Chart組件的主要屬性有： （ 1） MarginBottom， MarginLeft， MarginRight和 MarginTop屬性： 這 4個屬性分別用來設置圖形與下、左、右和上邊框的距離。 （ 3） AllowZoom屬性： 該屬性用來設置在運行時是否可以拖動圖表 以改變形狀。 第 3章 窗體和常用組件 Chart組件使用的示例 【 例 】 利用 Chart組件創(chuàng)建一個某年四個季度某企業(yè)產(chǎn)量的圖表 ， 演示 Chart組件的使用方法 。 （ 2） 向新建的窗體中加入 Chart組件 。 Editing Chart對話框 第 3章 窗體和常用組件 Chart組件使用的示例 （ 4） 單擊 Add按鈕 ， 打開 TeeChat Gallery對話框 ， 在此對話框中選 擇圖表的種類 。 （ 5） 在窗體中添加兩個 BitBtn組件 ， BitBtn1的 Caption屬性為“ 圖 表 ” ， BitBtn2的 Caption屬性為 “ 退出 ” ， 在 BitBtn1的OnClick 事件中添加代碼： 第 3章 窗體和常用組件 Chart組件使用的示例 procedure (Sender: TObject)。一季度 39。 add(1200,39。,clGreen)。三季