實驗一 建立項目管理器、建立數(shù)據(jù)庫和表、輸入部分數(shù)據(jù)一、實驗目的1．熟悉VisualFoxpro項目管理器的使用；2．熟悉數(shù)據(jù)庫的概念和VisualFoxpro數(shù)據(jù)表的概念；3．掌握數(shù)據(jù)表的建立方法，數(shù)據(jù)直接輸入的方法；4．純熟掌握表文獻的打開、瀏覽、關閉。二、實驗內(nèi)容1．建立項目管理器“hospital”；2．建立數(shù)據(jù)庫“hospital，并創(chuàng)建4個與醫(yī)院管理系統(tǒng)工作密切相關的數(shù)據(jù)表“apparatus“bed”“patient“potion；三、實驗環(huán)節(jié)（一）VisualFoxpro基本操作1.VisualFoxpro的啟動開始→程序→VisualFoxpro6.0，或：雙擊桌面VisualFoxpro6.0快捷方式圖標。2.VisualFoxpro的退出在VisualFoxpro的命令窗口中鍵入quit或選VisualFoxpro菜單中文獻→退出。3.工作目錄及表單區(qū)域的設立·在機房的學生數(shù)據(jù)盤（例如D:盤）上建一目錄，命名為“成績管理?！みM入VisualFoxpro，選菜單中的工具→選項→“文獻位置”選項卡，找到“默認目錄，·點擊“修改”按鈕，進入圖1-2，再單擊按鈕，按圖1-2設立后，單擊“擬定”按鈕?！螕簟氨韱巍边x項卡，將“最大設計區(qū)”選為1024×768。·單擊“設立為默認值”按鈕，再單擊“擬定”按鈕。注意假如學生機房安裝了還原卡則每次上機或重新啟動后都要重新進行以上第3步“工作目錄及表單區(qū)域的設立”（二）項目管理器和數(shù)據(jù)庫的建立1.項目管理器（1）什么是項目管理器項目管理器是VisualFoxpro開發(fā)應用系統(tǒng)的綜合性平臺，在這里可以建立數(shù)據(jù)庫、表單、菜單、程序、編譯等。幾乎每一個VFP6.0的應用程序都是由數(shù)據(jù)庫、查詢、表單、報表、菜單、工具欄以及程序等大量的文獻組成的這些文獻的集合叫“項目在VFP6.0里這些文獻是由項目管理器來實現(xiàn)管理和維護的，并且最終保存為具有擴展名PJX的項目文獻。項目管理器是VFP6.0的“控制中心”和應用程序運營的驅(qū)動器。項目管理器有6個選項卡分別是所有數(shù)據(jù)文檔類代碼和其他每個選項卡包含某一類文獻如“數(shù)據(jù)選項卡包含了一個項目中的所有數(shù)據(jù)如數(shù)據(jù)庫自由表查詢和視圖等“文檔選項卡中包含了解決數(shù)據(jù)時的所有文檔如表單報表和標簽等表單用于顯示和編輯表的內(nèi)容；報表是一種文獻，它告訴VFP6.0如何設立查詢，以從表中提取結(jié)果以及如何將它們打印出來；標簽是打印在紙上的帶有特殊格式的報表。其余選項卡重要用于為最終用戶創(chuàng)建應用程序。（2）建立項目管理器“文獻菜單下“新建“新建對話框中“項目單選按鈕再單“新建文獻按鈕給文獻命名“Hospital并保存在D盤“醫(yī)院管理文獻夾下。2.數(shù)據(jù)庫的建立單“Hospital項目管理器“數(shù)據(jù)卡單“數(shù)據(jù)庫然后點“新建”按鈕·單擊“新建數(shù)據(jù)庫”按鈕，將數(shù)據(jù)庫命名為“hospital，并保存在D盤的“醫(yī)院管理”文獻夾下，對隨后出現(xiàn)的“數(shù)據(jù)庫設計器，直接關閉。（三）創(chuàng)建數(shù)據(jù)表和輸入部分數(shù)據(jù)數(shù)據(jù)庫是有關聯(lián)的數(shù)據(jù)表的集合，一般通過公共字段彼此關聯(lián)。使用“數(shù)據(jù)庫設計器”可以創(chuàng)建一個數(shù)據(jù)庫。數(shù)據(jù)庫文獻的擴展名為.dbc。數(shù)據(jù)庫由多個相關聯(lián)的數(shù)據(jù)表構(gòu)成，數(shù)據(jù)表是整個系統(tǒng)的基礎。數(shù)據(jù)表文獻的擴展名為.dbf。查詢被保存為帶有.qpr后綴的文獻。1.創(chuàng)建數(shù)據(jù)表·單擊上圖“hospital”左側(cè)的“＋”號，展開后出現(xiàn)“表“本地視圖“遠程視圖”等，單擊“表，并單擊右側(cè)的“新建”按鈕?！ぐ匆韵卤砻徒Y(jié)構(gòu)建立四個“表，不要使用“向?qū)А惫δ?。?：apparatus.dbf字段名類型寬度小數(shù)位數(shù)apparatus_id30apparatus_name10apparatus_price102appaeatus_quantity30Apparatus_rem40索引的設立：apparatus.dbf按“apparatus_name”和“apparatus_id”升序普通索引表2：bed.dbf字段名類型寬度room_number字符型3Bed_number字符型2Patient_name字符型10索引的設立：bed.dbf“bed_number升序并設立為普通索引字段“patient_name”后NULL選項打鉤。表3：學生選課.dbf字段名類型寬度patient_name-字符型10patient_gender字符型2Patient_data_start字符型10Patient_dept字符型10Patient_satate字符型20Patient_doc字符型12Patient_room字符型3Patient_bed字符型2索引的設立：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索引的設立：potion.dbf按“potion_id”、“potion_name”升序普通索引2.部分表輸入數(shù)據(jù)（1）為“apparatus.dbf”輸入數(shù)據(jù)可以在創(chuàng)建該表時，當提醒“是否輸入數(shù)據(jù)？”時回答“Y，然后輸入；也可以按以下環(huán)節(jié)輸入：·單擊上圖中的“apparatus”表，單擊右側(cè)的“瀏覽”按鈕，進入瀏覽窗口。·將“顯示”菜單下的“追加方式”打上√，然后就可輸入數(shù)據(jù)了。實驗二 建立主表單一、實驗目的1.熟悉表單的概念、常用控件的用途、對象的屬性等基礎知識；2.掌握VisualFoxpro數(shù)據(jù)輸入表單的建立過程：一方面是打開表單設計器，無論是新建表單還是修改已有的表單，均可以通過菜單操作或?qū)Ｓ玫拿?，或單擊常用工具欄中的有關按鈕來打開表單設計器；接著是進行對象的操作與編碼，可運用表單設計工具來完畢；最后是保存表單以及運營表單。二、實驗內(nèi)容1．建立一個“醫(yī)院管理系統(tǒng)”表單；2．在表單上根據(jù)需要設計各控件，并為有關控件建立相應的應用程序；3．在表單運營狀態(tài)下輸入數(shù)據(jù)。三、實驗環(huán)節(jié)（一）打開項目管理器1.按實驗一的方法啟動VisualFoxpro。2.打開項目管理器“Hosptial”·文獻→打開→找到文獻“hosptial.PJX，選中并按“擬定”鍵?！せ颍弘p擊桌面VisualFoxpro6.0快捷方式圖標。（二）建立主表單·基礎知識回顧1．表單的概念、常用控件的用途、對象的屬性等表單一詞譯自英文的FORM表單在圖形界面的應用軟件中大量地獲得應用是人和程序進行交互的重要界面。在軟件中出現(xiàn)的對話框、向?qū)?、設計器等各類窗口，在VFP系統(tǒng)中均可以通過創(chuàng)建表單來實現(xiàn)。表單是一個容器，可以在其中包含多個控件或菜單，還可以捆綁數(shù)據(jù)環(huán)境。運營表單時，它所包含的所有控件都將被加載，同時數(shù)據(jù)環(huán)境中的表和視圖等也自動打開假如一個程序要同時運營多個表單這時可以創(chuàng)建表單集表單集也是一個容器，它可以包含一個或多個表單，這些表單在表單集運營時，將自動加載，它們共享一個數(shù)據(jù)環(huán)境，并可以根據(jù)需要顯示、隱藏、移動或切換其中的某個或某些表單。VFP提供三種表單設計工具——表單向?qū)?、表單設計器和快速表單。在本實驗教材中，我們用表單設計器來創(chuàng)建表單。對象是構(gòu)成程序的基本單位和運營實體，就是軟件中所看到的表單、文本框、按鈕、標簽等可放在表單內(nèi)的對象如按鈕文本框等常被稱為控件常用的控件有組合框標簽、文本框、列表框、形狀、復選框、線條、圖像、命令按鈕、編輯框等。對象的屬性用來表達它的特性，對于屬性的設立，有些必須在屬性窗口中進行，有些只需作適當?shù)耐蟿蛹纯?，比如長、寬、位置。2．數(shù)據(jù)輸入表單的建立過程VisualFoxpro數(shù)據(jù)輸入表單的建立過程，一方面是打開表單設計器，無論是新建表單還是修改已有的表單，均可以通過菜單操作或?qū)Ｓ玫拿?，或單擊常用工具欄中的有關按鈕來打開表達設計器，接著是進行對象的操作與編碼，可運用表單設計工具來完畢，最后是保存表單以及運營表單。3．VFP提供的表單設計工具VFP提供下列表單設計工具供程序員選擇使（如圖2-1所示表單設計器窗口及其表單窗口：其中表單設計器窗口中的Form1即表單對象，稱為表單窗口。多數(shù)設計工作將在表單窗口進行涉及往窗口內(nèi)添加對（控件并對各種對象進行操作與編碼屬性窗口用于設立修改表單及其包含的對象屬性。代碼編輯窗口：可為對象添加各種事件代碼和方法程序代碼表單工具欄涉及如下四種表單設計工具欄(1)表單控件工具欄用于在表單上添加文本框或按鈕等各類控件(2)表單設計器工具欄該工具欄涉及的按鈕用于打開或關閉數(shù)據(jù)環(huán)境對話框、設立tab鍵順序、屬性窗口、代碼窗口、表單控件工具欄、調(diào)色板工具欄、布局工具欄、表單生成器和自動格式工具欄等（3）布局工具欄：用于對齊、放置控件以及調(diào)整控件大小等（4）調(diào)色板工具欄：用于指定某個控件的前景色或背景色等。數(shù)據(jù)環(huán)境設計器窗口：用于設計表單的數(shù)據(jù)環(huán)境。工具欄的顯示可在系統(tǒng)“顯示”菜單中設立，也可以直接單擊“表單設計器工具欄”中相應的按鈕。·運用表單設計器設計“醫(yī)院管理系統(tǒng)”表單1.進入表單設計界面·單擊項目管理器上方的“文檔”選項卡?！螕簟氨韱危賳螕粲疫叺摹靶陆?，進入表單設計界面?！螕舸翱谟疑辖亲畲蠡粹o，使“表單設計－main.SCX”窗口最大化?！ひ苿邮髽耍m當放大表單窗口?！ぜせ睢皩傩裕璵ain.SCX”窗口，找到屬性“CAPTION，將本來的名字“Form1”改名為“醫(yī)院管理系統(tǒng)”。2.標題設立·單擊“表單控件”中的標簽按鈕，使其凹下去，此時鼠標變成十字形狀，按住鼠標左鍵在表單上方拖放，松開鼠標后，出現(xiàn)“Label1”標簽。·在“屬性”窗口中找到對象“Label1”的“Caption”屬性，改名為“歡迎進入醫(yī)院管理系統(tǒng)。設立字體字號“屬性窗口中找到對“Label1“FontName屬性將其設立為“楷體，同時將“FontSize”屬性設立為24（號字?！みm當設立其背景色“BackColor”屬性的值和前景色“ForeColor”屬性的值。方法為找“BackColor屬性單擊屬性設立窗口右邊的按鈕在打開“顏色窗口任意自選一種顏色即可“ForeColor”屬性的設立方法相同。在表單中用鼠標適當拖“學生基本數(shù)據(jù)輸入使其居于上部中間。3.命令按鈕設立單擊表單控件中的命令按鈕然后再在表單中畫一按鈕，在屬性窗口中，將命令按鈕的CAPTION屬性由員倆的“command”改為“住院部”同時將FontSize屬性改為16，用同樣的方法設立其他2個命令按鈕：“藥品儀器”、“退出”，適當調(diào)整各命令按鈕的位置4.過程代碼編輯雙擊“住院部”按鈕，進入對象與過程的代碼編輯窗口。保證對象是Command2，過程是Click，在屏幕上鍵入doformhospital\form\zyb然后關閉窗口，回到表單編輯狀態(tài)。用同樣的方法設計此外6個命令按“藥品儀器”、“退出”各命令按鈕的click過程命令如下：藥品儀器doformhospital\form\ypyq退出：thisform.releaseclearevents關閉窗口，主表單設計完畢。實驗三 建立住院部表單一、實驗目的1.熟悉表單的概念、常用控件的用途、對象的屬性等基礎知識；2.掌握VisualFoxpro數(shù)據(jù)輸入表單的建立過程：一方面是打開表單設計器，無論是新建表單還是修改已有的表單，均可以通過菜單操作或?qū)Ｓ玫拿?，或單擊常用工具欄中的有關按鈕來打開表單設計器；接著是進行對象的操作與編碼，可運用表單設計工具來完畢；最后是保存表單以及運營表單。二、實驗內(nèi)容1．建立一個“住院部”表單；2．在表單上根據(jù)需要設計各控件，并為有關控件建立相應的應用程序；3．在表單運營狀態(tài)下輸入數(shù)據(jù)。三、實驗環(huán)節(jié)（一）進入項目管理器1．按實驗一的方法啟動VisualFoxpro2．打開項目管理器“Hosptial”·文獻→打開→找到文獻“Hosptial.PJX，選中并按“擬定”鍵。（二）建立成績輸入表單1．進入表單設計界面·單擊項目管理器上方的“文檔”選項卡?！螕簟氨韱?，再單擊右邊的“新建，進入表單設計界面?！ぐ础癈trl+S”鍵保存表單，取名為“住院部?！螕舸翱谟疑辖亲畲蠡粹o，使“表單設計－住院部.SCX”窗口最大化?！ひ苿邮髽耍m當放大表單窗口?！ぜせ睢皩傩裕≡翰?SCX”窗口，找到屬性“CAPTION，將本來的名字“Form1”改名為“住院部。2．輸入標題簽·單擊表單控件中的標按鈕，使其凹下去，此時鼠標變成十字形狀，用鼠標在表單上方拖放，松開鼠標后，出現(xiàn)“Label1”標簽。簽“屬性窗口中找到對“Label1“Caption屬性改名“學生成績輸入?！ぴO立字體、字號：在“屬性”窗口中找到對象“Label1”的“FontName”屬性，將其設立為“楷體，同時將“FontSize”屬性設立為24（號字。3建立選項按鈕組單擊表單控件中的選項按鈕組，使其凹下去，此時鼠標變成十字形狀，用鼠標在表單上方拖放，松開鼠標后，出現(xiàn)option按鈕組。單擊“optiongroup1”對象，在屬性窗口中為此對象設立屬性值如下：Value-1Autosize-FBackstyle-1-不透明Borderstyle-固定單線Bottoncount-2Height-84Left-72Top-84Width-145單擊“option1”對象，在屬性窗口中為此對象設立屬性caption為病床管理，單擊“option2”對象，在屬性窗口中為此對象設立屬性caption為病人管理4.命令按鈕設立單擊表單控件中的命令按鈕然后再在表單中畫一按鈕，在屬性窗口中，將命令按鈕的CAPTION屬性由員倆的“command”改為“擬定”同時將FontSize屬性改為16，用同樣的方法設立其他2個命令按鈕：“退出”，適當調(diào)整各命令按鈕的位置5.過程代碼編輯雙擊“擬定”按鈕，進入對象與過程的代碼編輯窗口。保證對象是Command1，過程是Click，在屏幕上鍵入selename=thisform.optiongroup1.valueifselename=1 doformhospital\form\bcglelse doformhospital\form\brglendif然后關閉窗口，回到表單編輯狀態(tài)。用同樣的方法設計此外“退出”各命令按鈕的click過程命令如下：thisform.release關閉窗口，住院部表單設計完畢。實驗三 建立病床管理表單一、實驗目的1．熟悉表格在輸入數(shù)據(jù)方面的應用；2掌握VisualFoxpro表（Grid的編輯方法表單或頁框中的頁面均可以添加表格（Grid控件重要用于顯示后臺數(shù)據(jù)表中的字段用戶可以修改表格中的數(shù)據(jù)表（Grid）控件由若干行和列組成，可以通過數(shù)據(jù)環(huán)境創(chuàng)建，也可以運用表格生成器創(chuàng)建；3．掌握表格與數(shù)據(jù)表相應關系的建立方法。二、實驗內(nèi)容1．建立一個“病床管理”表單，為表單設計輸入數(shù)據(jù)所需的控件；2．為表單設計應用所需的數(shù)據(jù)環(huán)境；3．通過數(shù)據(jù)環(huán)境在表單上創(chuàng)建表格，并為有關控件建立相應的應用程序；三、實驗環(huán)節(jié)（一）進入項目管理器1．按實驗一的方法啟動VisualFoxpro2．打開項目管理器“Hosptial”·文獻→打開→找到文獻“Hosptial.PJX，選中并按“擬定”鍵。（二）建立病床管理表單1.設立表格在屬性窗口選擇form1再單擊表單控件中的容器按鈕，在葉框中畫一個容器在屬性窗口選擇form1再單擊表單控件中的表格按鈕

