第3 4章順序結(jié)構(gòu)程序設(shè)計(jì)

會(huì)計(jì)學(xué)1第34章順序結(jié)構(gòu)程序設(shè)計(jì)一、基本語(yǔ)句1.賦值語(yǔ)句

STORE<表達(dá)式>TO<名稱列表>

變量名=<表達(dá)式>2.程序注釋語(yǔ)句.程序中的說(shuō)明,方便閱讀。

NOTE[〈注釋內(nèi)容〉]

*[〈注釋內(nèi)容〉]&&[〈注釋內(nèi)容〉]—

行尾注釋3.

暫停語(yǔ)句

WAIT[<提示信息>][TO<內(nèi)存變量>][TIMEOUT<數(shù)值表達(dá)式>]

WAIT"繼續(xù)否(Y/N)?"TOANS第1頁(yè)/共37頁(yè)4.語(yǔ)句續(xù)行在行未加上續(xù)行符“；”(半角分號(hào))

5.輸入字符串

ACCEPT[〈字符表達(dá)式〉]TO〈內(nèi)存變量〉

6.輸入數(shù)據(jù)命令

INPUT[〈字符表達(dá)式〉]TO〈內(nèi)存變量〉

7.輸出數(shù)據(jù)命令：?|??8.程序結(jié)束語(yǔ)句

RELEASETHISFORM|THISFORM.RELEASE()

過(guò)程結(jié)束：RETURN|終止VFP運(yùn)行QUIT第2頁(yè)/共37頁(yè)一、面向過(guò)程編程程序文件

1.簡(jiǎn)介擴(kuò)展名.prg2.建立方法：

命令方式：ModifyCommand[文件名]

菜單方式：文件新建程序在項(xiàng)目管理器下建立程序文件

3.保存并運(yùn)行

命令方式：do<程序文件名>

菜單方式：程序運(yùn)行第3頁(yè)/共37頁(yè)二、順序結(jié)構(gòu)

順序結(jié)構(gòu)按照出現(xiàn)的先后順序依次執(zhí)行，執(zhí)行完一條命令（語(yǔ)句），繼續(xù)執(zhí)行在書(shū)寫(xiě)順序上緊接著此語(yǔ)句的下一條語(yǔ)句。求解一元二次方程

a=1b=4INPUT"輸入C的值:"TOCx1=(-b+SQRT(b*b-4*a*c))/(2*a)x2=(-b-SQRT(b*b-4*a*c))/(2*a)?"方程的根是：",x1,"另一個(gè)根是：",x2第4頁(yè)/共37頁(yè)

面向?qū)ο蟪绦蛟O(shè)計(jì)簡(jiǎn)介

面向?qū)ο蠹夹g(shù)的基本出發(fā)點(diǎn)在于盡可能地按照人類認(rèn)識(shí)世界的方法和思維方式來(lái)分析和解決問(wèn)題。面向?qū)ο蠹夹g(shù)即以對(duì)象為最基本的元素，對(duì)象構(gòu)成了分析和解決問(wèn)題的核心。例:解方程第5頁(yè)/共37頁(yè)3.1.1對(duì)象的屬性、事件與方法

從可視化編程的角度來(lái)看，對(duì)象是一個(gè)具有屬性（數(shù)據(jù)）和方法（行為方式）的實(shí)體。一個(gè)對(duì)象建立以后，其操作就通過(guò)與該對(duì)象有關(guān)的屬性、事件和方法來(lái)描述。第6頁(yè)/共37頁(yè)1.對(duì)象的屬性

