7.5 Webフォームアプリケーションの作成
7.5.4 プログラムの作成
¾ 手 順1
次 に 、 定 義 し た コ ン ト ロ ー ル に 対 し て 、 処 理 の コ ー デ ィ ン グ を し ま す 。 ま ず 、 認 証 画 面( L o g i n . a s p x )を 開 き 、[終 了]ボ タ ン の 処 理 を 記 述 し ま す 。We bペ ー ジ デ ザ イ ナ ウ ィ ン ド ウ の 「 デ ザ イ ン 」 タ ブ を 「 ソ ー ス 」 タ ブ に 切 り 替 え 、 編 集 し て く だ さ い 。
[終 了]ボ タ ン のi n p u tタ グ を 探 し 、o n c l i c k = " w i n d o w. c l o s e ( ) "を 追 加 し ま す 。
< i n p u t … t y p e = " b u t t o n " v a l u e = "終 了"
o n c l i c k = " w i n d o w. c l o s e ( ) "/ >
7.5 Webフォームアプリケーションの作成
R E P O S I T O RY句 に 次 の 処 理 を 追 加
R E P O S I T O R Y .
C L A S S C L A S S - E V E N T A R G S A S " S y s t e m . E v e n t A r g s "
C L A S S C L A S S - O B J E C T A S " S y s t e m . O b j e c t "
C L A S S C L A S S - S E S S I O N A S
" S y s t e m . W e b . S e s s i o n S t a t e . H t t p S e s s i o n S t a t e "
C L A S S C L A S S - P A G E A S " S y s t e m . W e b . U I . P a g e "
P R O P E R T Y P R O P - S E R V E R A S " S e r v e r "
P R O P E R T Y P R O P - S E S S I O N A S " S e s s i o n "
P R O P E R T Y P R O P - T E X T A S " T e x t "
.
PA G E _ L O A Dイ ベ ン ト に 次 の 処 理 を 追 加
M E T H O D - I D . P A G E - L O A D A S " P a g e ̲ L o a d " . D A T A D I V I S I O N .
W O R K I N G - S T O R A G E S E C T I O N .
0 1 W - Y Y Y Y M M D D P I C X ( 0 8 ) . 0 1 W - D a t e - R .
0 3 W - Y Y Y Y P I C Z Z Z 9 .
0 3 F I L L E R P I C X ( 0 1 ) V A L U E " . " . 0 3 W - M M P I C Z 9 .
0 3 F I L L E R P I C X ( 0 1 ) V A L U E " . " . 0 3 W - D D P I C Z 9 .
0 1 W - Y M D R E D E F I N E S W - D a t e - R P I C X ( 1 0 ) . L I N K A G E S E C T I O N .
0 1 s e n d e r O B J E C T R E F E R E N C E C L A S S - O B J E C T . 0 1 e O B J E C T R E F E R E N C E C L A S S - E V E N T A R G S . P R O C E D U R E D I V I S I O N U S I N G B Y V A L U E s e n d e r e . M O V E F U N C T I O N C U R R E N T - D A T E T O W - Y Y Y Y M M D D . M O V E W - Y Y Y Y M M D D ( 1 : 4 ) T O W - Y Y Y Y . M O V E W - Y Y Y Y M M D D ( 5 : 2 ) T O W - M M . M O V E W - Y Y Y Y M M D D ( 7 : 2 ) T O W - D D . S E T P R O P - T E X T O F l b l D a t e T O W - Y M D . E N D M E T H O D P A G E - L O A D .
7.5 Webフォームアプリケーションの作成
b t n St a r t _ C l i c kイ ベ ン ト に 次 の 処 理 を 追 加( b t n St a r tコ ン ト ロ ー ル を ダ ブ ル ク リ ッ ク す る と 、 雛 形 の コ ー ド が 生 成 さ れ ま す)
以 上 で 、L o g i n . a s p x . c o b xの 編 集 は 完 了 で す 。 M E T H O D - I D . b t n S t a r t ̲ C l i c k P R O T E C T E D . D A T A D I V I S I O N .
W O R K I N G - S T O R A G E S E C T I O N .
0 1 W K - E m p l o y e e C o d e P I C N ( 0 6 ) .
0 1 W K - P a s s w o r d P I C N ( 0 6 ) . 0 1 W K - M s g P I C N ( 2 0 ) .
0 1 W K - R e t u r n C o d e B I N A R Y - L O N G .
0 1 W - W e b s e s s i o n O B J E C T R E F E R E N C E C L A S S - S E S S I O N . L I N K A G E S E C T I O N .
0 1 s e n d e r O B J E C T R E F E R E N C E C L A S S - O B J E C T . 0 1 e O B J E C T R E F E R E N C E C L A S S - E V E N T A R G S . P R O C E D U R E D I V I S I O N U S I N G B Y V A L U E s e n d e r e . S E T W K - E m p l o y e e C o d e T O
P R O P - T E X T O F t x t E m p l o y e e C o d e .
S E T W K - P a s s w o r d T O P R O P - T E X T O F t x t P a s s w o r d .
* 認 証 用 の S Y A I N プ ロ グ ラ ム ( ス ト ア ド プ ロ シ ー ジ ャ ) 呼 び 出 し C A L L " S Y A I N 2 " U S I N G W K - E m p l o y e e C o d e
W K - P a s s w o r d W K - M s g R E T U R N I N G W K - R e t u r n C o d e . I F W K - R e t u r n C o d e = 0 T H E N
S E T W - W e b s e s s i o n T O P R O P - S E S S I O N O F S E L F
* ロ グ イ ン フ ラ グ 設 定
I N V O K E W - W e b s e s s i o n " s e t ̲ I t e m "
U S I N G B Y V A L U E N " L o g i n " N " O K "
* 紹 介 画 面 へ 遷 移
I N V O K E P R O P - S E R V E R O F S E L F " T r a n s f e r "
U S I N G B Y V A L U E N " I o D e t a i l . a s p x "
E L S E
S E T P R O P - T E X T O F l b l M s g T O W K - M s g E N D - I F .
E N D M E T H O D b t n S t a r t ̲ C l i c k .
7.5 Webフォームアプリケーションの作成
¾ 手 順3
次 に 、I o D e t a i l . a s p xに 定 義 し た 各 コ ン ト ロ ー ル の 処 理 に 必 要 な コ ー ド を 追 加 し ま す 。 コ ー ド エ デ ィ タ ウ ィ ン ド ウ を 開 い て 、 コ ー ド を 追 加 し て く だ さ い 。
R E P O S I T O RY句 に 次 の ク ラ ス や プ ロ パ テ ィ を 追 加
R E P O S I T O R Y .
C L A S S C L A S S - E V E N T A R G S A S " S y s t e m . E v e n t A r g s "
C L A S S C L A S S - O B J E C T A S " S y s t e m . O b j e c t "
C L A S S C L A S S - P A G E A S " S y s t e m . W e b . U I . P a g e "
*
C L A S S C L A S S - C E L L A S
" S y s t e m . W e b . U I . W e b C o n t r o l s . T a b l e C e l l "
C L A S S C L A S S - C E L L C O L L E C T A S
" S y s t e m . W e b . U I . W e b C o n t r o l s . T a b l e C e l l C o l l e c t i o n "
C L A S S C L A S S - E N V I R O N M E N T A S " S y s t e m . E n v i r o n m e n t "
C L A S S C L A S S - I N T 1 6 A S " S y s t e m . I n t 1 6 "
C L A S S C L A S S - I N T 3 2 A S " S y s t e m . I n t 3 2 "
C L A S S C L A S S - R O W A S
" S y s t e m . W e b . U I . W e b C o n t r o l s . T a b l e R o w "
C L A S S C L A S S - S E R V E R U T I L I T Y A S " S y s t e m . W e b . H t t p S e r v e r U t i l i t y "
C L A S S C L A S S - S E S S I O N A S
" S y s t e m . W e b . S e s s i o n S t a t e . H t t p S e s s i o n S t a t e "
C L A S S C L A S S - S T R I N G A S " S y s t e m . S t r i n g "
*
P R O P E R T Y P R O P - C E L L S A S " C e l l s "
P R O P E R T Y P R O P - E N A B L E D A S " E n a b l e d "
P R O P E R T Y P R O P - I D A S " I D "
P R O P E R T Y P R O P - I S P O S T B A C K A S " I s P o s t B a c k "
P R O P E R T Y P R O P - R O W S A S " R o w s "
P R O P E R T Y P R O P - S E R V E R A S " S e r v e r "
P R O P E R T Y P R O P - S E S S I O N A S " S e s s i o n "
P R O P E R T Y P R O P - T E X T A S " T e x t "
.
7.5 Webフォームアプリケーションの作成
W O R K I N G - S TO R A G E S E C T I O Nに 次 の 定 義 を 追 加 W O R K I N G - S T O R A G E S E C T I O N .
0 1 W - D a t e - R .
0 3 W - Y Y Y Y P I C Z Z Z 9 .
0 3 F I L L E R P I C X ( 0 1 ) V A L U E " . " . 0 3 W - M M P I C Z 9 .
0 3 F I L L E R P I C X ( 0 1 ) V A L U E " . " . 0 3 W - D D P I C Z 9 .
0 1 W - Y M D R E D E F I N E S W - D a t e - R P I C X ( 1 0 ) .
PA G E _ L O A Dイ ベ ン ト に 次 の 処 理 を 追 加
M E T H O D - I D . P A G E - L O A D A S " P a g e ̲ L o a d " . D A T A D I V I S I O N .
W O R K I N G - S T O R A G E S E C T I O N .
0 1 W - W e b s e s s i o n O B J E C T R E F E R E N C E C L A S S - S E S S I O N . 0 1 W - O b j e c t O B J E C T R E F E R E N C E C L A S S - O B J E C T . 0 1 W S e r v e r U t i l i t y O B J E C T R E F E R E N C E C L A S S -S E R V E R U T I L I T Y .
0 1 W - Y Y Y Y M M D D P I C X ( 0 8 ) . L I N K A G E S E C T I O N .
0 1 s e n d e r O B J E C T R E F E R E N C E C L A S S - O B J E C T . 0 1 e O B J E C T R E F E R E N C E C L A S S - E V E N T A R G S . P R O C E D U R E D I V I S I O N U S I N G B Y V A L U E s e n d e r e .
* セ ッ シ ョ ン か ら 情 報 取 得
S E T W - W e b s e s s i o n T O P R O P - S E S S I O N O F S E L F . S E T W O b j e c t T O W
-W e b s e s s i o n : : " g e t ̲ I t e m " ( N " L o g i n " ) . I F W - O b j e c t = N U L L T H E N
* 認 証 さ れ て い な い 場 合 は 、 ロ グ イ ン 画 面 へ 遷 移
S E T W - S e r v e r U t i l i t y T O P R O P - S E R V E R O F S E L F I N V O K E W - S e r v e r U t i l i t y " T r a n s f e r " U S I N G N " L o g i n . a s p x "
E N D - I F
* ポ ス ト バ ッ ク 時 以 外 の 処 理
I F P R O P - I S P O S T B A C K O F S E L F = B " 0 " T H E N
* 現 在 の 日 付 を ラ ベ ル に 設 定
M O V E F U N C T I O N C U R R E N T D A T E T O W -Y -Y -Y -Y M M D D
M O V E W - Y Y Y Y M M D D ( 1 : 4 ) T O W - Y Y Y Y M O V E W - Y Y Y Y M M D D ( 5 : 2 ) T O W - M M M O V E W - Y Y Y Y M M D D ( 7 : 2 ) T O W - D D S E T P R O P - T E X T O F l b l D a t e T O W - Y M D
* テ ー ブ ル 初 期 化
I N V O K E S E L F " T A B L E ̲ C L S "
E N D - I F .
E N D M E T H O D P A G E - L O A D .
7.5 Webフォームアプリケーションの作成
b t n St a r t _ C l i c kイ ベ ン ト に 次 の 処 理 を 追 加( b t n St a r tコ ン ト ロ ー ル を ダ ブ ル ク リ ッ ク す る と 、 雛 形 の コ ー ド が 生 成 さ れ ま す)
M E T H O D - I D . b t n S t a r t ̲ C l i c k P R O T E C T E D . D A T A D I V I S I O N .
W O R K I N G - S T O R A G E S E C T I O N . 0 1 商 品 レ コ ー ド .
0 2 商 品 コ ー ド P I C 9 ( 5 ) . 0 2 商 品 名 P I C N ( 2 0 ) . 0 2 売 価 P I C 9 ( 8 ) . 0 2 原 価 P I C 9 ( 8 ) . C O P Y I O D E T A I L .
0 1 W - S y o c d O B J E C T R E F E R E N C E C L A S S - S T R I N G . 0 1 W - C m d t N o P I C X ( 0 5 ) .
0 1 W - Y e a r P I C X ( 0 4 ) . 0 1 W - M o n t h P I C X ( 0 2 ) . 0 1 W - S t a r t B I N A R Y - S H O R T . 0 1 W - M s g P I C N ( 2 0 ) . 0 1 W - R e t u r n C o d e B I N A R Y - L O N G . 0 1 W - C n t P I C 9 ( 0 3 ) . 0 1 W - N e x t P I C 9 ( 0 1 ) .
0 1 W - W e b s e s s i o n O B J E C T R E F E R E N C E C L A S S - S E S S I O N . 0 1 W - S t r i n g O B J E C T R E F E R E N C E C L A S S - S T R I N G . * > 0 1 W - R e q u e s t O B J E C T R E F E R E N C E C L A S S - R E Q U E S T . L I N K A G E S E C T I O N .
0 1 s e n d e r O B J E C T R E F E R E N C E C L A S S - O B J E C T . 0 1 e O B J E C T R E F E R E N C E C L A S S - E V E N T A R G S . P R O C E D U R E D I V I S I O N U S I N G B Y V A L U E s e n d e r e . S E T W - S y o c d T O P R O P - T E X T O F t x t C m d t N o . S E T W - C m d t N o T O P R O P - T E X T O F t x t C m d t N o . M O V E C L A S S - I N T 3 2 : : " P a r s e " ( W - S y o c d ) T O 商 品 コ ー ド O F 商 品 レ コ ー ド .
* 商 品 レ コ ー ド 検 索
C A L L " S Y O H I N " U S I N G 商 品 レ コ ー ド W - M s g R E T U R N I N G W - R e t u r n C o d e .
* エ ラ ー 判 定 ( 0 = 正 常 )
I F W - R e t u r n C o d e = 0 T H E N
S E T P R O P - T E X T O F l b l M s g T O " "
* 商 品 名 を ラ ベ ル に 設 定
S E T P R O P - T E X T O F l b l C m d t N a m e T O 商 品 名
I N I T I A L I Z E M - A R E A M O V E S P A C E T O W - M s g M O V E W - C m d t N o T O M - S Y O C D
* 日 付 処 理
S E T W - Y e a r T O P R O P - T E X T O F t x t Y e a r S E T W - M o n t h T O P R O P - T E X T O F t x t M o n t h I F W - M o n t h ( 2 : 1 ) = S P A C E
M O V E W - M o n t h ( 1 : 1 ) T O W - M o n t h ( 2 : 1 ) M O V E " 0 " T O W - M o n t h ( 1 : 1 ) E N D - I F
C O M P U T E M - Y = F U N C T I O N N U M V A L ( W - Y e a r ) C O M P U T E M - M = F U N C T I O N N U M V A L ( W - M o n t h )
7.5 Webフォームアプリケーションの作成
M O V E 売 価 T O M - T A N K A M O V E 原 価 T O M - G E N K A M O V E 1 T O W - S t a r t M O V E 0 T O W - N e x t
* 入 出 庫 検 索
C A L L " Z A I K O " U S I N G M - A R E A W - S t a r t W - C n t W - N e x t W - M s g R E T U R N I N G W - R e t u r n C o d e I F W - M s g N O T = S P A C E T H E N
* メ ッ セ ー ジ を ラ ベ ル に 設 定
S E T P R O P - T E X T O F l b l M s g T O W - M s g E N D - I F
I F W - R e t u r n C o d e = 0 T H E N
I N V O K E S E L F " P A G E ̲ E D T " U S I N G M - A R E A
S E T W - W e b s e s s i o n T O P R O P - S E S S I O N O F S E L F
* 次 の レ コ ー ド が あ る か ど う か I F W - N e x t = 1 T H E N
* ボ タ ン の 有 効 / 無 効 を 設 定
S E T P R O P - E N A B L E D O F b t n F w d T O B " 1 "
S E T P R O P - E N A B L E D O F b t n B c k T O B " 0 "
E L S E
S E T P R O P - E N A B L E D O F b t n F w d T O B " 0 "
S E T P R O P - E N A B L E D O F b t n B c k T O B " 0 "
E N D - I F I N V O K E W - W e b s e s s i o n " s e t ̲ I t e m "
U S I N G B Y V A L U E N " W - L i n e " 1
* セ ッ シ ョ ン に 検 索 条 件 を 保 存 I N V O K E W - W e b s e s s i o n " s e t ̲ I t e m "
U S I N G B Y V A L U E N " W - Y e a r " W - Y e a r I N V O K E W - W e b s e s s i o n " s e t ̲ I t e m "
U S I N G B Y V A L U E N " W - M o n t h " W - M o n t h I N V O K E W - W e b s e s s i o n " s e t ̲ I t e m "
U S I N G B Y V A L U E N " W - C m d t N o " W - C m d t N o I N V O K E W - W e b s e s s i o n " s e t ̲ I t e m "
U S I N G B Y V A L U E N " M - T A N K A " M - T A N K A I N V O K E W - W e b s e s s i o n " s e t ̲ I t e m "
U S I N G B Y V A L U E N " M - G E N K A " M - G E N K A S E T W - S t r i n g T O P R O P - T E X T O F l b l C m d t N a m e I N V O K E W - W e b s e s s i o n " s e t ̲ I t e m "
U S I N G B Y V A L U E N " l b l C m d t N a m e " W - S t r i n g E L S E
I N V O K E S E L F " T A B L E ̲ C L S "
E N D - I F E L S E
* 商 品 検 索 時 の エ ラ ー 処 理
I F W - M s g N O T = S P A C E T H E N
* エ ラ ー メ ッ セ ー ジ を ラ ベ ル に 設 定
S E T P R O P - T E X T O F l b l M s g T O W - M s g E N D - I F
I N V O K E S E L F " T A B L E ̲ C L S "
I F W - R e t u r n C o d e = 5 T H E N
* 商 品 が 見 つ か ら な い 場 合 は 商 品 名 を ク リ ア
S E T P R O P - T E X T O F l b l C m d t N a m e T O " "
E N D - I F
7.5 Webフォームアプリケーションの作成
b t n F w d _ C l i c kイ ベ ン ト に 次 の 処 理 を 追 加( b t n F w dコ ン ト ロ ー ル を ダ ブ ル ク リ ッ ク す る と 、 雛 形 の コ ー ド が 生 成 さ れ ま す)
M E T H O D - I D . b t n F w d ̲ C l i c k P R O T E C T E D . D A T A D I V I S I O N .
W O R K I N G - S T O R A G E S E C T I O N . C O P Y I O D E T A I L .
0 1 W - W e b s e s s i o n O B J E C T R E F E R E N C E C L A S S - S E S S I O N . 0 1 W - O b j e c t O B J E C T R E F E R E N C E C L A S S - O B J E C T . 0 1 W - L i n e B I N A R Y - S H O R T .
0 1 W - Y e a r P I C X ( 0 4 ) . 0 1 W - M o n t h P I C X ( 0 2 ) . 0 1 W - C m d t N o P I C X ( 0 5 ) . 0 1 W - G E N K A B I N A R Y - L O N G .
0 1 W - T A N K A B I N A R Y - L O N G .
0 1 W - M s g P I C N ( 2 0 ) . 0 1 W - R e t u r n C o d e B I N A R Y - L O N G . 0 1 W - C n t P I C 9 ( 0 3 ) . 0 1 W - N e x t P I C 9 ( 0 1 ) . L I N K A G E S E C T I O N .
0 1 s e n d e r O B J E C T R E F E R E N C E C L A S S - O B J E C T . 0 1 e O B J E C T R E F E R E N C E C L A S S - E V E N T A R G S . P R O C E D U R E D I V I S I O N U S I N G B Y V A L U E s e n d e r e .
* セ ッ シ ョ ン か ら 情 報 取 得
S E T W - W e b s e s s i o n T O P R O P - S E S S I O N O F S E L F .
S E T W - O b j e c t T O
W - W e b s e s s i o n : : " g e t ̲ I t e m " ( N " W - L i n e " ) . S E T W - L i n e T O W - O b j e c t A S C L A S S - I N T 1 6 .
S E T W - O b j e c t T O
W - W e b s e s s i o n : : " g e t ̲ I t e m " ( N " W - Y e a r " ) . S E T W - Y e a r T O W - O b j e c t A S C L A S S - S T R I N G .
S E T W - O b j e c t T O
W - W e b s e s s i o n : : " g e t ̲ I t e m " ( N " W - M o n t h " ) . S E T W - M o n t h T O W - O b j e c t A S C L A S S - S T R I N G .
S E T W - O b j e c t T O
W - W e b s e s s i o n : : " g e t ̲ I t e m " ( N " W - C m d t N o " ) . S E T W - C m d t N o T O W - O b j e c t A S C L A S S - S T R I N G .
S E T W - O b j e c t T O
W - W e b s e s s i o n : : " g e t ̲ I t e m " ( N " M - T A N K A " ) . S E T W - T A N K A T O W - O b j e c t A S C L A S S - I N T 3 2 .
S E T W - O b j e c t T O
W - W e b s e s s i o n : : " g e t ̲ I t e m " ( N " M - G E N K A " ) . S E T W - G E N K A T O W - O b j e c t A S C L A S S - I N T 3 2 .
7.5 Webフォームアプリケーションの作成
S E T W - O b j e c t T O
W - W e b s e s s i o n : : " g e t ̲ I t e m " ( N " l b l C m d t N a m e " ) . S E T P R O P - T E X T O F l b l C m d t N a m e T O
W - O b j e c t A S C L A S S - S T R I N G .
S E T P R O P - T E X T O F t x t C m d t N o T O W - C m d t N o . S E T P R O P - T E X T O F t x t Y e a r T O W - Y e a r . S E T P R O P - T E X T O F t x t M o n t h T O W - M o n t h .
S E T P R O P - T E X T O F l b l M s g T O " " . I N I T I A L I Z E M - A R E A .
M O V E S P A C E T O W - M s g .
M O V E W - C m d t N o T O M - S Y O C D . M O V E W - Y e a r T O M - Y . M O V E W - M o n t h T O M - M . M O V E W - T A N K A T O M - T A N K A . M O V E W - G E N K A T O M - G E N K A . M O V E 0 T O W - N e x t .
A D D 1 0 T O W - L i n e .
C A L L " Z A I K O " U S I N G M - A R E A W - L i n e W - C n t W - N e x t W - M s g R E T U R N I N G W - R e t u r n C o d e . I N V O K E S E L F " P A G E ̲ E D T " U S I N G M - A R E A . I F W - M s g N O T = S P A C E T H E N
S E T P R O P - T E X T O F l b l M s g T O W - M s g E N D - I F
S E T W - W e b s e s s i o n T O P R O P - S E S S I O N O F S E L F . * 次 の レ コ ー ド が あ る か ど う か
I F W - N e x t = 1 T H E N
S E T P R O P - E N A B L E D O F b t n F w d T O B " 1 "
E L S E
S E T P R O P - E N A B L E D O F b t n F w d T O B " 0 "
E N D - I F
S E T P R O P - E N A B L E D O F b t n B c k T O B " 1 " .
I N V O K E W - W e b s e s s i o n " s e t ̲ I t e m " U S I N G B Y V A L U E N " W - L i n e " W - L i n e .
E N D M E T H O D b t n F w d ̲ C l i c k .
7.5 Webフォームアプリケーションの作成
b t n B c k _ C l i c kイ ベ ン ト に 次 の 処 理 を 追 加( b t n B c kコ ン ト ロ ー ル を ダ ブ ル ク リ ッ ク す る と 、 雛 形 の コ ー ド が 生 成 さ れ ま す)
M E T H O D - I D . b t n B c k ̲ C l i c k P R O T E C T E D . D A T A D I V I S I O N .
W O R K I N G - S T O R A G E S E C T I O N . C O P Y I O D E T A I L .
0 1 W - W e b s e s s i o n O B J E C T R E F E R E N C E C L A S S - S E S S I O N . 0 1 W - O b j e c t O B J E C T R E F E R E N C E C L A S S - O B J E C T . 0 1 W - L i n e B I N A R Y - S H O R T .
0 1 W - Y e a r P I C X ( 0 4 ) . 0 1 W - M o n t h P I C X ( 0 2 ) . 0 1 W - C m d t N o P I C X ( 0 5 ) . 0 1 W - G E N K A B I N A R Y - L O N G .
0 1 W - T A N K A B I N A R Y - L O N G .
0 1 W - M s g P I C N ( 2 0 ) . 0 1 W - R e t u r n C o d e B I N A R Y - L O N G . 0 1 W - C n t P I C 9 ( 0 3 ) . 0 1 W - N e x t P I C 9 ( 0 1 ) . L I N K A G E S E C T I O N .
0 1 s e n d e r O B J E C T R E F E R E N C E C L A S S - O B J E C T . 0 1 e O B J E C T R E F E R E N C E C L A S S - E V E N T A R G S . P R O C E D U R E D I V I S I O N U S I N G B Y V A L U E s e n d e r e . S E T W - W e b s e s s i o n T O P R O P - S E S S I O N O F S E L F .
S E T W - O b j e c t T O
W - W e b s e s s i o n : : " g e t ̲ I t e m " ( N " W - L i n e " ) . S E T W - L i n e T O W - O b j e c t A S C L A S S - I N T 1 6 .
S E T W - O b j e c t T O
W - W e b s e s s i o n : : " g e t ̲ I t e m " ( N " W - Y e a r " ) . S E T W - Y e a r T O W - O b j e c t A S C L A S S - S T R I N G .
S E T W - O b j e c t T O
W - W e b s e s s i o n : : " g e t ̲ I t e m " ( N " W - M o n t h " ) . S E T W - M o n t h T O W - O b j e c t A S C L A S S - S T R I N G .
S E T W - O b j e c t T O
W - W e b s e s s i o n : : " g e t ̲ I t e m " ( N " W - C m d t N o " ) . S E T W - C m d t N o T O W - O b j e c t A S C L A S S - S T R I N G .
S E T W - O b j e c t T O
W - W e b s e s s i o n : : " g e t ̲ I t e m " ( N " M - T A N K A " ) . S E T W - T A N K A T O W - O b j e c t A S C L A S S - I N T 3 2 .
S E T W - O b j e c t T O
W - W e b s e s s i o n : : " g e t ̲ I t e m " ( N " M - G E N K A " ) . S E T W - G E N K A T O W - O b j e c t A S C L A S S - I N T 3 2 .
S E T W - O b j e c t T O
W - W e b s e s s i o n : : " g e t ̲ I t e m " ( N " l b l C m d t N a m e " ) . S E T P R O P - T E X T O F l b l C m d t N a m e T O
W - O b j e c t A S C L A S S - S T R I N G .
7.5 Webフォームアプリケーションの作成
S E T P R O P - T E X T O F t x t C m d t N o T O W - C m d t N o . S E T P R O P - T E X T O F t x t Y e a r T O W - Y e a r . S E T P R O P - T E X T O F t x t M o n t h T O W - M o n t h .
S E T P R O P - T E X T O F l b l M s g T O " " . I N I T I A L I Z E M - A R E A .
M O V E S P A C E T O W - M s g .
M O V E W - C m d t N o T O M - S Y O C D .
C O M P U T E M - Y = F U N C T I O N N U M V A L ( W - Y e a r ) . C O M P U T E M - M = F U N C T I O N N U M V A L ( W - M o n t h ) . M O V E W - T A N K A T O M - T A N K A .
M O V E W - G E N K A T O M - G E N K A . M O V E 0 T O W - N e x t .
S U B T R A C T 1 0 F R O M W - L i n e .
C A L L " Z A I K O " U S I N G M - A R E A W - L i n e W - C n t W - N e x t W - M s g R E T U R N I N G W - R e t u r n C o d e . I N V O K E S E L F " P A G E ̲ E D T " U S I N G M - A R E A . I F W - M s g N O T = S P A C E T H E N
S E T P R O P - T E X T O F l b l M s g T O W - M s g E N D - I F
S E T W - W e b s e s s i o n T O P R O P - S E S S I O N O F S E L F .
I F W - N e x t = 1 T H E N
S E T P R O P - E N A B L E D O F b t n F w d T O B " 1 "
E L S E
S E T P R O P - E N A B L E D O F b t n F w d T O B " 0 "
E N D - I F
I F W - L i n e < 1 1 T H E N
S E T P R O P - E N A B L E D O F b t n B c k T O B " 0 "
E L S E
S E T P R O P - E N A B L E D O F b t n B c k T O B " 1 "
E N D - I F
I N V O K E W - W e b s e s s i o n " s e t ̲ I t e m "
U S I N G B Y V A L U E N " W - L i n e " W - L i n e . E N D M E T H O D b t n B c k ̲ C l i c k .
7.5 Webフォームアプリケーションの作成
b t n E x i t _ C l i c kイ ベ ン ト の 処 理 を 追 加( b t n E x i tコ ン ト ロ ー ル を ダ ブ ル ク リ ッ ク す る と 、 雛 形 の コ ー ド が 生 成 さ れ ま す)
上 記 の コ ー ド 以 外 に 、 独 自 定 義 のTA B L E _ C L Sメ ソ ッ ド( Ta b l eコ ン ト ロ ー ル に 空 白 を 設 定 す る)、 お よ びPA G E _ E D I Tメ ソ ッ ド( Ta b l eコ ン ト ロ ー ル に 空 白 を 設 定 す る)を 新 規 に コ ー デ ィ ン グ し ま す 。
M E T H O D - I D . b t n E x i t ̲ C l i c k P R O T E C T E D . D A T A D I V I S I O N .
W O R K I N G - S T O R A G E S E C T I O N .
0 1 W - S e r v e r U t i l i t y O B J E C T R E F E R E N C E C L A S S - S E R V E R U T I L I T Y . L I N K A G E S E C T I O N .
0 1 s e n d e r O B J E C T R E F E R E N C E C L A S S - O B J E C T . 0 1 e O B J E C T R E F E R E N C E C L A S S - E V E N T A R G S . P R O C E D U R E D I V I S I O N U S I N G B Y V A L U E s e n d e r e .
* ロ グ イ ン 画 面 へ 遷 移
S E T W - S e r v e r U t i l i t y T O P R O P - S E R V E R O F S E L F . I N V O K E W - S e r v e r U t i l i t y " T r a n s f e r "
U S I N G N " L o g i n . a s p x " . E N D M E T H O D b t n E x i t ̲ C l i c k .
TA B L E _ C L Sメ ソ ッ ド
M E T H O D - I D . T A B L E ̲ C L S . D A T A D I V I S I O N .
W O R K I N G - S T O R A G E S E C T I O N .
0 1 W - R o w O B J E C T R E F E R E N C E C L A S S - R O W . 0 1 W - C e l l O B J E C T R E F E R E N C E C L A S S - C E L L . 0 1 W - I d P I C X ( 1 0 ) .
L I N K A G E S E C T I O N . P R O C E D U R E D I V I S I O N .
* r o w 0 以 外 の 行 を 初 期 化
P E R F O R M V A R Y I N G W - R o w T H R U P R O P - R O W S O F t b l S t o c k S E T W - I d T O P R O P - I D O F W - R o w
I F W - I d N O T = " r o w 0 " T H E N
P E R F O R M V A R Y I N G W C e l l T H R U P R O P C E L L S O F W -R o w
S E T P R O P - T E X T O F W - C e l l T O N " "
E N D - P E R F O R M E N D - I F
E N D - P E R F O R M . E N D M E T H O D T A B L E ̲ C L S .
7.5 Webフォームアプリケーションの作成
PA G E _ E D Tメ ソ ッ ド
M E T H O D - I D . P A G E ̲ E D T . D A T A D I V I S I O N .
W O R K I N G - S T O R A G E S E C T I O N .
0 1 W - R o w O B J E C T R E F E R E N C E C L A S S - R O W . 0 1 W - C e l l O B J E C T R E F E R E N C E C L A S S - C E L L . 0 1 W - I d P I C X ( 1 0 ) .
0 1 W - I d x B I N A R Y - L O N G .
0 1 W - C e l l C o l l e c t O B J E C T R E F E R E N C E C L A S S - C E L L C O L L E C T . 0 1 W - N u m e r i c - Z S .
0 3 W - N u m e r i c - 2 Z S P I C Z 9 . 0 3 W - N u m e r i c - 3 Z S P I C Z Z 9 . 0 3 W - N u m e r i c - 6 Z S P I C Z Z Z Z Z 9 . 0 3 W - N u m e r i c - 8 Z S P I C Z Z , Z Z Z , Z Z 9 . 0 3 W - N u m e r i c - 1 2 Z S P I C Z Z Z Z Z Z Z Z Z Z Z 9 . 0 3 W - N u m e r i c - 1 2 X P I C X ( 1 2 ) .
L I N K A G E S E C T I O N . C O P Y I O D E T A I L .
P R O C E D U R E D I V I S I O N U S I N G M - A R E A .
* r o w 0 以 外 の 行 設 定 M O V E 0 T O W - I d x .
P E R F O R M V A R Y I N G W - R o w T H R U P R O P - R O W S O F t b l S t o c k S E T W - I d T O P R O P - I D O F W - R o w
I F W - I d N O T = " r o w 0 " T H E N I F M - I O D A T E ( W - I d x ) = 0 T H E N P E R F O R M V A R Y I N G W - C e l l
T H R U P R O P - C E L L S O F W - R o w S E T P R O P - T E X T O F W - C e l l T O N " "
E N D - P E R F O R M E L S E
S E T W - C e l l C o l l e c t T O P R O P - C E L L S O F W - R o w S E T W - C e l l T O
W - C e l l C o l l e c t : : " g e t ̲ I t e m " ( 0 ) M O V E M - I O D A T E ( W - I d x ) ( 1 : 4 ) T O W - Y Y Y Y M O V E M - I O D A T E ( W - I d x ) ( 5 : 2 ) T O W - M M M O V E M - I O D A T E ( W - I d x ) ( 7 : 2 ) T O W - D D S E T P R O P - T E X T O F W - C e l l T O W - Y M D
S E T W - C e l l T O
W - C e l l C o l l e c t : : " g e t ̲ I t e m " ( 1 ) M O V E M - D E N B A N ( W - I d x ) T O W - N u m e r i c - 1 2 Z S S E T P R O P - T E X T O F W - C e l l T O W - N u m e r i c - 1 2 Z S
S E T W - C e l l T O
W - C e l l C o l l e c t : : " g e t ̲ I t e m " ( 2 ) M O V E M - K U B U N ( W - I d x ) T O W - N u m e r i c - 2 Z S S E T P R O P - T E X T O F W - C e l l T O W - N u m e r i c - 2 Z S
S E T W - C e l l T O
W - C e l l C o l l e c t : : " g e t ̲ I t e m " ( 3 ) S E T P R O P - T E X T O F W - C e l l T O
7.5 Webフォームアプリケーションの作成
以 上 で 、L o g i n . a s p x . c o b x、I o D e t a i l . a s p x . c o b xの コ ー ド 編 集 は 完 了 で す 。
S E T W - C e l l T O
W - C e l l C o l l e c t : : " g e t ̲ I t e m " ( 4 ) M O V E M - K A K A K U ( W - I d x ) T O W - N u m e r i c - 8 Z S S E T P R O P - T E X T O F W - C e l l T O W - N u m e r i c - 8 Z S
S E T W - C e l l T O
W - C e l l C o l l e c t : : " g e t ̲ I t e m " ( 5 ) M O V E M - I S U ( W - I d x ) T O W - N u m e r i c - 6 Z S
S E T P R O P - T E X T O F W - C e l l T O W - N u m e r i c - 6 Z S
S E T W - C e l l T O
W - C e l l C o l l e c t : : " g e t ̲ I t e m " ( 6 ) M O V E M - O S U ( W - I d x ) T O W - N u m e r i c - 6 Z S
S E T P R O P - T E X T O F W - C e l l T O W - N u m e r i c - 6 Z S E N D - I F
E N D - I F
A D D 1 T O W - I d x E N D - P E R F O R M . E N D M E T H O D P A G E ̲ E D T .
¾ 手 順4
次 に 、 手 順2、 手 順3の イ ベ ン ト 処 理 で 呼 出 し て い る 、 第5章 「5 . 5 デ ー タ ア ク セ ス プ ロ グ ラ ム の 作 成 」 で 作 成 し た ク ラ ス ラ イ ブ ラ リ ( St o c k L i b r a r y )を 「We b St o c k」 ソ リ ュ ー シ ョ ン に 追 加 し ま す 。
[ソ リ ュ ー シ ョ ン エ ク ス プ ロ ー ラ]よ り[ We b St o c kソ リ ュ ー シ ョ ン]を 右 ク リ ッ ク し 、[追 加] - [既 存 の プ ロ ジ ェ ク ト]で[ St o c k L i b r a r y. c o b p r o j ] を 選 択 し て く だ さ い 。
7.5 Webフォームアプリケーションの作成
¾ 手 順5
次 に 、[ We b St o c k ]か ら 呼 び 出 す サ ブ ル ー チ ン を ま と め た プ ロ ジ ェ ク ト ( St o c k L i b r a r y )を 、 呼 び 出 し 元 の[参 照 設 定]に 追 加 し ま す( [参 照 設 定] の 追 加 方 法 は 、 下 図 の 手 順 に 従 っ て く だ さ い)。
1.
2.
3.
Webサイトプロジェクトを右 クリックし、[参照の追加]を 選択
[プロジェクト]タブを開 き、[StockLibrary]を
選択 Binフォルダが追加され、
StockLibraryのdll,pdbファイ ルが追加される
ま た 、[ St o c k L i b r a r y ]に 含 ま れ る 登 録 集 の う ち 、I O D E TA I L . C B Lは
[ We b St o c k ]で も 使 用 し ま す 。 ソ リ ュ ー シ ョ ン エ ク ス プ ロ ー ラ よ り
[ We b St o c k ]の ア プ リ ケ ー シ ョ ン 構 成 フ ァ イ ル( We b . c o n f i g )を 開 き ま す 。
< c o m p i l e r s >タ グ のc o m p i l e r O p t i o n sに 翻 訳 オ プ シ ョ ン/ c o p y p a t hを 追 加 し 、I O D E TA I L . C B Lの 絶 対 パ ス ( ” 〜 〜 ” の 部 分 ) を 指 定 し ま す 。
< s y s t e m . c o d e d o m >
:
< c o m p i l e r s >
< c o m p i l e r …
7.5 Webフォームアプリケーションの作成