Code Optimisation

code optimisationOlivier Deschanels, Senior Consultant

optimise your code, you must

optimise your code, you must

レスポンスの速度を向上させるために

リクエストの効率を良くするために

トラフィック量を減らすために

コードを簡易にするために

保守を楽にするために

将来に備えるために

before coding …

Murphy was an incurable optimist

1


1

2


1

2

3


1

2

3

4


1

2

3

4

5


C/S isn't just a multiprocess standalone

スタンドアロン版でしかコードを検証していなかった …



何が起きているのか理解するためにC/S版でデバッグと検証が必要 …



何が起きているのか理解するためにC/S版でデバッグと検証が必要 …

最初からC/S版で開発していれば時間の節約に


wifi makes delays worse

x 1.2


0 ms 3,750 ms 7,500 ms 11,250 ms 15,000 ms


0 ms 3,750 ms 7,500 ms 11,250 ms 15,000 ms

x 7.5


0 ms 3,750 ms 7,500 ms 11,250 ms 15,000 ms

x 7.5

Time with 'execute on server' method attribute"サーバー上で実⾏メソッド"属性を有効にした場合


0 ms 3,750 ms 7,500 ms 11,250 ms 15,000 ms


0 ms 3,750 ms 7,500 ms 11,250 ms 15,000 ms

÷23

÷6


know your code activity, you should


1


1

SET DATABASE PARAMETER(Debug log recording;2+4+8+16)


1

2


1

2

3


1

2

3

SET DATABASE PARAMETER(Debug log recording;0)


1

2

3

4 logs


1

2

3

4 logs

5 4DDebugLog_1.txt

too much info; select you must


1


1

2


1

2

3


1

2

3

4


SET DATABASE PARAMETER(Log command list;"277") SET DATABASE PARAMETER(Debug log recording;2+4+8+16)

1

2

3

4


SET DATABASE PARAMETER(Log command list;"277") SET DATABASE PARAMETER(Debug log recording;2+4+8+16)SET DATABASE PARAMETER(Log command list;"277;341") SET DATABASE PARAMETER(Debug log recording;2+4+8+16)

1

2

3

4


SET DATABASE PARAMETER(Log command list;"277") SET DATABASE PARAMETER(Debug log recording;2+4+8+16)SET DATABASE PARAMETER(Log command list;"277;341") SET DATABASE PARAMETER(Debug log recording;2+4+8+16)

QUERY (277) および QUERY SELECTION (341)

コマンドを監視

1

2

3

4

set the flags

SET DATABASE PARAMETER(Debug log recording; 2 + 4 + 8 + 16)

set the flags

SET DATABASE PARAMETER(Debug log recording; 2 + 4 + 8 + 16)

2 : 引数も記録（メソッドおよびコマンド）

4 : タブ区切りフォーマット

8 : 遅延書き込みモード

16 : プラグインも対象

set the flags


1


1

SET DATABASE PARAMETER(Log command list;"") SET DATABASE PARAMETER(Debug log recording;4+8+16)


1

2


1

2

3


1

2

3

4


1

2

3

4

5


1

2

3

4

5

6

1

2

3

1

2

3

4

1

2

3

4

5

1

2

3

4

5

SET DATABASE PARAMETER(Circular log limitation;10)

1

2

3

4

5

SET DATABASE PARAMETER(Circular log limitation;10)

10 x 10MB = 最⼤100MB

reduce the use of variables, you must

variable and variables table

1


1

2


1

2

3


1

2

3

4


1

2

3

4

5


1

2

3

4

5

6


サーバー

クライアント#1

クライアント#2

P1PR1

グローバルプロセス裏⽅のツインプロセス

ネットワーク接続

このプロセスが実⾏ : - トリガ - "サーバー上で実⾏"

P1

P2

PR1

PR2

P1

P2

$P3

PR1

PR2

＄ローカルプロセス

P1

P2

$P3

PR1

PR2

P1'

$P2'

PR1'

P1

P2

$P3

PR1

PR2

P1'

$P2'

PR1'

SP2

SP1

ストアドプロシージャー

P1

P2

$P3

PR1

PR2

P1'

$P2'

PR1'

SP2

SP1