屬性（Property）是指對(duì)象的一項(xiàng)描述內(nèi)容，用來(lái)描述對(duì)象的一個(gè)特性，不同的對(duì)象有不同的屬性，而每個(gè)對(duì)象又都由若干屬性來(lái)描述。屬性值的設(shè)置或修改可以通過(guò)屬性窗口和編程的方法來(lái)改變。在程序中設(shè)置屬性的一般格式是:表單名.對(duì)象名.屬性名=屬性值Thisform.lable1.caption=“姓名”例:日期時(shí)間第7頁(yè)/共37頁(yè)2.對(duì)象的事件所謂事件（Event），是由VFP預(yù)先定義好的、能夠被對(duì)象識(shí)別的動(dòng)作，如單擊（Click）事件、雙擊（DblClick）事件、裝入（Load）事件、移動(dòng)鼠標(biāo)（MouseMove）事件等，不同的對(duì)象能識(shí)別的事件不全相同。對(duì)象的事件是固定的，用戶不能建立新的事件。第8頁(yè)/共37頁(yè)事件過(guò)程事件過(guò)程（EventProcedure）是為處理特定事件而編寫(xiě)的一段程序。當(dāng)事件由用戶觸發(fā)（如Click）或由系統(tǒng)觸發(fā)（如Load）時(shí)，對(duì)象就會(huì)對(duì)該事件作出響應(yīng)（Respond）。第9頁(yè)/共37頁(yè)3.對(duì)象的方法方法（Method）是與對(duì)象相關(guān)聯(lián)的過(guò)程，VFP的方法屬于對(duì)象的內(nèi)部函數(shù),用于完成某種特定的功能而不一定響應(yīng)某一事件，如添加對(duì)象（AddObject）方法、繪制矩形（Box）方法、釋放表單（Release）.方法也被“封裝”在對(duì)象中，不同的對(duì)象具有不同的內(nèi)部方法。VFP提供了百余個(gè)內(nèi)部方法供不同的對(duì)象調(diào)用。與事件過(guò)程不同的是，根據(jù)需要可由用戶自行建立新方法。第10頁(yè)/共37頁(yè)4.事件與方法的程序調(diào)用

事件過(guò)程由事件的激發(fā)而調(diào)用其代碼，也可以在運(yùn)行中由程序調(diào)用其代碼，在程序中調(diào)用事件代碼的格式是:表單名.對(duì)象名.事件名Tmand1.click方法的代碼只能在運(yùn)行中由程序調(diào)用.在程序中調(diào)用對(duì)象方法的格式是[[〈變量名〉]=]〈表單名〉.〈對(duì)象名〉.〈方法名〉()Thisform.release()例:日期時(shí)間第11頁(yè)/共37頁(yè)二、面向?qū)ο蟪叹幊滩襟E

1、創(chuàng)建表單。2、添加對(duì)象。從“控件工具欄”選擇對(duì)象模板。3、修改對(duì)象屬性。4、編寫(xiě)按鈕代碼。Thisform.release()5、運(yùn)行表單。未保存表單提示保存文件，表單擴(kuò)展名為：SCX、SCT。第12頁(yè)/共37頁(yè)3.1.2控件與對(duì)象

