VFP實驗-醫(yī)院管理系統(tǒng)(有詳細的步驟)

1、實驗一建立項目管理器、建立數(shù)據(jù)庫和表、輸入部分數(shù)據(jù)一、實驗目的1熟悉 Visual Foxpro 項目管理器的使用；2熟悉數(shù)據(jù)庫的概念和 Visual Foxpro 數(shù)據(jù)表的概念；3掌握數(shù)據(jù)表的建立方法，數(shù)據(jù)直接輸入的方法；4熟練掌握表文件的打開、瀏覽、關(guān)閉。二、實驗內(nèi)容1建立項目管理器“hospital”；2建立數(shù)據(jù)庫“hospital”，并創(chuàng)建 4 個與醫(yī)院管理系統(tǒng)工作密切相關(guān)的數(shù)據(jù)表“apparatus”、“bed”“patient”、“potion”；三、實驗步驟（一）Visual Foxpro 基本操作1. Visual Foxpro 的啟動開始 程序 Visual Foxpro 6

2、.0，或：雙擊桌面 Visual Foxpro 6.0 快捷方式圖標。2. Visual Foxpro 的退出在 Visual Foxpro 的命令窗口中鍵入 quit 或選 Visual Foxpro 菜單中文件退出。3.工作目錄及表單區(qū)域的設(shè)置·在機房的學生數(shù)據(jù)盤（例如 D:盤）上建一目錄，命名為“成績管理”。·進入 Visual Foxpro，選菜單中的 工具 選項 “文件位置”選項卡，找到“默 認目錄”， ·點擊“修改”按鈕，進入圖 1-2，再單擊按鈕，按圖 1-2 設(shè)置后，單擊“確定” 按鈕。·單擊“表單”選項卡，將“最大設(shè)計區(qū)”選為 1024

3、×768。·單擊“設(shè)置為默認值”按鈕，再單擊“確定”按鈕。 注意：如果學生機房安裝了還原卡，則每次上機或重新啟動后都要重新進行以上第 3 步“工作目錄及表單區(qū)域的設(shè)置?！保ǘ╉椖抗芾砥骱蛿?shù)據(jù)庫的建立1.項目管理器（1）什么是項目管理器項目管理器是 Visual Foxpro 開發(fā)應用系統(tǒng)的綜合性平臺，在這里可以建立數(shù)據(jù)庫、表 單、菜單、程序、編譯等。幾乎每一個 VFP 6.0 的應用程序都是由數(shù)據(jù)庫、查詢、表單、報表、菜單、工具欄以及程序等大量的文件組成的，這些文件的集合叫做“項目”。在 VFP 6.0 里這些文件是由項目管 理器來實現(xiàn)管理和維護的，并且最終保存為具有擴展

4、名 PJX 的項目文件。項目管理器是 VFP 6.0 的“控制中心”和應用程序運行的驅(qū)動器。項目管理器有 6 個選 項卡，分別是：全部、數(shù)據(jù)、文檔、類、代碼和其他，每個選項卡包含某一類文件，如：“數(shù)據(jù)”選項卡包含了一個項目中的所有數(shù)據(jù)，如數(shù)據(jù)庫、自由表、查詢和視圖等?！拔臋n”選項 卡中包含了處理數(shù)據(jù)時的所有文檔，如表單、報表和標簽等。表單用于顯示和編輯表的內(nèi)容；報表是一種文件，它告訴 VFP 6.0 如何設(shè)置查詢，以從表中提取結(jié)果以及如何將它們打印出 來；標簽是打印在紙上的帶有特殊格式的報表。其余選項卡主要用于為最終用戶創(chuàng)建應用程序。（2）建立項目管理器 從“文件”菜單下選“新建”，在“新建”

5、對話框中，選“項目”單選按鈕，再單擊“新建文件按鈕”，給文件命名為“Hospital”，并保存在 D 盤的“醫(yī)院管理”文件夾下。2.數(shù)據(jù)庫的建立·單擊“Hospital”項目管理器的“數(shù)據(jù)”卡，單擊“數(shù)據(jù)庫”，然后點擊“新 建”按鈕 ·單擊“新建數(shù)據(jù)庫”按鈕，將數(shù)據(jù)庫命名為“hospital”，并保存在 D 盤的“醫(yī)院管理” 文件夾下，對隨后出現(xiàn)的“數(shù)據(jù)庫設(shè)計器”，直接關(guān)閉。（三）創(chuàng)建數(shù)據(jù)表和輸入部分數(shù)據(jù) 數(shù)據(jù)庫是有關(guān)聯(lián)的數(shù)據(jù)表的集合，一般通過公共字段彼此關(guān)聯(lián)。使用“數(shù)據(jù)庫設(shè)計器”可以創(chuàng)建一個數(shù)據(jù)庫。數(shù)據(jù)庫文件的擴展名為.dbc。 數(shù)據(jù)庫由多個相關(guān)聯(lián)的數(shù)據(jù)表構(gòu)成，數(shù)據(jù)表是整