WP2

WP3

WP1

Webプロセス

P1

P2

$P3

PR1

PR2

P1'

$P2'

PR1'

SP2

SP1

WP2

WP3

WP1

コンパイル

モード

P1

P2

$P3

PR1

PR2

<>

P1'

$P2'

PR1'

SP2

SP1

WP2

WP3

WP1

インタープロセス変数テーブル

コンパイル

モード

P1

P2

$P3

PR1

PR2

<> <>

P1'

$P2'

<>PR1'

SP2

SP1

WP2

WP3

WP1

コンパイル

モード

P1

P2

$P3

PR1

PR2

<> <>

P1'

$P2'

<>PR1'

V

SP2

SP1

WP2

WP3

WP1

プロセス変数テーブル

コンパイル

モード

P1

P2

$P3

PR1

PR2

<> <>

P1'

$P2'

<>PR1'

V

V

V

V

V

SP2

SP1

WP2

WP3

WP1

コンパイル

モード

P1

P2

$P3

PR1

PR2

<> <>

P1'

$P2'

<>PR1'

V

V

V

V

V

SP2 V

SP1 V

WP2 V

WP3 V

WP1 V

コンパイル

モード

P1

P2

$P3

PR1

PR2

<> <>

P1'

$P2'

<>PR1'

V

V

V

V

V

SP2 V

SP1 V

WP2 V

WP3 V

WP1 V

V

コンパイル

モード

P1

P2

$P3

PR1

PR2

<> <>

P1'

$P2'

<>PR1'

V

V

V

V

V

SP2 V

SP1 V

WP2 V

WP3 V

WP1 V

V

V

V

コンパイル

モード

P1

P2

$P3

PR1

PR2

<> <>

P1'

$P2'

<>PR1'

V

V

V

V

V

SP2 V

SP1 V

WP2 V

WP3 V

WP1 V

V

V

V

<>CV

<>CV

コンポーネント#1のインタープロセス変数テーブル

コンポーネント#2のインタープロセス変数テーブル

コンパイル

モード

P1

P2

$P3

PR1

PR2

<> <>

P1'

$P2'

<>PR1'

V

V

V

V

V

SP2 V

SP1 V

WP2 V

WP3 V

WP1 V

V

V

V

<>CV

<>CV

<>CV

<>CV

<>CV

<>CV

コンパイル

モード

P1

P2

$P3

PR1

PR2

<> <>

P1'

$P2'

<>PR1'

V

V

V

V

V

SP2 V

SP1 V

WP2 V

WP3 V

WP1 V

V

V

V

CVCV

<>CV

<>CV

<>CV

<>CV

<>CV

<>CV

コンポーネント#1のプロセス変数テーブル

コンポーネント#2のプロセス変数テーブル

コンパイル

モード

P1

P2

$P3

PR1

PR2

<> <>

P1'

$P2'

<>PR1'

V

V

V

V

V

SP2 V

SP1 V

WP2 V

WP3 V

WP1 V

V

V

V

CVCV

CVCV

CVCV

CVCV

CVCV

CVCV

CVCV

CVCV

CVCV

CVCV

CV CV

CV CV

CV CV

<>CV

<>CV

<>CV

<>CV

<>CV

<>CV

コンパイル

モード

P1

P2

$P3

PR1

PR2

<> <>

P1'

$P2'

<>PR1'

V

V

V

V

V

SP2 V

SP1 V

WP2 V

WP3 V

WP1 V

V

V

V

CVCV

CVCV

CVCV

CVCV

CVCV

CVCV

CVCV

CVCV

CVCV

CVCV

CV CV

CV CV

CV CV

<>CV

<>CV

<>CV

<>CV

<>CV

<>CV

コンパイル

モード

プロセス変数テーブルのサイズに無頓着であってはいけない

control the size of process variables table

1


1

2


1

2

3


1

2

3

4


1

2

3

4

5


decrease the size of process variables table


1


1

2

bOk bValid

bValidate b_Ok

buttonOK


1

2


1

2


1

2

3


1

2

3

4

use dynamic variables

1


1

2


1

2

3


don't push your luck

プロセス変数を使っても⼤丈夫です!


