1、OracleERP(form)-安裝acleForm6iForm 與OracleEBIS它的Form沒有工具欄；不能用通用的快捷鍵F11、Ctrl+F11F6這種毛病在第一次開發(fā)人員的通病。後來才知道，沒有做好Form 前期準(zhǔn)備工作，不多說了，開始做事吧第一：FTP 到OracleEBIS 服務(wù)器的devappl/au/11.5.0(也就是$AU_TOP)目錄下，下載二個(gè)文件夾:Form 和Reource，將它們保存在目錄D:/Oralce/OracleForm 目錄。第二：修改注冊(cè)表開始-單擊”運(yùn)行“-輸入regedit-回車HKEY_LOCAL_MACHINE/SOFTWARE/ORACL

2、E:NLS_LANGAMERICAN_AMERICA.UTF8找到HKEY_LOCAL_MACHINE/SOFTWARE/ORACLE 數(shù)值名 稱:FORMS60_PATH，修改數(shù)值數(shù)據(jù)為D:/Oracle/OracleForm/reource;D:/Oracle/OracleForm/FORMS呵呵。準(zhǔn)備工作做完成。開發(fā)OracleEBISFormTEMPLATE.fmb開發(fā)類似的功能的Form，那真是NBForm1.DataBlock(數(shù)據(jù)塊):相當(dāng)於數(shù)據(jù)源，指定數(shù)據(jù)來源於哪個(gè)表、哪個(gè)視圖或過程等等。2.Item(項(xiàng)目)是Form 最小單元，也是DataBlock 最小單元，相當(dāng)也表或視圖

3、也過程的遊標(biāo)某一段。3.Canvae應(yīng)關(guān)系，而是直接與ItemCanvae 上的Item4.LOV(LOV):相當(dāng)於下拉列表也列表5.Parameter(參數(shù))相當(dāng)於Form6.RecordGroup(記錄組):是LOV7.Window(窗體)：一個(gè)Window 隻能一個(gè)Canvae.8.Form:一個(gè)Form 可以多個(gè)Window 下面手工創(chuàng)建一個(gè)簡單的Form第一:打開文件TEMPLANTE.fmb.另存為HHRALANTEST.fmb1.1 選擇Open,然後彈出一個(gè)文件選擇對(duì)話框 1.2 打開TEMPLANTE.fmb1.3HHRALANTEST.fmb。但是，F(xiàn)orm選中TEMPLA

4、NTE-右擊選擇PropertyPalette-在Name2.1DataBlock:BLOCKNAME、DETAILBLOCK2.2Canvee:BLOCKNAME2.3Window:BLOCKNAME第三:添加DataBlock3.1 選擇DataBlock3.2 選擇Create,會(huì)彈出NewDataBlock3.3Buildanewdatablockmanually選擇剛才創(chuàng)建的DataBlock-右擊選擇PropertyPalette修改Name 為HHRALANTEST,並修改SubclaInformationBLOCK3.6QueryDataSourceNameHHR_ALAN_T

5、ESTS第四:添加Canvae(畫布) 第五添加Window(窗口)注意:5.4 中PrimaryCanva(主要畫布)為第四步添加的畫布HHRALANTEST 第六修改Form 之PropertyPalette(特征盤)的屬性,6.1ConoleWindow 為FIRSTWIND6.2FirtNavigationDataBlock 為HHRALANTEST(HHRALANTEST)PropertyPalette7.1WindowFIRSTWIND第八修改觸發(fā)器代碼和程序單位修改Form-HHRALANTEST-Trigger-雙擊PER-FROMW修改Form-HHRALANTEST-Pro