VFP編程的最大特點(diǎn)，就是利用VFP所提供的圖形構(gòu)件快速構(gòu)造應(yīng)用程序的輸入輸出屏幕界面?？丶–ontrol）是某種圖形構(gòu)件的統(tǒng)稱，如“標(biāo)簽控件”、“文本框控件”、“列表框控件”等，利用控件創(chuàng)建對(duì)象則是構(gòu)造應(yīng)用程序界面的具體方法。1.常用控件和內(nèi)部對(duì)象常用控件由VFP的基類提供，共21個(gè)，每個(gè)控件用“表單控件”工具欄中的一個(gè)圖形按鈕表示，見(jiàn)表3-1。圖標(biāo)名稱說(shuō)明標(biāo)簽（Label）創(chuàng)建一個(gè)標(biāo)簽對(duì)象，用于保存不希望用戶改動(dòng)的文本，如復(fù)選框上面或圖形下面的標(biāo)題文本框（TextBox）創(chuàng)建用于單行數(shù)據(jù)輸入的文本框?qū)ο?，用戶可以在其中輸入或更改單行文本?3頁(yè)/共37頁(yè)編輯框(EditBox）創(chuàng)建用于多行數(shù)據(jù)輸入的編輯框?qū)ο?，用戶可以在其中輸入或更改多行文本命令按鈕（CommandButton）創(chuàng)建命令按鈕對(duì)象，用于執(zhí)行命令命令按鈕組（CommandGroup）創(chuàng)建命令按鈕組對(duì)象，用于把相關(guān)的命令編成組選項(xiàng)按鈕組（OptionGroup）創(chuàng)建選項(xiàng)按鈕組對(duì)象，用于顯示多個(gè)選項(xiàng)，用戶只能從中選擇一項(xiàng)復(fù)選框（CheckBox）創(chuàng)建復(fù)選框?qū)ο?，允許用戶選擇開(kāi)關(guān)狀態(tài)，或顯示多個(gè)選項(xiàng)，用戶可從中選擇多于一項(xiàng)第14頁(yè)/共37頁(yè)組合框（ComboBox）創(chuàng)建組合框或下拉列表框?qū)ο螅脩艨梢詮牧斜眄?xiàng)中選擇一項(xiàng)或人工輸入一個(gè)值列表框（ListBox）創(chuàng)建列表框?qū)ο?，用于顯示供用戶選擇的列表項(xiàng)。當(dāng)列表項(xiàng)很多，不能同時(shí)顯示時(shí)，列表可以滾動(dòng)微調(diào)（Spinner）創(chuàng)建微調(diào)對(duì)象，用于接受給定范圍之內(nèi)的數(shù)值輸入表格（Grid）創(chuàng)建表格對(duì)象，用于在電子表格樣式的表格中顯示數(shù)據(jù)圖像（Image）創(chuàng)建圖像對(duì)象，在表單上顯示圖像計(jì)時(shí)器（Timer）創(chuàng)建計(jì)時(shí)器對(duì)象，以設(shè)定的時(shí)間間隔捕捉計(jì)時(shí)器事件。此控件在運(yùn)行時(shí)不可見(jiàn)頁(yè)框（PageFrame）創(chuàng)建頁(yè)框?qū)ο螅@示多個(gè)頁(yè)面第15頁(yè)/共37頁(yè)ActiveX（ActiveXControl）創(chuàng)建OLE容器對(duì)象，向應(yīng)用程序中添加OLE對(duì)象ActiveX綁定型（ActiveXBoundControl）創(chuàng)建OLE綁定型對(duì)象，可用于向應(yīng)用程序中添加OLE對(duì)象。與OLE容器控件不同的是，OLE綁定型控件綁定在一個(gè)通用字段上線條(Line）創(chuàng)建線條對(duì)象，設(shè)計(jì)時(shí)用于在表單上畫(huà)各種類型的線條形狀（Shape）創(chuàng)建形狀對(duì)象，設(shè)計(jì)時(shí)用于在表單上畫(huà)各種類型的形狀?？梢援?huà)矩形、圓角矩形、正方形、圓角正方形，橢圓或圓容器(Container)創(chuàng)建容器對(duì)象，在容器中可以包含其他的控件分隔符(Separafor)創(chuàng)建分隔符對(duì)象，在工具欄的控制間加上空格超級(jí)鏈接（HyperLink）使用“超級(jí)鏈接”可以跳轉(zhuǎn)到Internet或Intranet的一個(gè)目標(biāo)地址上第16頁(yè)/共37頁(yè)

2.表單對(duì)象表單（Form）是應(yīng)用程序的用戶界面，也是進(jìn)行程序設(shè)計(jì)的基礎(chǔ)。各種圖形、圖像、數(shù)據(jù)等都是通過(guò)表單或表單中的對(duì)象顯示出來(lái)，因此表單是一個(gè)容器對(duì)象。

(1)表單的結(jié)構(gòu)