プロセス変数を使っても⼤丈夫です!

ほんとう? それを聴いて安⼼した


プロセス変数を使っても⼤丈夫です!"最先端"であるためにコードを複雑にする必要はありません変数のサイズに気を配るのは⼤事ですが，極端に⾛らないで


プロセス変数を使っても⼤丈夫です!"最先端"であるためにコードを複雑にする必要はありません変数のサイズに気を配るのは⼤事ですが，極端に⾛らないで

それに今ならオブジェクト変数が…


group the variables in an object, you can

無数のフォームローカル変数をオブジェクト型のプロセス変数に置換:



{"onTimerMessage":"refresh", "PreviousFormEvent":27, "LastKeystroke":"C", "OnErrorMethodToRestore":"General_Error_Call", "OnEventMethodToRestore":"", "CountryCustomer":"FR", "CurrentQuoteUUID":"EF455411221114778AB3ED45DD", "ListOfCountryInWishList":["US","FR","UK","SA","AU"] }




1個のプロセス変数に保存: form_context





プロセス変数テーブルに 16バイト追加することに






わずか16バイトで整理できて⼤変お買い得!






わずか16バイトで整理できて⼤変お買い得!

属性を追加するだけ拡張: フォームにオブジェクトを追加する必要なし


example with a form_context

OB SET(form_context;"currentCountry";"France")

$ref:=Open form window("country_selector") DIALOG("country_selector") CLOSE WINDOW($ref )

$return_country:=OB Get(form_context;"currentCountry")





$evt:=Form event Case of : ($evt=On Load) $currentCountry:=OB Get(form_context;"currentCountry") ALL RECORDS([Country]) DISTINCT VALUES([Country]Continent;_continent) If ($currentCountry="") _continent:=1 OB SET(form_context;"onTimerMessage";"changeContinent") SET TIMER(-1) Else QUERY([Country];[Country]Name=$currentCountry) _continent:=Find in array(_continent;[Country]Continent) QUERY([Country];[Country]Continent=_continent{_continent}) DISTINCT VALUES([Country]Name;_country) _country:=Find in array(_country;$currentCountry) End if

: ($evt=On Timer) SET TIMER(0) $onTimerMessage:=OB Get(form_context;"onTimerMessage";Is text) OB REMOVE(form_context;"onTimerMessage") Case of : ($onTimerMessage="changeContinent") QUERY([Country];[Country]Continent=_continent{_continent}) DISTINCT VALUES([Country]Name;_country) _country:=1 End case End case







OB SET(form_context;"onTimerMessage";"changeContinent") SET TIMER(-1)







OB SET(form_context;"onTimerMessage";"changeContinent") SET TIMER(-1)

OB SET(form_context;"currentCountry";_country{_country}) ACCEPT


lighter is faster!

don't use every possible fields

こんにちは。150フィールドの者です。


こんにちは。150フィールドの者です。はじめまして!



いろんなケースに対応できるんですよ




ほんとうに?




ほんとうに?

もちろん! 想定シナリオを100%網羅していますから




ほんとうに?

もちろん! 想定シナリオを100%網羅していますからでも，⼤概は普通のケースですよね?




ほんとうに?


備えあれば憂いなし，ってね!




ほんとうに?



コスト的にはどうなの?




ほんとうに?



コスト的にはどうなの?

未使⽤フィールドは空だからタダですよ


empty isn't free

150フィールドのテーブルempty isn't free

レコードのサイズ 150フィールドのテーブル

ヘッダー 32 バイト 32 バイト

データ実際のサイズ実際のサイズ

µストラクチャ 8 バイト×フィールド数 1,200 バイト

合計最低 1.2 Kb レコード毎

150フィールドのテーブルempty isn't free

try to keep stable field sizes

a


a

b


a

b

c


a

b

c

d


a

b

c

d

e


a

b

c

d

e

f


a

b

c

a

b

c

d

a

b

c

d

e

a

b

c

d

e

f

a

b

c

d

e

f

g

a

b

c

d

e

f

g

h

"all you can store" syndrome

"all you can store" syndrome

# フィールド

9 Phone1

10 Phone2

11 Fax

35 Phone3

90 Portable

105 email

120 email2