6、gramUnit-APP_CUSTOM(PackageBody)如下圖 無在OracleEBIS關(guān)閉第九在HHRALANTEST(DataBlock(Item)選擇Item創(chuàng)建Item選擇剛才創(chuàng)建的Item,右擊選擇PropertyPalette修改相關(guān)屬性如下圖修改RequiredYe，ColumnNameCODE選擇Item創(chuàng)建Item其它Item注意:Required 為Ye各個(gè)Item開發(fā)完成後要編譯，按Ctrl+Shift+K接著上章節(jié)OracleForm(2)-Form第一FTP$HHR_TOP/form/US（英文版本目錄）和$HHR_TOP/form/ZHS(簡體中文版本目錄)

7、。第二TelnetOracleForm$AU_TOP/form/US$AU_TOP/form/ZHS 目錄下編譯Form 輸入如下命令:f60gen$HHR_TOP/form/US/HHRALANTEST.fmbapp/apppaoutput_file=$ HHR_TOP/form/US/HHRALANTEST.fm 某f60gen:命令頭固定的$HHR_TOP/form/US/HHRALANTEST.fmb:為第一步文件FTP 上傳的目錄app/apppa:編譯form 文件一定要用app 用戶，因此也是固定的。apppa 是app 用戶的密碼。output_file=$HHR_TOP/fo

8、rm/US/HHRALANTEST.fmform(HHRALANTEST.fm第三在OracleEBIS 系注冊(cè)表單添加Form(SytemAdminitrator-Application-Form)輸入Form(表單名稱)注意一定要與Form樣:HHRALANTEST選擇此Form 輸入U(xiǎn)erFormName1.4 輸入說明文件字說明Form(SytemAdminitrator-Application-Function)輸入Function輸入U(xiǎn)erFunctionName定到位Propertie.選擇Type(功能類型)為Form定到位Form輸入或選擇HHRALANTEST一一填寫上去(

9、Menu)3.1輸入Prompt輸入或選擇功能HHRALANTEST上節(jié)學(xué)習(xí)開第一個(gè)Form，這個(gè)節(jié)在添加一個(gè)彈出下拉框第一步：添加記錄組1.1 選中RecordGroup1.2 單擊Create1.3 輸入查詢SQL1.4 單擊OK1.5 修改剛才創(chuàng)建的RecordGroup 為VENDORRG 第二步:添加LOV2.1 選中LOV2.2 單擊Create2.3 選擇BuildanewLOVmanually，單擊OK2.4 改修LOVVENDOR_LOV打開VENDOR_LOV(Palette),TitleRecordGroupVENDORRG單擊ColumnMappingPropertie

10、，顯示LOVColumnMapping在ColumnName 下拉框中輸入列名VENDOR_CODE（此列名與上面RecordGroup 為VENDORRG 中的SQLSelect 語句字段一樣），ReturnItem 選擇返回給數(shù)據(jù)塊HHRALANTEST 中項(xiàng)目VENDOR_CODE，DiplayWidth 是顯示列寬,ColumnTitle 是顯示列名。如果不需返回給某項(xiàng)目，ReturnItemDiplayWindowColumnTitle 是一定要輸入。1.FND_MESSAGE.SET_STRING()。此消息一定要結(jié)合FND_MESSAGE.SHOW 或FND_MESSAGE.ER

11、RORFND_MESSAGE.HINTFND_MESSAGE.WARNFND_MESSAGE.QUESTION 使用才能彈出對(duì)話窗口或顯示消息。例如:FND_MESSAGE.SET_STRING(陳顯平測(cè)試OracleForm 的消息,|Chr(10)|大家看一下是否成功？);FND_MESSAGE.SHOW; 2.FND_MESSAGE.SET_NAME(,)此消息也要結(jié)合FND_MESSAGE.SHOW 或FND_MESSAGE.ERRORFND_MESSAGE.HINTFND_MESSAGE.WARNFND_MESSAGE.QUESTION 使用才能彈出對(duì)話窗口或顯示消息。參數(shù)說明:用應(yīng)

12、產(chǎn)品簡稱.如下圖紅色圓框:消息代碼。若在系統(tǒng)表中找不對(duì)應(yīng)消息說明，則消息說明自動(dòng)默認(rèn)為。還有，消息代碼使用前自動(dòng)轉(zhuǎn)換大寫。為何OracleForm如:FND_MESSAGE.SET_NAME(FPT,ORACLE_001);FND_MESSAGE.ERROR;3.FND_MESSAGE.DUBEG();它是用於調(diào)試的，效果等同於FND_MESSAGE.SET_NAME 結(jié)合FND_MESSAGE.SHOWFND_MESSAGE.DEBUG(陳顯平測(cè)試OracleForm 的消息,|Chr(10)|大家看一下是否成功？);FND_MESSAGE.SHOWFND_MESSAGE.ERRORFND_

13、MESSAGE.HINTFND_MESSAGE.WARNFND_MESSAGE.SHOWFND_MESSAGE.ERRORFND_MESSAGE.HINT 是顯示在表單中的狀態(tài)欄，如下圖FND_MESSAGE.WARN一步操作,它與FND_MESSAGE.QUESTION5.FND_MESSAGE.QUESTION(BUTTON1INVARCHAR2,BUTTON2INVARCHAR2,B UTTON3INVARCHAR2,DEFAULT_BTNINNUMBER,CANCEL_BTNINNUMBER,ICONINVA RCHAR2)用於自定義對(duì)話按鈕，比FND_MESSAGE.WARN 要靈活

14、多了。例如:FND_MESSAGE.SET_STRING(陳顯平測(cè)試OracleForm 的消息,|Chr(10)|大家看一下是否成功？);Int_Chooe:=FND_MESSAGE.QUESTION(確定,null,取消,1,2,NOTE);IfInt_Chooe=2ThenNull;EleIfInt_Chooe=1ThenNull;EndIf;按照OracleForm(2)Form:HHR_JEWEL_ITEMS、HHR_JEWEL_STONEHHR_JEWEL_GOLDSHHR_JEWEL_ITEMSW 重命名為HHRJEWEL,HHR_JEWEL_STONE 重命名為HHRSTONE

15、)，數(shù)據(jù)塊向?qū)?dǎo)入的好處就是數(shù)據(jù)塊和項(xiàng)目屬性默認(rèn)與表結(jié)構(gòu)相同，如數(shù)據(jù)類型、字段長度和是否允許為空等等，減少手工設(shè)置。HHR_JEWEL_STONE 和HHR_JEWEL_GOLDS 是表HHR_JEWEL_ITEMS 二個(gè)屬性描述表，類似於PO 明細(xì)與PO 主題關(guān)系。因此，需要?jiǎng)?chuàng)建它們之間關(guān)系:1.選取數(shù)據(jù)塊HHRJEWEL 下的Relation2.單擊創(chuàng)建按鈕選擇細(xì)明數(shù)據(jù)塊HHRSTONE選擇Non-Iolated擇iolated在記錄,則主題表也能刪除。入輸ITEM_ID,主題表與明細(xì)表之間相關(guān)聯(lián)的字段。以同樣方法創(chuàng)建HHRJEWEL 與HHR_JEWEL_GOLDS關(guān)系同時(shí)，數(shù)據(jù)塊HHR