6、個系統(tǒng)的基礎(chǔ)。數(shù)據(jù)表文件的擴展名為.dbf。查詢被保存為帶有.qpr 后綴的文件。1.創(chuàng)建數(shù)據(jù)表·單擊上圖“hospital”左側(cè)的“”號，展開后出現(xiàn)“表”、“本地視圖”、“遠程視圖” 等，單擊“表”，并單擊右側(cè)的“新建”按鈕。·按以下表名和結(jié)構(gòu)建立四個“表”，不要使用“向?qū)А惫δ?。?1：apparatus.dbf 字段名類型寬度小數(shù)位數(shù)apparatus_id30apparatus_name10apparatus_price102appaeatus_quantity30Apparatus_rem40索引的設(shè)置：apparatus.dbf 按“apparatus_name

7、”和“apparatus_id”升序普通索引表 2：bed.dbf字段名類型寬度room_number字符型3Bed_number字符型2Patient_name字符型10索引的設(shè)置： bed.dbf 按“bed_number”、“room_number”、“patient_name”升序，并設(shè)置為普通索引， 字段“patient_name”后NULL選項打鉤。表 3：學生選課.dbf 字段名類型寬度patient_name-字符型10patient_gender字符型2Patient_data_start字符型10Patient_dept字符型10Patient_satate字符型20Pat

8、ient_doc字符型12Patient_room字符型3Patient_bed字符型2索引的設(shè)置：patient.dbf 按“patient_room”、“patient_doc”、“patient_dept”、“patient_gender”、“patient_name”、“patient_data_start”升序普通索引。4：potion.dbf字段名類型寬度小數(shù)位數(shù)Potion_id-數(shù)值型30Potion_name字符型10Potion_price數(shù)值型52Potion_quantity數(shù)值型30Potion_rem字符型40索引的設(shè)置：potion.dbf 按“potion_id

9、”、“potion_name”升序普通索引 2.部分表輸入數(shù)據(jù)（1）為“apparatus.dbf”輸入數(shù)據(jù)可以在創(chuàng)建該表時，當提示“是否輸入數(shù)據(jù)？”時回答“Y”，然后輸入；也可以按以下 步驟輸入：·單擊上圖中的“apparatus”表，單擊右側(cè)的“瀏覽”按鈕，進入瀏覽窗口。·將“顯示”菜單下的“追加方式”打上，然后就可輸入數(shù)據(jù)了。實驗二建立主表單一、實驗目的1.熟悉表單的概念、常用控件的用途、對象的屬性等基礎(chǔ)知識；2.掌握 Visual Foxpro 數(shù)據(jù)輸入表單的建立過程：首先是打開表單設(shè)計器，無論是新建 表單還是修改已有的表單，均可以通過菜單操作或?qū)Ｓ玫拿睿騿螕舫?/p>

10、用工具欄中的有關(guān) 按鈕來打開表單設(shè)計器；接著是進行對象的操作與編碼，可利用表單設(shè)計工具來完成；最后 是保存表單以及運行表單。二、實驗內(nèi)容1建立一個“醫(yī)院管理系統(tǒng)”表單；2在表單上根據(jù)需要設(shè)計各控件，并為有關(guān)控件建立相應的應用程序；3在表單運行狀態(tài)下輸入數(shù)據(jù)。三、實驗步驟（一）打開項目管理器1.按實驗一的方法啟動 Visual Foxpro。2.打開項目管理器“Hosptial”·文件 打開 找到文件“hosptial.PJX”，選中并按“確定”鍵。·或：雙擊桌面 Visual Foxpro 6.0 快捷方式圖標。（二）建立主表單·基礎(chǔ)知識回顧1表單的概念、常用控件