you must unlearn what you have learned

SET AUTOMATIC RELATIONS SET FIELD RELATION



カレントプロセス内で有効




すべてのリレーションを変更する 1個のリレーションだけを変更する





True, False Do not modify, Structure config., Manual, Automatic






ストラクチャー定義の⾃動リレーションは変更できないストラクチャー定義の⾃動リレーションも変更できる







"True" はリレーションをロックする;その場合 SET FIELD RELATION

は無視されてしまう副作⽤なし









!









!

互換性のために残されている効率⾯で優れている


QUERY BY FORMULA QUERY BY FORMULAQUERY SELECTION BY FORMULA


QUERY BY FORMULA QUERY BY FORMULA

インデックスを使⽤しないシーケンシャル検索インデックス検索

QUERY SELECTION BY FORMULA




サーバー側でフォーミュラを評価クライアント側でフォーミュラ式を評価





サーバー側でフォーミュラを評価

⾃動的にJOINを実⾏

クライアント側でフォーミュラ式を評価

レコード1件ずつクライアントに転送

JOINを定義して使⽤





サーバー側でフォーミュラを評価

⾃動的にJOINを実⾏

クライアント側でフォーミュラ式を評価

レコード1件ずつクライアントに転送

JOINを定義して使⽤

以前のアドバイス : 利⽤は慎重に，できる限りQUERY

SELECTIONで対応

現在のアドバイス : v11の主要強化ポイントのひとつ

積極的に使⽤するべき!



EXECUTE ON CLIENT EXECUTE ON CLIENTREGISTER CLIENT(name;period) REGISTER CLIENT(name)



登録後，クライアントは定期的に，デフォルトでは2秒毎に，サーバーあるいは別のクライアントから

呼び出されているか問い合わせる

サーバーは必要なときに実⾏リクエストを直接クライアントに送信する






PULLモード PUSHモード






PULLモード PUSHモード

⼤量リクエストの可能性必要最低限のリクエスト数


TRIGGER TRIGGER


TRIGGER TRIGGER

トリガはアトミックな操作: トリガが実⾏されている間，

サーバー側のコードがすべて待機トリガは実⾏中のコードを停⽌しない


TRIGGER TRIGGER



コマンドではなく関数


TRIGGER TRIGGER



コマンドではなく関数 C_LONGINT($0) $0:=0


TRIGGER TRIGGER



コマンドではなく関数 C_LONGINT($0) $0:=0

トリガコードでトランザクションを使⽤しない! エラーコード($0) を活⽤する


at the end, house of cards falls

$reference:=[Customer]ReferencePUSH RECORD([Customer])

QUERY([Customer];[Customer]Reference=$reference)$nb:=Records in selection([Customer])

POP RECORD([Customer])

If ($nb=0)//do something

end if






end if

PUSH / POP ロジックはとても⾼価な処理セレクション変更・クエリ・メモリの読み書き…






end if

$reference:=[Customer]Reference

$recNum:=Find in field([Customer]Reference;$reference)

If ($recNum>=0)//do something

End if







end if

$reference:=[Customer]Reference

$recNum:=Find in field([Customer]Reference;$reference)

If ($recNum>=0)//do something

End if


Find in field でバッチリ解決!


$firstName:=[Customer]FirstName$lastName:=[Customer]LastName$birthday:=[Customer]BirthdayPUSH RECORD([Customer])

QUERY([Customer];[Customer]firstName=$firstName;*)QUERY([Customer];[Customer]lastName=$lastName;*)QUERY([Customer];[Customer]Birthday=$birthday)$nb:=Records in selection([Customer])



End if






End if







End if

$firstName:=[Customer]FirstName$lastName:=[Customer]LastName$birthday:=[Customer]Birthday

SET QUERY DESTINATION(Into variable;$nb)QUERY([Customer];[Customer]FirstName=$firstName;*)QUERY([Customer];[Customer]LastName=$lastName;*)QUERY([Customer];[Customer]Birthday=$birthday)SET QUERY DESTINATION(Into current selection)


End if







End if




End if


SET QUERY DESTINATION カレントセレクション・レコードを変更せずにクエリを実⾏






End if




End if