VFP的表單具有和Windows應(yīng)用程序的窗口界面相同的結(jié)構(gòu)特征。，一個(gè)典型的表單有圖標(biāo)、標(biāo)題、極小化按鈕、極大化按鈕、關(guān)閉按鈕、移動(dòng)欄、表單體及其周圍的邊框。其中除了表單體之外的所有特征都可以部分或全部從表單中被刪除。第17頁(yè)/共37頁(yè)表單的幾種常用屬性

Name 表單名Caption 表單的標(biāo)題AutoCenter .T.或.F. 為真時(shí)表單自動(dòng)居中 BackColor RGB三色值 表單背景色 Left,Right 數(shù)值表單位置 Height,Width 數(shù)值 表單的高和寬 第18頁(yè)/共37頁(yè)表單常用的事件、方法程序LoadEvent——

調(diào)用（運(yùn)行）該表單前發(fā)生的事件（例題：?jiǎn)?dòng)）InitEvent——

表單初始化、創(chuàng)建對(duì)象時(shí)事件Activate事件——當(dāng)表單被激活時(shí)發(fā)生。ClickEvent——

點(diǎn)擊表單（鼠標(biāo)左鍵）事件(例題變大?。〥blClickEvent——雙擊表單事件 ErrorEvent——

運(yùn)行表單時(shí)出錯(cuò)的事件 Hide——

隱藏表單方法 KeyPressEvent——按鍵時(shí)發(fā)生的事件 RightClickEvent——右擊表單事件 DestroyEvent——在對(duì)象釋放時(shí)引發(fā)UnLoadEvent——當(dāng)表單被關(guān)閉時(shí)發(fā)生。在表單運(yùn)行時(shí)首先運(yùn)行LoadEvent，然后InitEvent、Activate事件在表單關(guān)閉時(shí)首先運(yùn)行DestroyEvent，然后UnLoadEvent第19頁(yè)/共37頁(yè)常用的表單方法程序Refresh 表單刷新方法 Release 表單釋放方法例:表單左右擊 第20頁(yè)/共37頁(yè)3.對(duì)象的引用

(1)對(duì)象的包容層次

VFP中的對(duì)象根據(jù)它們所基于的類的性質(zhì)可分為兩類：容器類對(duì)象和控件類對(duì)象。容器類對(duì)象:可以包含其他對(duì)象，并且允許訪問(wèn)這些對(duì)象，例如表單、表格等?？丶悓?duì)象:只能包含在容器對(duì)象之中，而不能夠包含其他對(duì)象，例如命令按鈕、復(fù)選框等。表3-3列出了每種容器類對(duì)象所能包含的對(duì)象。第21頁(yè)/共37頁(yè)容器能包含的對(duì)象命令按鈕組命令按鈕容器任意控件自定義任意控件、頁(yè)框、容器、自定義對(duì)象表單集表單、工具欄表單頁(yè)框、任意控件、容器或自定義對(duì)象表格列標(biāo)頭對(duì)象以及除了表單集，表單，工具欄，計(jì)時(shí)器和其他列對(duì)象以外的任意對(duì)象表格表格列選項(xiàng)按鈕組選項(xiàng)按鈕頁(yè)框頁(yè)面頁(yè)面任意控件、容器和自定義對(duì)象工具欄任意控件、頁(yè)框和容器第22頁(yè)/共37頁(yè)

當(dāng)一個(gè)容器包含一個(gè)對(duì)象時(shí)，稱該對(duì)象是容器的子對(duì)象，而容器稱為該對(duì)象的父對(duì)象。

(2)對(duì)象的引用作為應(yīng)用程序的用戶界面，表單上可以包含許多對(duì)象，而這些對(duì)象又有可能具有互相包含的層次關(guān)系。若要引用一個(gè)對(duì)象，需要知道它相對(duì)于容器層次的關(guān)系。在容器層次中引用對(duì)象恰似給VFP提供這個(gè)對(duì)象地址。