在容器中畫一表格該表格名為Grid1，立即在屬性窗口中將其ColumnCount屬性改為4?！そ又鴮rid1下的各部分作如下修改：Column1下的Header1的Caption屬性改為“房間號；Column2下的Header1的Caption屬性改為“病床名；Column3下的Header1的Caption屬性改為“病人姓名；Column1下的text1的Enabled屬性改為“F–假；Column2下的text1的Enabled屬性改為“F–假；Column3下的text1的Enabled屬性改為“F–假；2.建立組合框單擊表單控件中的容器按鈕，使其凹下去，此時鼠標變成十字形狀，用鼠標在表單中上方拖放，松開鼠標后，出現(xiàn)“container”容器。單擊表單控件中的組合框按鈕，使其凹下去，此時鼠標變成十字形狀，用鼠標在表單中上方拖放，松開鼠標后，出現(xiàn)“combo1”。以此類推。建立如圖：4．為組合框Combo1、2、3設立屬性·單擊“Combo1”對象，在屬性窗口中為此對象設立屬性，設立如下：RowSource 101，102Rowsourcetype1–默認值·單擊“Combo2”對象，在屬性窗口中為此對象設立屬性，設立如下：RowSource 1，2，3Rowsourcetype1–值·單擊“Combo3”對象，在屬性窗口中為此對象設立屬性，設立如下：RowSource patient.patient_nameRowsourcetype6–字段5.過程代碼編輯雙擊“擬定”按鈕，進入對象與過程的代碼編輯窗口。保證對象是Command1，過程是Click，在屏幕上鍵入inroom=alltrim(bo1.value)inbed=alltrim(bo2.value)inpatient=alltrim(bo3.value)ifempty(inroom)orempty(inbed)orempty(inpatient)messagebox('資料局限性',48,'錯誤')else selebed setordertopatient_na seekinpatient iffound() cMessageTitle='管理系統(tǒng)' cMessageText='該病人已經(jīng)分派過病床，要修改嗎？' nDialogType=4+32 nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) docase casenAnswer=6 updatebedsetpatient_name=''wherepatient_name=inpatient selepatient locateforpatient_room=inroomandpatient_bed=inbed replacepatient.patient_roomwith''patient.patient_bedwith'' updatebedsetpatient_name=inpatientwhereroom_number=inroomandbed_number=inbed updatepatientsetpatient_room=inroom,patient_bed=inbedwherepatient_name=inpatient casenAnswer=7 endcase else updatebedsetpatient_name=inpatientwhereroom_number=inroomandbed_number=inbed updatepatientsetpatient_room=inroom,patient_bed=inbedwherepatient_name=inpatient endifendifthisform.container3.grid1.refresh然后關閉窗口，回到表單編輯狀態(tài)。用同樣的方法設計此外“擬定清空”、“退出”各命令按鈕的click過程命令如下：擬定清空inroom=alltrim(bo1.value)inbed=alltrim(bo2.value)ifempty(inroom)orempty(inbed)messagebox('資料局限性',48,'錯誤')else cMessageTitle='管理系統(tǒng)' cMessageText='擬定要清空該病床的病人嗎？' nDialogType=4+32 nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) docase casenAnswer=6 updatebedsetpatient_name=''whereroom_number=inroomandbed_number=inbed updatepatientsetpatient_room='',patient_bed=''wherepatient_room=inroomandpatient_bed=inbed casenAnswer=7 endcaseendifthisform.container3.grid1.refresh退出thisform.release實驗三 建立病人管理表單一、實驗目的1.熟悉表單在查詢方面的應用；2.掌握頁框的使用方法；3.掌握查詢?nèi)w病人概況的方法；4.掌握按班級、按姓名、按入院時間、所屬科室、主治醫(yī)生、病房號查詢學生成績的方法。5.掌握病人增長、修改、刪除的方法二、實驗內(nèi)容建立一個有多頁面頁框的表單使表單運營時通過頁面的選擇能分別瀏覽、查詢、增長、修改、刪除病人三、實驗環(huán)節(jié)（一）進入項目管理器1.啟動VisualFoxpro。2.打開項目管理器“Hoptial”從“文獻”→“打開”→找到文獻“hosptial.PJX，選中并按“擬定”鍵。（二）建立成績輸入表單1．進入表單設計界面·單擊項目管理器上方的“文檔”選項卡。·單擊“表單，再單擊右邊的“新建，進入表單設計界面?！ぐ础癈trl+S”鍵保存表單，取名為“病人管理?！螕舸翱谟疑辖亲畲蠡粹o，使“表單設計－病人管理.SCX”窗口最大化?！ひ苿邮髽?，適當放大表單窗口?！ぜせ睢皩傩裕∪斯芾?SCX”窗口，找到屬性“CAPTION，將本來的名字“Form1”改名為“病人管理。2．輸入標題簽·單擊表單控件中的標按鈕，使其凹下去，此時鼠標變成十字形狀，用鼠標在表單上方拖放，松開鼠標后，出現(xiàn)“Label1”標簽。簽“屬性窗口中找到對“Label1“Caption屬性改名“病人管理。·設立字體、字號：在“屬性”窗口中找到對象“Label1”的“FontName”屬性，將其設立為“楷體，同時將“FontSize”屬性設立為24（號字。3.建立含五個頁面的頁框在表單控件中單擊頁框按鈕在表單上畫頁框然后通過拖動頁框邊沿的8個小黑方塊，放大或縮小頁框，使其充滿整個表單，將PageCount的值修改為5?！螕鬚age1在屬性窗口中將Page1的Caption屬性改“瀏覽單擊Page2，在屬性窗口中將Page2的Caption屬性改“查詢單擊Page3在屬性窗口中將Page3的Caption屬性改增長，單擊Page4在屬性窗口中將Page4的Caption屬性改為修改。單擊Page5，在屬性窗口將Page5的Caption屬性改成刪除然后適當修改每一個Page的FontName,FontSize,ForeColor,使字體、字號、顏色美觀。如圖：4.設計“瀏覽”頁面頁面組成“瀏覽”的頁面如圖。在“屬性”窗口選擇對象“Page1，然后按圖設計頁面。運用實驗二中對表格的學習，對照圖進行設立。4.設計“查詢”頁面頁面組成“查詢”的頁面如圖。在“屬性”窗口選擇對象“Page2，然后按圖設計頁面。（1）建立標簽”設計“請選擇查詢字段“病人姓名“入院時間“會所屬科室”等使用表單控“標簽只需按圖示文字分別將標簽的Caption屬性修改即可設計Text1～Text6使用表單控“文本框””（2）建立選項按鈕組單擊表單控件中的選項按鈕組，使其凹下去，此時鼠標變成十字形狀，用鼠標在表單上方拖放，松開鼠標后，出現(xiàn)option按鈕組。單擊“option1”對象，在屬性窗口中為此對象設立屬性caption為病人姓名，單擊“option2”對象，在屬性窗口中為此對象設立屬性caption為入院時間，以此類推。（3）建立文本框設計Text1～Text5使用表單控“文本框”，布局如圖。各個文本框Enabled屬性設立成F–假（4）設立命令按鈕計“返回”使用表單控件“命令按鈕”。各控件的字型、字體、字號、顏色自行設定（以下各頁面均同此。5.過程代碼編輯雙擊“進入查詢”按鈕，進入對象與過程的代碼編輯窗口。保證對象是Command1，過程是Click，在屏幕上鍵入ifthisform.pageframe1.page1.optiongroup1.option1.value=1 thisform.pageframe1.page1.text1.enabled=.T. thisform.pageframe1.page1.text1.setfocusendififthisform.pageframe1.page1.optiongroup1.option2.value=1 thisform.pageframe1.page1.text2.enabled=.T. thisform.pageframe1.page1.text2.setfocusendififthisform.pageframe1.page1.optiongroup1.option3.value=1 thisform.pageframe1.page1.text3.enabled=.T. thisform.pageframe1.page1.text3.setfocusendififthisform.pageframe1.page1.optiongroup1.option4.value=1 thisform.pageframe1.page1.text4.enabled=.T. thisform.pageframe1.page1.text4.setfocusendififthisform.pageframe1.page1.optiongroup1.option5.value=1 thisform.pageframe1.page1.text5.enabled=.T. 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.page1.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.value)indoct=alltrim(thisform.pageframe1.page1.text4.value)inroom=alltrim(thisform.pageframe1.page1.text5.value)selectpatient_nameas病人姓名,;patient_genderas性別,;patient_date_startas入院時間,;patient_deptas科室,;patient_stateas病癥,;patient_docas主治醫(yī)生,;patient_roomas病房號,;patient_bedas病床號;frompatient;wherepatient_name=inname; andpatient_date_start=indate; andpatient_dept=indept; andpatient_doc=indoct; andpatient_room=inroom雙擊“重新查詢”按鈕，進入對象與過程的代碼編輯窗口。保證對象是Command3，過程是Click，在屏幕上鍵入thisform.pageframe1.page1.optiongroup1.option1.value=1thisform.pageframe1.page1.optiongroup1.option2.value=0thisform.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.optiongroup1.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=''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.text5.enabled=.F.mand2.enabled=.F.mand3.enabled=.F.增長頁面設立（1）建立標簽”設計“請?zhí)钊胍砑佑涗浀男畔ⅰ安∪诵彰朐簳r間“性別”等使用表單控“標簽只需按圖示文字分別將標簽的Caption屬性修改即可設計Text1～Text8使用表單控“文本框”，布局如圖：”（2）設立命令按鈕計“擬定”使用表單控件“命令按鈕”?？丶淖中?、字體、字號、顏色自行設定（以下各頁面均同此。過程代碼編輯雙擊“擬定”按鈕，進入對象與過程的代碼編輯窗口。保證對象是Command1，過程是Click，在屏幕上鍵入inname=alltrim(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.value)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) docase casenAnswer=6 setordertopatient_na seekinname if!found() insertintopatientvalues(inname,ingend,indate,indept,instat,indoct,inroom,inbedd) messagebox("添加完畢",48,"操作成功") else messagebox("病人名反復",48,"錯誤") endif thisform.pageframe1.page4.text1.value='' thisform.pageframe1.page4.text2.value='' 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='' thisform.pageframe1.page4.text1.setfocus casenAnswer=7 endcase修改頁面設立（1）建立標簽”設計“請?zhí)钊胍砑佑涗浀男畔ⅰ安∪诵彰朐簳r間“性別”等使用表單控“標簽只需按圖示文字分別將標簽的Caption屬性修改即可設計Text1～Text8使用表單控“文本框”，布局如圖：”（2）設立命令按鈕設計“擬定”、“重新修改”使用表單控件“命令按鈕”?？丶淖中?、字體、字號、顏色自行設定（以下各頁面均同此。過程代碼編輯雙擊“擬定”按鈕，進入對象與過程的代碼編輯窗口。保證對象是Command1，過程是Click，在屏幕上鍵入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.pageframe1.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) docase casenAnswer=6 setordertopatient_na seekinname iffound() updatepatientsetpatient_gender=ingend,; patient_date_start=indate,; patient_dept=indept,; patient_state=instat,; patient_doc=indoct,; patient_room=inroom,; patient_bed=inbeddwherepatient_name=inname messagebox("資料更新完畢",48,"操作成功") else messagebox("該病人不存在",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='' thisform.pageframe1.page5.text7.value='' thisform.pageframe1.page5.text8.value='' thisform.pageframe1.page5.text1.setfocus endif casenAnswer=7 endcase雙擊“重新修改”按鈕，進入對象與過程的代碼編輯窗口。保證對象是Command2，過程是Click，在屏幕上鍵入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=''thisform.pageframe1.page5.text7.value=''thisform.pageframe1.page5.text8.value=''thisform.pageframe1.page5.text1.setfocus刪除頁面設立（1）建立標簽”設計“請?zhí)钊胍砑佑涗浀男畔ⅰ罢執(zhí)钊胍獎h除記錄的信息“病人姓名”使用表單控“標簽只需按圖示文字分別將標簽的Caption屬性修改即可設計Text1使用表單控“文本框”，布局如圖：”（2）設立命令按鈕設計“擬定”、“刪除空白記錄”使用表單控件“命令按鈕”?？丶淖中?、字體、字號、顏色自行設定（以下各頁面均同此。過程代碼編輯雙擊“擬定”按鈕，進入對象與過程的代碼編輯窗口。保證對象是Command1，過程是Click，在屏幕上鍵入inname=alltrim(thisform.pageframe1.page6.text1.value)cMessageTitle='管理系統(tǒng)'cMessageText='擬定要刪除嗎？'nDialogType=4+32nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) docase casenAnswer=6 setordertopatient_na seekinname if!found() messagebox("該記錄不存在",48,"錯誤") else thisform.pageframe1.page2.grdpatient.recordsource='' usepatientexclusive deletefrompatientwherepatient_name=inname pack thisform.pageframe1.page2.grdpatient.recordsource='patient' thisform.pageframe1.page2.grdpat