$firstName:=[Customer]FirstName$lastName:=[Customer]LastName$birthday:=[Customer]BirthdaySET QUERY LIMIT(1)SET QUERY DESTINATION(Into variable;$nb)QUERY([Customer];[Customer]FirstName=$firstName;*)QUERY([Customer];[Customer]LastName=$lastName;*)QUERY([Customer];[Customer]Birthday=$birthday)SET QUERY DESTINATION(Into current selection)SET QUERY LIMIT(0)If ($nb=0)

//do somethingEnd if







End if




End if


$firstName:=[Customer]FirstName$lastName:=[Customer]LastName$birthday:=[Customer]BirthdaySET QUERY LIMIT(1)SET QUERY DESTINATION(Into variable;$nb)QUERY([Customer];[Customer]FirstName=$firstName;*)QUERY([Customer];[Customer]LastName=$lastName;*)QUERY([Customer];[Customer]Birthday=$birthday)SET QUERY DESTINATION(Into current selection)SET QUERY LIMIT(0)If ($nb=0)

//do somethingEnd if

SET QUERY LIMIT 0 でリミットを解除




QUERY([Customer];[Customer]Reference=$reference)$firstName:=[Customer]FirstName$lastName:=[Customer]LastName


//do something with $firstName, $lastName ...






$reference:=[Customer]Reference$firstName:=""$lastName:=""

Begin SQLselect FirstName, LastName from Customerwhere Reference=:$referenceinto :$firstName, :$lastName

End SQL










End SQL



SQL カレントセレクション・レコードを変更せずにレコードの値を取り出すことができる








End SQL



SQL カレントセレクション・レコードを変更せずにレコードの値を取り出すことができる

別⾔語の使⽤は⾃由!


a little more knowledge lights our way

QUERY([Customer];[Customer]LastName="Skywalker")CREATE SET([Customer];"SkywalkerFamilly")



QUERY+CREATE SET: 2度のネットワーク通信・カレントセレクションの変更・カレントレコードの

変更・カレントレコードのロック



SET QUERY DESTINATION(Into set;"SkywalkerFamilly")QUERY([Customer];[Customer]LastName="Skywalker")SET QUERY DESTINATION(Into current selection)





SET QUERY DESTINATION(Into set;"SkywalkerFamilly")QUERY([Customer];[Customer]LastName="Skywalker")SET QUERY DESTINATION(Into current selection)



SET QUERY DESTINATION+QUERY: 1度のネットワーク通信・セットを作成するだけ


the sounds of silence, respect you must

ARRAY TEXT(<>arrayParameter;0)



While (Semaphore("parameters"))IDLE

End while

APPEND TO ARRAY(<>arrayParameter;$newValue)

CLEAR SEMAPHORE("parameters")




End while



"parameters" はグローバルセマフォ




End while




"<>arrayParameters" はインタープロセス変数




End while





サーバー側で管理




End while






クライアント側で管理




End while



貴様はテロリストか!




クライアント側で管理


While (Semaphore("parameters")) IDLE End while









While (Semaphore("$parameters";500)) IDLE End while


CLEAR SEMAPHORE("$parameters")









"$parameters" はローカルセマフォ









"$parameters" はローカルセマフォクライアント側で管理










セマフォがセットされるまで500tick待機する







セマフォがセットされるまで500tick待機する

型をしっかり憶えましょう🙂


still remains within the sound of silence

リストボックス#1 セレクション, 特殊型

リストボックス#2 セレクション, 汎⽤型


リストボックス#1 セレクション, 特殊型

リストボックス#2 セレクション, 汎⽤型

ハイライトセットは必要がある場合にだけ設定セットの名前に注意を払うこと


kill good old generic

//$sum:=Array_Sum(->myArray) C_POINTER($1;$array) C_REAL($0)

$array:=$1

ASSERT(\ (Type($array->)=Real array)\ | (Type($array->)=LongInt array)\ | (Type($array->)=Integer array)\ ;"Array must be a numeric")

$sum:=0 For ($i;1;Size of array($array->)) $sum:=$sum+$array->{$i} End for

$0:=$sum



$array:=$1



$0:=$sum

$sum:=Sum(myArray)



$array:=$1