11、的用途、對象的屬性等表單一詞譯自英文的 FORM，表單在圖形界面的應用軟件中大量地獲得應用，是人和程序 進行交互的重要界面。在軟件中出現(xiàn)的對話框、向?qū)?、設(shè)計器等各類窗口，在 VFP 系統(tǒng)中均 可以通過創(chuàng)建表單來實現(xiàn)。表單是一個容器，可以在其中包含多個控件或菜單，還可以捆綁 數(shù)據(jù)環(huán)境。運行表單時，它所包含的所有控件都將被加載，同時數(shù)據(jù)環(huán)境中的表和視圖等也 自動打開。如果一個程序要同時運行多個表單，這時可以創(chuàng)建表單集。表單集也是一個容器， 它可以包含一個或多個表單，這些表單在表單集運行時，將自動加載，它們共享一個數(shù)據(jù)環(huán) 境，并可以根據(jù)需要顯示、隱藏、移動或切換其中的某個或某些表單。VFP 提供三種

12、表單設(shè) 計工具表單向?qū)?、表單設(shè)計器和快速表單。在本實驗教材中，我們用表單設(shè)計器來創(chuàng)建 表單。對象是構(gòu)成程序的基本單位和運行實體，就是軟件中所看到的表單、文本框、按鈕、標 簽等，可放在表單內(nèi)的對象，如按鈕、文本框等常被稱為控件。常用的控件有組合框、標簽、 文本框、列表框、形狀、復選框、線條、圖像、命令按鈕、編輯框等。對象的屬性用來表示 它的特征，對于屬性的設(shè)置，有些必須在屬性窗口中進行，有些只需作適當?shù)耐蟿蛹纯?，?如長、寬、位置。2數(shù)據(jù)輸入表單的建立過程Visual Foxpro 數(shù)據(jù)輸入表單的建立過程，首先是打開表單設(shè)計器，無論是新建表單還 是修改已有的表單，均可以通過菜單操作或?qū)Ｓ玫拿睿?/p>

13、或單擊常用工具欄中的有關(guān)按鈕來 打開表達設(shè)計器，接著是進行對象的操作與編碼，可利用表單設(shè)計工具來完成，最后是保存 表單以及運行表單。3VFP 提供的表單設(shè)計工具VFP 提供下列表單設(shè)計工具供程序員選擇使用（如圖 2-1 所示）。表單設(shè)計器窗口及其表 單窗口：其中表單設(shè)計器窗口中的 Form1 即表單對象，稱為表單窗口。多數(shù)設(shè)計工作將在表 單窗口進行，包括往窗口內(nèi)添加對象（控件），并對各種對象進行操作與編碼。屬性窗口：用 于設(shè)置修改表單及其包含的對象屬性。代碼編輯窗口：可為對象添加各種事件代碼和方法程 序代碼。表單工具欄：包括如下四種表單設(shè)計工具欄，(1)表單控件工具欄：用于在表單上添 加文本框

14、或按鈕等各類控件，(2)表單設(shè)計器工具欄：該工具欄包括的按鈕用于打開或關(guān)閉數(shù) 據(jù)環(huán)境對話框、設(shè)置 tab 鍵次序、屬性窗口、代碼窗口、表單控件工具欄、調(diào)色板工具欄、 布局工具欄、表單生成器和自動格式工具欄等，（3）布局工具欄：用于對齊、放置控件以及 調(diào)整控件大小等，（4）調(diào)色板工具欄：用于指定某個控件的前景色或背景色等。數(shù)據(jù)環(huán)境設(shè) 計器窗口：用于設(shè)計表單的數(shù)據(jù)環(huán)境。工具欄的顯示可在系統(tǒng)“顯示”菜單中設(shè)置，也可以 直接單擊“表單設(shè)計器工具欄”中相應的按鈕。·利用表單設(shè)計器設(shè)計“醫(yī)院管理系統(tǒng)”表單1.進入表單設(shè)計界面·單擊項目管理器上方的“文檔”選項卡。·單擊“表單”

15、，再單擊右邊的“新建”，進入表單設(shè)計界面。·單擊窗口右上角最大化按鈕，使“表單設(shè)計main.SCX”窗口最大化。·移動鼠標，適當放大表單窗口。·激活“屬性main.SCX”窗口，找到屬性“CAPTION”，將原來的名字“Form1” 改名為“醫(yī)院管理系統(tǒng)”。2.標題設(shè)置·單擊“表單控件”中的標簽按鈕，使其凹下去，此時鼠標變成十字形狀，按住 鼠標左鍵在表單上方拖放，松開鼠標后，出現(xiàn)“Label1”標簽。·在“屬性”窗口中找到對象“Label1”的“Caption”屬性，改名為“歡迎進入醫(yī)院管理系統(tǒng)”。·設(shè)置字體、字號：在“屬性”窗口中找