16、JEWEL:ON-POPULATE- DETAILS 和ON-CHECK-DELETE-MASTER(ProgramUnit)也自動(dòng)創(chuàng):Check_Package_FailureClear_All_Mater_Detail注意：要查看二個(gè)明細(xì)表中的項(xiàng)目ITEM_ID 屬性CopyValuefromItem 是否為HHRJEWEL.ITEM_ID創(chuàng)建HHRJEWEL 畫布，它為HHRJEWEL(Frame)LayoutDataBlock 為HHRJEWELUpdateLayout 為 Automatically 表示自動(dòng)布局，若要改為手工布局， 則此項(xiàng)為Manually。當(dāng)添加項(xiàng)目到畫布時(shí)，項(xiàng)目

17、會(huì)自動(dòng)布局。使用框的好處是方便版面布局和界面簡潔。但是，我們看到界面中沒有ITEM_ID 項(xiàng)目，這個(gè)項(xiàng)目是不需要顯示在界面上的，它新增時(shí)自動(dòng)產(chǎn)生的。因此，在表單新增記錄時(shí)，需要在HHRJEWEL 數(shù)據(jù)塊觸發(fā)器上添加事件:ON-INSERT，事件代碼如下:DeclareMa 某ItemIDnumber;beginelectMa(ITEM_ID)IntoMa 某ItemIDFromHHR_JEWEL_ITEMS;IfMaItemIDiNullThenMaItemID:=1;EleMa 某ItemID:=Ma 某ItemID+1;Endif;:HHRJEWEL.ITEM_ID:=Ma 某 ItemID; InertIntoHHR_JEWEL_ITEMS(ITEM_ID,BAR,JEWEL_NAME,DESCR)Value(:HHRJEWEL.