$0:=$sum

$sum:=Sum(myArray)

v13以降，"Sum" "Min" "Max" などの統計関数は配列に対応


kill good old generic, you can

ReadWrite(->[Contact])


//ReadWrite(->table) C_POINTER($1;$table)

$table:=$1

If (Read only state($table->)) READ WRITE($table->) End if




$table:=$1



v2004では，サーバーをコールしたので，READ WRITEを実⾏する前に状態を調べることは有⽤だった



$table:=$1



READ WRITE([Contact])




$table:=$1





v11以降，リクエストがサーバーに送信されるまでREAD WRITEは

保留されるようになったのでこれで良い



$table:=$1







毎回のアップグレード後に必ずチェックするべき項⽬のひとつ



$table:=$1








何年も開いていない汎⽤コードは腐った⾷品と同じ: 捨てるか運を天に任せるか



$table:=$1








何年も開いていない汎⽤コードは腐った⾷品と同じ: 捨てるか運を天に任せるか

汎⽤コードがまとめられたコンポーネントも忘れずにチェックすること


respect the name, you should

$ID_Process:=Execute on server("MySrvProcessMethod";0;"MySrvProcessMethod"+<>myLogin+"_"+string(<>customerID))



$ID_Process:=New process("MyProcessMethod";0;"MyProcessMethod"+<>myLogin+"_"+string(<>customerID))




プロセス名は容器ではありません



$ID_Process:=Execute on server("MySrvProcessMethod";0;"MySrvProcessMethod";<>myLogin;<>customerID)



$ID_Process:=New process("MyProcessMethod";0;"MyProcessMethod";<>myLogin;<>customerID)







パラメーター群をサーバーに転送明快なプロセス名








奇妙または気まぐれに考案された名前では将来のログ解析が困難に








奇妙または気まぐれに考案された名前では将来のログ解析が困難に

今⾵に，コンテキスト情報はオブジェクト1個で渡せば良い


brothers but not twins …

$process_srv_id:=Execute on server("myOptimizedMethodSrv";0;"myOptimizedMethodSrv") SET PROCESS VARIABLE($process_srv_id;customer_ID;$1) $calculation_launch:=True SET PROCESS VARIABLE($process_srv_id;calculation_launch;$calculation_launch) $calculation_finished:=False Repeat GET PROCESS VARIABLE($process_srv_id;calculation_finished;$calculation_finished) GET PROCESS VARIABLE($process_srv_id;Result;$Result) Until ($calculation_finished) $calculation_kill:=true SET PROCESS VARIABLE($process_srv_id;calculation_kill;$calculation_kill)



// myOptimizedMethodSrv calculation_launch:=False calculation_finished:=False calculation_kill:=False customer_ID:=0 while( not(calculation_launch)) DELAY PROCESS(Current process;1) End while

// 結果を計算する Result:=....

calculation_finished:=True While (Not(calculation_kill)) DELAY PROCESS(Current process;1) End while






"Execute on server" メソッドに引数を渡せば良い brothers but not twins …





"Execute on server" メソッドに引数を渡せば良い

1回にまとめられる








"息継ぎ"する時間がない








"息継ぎ"する時間がない

パラメーターをコマンドに直接渡すことは避けたほうが良い





calculation_finished:=True While (Not(calculation_kill)) DELAY PROCESS(Current process;1) End while //myReallyOptimizedMethodSrv

$customer_ID:=$1 // 結果を計算する $result:=.... $0:=$result







"Execute on server"コマンドは⾮同期コール







"Execute on server"コマンドは⾮同期コール

"サーバー上で実⾏"メソッド属性は同期コール


it's free, use it!

composite indexes, try you must

筆者がこれまでコンサルティング依頼を

受けたデータベース




複合インデックスが活⽤されていた

データベースの割合





データベースの割合複合インデックスはクエリや並び替えの速度を劇的に改善する可能性がある





データベースの割合複合インデックスはクエリや並び替えの速度を劇的に改善する可能性がある

恩恵にあずかるためにコードを変更する必要はなく，定義するだけで良い


indexes are not only automatic

ポップアップをクリックしてインデックスの種類を選択



少し時間を取ってインデックス設定を⾒直せば，全体の速度を向上させられる