16、到對象“Label1”的“FontName”屬性，將其 設(shè)置為“楷體”，同時將“FontSize”屬性設(shè)置為 24（號字）。·適當設(shè)置其背景色“BackColor”屬性的值和前景色“ForeColor” 屬性的值。方法為：找到“BackColor”屬性，單擊屬性設(shè)置窗口右邊的按鈕，在打開的“顏色”窗口任 意自選一種顏色即可。“ForeColor” 屬性的設(shè)置方法相同。·在表單中用鼠標適當拖動“學生基本數(shù)據(jù)輸入”，使其居于上部中間。3.命令按鈕設(shè)置單擊表單控件中的命令按鈕然后再在表單中畫一按鈕，在屬性窗口中，將命令按鈕的CAPTION屬性由員倆的“command”改為“住院部

17、”同時將FontSize屬性改為16，用同樣的方法設(shè)置其他2個命令按鈕：“藥品儀器”、“退出”，適當調(diào)整各命令按鈕的位置4.過程代碼編輯雙擊“住院部”按鈕，進入對象與過程的代碼編輯窗口。保證對象是Command2，過程是Click，在屏幕上鍵入do form hospitalformzyb然后關(guān)閉窗口，回到表單編輯狀態(tài)。用同樣的方法設(shè)計另外 62個命令按鈕“藥品儀器”、“退出”各命令按鈕的 click 過程命令如下：藥品儀器do form hospitalformypyq退出：thisform.releaseclear events關(guān)閉窗口，主表單設(shè)計完成。實驗三建立住院部表單一、實驗目的1.

18、熟悉表單的概念、常用控件的用途、對象的屬性等基礎(chǔ)知識；2.掌握 Visual Foxpro 數(shù)據(jù)輸入表單的建立過程：首先是打開表單設(shè)計器，無論是新建 表單還是修改已有的表單，均可以通過菜單操作或?qū)Ｓ玫拿睿騿螕舫Ｓ霉ぞ邫谥械挠嘘P(guān) 按鈕來打開表單設(shè)計器；接著是進行對象的操作與編碼，可利用表單設(shè)計工具來完成；最后 是保存表單以及運行表單。二、實驗內(nèi)容1建立一個“住院部”表單；2在表單上根據(jù)需要設(shè)計各控件，并為有關(guān)控件建立相應的應用程序；3在表單運行狀態(tài)下輸入數(shù)據(jù)。三、實驗步驟（一）進入項目管理器1按實驗一的方法啟動 Visual Foxpro2打開項目管理器“Hosptial”·文件

19、打開 找到文件“Hosptial.PJX”，選中并按“確定”鍵。（二）建立成績輸入表單1進入表單設(shè)計界面·單擊項目管理器上方的“文檔”選項卡。·單擊“表單”，再單擊右邊的“新建”，進入表單設(shè)計界面。·按“Ctrl+S”鍵保存表單，取名為“住院部”。·單擊窗口右上角最大化按鈕，使“表單設(shè)計住院部.SCX”窗口最大化。·移動鼠標，適當放大表單窗口。·激活“屬性住院部.SCX”窗口，找到屬性“CAPTION”，將原來的名字“Form1” 改名為“住院部”。2輸入標題簽·單擊表單控件中的標按鈕，使其凹下去，此時鼠標變成十字形狀，用鼠

20、標在表 單上方拖放，松開鼠標后，出現(xiàn)“Label1”標簽。·在“屬性”窗口中找到對象“Label1”的“Caption”屬性，改名為“學生成績輸入”。·設(shè)置字體、字號：在“屬性”窗口中找到對象“Label1”的“FontName”屬性，將其 設(shè)置為“楷體”，同時將“FontSize”屬性設(shè)置為 24（號字）。3建立選項按鈕組單擊表單控件中的選項按鈕組，使其凹下去，此時鼠標變成十字形狀，用鼠標在表 單上方拖放，松開鼠標后，出現(xiàn)option按鈕組。單擊“optiongroup1”對象，在屬性窗口中為此對象設(shè)置屬性值如下：Value-1Autosize-FBackstyle-1-

21、不透明Borderstyle-固定單線Bottoncount-2Height-84Left-72Top-84Width-145單擊“option1”對象，在屬性窗口中為此對象設(shè)置屬性caption為病床管理，單擊“option2”對象，在屬性窗口中為此對象設(shè)置屬性caption為病人管理4.命令按鈕設(shè)置單擊表單控件中的命令按鈕然后再在表單中畫一按鈕，在屬性窗口中，將命令按鈕的CAPTION屬性由員倆的“command”改為“確定”同時將FontSize屬性改為16，用同樣的方法設(shè)置其他2個命令按鈕：“退出”，適當調(diào)整各命令按鈕的位置5.過程代碼編輯雙擊“確定”按鈕，進入對象與過程的代碼編輯窗口