①絕對(duì)引用：通過(guò)提供對(duì)象的完整容器層次來(lái)引用對(duì)象稱為絕對(duì)引用。圖3-7表示了一種可能的容器嵌套方式。第23頁(yè)/共37頁(yè)

若要使表列中的控件無(wú)效，需要提供以下地址：Formset.Form.PageFrame.Page.Grid.Column.Control.Enabled=.F.

應(yīng)用程序?qū)ο螅╛VFP）的ActiveForm屬性允許在不知道表單名的情況下處理活動(dòng)的表單。例如，下列代碼改變活動(dòng)表單的背景顏色，而不考慮其所屬的表單集。_VFP.ActiveForm.BackColor=RGB(255,255,255)

類似地，ActiveControl屬性允許處理活動(dòng)表單的活動(dòng)控件。Name1=_VFP.ActiveForm.ActiveControl.Name

第24頁(yè)/共37頁(yè)②相對(duì)引用：在容器層次中引用對(duì)象時(shí)，可以通過(guò)快捷方式指明所要處理的對(duì)象，即所謂相對(duì)引用。例如：THISFORM.Cmd1.Caption=“關(guān)閉“&&Cmd1對(duì)象的標(biāo)題（Caption）屬性設(shè)為“關(guān)閉”。THIS.Caption=“關(guān)閉“&&本對(duì)象的標(biāo)題（Caption）屬性設(shè)為“關(guān)閉”。THIS.Parent.BackColor=RGB(192,0,0)&&本對(duì)象的父對(duì)象的背景色設(shè)置為暗紅色。例:放大縮小

第25頁(yè)/共37頁(yè)屬性或關(guān)鍵字引用ActiveControl當(dāng)前活動(dòng)表單中具有焦點(diǎn)的控件ActiveForm當(dāng)前活動(dòng)表單ActivePage當(dāng)前活動(dòng)表單中的活動(dòng)頁(yè)P(yáng)arent該對(duì)象的直接容器THIS該對(duì)象THISFORM包含該對(duì)象的表單THISFORMSET包含該對(duì)象的表單集

說(shuō)明：只能在方法程序或事件過(guò)程中使用THIS、THISFORM和THISFORMSET。

表3-4列出了一些屬性和關(guān)鍵字，這些屬性和關(guān)鍵字允許更方便地從對(duì)象層次中引用對(duì)象。第26頁(yè)/共37頁(yè)一、標(biāo)簽(Label)控件顯示文本信息的對(duì)象。用于標(biāo)題、提示框、說(shuō)明框等。屬性：

Caption：標(biāo)簽的內(nèi)容，顯示的信息。

AutoSize：水平擴(kuò)充。

WordWrap：自動(dòng)換行題文字屬性:Backcolor,Forecolor,FontSize,FontName。

立體標(biāo)簽,兩個(gè)同樣標(biāo)簽,Backstyle=0透明,置前(后)例題：lt4-1,lt4-2,lt4-3、時(shí)間日期第27頁(yè)/共37頁(yè)實(shí)現(xiàn)數(shù)據(jù)輸入、輸出的控件?？梢跃庉嫞ㄝ斎耄﹥?nèi)存變量、數(shù)組元素或字段的內(nèi)容。常用屬性：ValueControlSource(焦點(diǎn)2.scx)PasswordCharReadOnly常用事件：

GotFocusEvent——獲得焦點(diǎn)時(shí)發(fā)生的事件焦點(diǎn)（FOCUS）就是光標(biāo)。對(duì)象有“焦點(diǎn)”才能響應(yīng)用戶的輸入。對(duì)象獲得焦點(diǎn)的方法：鼠標(biāo)單擊對(duì)象

