TIPTOP易拓技转课程-程序基础

• • • • • • • • • • • • • Is null == 或者 = <> 或者 ！= < <= > >= + * / ** mod
表達式-字符串表達式 • ‘，’ a=„123‟,c=„456‟ let b=a,c b=„123456‟ • Clipped a=„123 ’ Let a=a clipped a=„123‟
Transaction:
儅程序中執行update insert delete時，會對數据庫數據進 行異動。有時希望所有數据一起寫入或者放棄的時候，就需 要用transaction。 語法： Begin work update sql If .. Then commit work #提交 Else rollback work #退回 End if
用於更新數據時鎖住資料的遊標
Declare 名字 cursor for sql語句 for update
遊標用法：
1.打開遊標：Open 遊標名字
2.locking/Scrolling cursor 獲取值：fetch 遊標名字 to變量
3.關閉遊標：close 遊標名字 2.non-Scrolling cursor 獲取值： Foreach 遊標名字 into 變量 ……………….. End foreach
TIPTOP GP 教育訓練
程序基礎
課程大綱
變量與運算 程控流程 window與form display與input cursor應用 array應用 sql基礎 Q&A
1 變量的定義
定義方式：
A. 直接定義
Define employee_no char(10)
B. 對應數據庫字段 database ds
3.變量的集合
• 不同數據類型的變量組合 • 直接定義 Define sr record id int， name char（10） End record • 對應數據庫字段 Define sr like a_file.* Define sr record id like a_file.id， name like a_ End record
程序控制流程-批註 • • • {}多行註釋 #單行註釋 --單行註釋
程序控制流程-調用call
定義 Call function_name(,….) return variabl1, variabl2….
注意： 1. function_name(,….) 返回值用return 2. Call接受返回值用returning
資料權限群組功能
User D 群組A + 群組B 的 Leader
User A 屬 A001 財務部門
User C 屬 B004 人事部門
設定相關部門群組 A
A001 A002 A003 A004
設定相關部門群組 B
B001
B002 B003 B004
A005
User B 屬 A003 出納部門
當權限設定為: 「 8:僅相關部門群組間,允許查詢/更改/刪除」, 則 User A , User B 所建立的資料可被互相查看與維護, 且 User C 則不行查看 User A, User B 所建的資料, 但是 User D 可橫跨群組A、B, 因此可看到 User A, User B 與 User C 所建立的資料
資料權限群組設定範例
TP ERP
24300
Charis Eric
24310
24320ຫໍສະໝຸດ -5權限類別設定作業 ( p_zy )
維護單身權限，要透過旁邊的”維護單 身新增刪除權限”作設定。該項紙有0~3 的選項。沒有查詢選項，
權限類別設定作業
可針對Action 再作控管
指派使用者權限類別 ( p_zx )
程序控制流程-if語句
• 語法： If condition Then 處理方法 ELSE 處理方法 END IF 範例：a=10 b= 20 c=30 If a>b then display „a>b‟ if b>c then display „a一定大於c‟ else display „a不一定大於c‟ end if Else display „a<=b‟ if b>c then display „c不一定大於a‟ else display „c一定大於a‟ end if end
表達式-邏輯表達式 • Not 反向 If not a=b then…… • And 而且 If a=b and c=d then…… • Or 或者 If a=b or c=d then…… • （） 必須 If （a=b or e=f） and c=d then……
表達式-日期表達式
• • • • • • • • Today 今天 Current 當前時間 Date（）轉換為日期格式 Time（）取出時間 Year（）取出年 Month（）取出月 Day（）取出日 Weekday（）囘傳今天是第幾個工作天（星期）
程序控制流程-main • •
(1)
Main（） Main（）是程序的入口，一個完整可執 行的程序必須有main Main display “hello,world” End main
程序控制流程-main
(2)
• Defer 設定 截取[當使用者按下中斷、離開]時的系統訊號 Defer interrupt Defer quit • Option設定 設定系統的默認選項 • Whenever error [continue/stop/….] 當遇到sql錯誤的時候，系統採用何種方式應對
2.Construct 變量 on 欄位1，…….. From 畫面檔 結果是:tm.wc=“ima01 like „a%‟ ”
prepare用法：
意義：將字符串轉換成數據庫可執行的sql語句。 語法：prepare 名字 from sql字符串
例子： Let l_sql=‘select * from ima_file where’,tm.wc Prepare ima_pre from l_sql
程序控制流程-case語句
• 語法 Case expression-1 when expression -2 處理方法 ……. otherwise 處理方法 End case 範例：let a=陳永傑 Case a when a[1,2]=„陳’ display „他姓陳‟ when a[1,2]=„李’ display „他姓李’ otherwise display „他姓？’ End case
菜單menu
語法： Menu name attribute before menu ……. Command option ……… Command option ……… On action ……….. End menu Defore menu可以不用寫入，如有一些特別的控管（隱藏某些 menu功能），可以在此完成 Command / on action 區別：command 可以重復定義相同的功能名字，以最後一個 為准；on action則不可以，否則complier報錯
execute
執行sql語句： Let l_sql=‘select * from ima_file’ Prepare ima_p from l_sql Execute ima_p
相關部門權限設定
資料權限群組功能
User A 屬 A001 財務部門
User C 屬 B004 人事部門
設定相關部門群組 A
Input by name 變量名字 before input after input before field
after field
on action End input
Construct by name
讓用戶輸入條件，組成where條件，以利於找取資 料。 若使用者未輸入任何條件，系統也會自動于此變量 補入‘1=1‟ 語法： 1.Construct by name 變量 on 欄位1，……..
A001 A002 A003 A004
B001
B002 B003 B004
A005
User B 屬 A003 出納部門
在設定相關部門群組(p_tgrup)後, 當權限設定為: 「 8:僅相關部門群組間,允許查詢/更改/刪除」, 則 User A , User B 所建立的資料可被互相查看與維護, 但 User C 則不行查看 User A, User B 所建的資料
• • • •
4變量的設定與初始化 Let a=10 Let a=„hugo‟ Initialize sr.* to null Initialize sr.* like cr.*
系統預設的變量
• INT_FLAG 裝載招用戶是否按下‘ecs‟鍵 • STATUS 存儲每次sql的執行狀態
表達式-比較表達式
程序控制流程-一般函數
• function定義 Function name (p1,p2) ………….. End function • Rep 定義 Report name (p1,p2) format page header before group on every row after group ………….. End report
Define employee_no like employee_file.employee_no 注意： – 定義必須在函數的開頭 – 當字段形態或寬度改變的時候，B比A優。
2變量的類型
• 1. 2. 3. • 1. 2. • 1. 2. 3. 4. 字符數據形體態 Char 固定字符 Varchar 動態字符 String 動態字符串 日期數據形態 Date 日期 Datetime 日期時間 數值 Int 整數 -9999 to 9999 Smallint -99 to 99 Float 浮點型 Dec（p，s）高精度浮點型