22、。保證對象是Command1，過程是Click，在屏幕上鍵入selename=thisform.optiongroup1.valueif selename=1do form hospitalformbcglelse do form hospitalformbrglendif然后關(guān)閉窗口，回到表單編輯狀態(tài)。用同樣的方法設(shè)計另外 “退出”各命令按鈕的 click 過程命令如下：thisform.release關(guān)閉窗口，住院部表單設(shè)計完成。實驗三建立病床管理表單一、實驗目的1熟悉表格在輸入數(shù)據(jù)方面的應用；2掌握 Visual Foxpro 表格（Grid）的編輯方法。表單或頁框中的頁面均可以添加表格

23、（Grid）控件，主要用于顯示后臺數(shù)據(jù)表中的字段，用戶可以修改表格中的數(shù)據(jù)。表格（Grid） 控件由若干行和列組成，可以通過數(shù)據(jù)環(huán)境創(chuàng)建，也可以利用表格生成器創(chuàng)建；3掌握表格與數(shù)據(jù)表對應關(guān)系的建立方法。二、實驗內(nèi)容1建立一個“病床管理”表單，為表單設(shè)計輸入數(shù)據(jù)所需的控件；2為表單設(shè)計應用所需的數(shù)據(jù)環(huán)境；3通過數(shù)據(jù)環(huán)境在表單上創(chuàng)建表格，并為有關(guān)控件建立相應的應用程序；三、實驗步驟（一）進入項目管理器1按實驗一的方法啟動 Visual Foxpro2打開項目管理器“Hosptial”·文件 打開 找到文件“Hosptial.PJX”，選中并按“確定”鍵。（二）建立病床管理表單1.設(shè)置表格

24、在屬性窗口選擇 form1，再單擊表單控件中的容器按鈕，在葉框中畫一個容器25 / 25文檔可自由編輯打印在屬性窗口選擇 form1，再單擊表單控件中的表格按鈕，在容器中畫一表格，該表格名為 Grid1，立即在屬性窗口中將其 ColumnCount 屬性改為 4。·接著對 Grid1 下的各部分作如下修改：Column1 下的 Header1 的 Caption 屬性改為“房間號”； Column2 下的 Header1 的 Caption 屬性改為“病床名”；Column3 下的 Header1 的 Caption 屬性改為“病人姓名”； Column1 下的 text1 的Ena

25、bled 屬性改為“F 假”； Column2 下的 text1 的Enabled 屬性改為“F 假”； Column3 下的 text1 的Enabled 屬性改為“F 假”； 2.建立組合框單擊表單控件中的容器按鈕，使其凹下去，此時鼠標變成十字形狀，用鼠標在表單中上方拖放，松開鼠標后，出現(xiàn)“container”容器。單擊表單控件中的組合框按鈕，使其凹下去，此時鼠標變成十字形狀，用鼠標在表單中上方拖放，松開鼠標后，出現(xiàn)“combo1”。以此類推。建立如圖：4為組合框 Combo1 、2、3設(shè)置屬性·單擊“Combo1”對象，在屬性窗口中為此對象設(shè)置屬性，設(shè)置如下：RowSource

26、101，102Rowsourcetype 1 默認值·單擊“Combo2”對象，在屬性窗口中為此對象設(shè)置屬性，設(shè)置如下：RowSource1，2，3Rowsourcetype 1 值·單擊“Combo3”對象，在屬性窗口中為此對象設(shè)置屬性，設(shè)置如下：RowSourcepatient.patient_nameRowsourcetype 6 字段5.過程代碼編輯雙擊“確定”按鈕，進入對象與過程的代碼編輯窗口。保證對象是Command1，過程是Click，在屏幕上鍵入inroom=alltrim(bo1.value)inbed=alltrim(bo2.value)inpatien

27、t=alltrim(bo3.value)if empty(inroom) or empty(inbed) or empty(inpatient)messagebox('資料不足',48,'錯誤')elsesele bedset order to patient_naseek inpatientif found()cMessageTitle='管理系統(tǒng)'cMessageText='該病人已經(jīng)分配過病床，要修改嗎？'nDialogType=4+32nAnswer=messagebox(cMessageText,nDialogType,

28、cMessageTitle)do case case nAnswer=6 update bed set patient_name='' where patient_name=inpatient sele patient locate for patient_room=inroom and patient_bed=inbed replace patient.patient_room with '' patient.patient_bed with ''update bed set patient_name=inpatient where room_