THISFORM.TEXT.SETFOCUS（例：焦點(diǎn)2、text1-gotfocus）對(duì)象的屬性TabIndex決定控件接受焦點(diǎn)的順序,依次增加。(text解方程.scx)ValidEvent

在控件失去焦點(diǎn)之前發(fā)生的事件InteractiveChangeEvent

當(dāng)用戶使用鍵盤(pán)或鼠標(biāo)更改控件的值時(shí)發(fā)生的事件LostFocusEvent

當(dāng)一個(gè)對(duì)象失去焦點(diǎn)時(shí)發(fā)生的事件KeyPressEvent

當(dāng)用戶按住并釋放一個(gè)鍵時(shí)發(fā)生的事件(LT4_4)P91鍵值表二、文本框（TextBox）控件

第28頁(yè)/共37頁(yè)三、編輯框EditBox可編輯備注型字段，有滾動(dòng)條，編輯時(shí)允許輸入“回車”鍵。與文本框不同,是能處理多行文本數(shù)據(jù)。屬性、事件同文本框?qū)傩裕?/p>

Caption,ContrlSoure,valueScrollBars滾動(dòng)條的類型。

0—無(wú)，2—垂直滾動(dòng)條。第29頁(yè)/共37頁(yè)四、命令按鈕(Command)控件創(chuàng)建命令按鈕對(duì)象，用于執(zhí)行命令常用屬性：

Caption：命令按鈕顯示的內(nèi)容，“\<”訪問(wèn)鍵

Name:命令按鈕對(duì)象的名字。標(biāo)示。

Enabled:邏輯型，命令按鈕是否可用。

Visible:邏輯型，命令按鈕是否可見(jiàn)。

Picture:指定按鈕的圖形文件名。

DownPicture:指定按鈕按下時(shí)的圖形。事件：

Click:按鈕命令按鈕執(zhí)行的代碼。第30頁(yè)/共37頁(yè)形狀控件(Shape):創(chuàng)建形狀對(duì)象，設(shè)計(jì)時(shí)用于在表單上畫(huà)各種類型的形狀,修飾之用常用屬性：Curvature：角的曲率(<100)。

SpecialEffect：0—三維1—平面

BackStyle：背景是否透明0—透明1—不透明例題:LT4_6

五、形狀控件(Shape)

第31頁(yè)/共37頁(yè)六、容器控件（Container）容器控件（Container）可在該對(duì)象內(nèi)添加其他控件,添加控件方法如下:選擇容器->“右鍵”->”編輯”。對(duì)象分類：容器類對(duì)象和控件類。LT4-7第32頁(yè)/共37頁(yè)七.圖象(Image)在表單上插入圖片。美化表單、修飾之用。圖形類型*.bmp*.Ico屬性：

Picture:圖片文件名。Stretch:

0-裁剪，1-按原比例填充，2-變比例填充即圖片與圖象框一樣大BorderStyle邊框是否可見(jiàn)。例:LT4_TP第33頁(yè)/共37頁(yè)

對(duì)話框是用戶與應(yīng)用程序之間交換信息的最佳途徑之一。使用對(duì)話框函數(shù)可以得到VFP的內(nèi)部對(duì)話框，這種方法具有操作簡(jiǎn)單及快速的特點(diǎn)。

MESSAGEBOX函數(shù)在對(duì)話框中顯示信息，等待用戶單擊按鈕，并返回一個(gè)整數(shù)以標(biāo)明用戶單擊了哪個(gè)按鈕。其語(yǔ)法格式為[〈變量名〉]=MESSAGEBOX(〈信息內(nèi)容〉[,〈對(duì)話框類型〉[,〈對(duì)話框標(biāo)題〉]])

說(shuō)明：①〈信息內(nèi)容〉指定在對(duì)話框中出現(xiàn)的文本。在〈信息內(nèi)容〉中使用硬回車符（CHR(13)）可以使文本換行。對(duì)話框的高度和寬度隨著〈信息內(nèi)容〉的增加而增加，最多可