4++基于VFP的OOP實(shí)現(xiàn)

《4++基于VFP的OOP實(shí)現(xiàn)》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。

1、4基于VFP的OOP實(shí)現(xiàn)內(nèi)容簡(jiǎn)介本章講述表單類、數(shù)據(jù)環(huán)境、控件應(yīng)用、按鈕控件、框類控件及其他控件、表單布局設(shè)計(jì)、組件技術(shù)、OLE控件、菜單設(shè)計(jì)、主程序設(shè)計(jì)、項(xiàng)目集成、報(bào)表設(shè)計(jì)等。學(xué)習(xí)目標(biāo)掌握基于VFP的OOP的各種實(shí)現(xiàn)方法。學(xué)習(xí)指南理論聯(lián)系實(shí)踐難點(diǎn)與重點(diǎn)表單、各種控件、菜單、項(xiàng)目集成、報(bào)表等。4基于VFP的OOP實(shí)現(xiàn)表單類數(shù)據(jù)環(huán)境控件應(yīng)用按鈕類控件框類控件其他控件表單布局設(shè)計(jì)組件技術(shù)OLE控件菜單設(shè)計(jì)主程序設(shè)計(jì)項(xiàng)目集成報(bào)表4.1表單類表單設(shè)計(jì)器操作表單表單屬性和方法表單集表單設(shè)計(jì)器（1）表單設(shè)計(jì)器（2）操作表

2、單（1）創(chuàng)建表單：（1）函數(shù)方式cleam1=createobject("form")m1.show(1)操作表單（2）創(chuàng)建表單：（2）命令方式CREATEFORMAA操作表單（3）創(chuàng)建表單：（3）啟動(dòng)表單設(shè)計(jì)器（4）向?qū)Х绞讲僮鞅韱危?）修改表單：（1）MODIFORM<表單名>（2）[OPEN]操作表單（5）執(zhí)行表單：（1）DOFORM<表單名>（2）[FORM]→[RUNFORM]操作表單（6）保存表單：（1）[FILE]→[SAVE]（2）[FIEL]→[SAVEAS]表單屬性和方法（1）屬性：HEI

3、GHT表單屬性和方法（2）屬性：AUTOCENTER表單屬性和方法（3）屬性：CAPTIONCONTROLBOXTOPLEFTNAME表單屬性和方法（4）屬性：FORECOLOR、BACKCOLOR表單屬性和方法（5）屬性：FORECOLOR、BACKCOLOR舉例表單屬性和方法（6）屬性：BACKCOLOR舉例：代碼frmMyForm=CREATEOBJECT('Form')&&CreateaFormfrmMyForm.Closable=.F.&&DisabletheControlmenuboxfrmMyF

4、orm.AddObject('cmdCommand1','cmdMyCmndBtn')&&AddCommandbuttonfrmMyForm.AddObject('opgOptionGroup1','opgMyOptGrp')&&AddOptionGroupfrmMyForm.AddObject('shpCircle1','shpMyCircle')&&AddCircleShapefrmMyForm.AddObject('shpEllipse1','shpMyEllipse')&&AddEllipseShap

5、efrmMyForm.AddObject('shpSquare','shpMySquare')&&AddBoxShapefrmMyForm.cmdCommand1.Visible=.T.&&"Quit"CommandbuttonvisiblefrmMyForm.opgOptionGroup1.Buttons(1).Caption="

6、.Buttons(3).Caption="

7、sing表單屬性和方法（7）屬性：BACKCOLOR舉例：代碼DEFINECLASSopgMyOptGrpASOptionGroup&&CreateanOptionGroupButtonCount=3&&ThreeOptionbuttonsTop=10Left=10Height=75Width=100PROCEDUREClickThisForm.shpCircle1.Visible=.F.&&HidethecircleThisForm.shpEllipse1.Visible=.F.&&Hidetheellip

8、seThisForm.shpSquare.Visible=.F.&&HidethesquareDOCASECASEThisForm.opgOptionGroup1.Value=1ThisForm.shpCircle1.Visible=.T.&&ShowthecircleCASEThisForm.opgOptionGroup1.Value=2ThisForm.shpEllipse1.Visible=.