29、number=inroom and bed_number=inbedupdate patient set patient_room=inroom,patient_bed=inbed where patient_name=inpatientcase nAnswer=7endcaseelseupdate bed set patient_name=inpatient where room_number=inroom and bed_number=inbedupdate patient set patient_room=inroom,patient_bed=inbed where patient_na

30、me=inpatientendifendifthisform.container3.grid1.refresh然后關(guān)閉窗口，回到表單編輯狀態(tài)。用同樣的方法設(shè)計另外 “確定清空”、“退出”各命令按鈕的 click 過程命令如下：確定清空inroom=alltrim(bo1.value)inbed=alltrim(bo2.value)if empty(inroom) or empty(inbed)messagebox('資料不足',48,'錯誤')elsecMessageTitle='管理系統(tǒng)'cMessageText='確定要清空該病床的病

31、人嗎？'nDialogType=4+32nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)do case case nAnswer=6update bed set patient_name='' where room_number=inroom and bed_number=inbedupdate patient set patient_room='',patient_bed='' where patient_room=inroom and patient_bed=inbe

32、dcase nAnswer=7endcaseendifthisform.container3.grid1.refresh退出thisform.release實驗三建立病人管理表單一、實驗目的1. 熟悉表單在查詢方面的應用；2. 掌握頁框的使用方法；3. 掌握查詢?nèi)w病人概況的方法；4. 掌握按班級、按姓名、按入院時間、所屬科室、主治醫(yī)生、病房號查詢學生成績的方法。5.掌握病人增加、修改、刪除的方法二、實驗內(nèi)容 建立一個有多頁面頁框的表單，使表單運行時通過頁面的選擇，能分別瀏覽、查詢、增加、修改、刪除病人三、實驗步驟（一）進入項目管理器1. 啟動 Visual Foxpro。2. 打開項目管理器

33、“Hoptial” 從“文件”“打開”找到文件“hosptial.PJX”，選中并按“確定”鍵。（二）建立成績輸入表單1進入表單設(shè)計界面·單擊項目管理器上方的“文檔”選項卡。·單擊“表單”，再單擊右邊的“新建”，進入表單設(shè)計界面。·按“Ctrl+S”鍵保存表單，取名為“病人管理。·單擊窗口右上角最大化按鈕，使“表單設(shè)計病人管理.SCX”窗口最大化。·移動鼠標，適當放大表單窗口。·激活“屬性病人管理.SCX”窗口，找到屬性“CAPTION”，將原來的名字“Form1” 改名為“病人管理。2輸入標題簽·單擊表單控件中的標按鈕，使

34、其凹下去，此時鼠標變成十字形狀，用鼠標在表 單上方拖放，松開鼠標后，出現(xiàn)“Label1”標簽。·在“屬性”窗口中找到對象“Label1”的“Caption”屬性，改名為“病人管理”。·設(shè)置字體、字號：在“屬性”窗口中找到對象“Label1”的“FontName”屬性，將其 設(shè)置為“楷體”，同時將“FontSize”屬性設(shè)置為 24（號字）。3.建立含五個頁面的頁框·在表單控件中單擊頁框按鈕，在表單上畫頁框，然后通過拖動頁框邊緣的 8 個小 黑方塊，放大或縮小頁框，使其充滿整個表單，將 PageCount 的值修改為 5。 ·單擊 Page1，在屬性窗口中

35、將 Page1 的 Caption 屬性改為“瀏覽”；單擊 Page2， 在屬性窗口中將 Page2 的 Caption 屬性改為“查詢”；單擊 Page3，在屬性窗口中將 Page3的 Caption 屬性改為增加，單擊 Page4，在屬性窗口中將 Page4 的 Caption 屬性改 為修改。單擊Page5，在屬性窗口將Page5的Caption屬性改成刪除然后適當修改每一個 Page 的 FontName, FontSize,ForeColor,使字體、 字號、顏色美觀。如圖：4.設(shè)計“瀏覽”頁面頁面組成“瀏覽”的頁面如圖。在“屬性”窗口選擇對象“Page1”，然后按圖 設(shè)計頁面。利用

36、實驗二中對表格的學習，對照圖進行設(shè)置。4.設(shè)計“查詢”頁面頁面組成“查詢”的頁面如圖。在“屬性”窗口選擇對象“Page2”，然后按圖 設(shè)計頁面。（1）建立標簽”設(shè)計“請選擇查詢字段”、“病人姓名”、“入院時間”、“會所屬科室”等 使用表單控件“標簽，只需按圖示文字分別將標簽的 Caption 屬性修改為即可；設(shè)計 Text1Text6 使用表單控件“文本框”（2）建立選項按鈕組單擊表單控件中的選項按鈕組，使其凹下去，此時鼠標變成十字形狀，用鼠標在表 單上方拖放，松開鼠標后，出現(xiàn)option按鈕組。單擊“option1”對象，在屬性窗口中為此對象設(shè)置屬性caption為病人姓名，單擊“optio