少し時間を取ってインデックス設定を⾒直せば，全体の速度を向上させられる

クラスターを使⽤すればサイズを⼤幅に節約することができ，特に対価はない


if no mistake have you made, yet losing you are …

DESCRIBE QUERY EXECUTION(True)

QUERY BY FORMULA([Flight];([Airport]IATA_AirportCode="SFO")\ & ([Flight]UUID_Line=[Line]UUID) & ([Line]UUID_Airport_To=[Airport]UUID))

$path:=Get last query path(Description in text format) SET TEXT TO PASTEBOARD($path)

DESCRIBE QUERY EXECUTION(False)






クエリプランとクエリパスで視点をエンジンルーム内に移動






クエリプランとクエリパスで視点をエンジンルーム内に移動

優れたクエリを書くため，時には直感を働かせることも必要


do not reinvent the wheel, a different game you should play

オブジェクトライブラリで時間を節約・デザインを統⼀・アイデアを共有


オブジェクトライブラリで時間を節約・デザインを統⼀・アイデアを共有

ライセンス不要，使⽤に制約なし!


4D helps your progress

Mr Smith

VAT rate


$id_progress:=Progress New Progress SET BUTTON ENABLED ($id_progress;True) Progress SET TITLE ($id_progress;"Update customers";0;"";True) ALL RECORDS([Customer]) $j:=0 $nb:=Records in table([Customer]) While (Not(End selection([Customer]))) & (Not(Progress Stopped ($id_progress))) $j:=$j+1 Progress SET PROGRESS ($id_progress;$j/$nb;[Customer]name)

/// ...

NEXT RECORD([Customer]) End while

Progress QUIT ($id_progress)

Mr Smith

VAT rate



/// ...



Mr Smith

VAT rate

$id_progress:=Progress New Progress SET BUTTON ENABLED ($id_progress;True) Progress SET TITLE ($id_progress;"Apply new parameter";0;"";True) ALL RECORDS([Param]) $j:=0 $nb:=Records in table([Param]) While (Not(End selection([Param]))) & (Not(Progress Stopped ($id_progress))) $j:=$j+1 Progress SET PROGRESS ($id_progress;$j/$nb;[Param]name)

/// ...

NEXT RECORD([Param]) End while




/// ...



Mr Smith

VAT rate

$id_progress:=Progress New Progress SET BUTTON ENABLED ($id_progress;True) Progress SET TITLE ($id_progress;"Apply new parameter";0;"";True) ALL RECORDS([Param]) $j:=0 $nb:=Records in table([Param]) While (Not(End selection([Param]))) & (Not(Progress Stopped ($id_progress))) $j:=$j+1 Progress SET PROGRESS ($id_progress;$j/$nb;[Param]name)

/// ...

NEXT RECORD([Param]) End while

Progress QUIT ($id_progress)おすすめ:

ループ10回毎にメソッドをコールする


don't keep a dog and bark yourself!

C_POINTER($1;$2)C_LONGINT($nb_total)

ARRAY TEXT($_result;0x0000)CLEAR VARIABLE($nb_total)

$nb:=Size of array($1->)For ($i;1;$nb)

If (Length($1->{$i})=0)Else

APPEND TO ARRAY($_result;$1->{$i})$nb_total:=$nb_total+1

End ifEnd for

COPY ARRAY($_result;$2->)


C_POINTER($1;$2)C_LONGINT($nb_total)

ARRAY TEXT($_result;0x0000)CLEAR VARIABLE($nb_total)

$nb:=Size of array($1->)For ($i;1;$nb)

If (Length($1->{$i})=0)Else

APPEND TO ARRAY($_result;$1->{$i})$nb_total:=$nb_total+1

End ifEnd for

COPY ARRAY($_result;$2->)

がんばり過ぎ〜$nb_total:=0

のほうが⾃然なのに

この変数は要らないのでは

$1->{$i}="" よりも優れているのかなぁ?=0 / Else よりも #0 のほうが

シンプルじゃないの?


Antoine de Saint Exupéry

La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer.

Wind, Sand and Stars (1939)

Code Optimisation

Technology

Transcript of Code Optimisation