OracleERP界面开发(form)-图文

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

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

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

4、NTE-右擊選擇PropertyPalette-在Name2.1DataBlock:BLOCKNAME、DETAILBLOCK2.2Canvee:BLOCKNAME2.3Window:BLOCKNAME第三:添加DataBlock3.1 選擇DataBlock3.2 選擇Create,會彈出NewDataBlock3.3Buildanewdatablockmanually選擇剛才創建的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第八修改觸發器代碼和程序單位修改Form-HHRALANTEST-Trigger-雙擊PER-FROMW修改Form-HHRALANTEST-Pro

6、gramUnit-APP_CUSTOM(PackageBody)如下圖 無在OracleEBIS關閉第九在HHRALANTEST(DataBlock(Item)選擇Item創建Item選擇剛才創建的Item,右擊選擇PropertyPalette修改相關屬性如下圖修改RequiredYe，ColumnNameCODE選擇Item創建Item其它Item注意:Required 為Ye各個Item開發完成後要編譯，按Ctrl+Shift+K接著上章節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 系注冊表單添加Form(SytemAdminitrator-Application-Form)輸入Form(表單名稱)注意一定要與Form樣:HHRALANTEST選擇此Form 輸入UerFormName1.4 輸入說明文件字說明Form(SytemAdminitrator-Application-Function)輸入Function輸入UerFunctionName定到位Propertie.選擇Type(功能類型)為Form定到位Form輸入或選擇HHRALANTEST一一填寫上去(

9、Menu)3.1輸入Prompt輸入或選擇功能HHRALANTEST上節學習開第一個Form，這個節在添加一個彈出下拉框第一步：添加記錄組1.1 選中RecordGroup1.2 單擊Create1.3 輸入查詢SQL1.4 單擊OK1.5 修改剛才創建的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 選擇返回給數據塊HHRALANTEST 中項目VENDOR_CODE，DiplayWidth 是顯示列寬,ColumnTitle 是顯示列名。如果不需返回給某項目，ReturnItemDiplayWindowColumnTitle 是一定要輸入。1.FND_MESSAGE.SET_STRING()。此消息一定要結合FND_MESSAGE.SHOW 或FND_MESSAGE.ER

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

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

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

14、多了。例如:FND_MESSAGE.SET_STRING(陳顯平測試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、)，數據塊向導導入的好處就是數據塊和項目屬性默認與表結構相同，如數據類型、字段長度和是否允許為空等等，減少手工設置。HHR_JEWEL_STONE 和HHR_JEWEL_GOLDS 是表HHR_JEWEL_ITEMS 二個屬性描述表，類似於PO 明細與PO 主題關系。因此，需要創建它們之間關系:1.選取數據塊HHRJEWEL 下的Relation2.單擊創建按鈕選擇細明數據塊HHRSTONE選擇Non-Iolated擇iolated在記錄,則主題表也能刪除。入輸ITEM_ID,主題表與明細表之間相關聯的字段。以同樣方法創建HHRJEWEL 與HHR_JEWEL_GOLDS關系同時，數據塊HHR

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

17、會自動布局。使用框的好處是方便版面布局和界面簡潔。但是，我們看到界面中沒有ITEM_ID 項目，這個項目是不需要顯示在界面上的，它新增時自動產生的。因此，在表單新增記錄時，需要在HHRJEWEL 數據塊觸發器上添加事件: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.