37、n2”對象，在屬性窗口中為此對象設(shè)置屬性caption為入院時間，以此類推。（3）建立文本框設(shè)計 Text1Text5 使用表單控件“文本框”，布局如圖。各個文本框Enabled屬性設(shè)置成F 假 （4）設(shè)置命令按鈕計“返回”使用表單控件“命令按鈕”。各控件的字型、字體、字號、顏色自行 設(shè)定（以下各頁面均同此）。5.過程代碼編輯雙擊“進入查詢”按鈕，進入對象與過程的代碼編輯窗口。保證對象是Command1，過程是Click，在屏幕上鍵入if thisform.pageframe1.page1.optiongroup1.option1.value=1thisform.pageframe1.page

38、1.text1.enabled=.T.thisform.pageframe1.page1.text1.setfocusendifif thisform.pageframe1.page1.optiongroup1.option2.value=1thisform.pageframe1.page1.text2.enabled=.T.thisform.pageframe1.page1.text2.setfocusendif if thisform.pageframe1.page1.optiongroup1.option3.value=1thisform.pageframe1.page1.text3.e

39、nabled=.T.thisform.pageframe1.page1.text3.setfocusendifif thisform.pageframe1.page1.optiongroup1.option4.value=1thisform.pageframe1.page1.text4.enabled=.T.thisform.pageframe1.page1.text4.setfocusendifif thisform.pageframe1.page1.optiongroup1.option5.value=1thisform.pageframe1.page1.text5.enabled=.T.

40、thisform.pageframe1.page1.text5.setfocusendifthisform.pageframe1.page1.optiongroup1.option1.enabled=.F.thisform.pageframe1.page1.optiongroup1.option2.enabled=.F.thisform.pageframe1.page1.optiongroup1.option3.enabled=.F.thisform.pageframe1.page1.optiongroup1.option4.enabled=.F.thisform.pageframe1.pag

41、e1.optiongroup1.option5.enabled=.F.mand1.enabled=.F.mand2.enabled=.T.mand3.enabled=.T.雙擊“顯示查詢結(jié)果”按鈕，進入對象與過程的代碼編輯窗口。保證對象是Command2，過程是Click，在屏幕上鍵入inname=alltrim(thisform.pageframe1.page1.text1.value)indate=alltrim(thisform.pageframe1.page1.text2.value)indept=alltrim(thisform.pageframe1.page1.text3.valu

42、e)indoct=alltrim(thisform.pageframe1.page1.text4.value)inroom=alltrim(thisform.pageframe1.page1.text5.value)select patient_name as 病人姓名,;patient_gender as 性別,;patient_date_start as 入院時間,;patient_dept as 科室,;patient_state as 病癥,;patient_doc as 主治醫(yī)生,;patient_room as 病房號,;patient_bed as 病床號;from patien

43、t;where patient_name=inname;and patient_date_start=indate;and patient_dept=indept;and patient_doc=indoct;and patient_room=inroom雙擊“重新查詢”按鈕，進入對象與過程的代碼編輯窗口。保證對象是Command3，過程是Click，在屏幕上鍵入thisform.pageframe1.page1.optiongroup1.option1.value=1thisform.pageframe1.page1.optiongroup1.option2.value=0thisform.

44、pageframe1.page1.optiongroup1.option3.value=0thisform.pageframe1.page1.optiongroup1.option4.value=0thisform.pageframe1.page1.optiongroup1.option5.value=0thisform.pageframe1.page1.optiongroup1.option1.enabled=.T.thisform.pageframe1.page1.optiongroup1.option2.enabled=.T.thisform.pageframe1.page1.optio

45、ngroup1.option3.enabled=.T.thisform.pageframe1.page1.optiongroup1.option4.enabled=.T.thisform.pageframe1.page1.optiongroup1.option5.enabled=.T.mand1.enabled=.T.thisform.pageframe1.page1.text1.value=''thisform.pageframe1.page1.text2.value=''thisform.pageframe1.page1.text3.value='&

46、#39;thisform.pageframe1.page1.text4.value=''thisform.pageframe1.page1.text5.value=''thisform.pageframe1.page1.text1.enabled=.F.thisform.pageframe1.page1.text2.enabled=.F.thisform.pageframe1.page1.text3.enabled=.F.thisform.pageframe1.page1.text4.enabled=.F.thisform.pageframe1.page1.te

47、xt5.enabled=.F.mand2.enabled=.F.mand3.enabled=.F.增加頁面設(shè)置（1）建立標簽”設(shè)計“請?zhí)钊胍砑佑涗浀男畔ⅰ薄ⅰ安∪诵彰?、“入院時間”、“性別”等 使用表單控件“標簽，只需按圖示文字分別將標簽的 Caption 屬性修改為即可；設(shè)計 Text1Text8 使用表單控件“文本框”，布局如圖：（2）設(shè)置命令按鈕計“確定”使用表單控件“命令按鈕”?？丶淖中汀⒆煮w、字號、顏色自行 設(shè)定（以下各頁面均同此）。過程代碼編輯雙擊“確定”按鈕，進入對象與過程的代碼編輯窗口。保證對象是Command1，過程是Click，在屏幕上鍵入inname=alltrim

48、(thisform.pageframe1.page4.text1.value)ingend=alltrim(thisform.pageframe1.page4.text2.value)indate=alltrim(thisform.pageframe1.page4.text3.value)indept=alltrim(thisform.pageframe1.page4.text4.value)instat=alltrim(thisform.pageframe1.page4.text5.value)indoct=alltrim(thisform.pageframe1.page4.text6.va

49、lue)inroom=alltrim(thisform.pageframe1.page4.text7.value)inbedd=alltrim(thisform.pageframe1.page4.text8.value)cMessageTitle='管理系統(tǒng)'cMessageText='確定要添加嗎？'nDialogType=4+32nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)do case case nAnswer=6 set order to patient_na seek inname

50、 if !found() insert into patient values (inname,ingend,indate,indept,instat,indoct,inroom,inbedd) messagebox("添加完畢",48,"操作成功") else messagebox("病人名重復",48,"錯誤") endif thisform.pageframe1.page4.text1.value='' thisform.pageframe1.page4.text2.value='&#

51、39; thisform.pageframe1.page4.text3.value='' thisform.pageframe1.page4.text4.value='' thisform.pageframe1.page4.text5.value='' thisform.pageframe1.page4.text6.value='' thisform.pageframe1.page4.text7.value='' thisform.pageframe1.page4.text8.value='' th

52、isform.pageframe1.page4.text1.setfocuscase nAnswer=7endcase修改頁面設(shè)置（1）建立標簽”設(shè)計“請?zhí)钊胍砑佑涗浀男畔ⅰ薄ⅰ安∪诵彰?、“入院時間”、“性別”等 使用表單控件“標簽，只需按圖示文字分別將標簽的 Caption 屬性修改為即可；設(shè)計 Text1Text8 使用表單控件“文本框”，布局如圖：（2）設(shè)置命令按鈕設(shè)計“確定”、“重新修改”使用表單控件“命令按鈕”?？丶淖中汀⒆煮w、字號、顏色自行 設(shè)定（以下各頁面均同此）。過程代碼編輯雙擊“確定”按鈕，進入對象與過程的代碼編輯窗口。保證對象是Command1，過程是Click，在屏

53、幕上鍵入inname=alltrim(thisform.pageframe1.page5.text1.value)ingend=alltrim(thisform.pageframe1.page5.text2.value)indate=alltrim(thisform.pageframe1.page5.text3.value)indept=alltrim(thisform.pageframe1.page5.text4.value)instat=alltrim(thisform.pageframe1.page5.text5.value)indoct=alltrim(thisform.pagefra

54、me1.page5.text6.value)inroom=alltrim(thisform.pageframe1.page5.text7.value)inbedd=alltrim(thisform.pageframe1.page5.text8.value)cMessageTitle='管理系統(tǒng)'cMessageText='確定要修改嗎？'nDialogType=4+32nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)do case case nAnswer=6 set order to pati

55、ent_na seek inname if found() update patient set patient_gender=ingend,; patient_date_start=indate,; patient_dept=indept,; patient_state=instat,; patient_doc=indoct,; patient_room=inroom,; patient_bed=inbedd where patient_name=inname messagebox("資料更新完畢",48,"操作成功") else messagebox

56、("該病人不存在",48,"錯誤") thisform.pageframe1.page5.text1.value='' thisform.pageframe1.page5.text2.value='' thisform.pageframe1.page5.text3.value='' thisform.pageframe1.page5.text4.value='' thisform.pageframe1.page5.text5.value='' thisform.pageframe1.page5.text6.value