OpenWithParm PowerScript Function

 

 

¡ß ±â ´É

 

 

OpenÀÇ ±â´É°ú ´õºÒ¾î ¿ÀÇÂµÈ À©µµ¿ì¿¡ Á¢±ÙÇÒ ¼ö ÀÖµµ·Ï Çϱâ À§ÇÏ¿© ½Ã½ºÅÛÀÇ Message object¿¡ ¸Å°³º¯¼ö¸¦ ÀúÀåÇÏ´Â ±â´ÉÀ» ÇÑ´Ù.

 

 

  Àû ¿ë

 

 

Window objects

 

 

  ¹®¹ý 1

 

 

OpenWithParm(windowvar, parameter {, parent})

 

 

* windowvar µð½ºÇ÷¹ÀÌ ÇϰíÀÚ ÇÏ´Â À©µµ¿ìÀÇ À̸§

 

 

Window painter¿¡ Á¤ÀÇµÈ À©µµ¿ì ¿ÀºêÁ§Æ®³ª ¿ä±¸µÈ À©µµ¿ì µ¥ÀÌŸ ŸÀÔÀÇ º¯¼ö¸¦ ÁöÁ¤ÇÒ ¼ö ÀÖ´Ù.

 

 

* parameter À©µµ¿ì°¡ ¿ÀǵǾúÀ» ¶§ Message object¿¡ ÀúÀåÇϱ⸦ ¿øÇÏ ´Â ¸Å°³º¯¼ö String, Numeric, PowerObject

 

 

* parent ¿­°íÀÖ´Â popup window ¶Ç´Â childÀÇ parent·Î ¸¸µé°íÀÚ ÇÏ ´Â window.

 

 

  ¹Ýȯ°ª 1

 

 

Integer. ¼º°øÇϸé 1À» ¹ÝȯÇÏ°í ½ÇÆÐÇϸé -1À» ¹ÝȯÇÑ´Ù.

 

 

 ¹®¹ý 2

 

 

OpenWithParm(windowvar, parameter, windowtype {, parent})

 

 

* windowtype °ªÀÌ ¿­±â¸¦ ¿øÇÏ´Â À©µµ¿ìÀÇ µ¥ÀÌŸ ŸÀÔÀÎ ½ºÆ®¸µ

 

 

  ¹Ýȯ°ª 2

 

 

Integer. ¼º°øÇϸé 1À» ¹ÝȯÇÏ°í ½ÇÆÐÇϸé -1À» ¹ÝȯÇÑ´Ù.

 

 

 »ç¿ë¹ý

 

 

system Message object´Â ÀúÀåÇϰí ÀÖ´Â µ¥ÀÌŸ¿¡ ´ëÇÑ ¼¼°¡Áö ¼Ó¼ºÀ» °¡Áø´Ù.

 

 

parameter data type¿¡ ÀÇÁ¸ÇÏ¿© OpenWithParmÀÇ ¼Ó¼ºÀ» ÁöÁ¤ÇÑ´Ù.

 

 

(Message object attribute) (Parameter data type)

 

 

Message.DoubleParm Numeric

 

 

Message.PowerObjectParm PowerObject

 

 

Message.StringParm String

 

 

  ¿¹ Á¦

 

 

OpenWithParm(w_employee, "James Newton")

 

 

w_employee w_to_open

 

 

integer age = 50

 

 

OpenWithParm(w_to_open, age)

 

 

w_to_open ÇüÀÇ instance À» ¿ÀÇÂÇÑ´Ù. ¸Å°³º¯¼ö°¡ ¼öÀ̱⠶§¹®¿¡ ±×°ÍÀº Message¿¡ ÀúÀåµÈ´Ù.

 

 

OpenWithParm(cw_data, "benefit_plan", w_employee)

 

 

OpenWithParm(w_to_open, e_location, s_w_name)

 

 

OpenWithParm(wc_to_open, age, c_w_name, w_emp)

 

 

PostEvent PowerScript Function

 

 

  ±â ´É

 

 

¿ÀºêÁ§Æ®ÀÇ À̺¥Æ®ÀÇ ³¡¿¡ À̺¥Æ®¸¦ Ãß°¡ÇÑ´Ù. postevent()´Â ´Ü¼øÈ÷ clicked À̺¥Æ® ½ºÅ©¸³Æ®°¡ Àå·¡¿¡ ¾ðÁ¨°¡, ÆÄ¿öºô´õ°¡ ÇÒ ¼ö ÀÖÀ» ¶§ ¹ß»ýÇÏ´Â °ÍÀ» ¿ä±¸ÇÑ´Ù. ±×¸®°í ½ºÅ©¸³Æ®¸¦ È£ÃâÇÏ´Â ½ÇÇàÀº ÁßÁöÇÏÁö ¾Ê°í, ¿Ï¼ºÇÒ À̺¥Æ®¸¦ ±â´Ù¸®Áö ¾Ê´Â´Ù. ´ÜÁö postevent() È£Ãâ ÈÄ¿¡ °è¼ÓÇÑ´Ù. À̺¥Æ®°¡ ½ºÅ©¸³Æ®°¡ ½ÇÇàµÇ°í °è¼ÓÇÒ °ÍÀ» ¿ä±¸Çϱ⠶§¹®¿¡, ºñµ¿½Ã¼º È£Ãâ·Î ¾ð±ÞµÈ´Ù.

 

 

  Àû ¿ë

 

 

application object¸¦ Á¦¿ÜÇÑ ¸ðµç object

 

 

  ¹® ¹ý

 

 

objectname.PostEvent(event,{word, long})

 

 

* objectname ¿¬°üµÇ¾î ÀÖ´Â À̺¥Æ®¸¦ °¡Áø powerbuilder object³ª control

 

 

* event °ªÀÌ À̺¥Æ®ÀÇ À̸§ÀÌ µÇ´Â ½ºÆ®¸µÀ̳ª PowerBuilder À̺¥Æ® ¸¦ Á¤ÀÇÇÏ´Â TrigEvent enumerated data typeÀÇ °ª

 

 

* word(optional) ½Ã½ºÅÛ message objectÀÇ WordParm attribute¿¡ ÀúÀåµÇ¾î

 

 

ÀÖ´Â long value

 

 

* long(optional) ½Ã½ºÅÛ Message objectÀÇ WordParm attribute¿¡ ÀúÀåÇϱ⠸¦ ¿øÇÏ´Â ½ºÆ®¸µ ¶Ç´Â long value

 

 

  ¹Ýȯ°ª

 

 

Boolean. ¼º°øÇϸé TRUE¸¦ ¸®ÅÏÇÏ°í ¿ÀºêÁ§Æ®¿¡ ´ëÇÏ¿© À¯È¿ÇÑ ¿ÀºêÁ§Æ®°¡ ¾Æ´Ï¸é FALSE¸¦ ¸®ÅÏÇÑ´Ù.

 

 

  »ç¿ë¹ý

 

 

drawing object°°ÀÌ À̺¥Æ®¸¦ °¡ÁöÁö ¾Ê´Â ¿ÀºêÁ§Æ®¿¡ ´ëÇÏ¿© À̺¥Æ®¸¦ triggerÇϰųª ºÙÀÏ ¼ö ¾ø´Ù. ¶Ç applicationÀº event queue¸¦ °¡ÁöÁö ¾Ê±â ¶§¹®¿¡ user interface¸¦ °¡ÁöÁö ¾Ê´Â ¹èÄ¡ ¸ÅÇø®ÄÉÀ̼Ǿȿ¡ À̺¥Æ®¸¦ trigger Çϰųª ºÙÀÏ ¼ö ¾ø´Ù.

 

 

  ¿¹ Á¦

 

 

cb_OK.PostEvent(Clicked!)

 

 

Clicked À̺¥Æ®¸¦ Ãß°¡ÇÑ´Ù.

 

 

Parent.PostEvent("cb_exit_request")

 

 

»ç¿ëÀÚ Á¤ÀÇ À̺¥Æ®ÀÎ cb_exit_request¸¦ À̺¥Æ® queue¿¡ Ãß°¡ÇÑ´Ù.

 

 

Parent.PostEvent("cb_exit_request", 455)

 

 

value 455´Â Message object¿¡ ÀúÀåµÈ´Ù.

 

 

Print PowerScript Function

 

 

  ±â ´É

 

 

ÇöÀç ÇÁ¸°ÅÍ¿¡ µ¥ÀÌŸ¸¦ º¸³½´Ù.

 

 

DataWindow controlÀÇ ³»¿ëÀ» º¸³»±â À§Çؼ­´Â ¹®¹ý 1À» »ç¿ëÇÑ´Ù.

 

 

window ¶Ç´Â graph °°Àº visual object¸¦ Æ÷ÇÔÇϱâ À§Çؼ­´Â ¹®¹ý 2¸¦ »ç¿ëÇÑ´Ù.

 

 

textÀÇ lineµéÀ» º¸³»±â À§Çؼ­´Â ¹®¹ý 3À» »ç¿ëÇÑ´Ù.

 

 

  Àû ¿ë

 

 

(¹®¹ý 1) DataWindow controls and child DataWindows

 

 

(¹®¹ý 2) ¸ðµç object

 

 

(¹®¹ý 3) ƯÁ¤ object¸¦ Á¦¿ÜÇÑ °Í

 

 

  ¹® ¹ý

 

 

DataWindowÄÜÆ®·ÑÀÇ ³»¿ëÀ» ÇÁ¸°ÅÍ¿¡ º¸³½´Ù.-syntax1

 

 

º¸¿©Áö´Â ¿ÀºêÁ§Æ®(À©µµ¿ì, ±×·¡ÇÁ ÄÁÆ®·Ñ)¸¦ ÇÁ¸°ÅÍ·Î º¸³½´Ù.-syntax2

 

 

¹®ÀåÀÇ Çϳª ¶Ç´Â ÀÌ»óÀÇ ¶óÀÎÀ» º¸³½´Ù.-syntax3

 

 

¹®ÀåÀº ÆäÀÌÁöÀÇ ¼öÁ÷À§Ä¡¸¦ Á¶ÀýÇÏ´Â tab settings¿¡ ÀÇÇØ ¼öÇàµÉ ¼ö ÀÖ´Ù.

 

 

  ¹®¹ý 1

 

 

datawindowname.Print({canceldialog})

 

 

Parameter Description

 

 

¦¡¦¡¦¡¦¡----- ¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡

 

 

datawindowname ÇÁ¸°Æ®µÉ Á¤º¸¸¦ Æ÷ÇÔÇϰí ÀÖ´Â DataWindow ÄÜÆ®·ÑÀ̳ª

 

 

child DataWindowÀÇ À̸§.

 

 

canceldialog ÇÁ¸°Æ® Ãë¼Ò¸¦ À§ÇÑ non-modal´ÙÀ̾ó·Î±×¸¦ µð½ºÇ÷¹ÀÌ

 

 

ÇÒÁö ¾ÊÇÒÁöÀÇ ¿©ºÎ¸¦ Áö½ÃÇÏ´Â Boolean°ª

 

 

True : ´ÙÀ̾ó·Î±×¸¦ µð½ºÇ÷¹ÀÌ(µðÆúÆ®)

 

 

False : ´ÙÀ̾ó·Î±×¸¦ µð½ºÇ÷¹ÀÌ ÇÏÁö ¾ÊÀ½.

 

 

False : ´ÙÀ̾ó·Î±×¸¦ µð½ºÇ÷¹ÀÌ ÇÏÁö ¾ÊÀ½.

 

 

  ¹Ýȯ°ª 1 Integer ¼º°øÇϸé 1, ¿¡·¯¹ß»ý½Ã -1¸¦ ¸®ÅÏÇÑ´Ù.

 

 

  ¹®¹ý 2

 

 

objectname.Print( printobjnumber,x,y,{,width, height})

 

 

Parameter Description

 

 

¦¡¦¡¦¡¦¡¦¡¦¡¦¡ ¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡

 

 

objectname ÇÁ¸°Æ®µÉ Á¤º¸¸¦ Æ÷ÇÔÇϰí ÀÖ´Â ¿ÀºêÁ§Æ®ÀÇ À̸§.

 

 

±× ¿ÀºêÁ§Æ®´Â À©µµ¿ì¿¡ À§Ä¡ÇÒ ¼ö ÀÖ´Â ¸ðµç ÄÜÆ®·ÑÀ» Æ÷

 

 

ÇÔÇÑ DragObject¸¦ Á¶»óÀ¸·Î °®´Â À©µµ¿ì³ª ¿ÀºêÁ§Æ®À̾î

 

 

¾ß ÇÑ´Ù.

 

 

printobjnumber PrintOpenÇÔ¼ö°¡ print job¿¡ ÇÒ´çÇÏ´Â °ª(¼ýÀÚ)

 

 

x ÆäÀÌÁöÀÇ ÁÂÃø xÀ§Ä¡·Î¼­ 1/1000ÀÎÄ¡°ªÀ¸·Î integerÇüÀÌ´Ù.

 

 

y ÆäÀÌÁöÀÇ ÁÂÃø yÀ§Ä¡·Î¼­ 1/1000ÀÎÄ¡°ªÀ¸·Î integerÇüÀÌ´Ù.

 

 

width(optional) ÇÁ¸°Æ®µÉ 1/1000ÀÇ inch°ªÀ¸·Î ÆäÀÌÁöÀÇ ÆøÀ» ¼³Á¤.

 

 

»ý·«½Ã original width°¡ µðÆúÆ®·Î ÀâÈù´Ù.

 

 

height(optional) ÇÁ¸°Æ®µÉ 1/1000ÀÇ inch°ªÀ¸·Î ÆäÀÌÁöÀÇ ±æÀ̸¦ ¼³Á¤.

 

 

»ý·«½Ã original height°¡ µðÆúÆ®·Î ÀâÈù´Ù.

 

 

  ¹Ýȯ°ª 2

 

 

Integer ¼º°øÇϸé 1, ¿¡·¯¹ß»ý½Ã -1¸¦ ¸®ÅÏÇÑ´Ù.

 

 

  ¹®¹ý 3

 

 

Print( printjobnumber,{tab1}, string {,tab2})

 

 

Parameter Description

 

 

¦¡¦¡¦¡¦¡¦¡¦¡¦¡ ¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡

 

 

printjobnumber PrintOpen ÇÔ¼ö°¡ print job¿¡ ÇÒ´çÇÏ´Â ¼ýÀÚ

 

 

tab1(optional) ÇÁ¸°Æ® ¿µ¿ªÀÇ ¿ÞÂÊ ¸ðÅüÀÌ À§Ä¡·Î 1/1000ÀÎÄ¡ °ªÀÌ´Ù.

 

 

ÇÁ¸°Æ®µÇ±â Àü¿¡ print cursor°¡ ¿Å°ÜÁ®¾ß ÇÑ´Ù.

 

 

¸¸¾à »ý·«µÇ¸é ÇöÀçÀ§Ä¡¿¡¼­ ÇÁ¸°Æ®¸¦ ½ÃÀÛÇÑ´Ù.

 

 

string ÇÁ¸°Æ®ÇϰíÀÚ ÇÏ´Â ½ºÆ®¸µ

 

 

¸¸¾à ~r, ~nÀ» Æ÷ÇÔÇϰí ÀÖÀ¸¸é ¿©·¯¶óÀÎÀ» ÇÁ¸°Æ® ÇÒ ¼ö

 

 

ÀÖ´Ù.

 

 

tab2(optional) ½ºÆ®¸µÀ» ÇÁ¸°Æ®ÇÑ ÈÄÀÇ »õ·Î¿î ¿ÞÂÊ ¸ðÅüÀÌ À§Ä¡¸¦ »ý·«½Ã

 

 

ÇÁ¸°Æ® Ä¿¼­¸¦ »õ·Î¿î ¶óÀÎÀ¸·Î ¿Å°Ü¼­ ÇÁ¸°Æ®ÇÑ´Ù.

 

 

  ¹Ýȯ°ª 3

 

 

Integer ¼º°øÇϸé 1, ¿¡·¯¹ß»ý½Ã -1¸¦ ¸®ÅÏÇÑ´Ù.

 

 

  »ç¿ë¹ý

 

 

ÆÄ¿öºô´õ´Â ÇÁ¸°Æ® jobÀ» ¿­°í µ¥ÀÌŸ¸¦ º¸³»°í, jobÀ» ´ÝÀ½À¸·Î¼­ printer jobÀ» °ü¸®ÇÑ´Ù.

 

 

Syntax1¸¦ »ç¿ëÇÒ ¶§´Â ÀÚµ¿ÀûÀ¸·Î print job°ü¸®°¡ ÀÚµ¿ÀûÀ¸·Î ÀϾ´Ù.

 

 

Syntax2,3À» »ç¿ëÇÒ ¶§´Â PrintOpen, PrintClose, PrintCancelÀ» »ç¿ëÇÏ¿©¾ß ÇÑ´Ù.

 

 

Syntax1Àº DataWindow¿ÀºêÁ§Æ®ÀÇ ³»¿ëÀ» ÇÁ¸°Æ®ÇÒ ¶§ »ç¿ëÇÑ´Ù. ÀÌ ÇÔ¼ö´Â °Ë»öµÈ ¸ðµç ¿­µéÀ» ÇÁ¸°Æ®ÇÑ´Ù. ¸î °³ÀÇ DataWindows¸¦ ÇϳªÀÇ ÀÛ¾÷À¸·Î ÇÁ¸°Æ®Çϱâ À§Çؼ­ »ç¿ëÇÏÁö ¸»¾Æ¶ó. ´ë½Å¿¡ PrintOpenÀ¸·Î Print JobÀ» ¿­°í, °¢°¢ÀÇ DataWindow¿¡ ´ëÇØ¼­ PrintDataWindowÇÔ¼ö¸¦ È£ÃâÇϰí, CloseÇØ¶ó.

 

 

DataWindowÄÜÆ®·ÑÀ» ÇÁ¸°Æ®ÇÒ ¶§, DataWindow¿¡ ´ëÇÑ À̺¥Æ® ¹ß»ý

 

 

PrintStart event´Â µ¥ÀÌŸ°¡ printer¿¡ º¸³»Áö±â Á÷Àü¿¡ ¹ß»ýÇϰí,

 

 

PrintPage event´Â °¢ÆäÀÌÁö°¡ ³¡³¯¶§¸¶´Ù ¹ß»ý, PrintEnd event´Â ÇÁ¸°Æ®°¡ ³¡³µÀ» ¶§ ¹ß»ý.

 

 

PrintPage À̺¥Æ®´Â Æ÷¸ËµÇ¾îÁø ÆäÀÌÁö¿¡ ´ëÇØ ÇÁ¸°Æ®ÇÒÁö ¿©ºÎ¸¦ ¹¯´Â action code¸¦ °¡Áø´Ù. »ç¿ëÀÚ´Â SetActionCodeÇÔ¼ö¸¦ ÀÌ¿ëÇØ¼­ action code¸¦ 1·Î ¼³Á¤ÇÔÀ¸·Î¼­ ½ºÅµÇÒ ¼ö ÀÖ´Ù.

 

 

ÆÄ¿öºô´õ´Â Print Cursor·Î ¿ÞÂÊ ¸ðÅüÀÌ ÁÂÇ¥¸¦ ±â¾ï½ÃÄÑ ÇÁ¸°Æ®µÉ ´ÙÀ½ À§Ä¡¸¦ ¾Ë ¼ö ÀÖµµ·Ï ÇÑ´Ù.

 

 

ÅØ½ºÆ®¸¦ ÇÁ¸°Æ®ÇÒ ¶§ ÆÄ¿öºô´õ´Â Çà°£°ÝÀ» ±ÛÀÚ³ôÀÌ¿¡ µû¶ó¼­ ÇÑ´Ù. µðÆúÆ® Çà°£°ÝÀº character heightÀÇ 1.2¹èÀÌ´Ù. PrintSeSpacingÇÔ¼ö¿¡ ÀÇÇØ Çà°£°Ý ¹è¼ö¸¦ ¼³Á¤ÇÒ ¼ö ÀÖ´Ù.

 

 

syntax3À» ÇÁ¸°Æ®ÇÒ ¶§, ÆÄ¿öºô´õ´Â ÆäÀÌÁö ºê·¹ÀÌÅ©¸¦ ÅëÁ¦ÇÏ¿© yÁÂÇ¥¸¦ °ü¸®Çϰí, ÆäÀÌÁö°¡ ³Ñ¾î°¥ ¶§ ÀÚµ¿ÀûÀ¸·Î »õ·Î¿î ÆäÀÌÁö ÀâÀ» ¼³Á¤ÇÏ¿© ÁØ´Ù.

 

 

Print¿µ¿ª°ú °¡ÀåÀÚ¸® ¿©¹éÀº PrintSentÇÔ¼ö¿Í printer-defined escape sequences¸¦ ÀÌ¿ëÇÏ¿© º¯°æÇÒ ¼ö ÀÖ´Ù.

 

 

PrintDefineFont¿Í PrintSetFontÇÔ¼ö¸¦ ÀÌ¿ëÇÏ¿© PrintÇÔ¼ö¿¡ ÀÇÇØ »ç¿ëµÉ ÆùÆ®¸¦ ¼³Á¤ÇÒ ¼ö ÀÖ´Ù. Syntax1À» »ç¿ë½Ã ÆÄ¿öºô´õ´Â DataWindow¿¡ ³ªÅ¸³­ ÆùÆ®¿Í ¿©¹éÀ» »ç¿ëÇÏ¿© ÇÁ¸°Æ®ÇÑ´Ù.

 

 

  ¿¹ Á¦

 

 

1.// dw_employeeÀÇ ³»¿ëÀ» ÇöÀçÀÇ ÇÁ¸°ÅÍ·Î º¸³½´Ù.

 

 

dw_employee.Print()

 

 

2.// CommandButton cb_close¸¦ 500,1000À§Ä¡¿¡ ¿ø·¡ÀÇ Å©±â·Î ÇÁ¸°Æ®ÇÑ´Ù.

 

 

integer Job

 

 

Job = PrintOpen()

 

 

cb_close.Print(Job, 500, 1000)

 

 

PrintClose(Job)

 

 

3.// printjobÀ» ¿­°í, »õÆäÀÌÁö¸¦ Á¤ÀÇÇϰí, ù¹øÂ° ÆäÀÌÁö¿¡ ŸÀÌÆ²°ú ±×·¡

 

 

// ÇÁ¸¦ ÇÁ¸°Æ®Çϰí, µÎ¹øÂ° ÆäÀÌÁö¿¡ À©µµ¿ì¸¦ ÇÁ¸°Æ® ÇÔ.

 

 

integer Job

 

 

Job = PrintOpen()

 

 

Print(Job, "Report of Year-To-Date Sales")

 

 

gr_salesl.Print(Job, 1000, PrintY(Job)+500, 6000, 4500)

 

 

PrintPage(Job)

 

 

w_sales.Print(Job, 1000, 500, 6000, 4500)

 

 

PrintClose(Job)

 

 

4.// print jobÀ» ¿­°í, Powersoft Corporation¹®ÀÚ¿­À» µðÆúÆ®ÆùÆ®·Î ÇÁ¸°Æ® // Çϰí, »õ·Î¿î ¶óÀÎÀ» ½ÃÀÛÇÑ´Ù.

 

 

integer Job

 

 

// Blank ÆäÀÌÁö¸¦ Á¤ÀÇÇϰí, Job¿¡ ID¸¦ ÇÒ´çÇÑ´Ù.

 

 

Job = PrintOpen()

 

 

// ¹®ÀÚ¿­À» ÇÁ¸°Æ®Çϰí, »õ¶óÀÎÀ» ½ÃÀÛÇÑ´Ù.

 

 

Print(Job, "Powersoft Corporation")

 

 

.....

 

 

PrintClose(Job)

 

 

// print jobÀ» ¿­°í, Powersoft Corporation¹®ÀÚ¿­À» µðÆúÆ® ÆùÆ®¿Í tab //Àº ÇÁ¸°Æ® ¿µ¿ªÀÇ ¿ÞÂÊ ±¸¼®¿¡¼­ 5ÀÎÄ¡¸¸Å­ ¶³¾îÁ®¼­ ÇÁ¸°Æ®Çϰí ,»õ¶ó //ÀÎÀº

 

 

// ½ÃÀÛÇÏÁö ¾Ê´Â´Ù.

 

 

integer Job

 

 

// Blank ÆäÀÌÁö¸¦ Á¤ÀÇÇϰí, Job¿¡ ID¸¦ ÇÒ´çÇÑ´Ù.

 

 

Job = PrintOpen()

 

 

// ¹®ÀÚ¿­À» ÇÁ¸°Æ®Çϰí, »õ¶óÀÎÀ» ½ÃÀÛÇÏÁö ¾Ê´Â´Ù.

 

 

Print(Job, "Powersoft Corporation", 5000)

 

 

.....

 

 

PrintClose(Job)

 

 

// ù¹øÂ° ÇÁ¸°Æ® ¹®ÀåÀº ÇÁ¸°Æ®¿µ¿ªÀÇ ¿ÞÂÊ °¡ÀåÀÚ¸®¿¡¼­ tab¾Æ·¡¿¡ 0.5ÀÎ

 

 

// Ä¡¸¸Å­ ¶³¾î¶ß·Á Powersoft Corporation¹®ÀÚ¿­À» ÇÁ¸°Æ®Çϰí, »õ¶óÀÎÀ»

 

 

// ½ÃÀÛÇÑ´Ù.

 

 

// µÎ¹øÂ° ÇÁ¸°Æ® ¹®ÀåÀº ÇÁ¸°Æ® ¿µ¿ªÀÇ ¿ÞÂÊ °¡ÀåÀÚ¸®¿¡¼­ 1ÀÎÄ¡¸¸Å­ ¶³¾î

 

 

// ¶ß·Á Directors¹®ÀÚ¿­À» Ãâ·ÂÇϰí, »õ¶óÀÎÀ» ½ÃÀÛÇÑ´Ù.

 

 

integer Job

 

 

// Blank ÆäÀÌÁö¸¦ Á¤ÀÇÇϰí, Job¿¡ ID¸¦ ÇÒ´çÇÑ´Ù.

 

 

Job = PrintOpen()

 

 

// ¹®ÀÚ¿­À» ÇÁ¸°Æ®Çϰí, »õ¶óÀÎÀ» ½ÃÀÛÇÑ´Ù.

 

 

Print(Job, 500, "Powersoft Corporation")

 

 

// ¿ÞÂÊ °¡ÀåÀÚ¸®¿¡¼­ 1ÀÎÄ¡ tabÇϰí, ÇÁ¸°Æ®ÇÑ´Ù.

 

 

Print(Job, 1000, "Directors:")

 

 

.....

 

 

PrintClose(Job)

 

 

// ù¹øÂ° ÇÁ¸°Æ®¹®ÀåÀº ÇÁ¸°Æ® ¿µ¿ªÀÇ ¿ÞÂÊ °¡ÀåÀÚ¸®¿¡¼­ tab¾Æ·¡¿¡ 0.5ÀÎ

 

 

// Ä¡¸¸Å­ ¶³¾î¶ß·Á Powersoft Corporation¹®ÀÚ¿­À» ÇÁ¸°Æ®Çϰí, ¿ÞÂÊ °¡Àå

 

 

// ÀÚ¸®ÀÇ 6ÀÎÄ¡¸¸Å­ ¶³¾î¶ß¸®°í, »õ¶óÀÎÀ» ½ÃÀÛÇÏÁö ¾Ê´Â´Ù.

 

 

// µÎ¹øÂ° ÇÁ¸°Æ® ¹®ÀåÀº ÇöÀçÀÇ ³¯Â¥¸¦ Ãâ·ÂÇϰí, »õ¶óÀÎÀ» ½ÃÀÛÇÑ´Ù.

 

 

integer Job

 

 

// Blank ÆäÀÌÁö¸¦ Á¤ÀÇÇϰí, Job¿¡ ID¸¦ ÇÒ´çÇÑ´Ù.

 

 

Job = PrintOpen()

 

 

// ¹®ÀÚ¿­À» ÇÁ¸°Æ®Çϰí, ¿ÞÂÊ °¡ÀåÀÚ¸®¿¡¼­ 6ÀÎÄ¡ tab

 

 

Print(Job, 500, "Powersoft Corporation", 6000)

 

 

// ÇöÀçÀÇ ³¯Â¥¸¦ °°Àº ¶óÀο¡ Ãâ·ÂÇÑ´Ù.

 

 

Print(Job, String(Todat()))

 

 

.....

 

 

PrintClose(Job)

 

 

// MultiLineEdit mle_message¿¡¼­ ¿¡·¯ ¸Þ¼¼Áö¸¦ Ãâ·ÂÇϰí, ³¯Â¥¿Í ½Ã°£À» // Ãâ·ÂÇÑ´Ù.

 

 

integer li_prt

 

 

li_prt = PrintOpen("Database Error")

 

 

Print(li_prt, "Database error - " &

 

 

+ String(Today(), "mm/dd/yyyy") &

 

 

+ " - " &

 

 

+ String(Now(), "HH:MM:SS"))

 

 

Print(li_prt,"")

 

 

Print(li_prt, mle_message.text)

 

 

PrintClose(li_prt)

 

 

PrintSetup PowerScript Function

 

 

  ±â ´É

 

 

½Ã½ºÅÛ ÇÁ¸°ÅÍ µå¶óÀ̹ö¿¡ ÀÇÇØ °ø±ÞµÈ Printer Setup dialog box¸¦ È£ÃâÇÏ°í »ç¿ëÀÚÀÇ ÀÀ´äÀ» ÀúÀåÇÑ´Ù.

 

 

  ¹® ¹ý

 

 

PrintSetup()

 

 

  ¹Ýȯ°ª

 

 

Integer. ¼º°øÇϸé 1À» ¸®ÅÏÇÏ°í ½ÇÆÐÇϸé -1À» ¸®ÅÏÇÑ´Ù.

 

 

  ¿¹ Á¦

 

 

ÇöÀç ½Ã½ºÅÛÀ» Print setup dialog box¸¦ È£ÃâÇÏ°í »õ·Î¿î print jobÀ» ½ÃÀÛÇÑ´Ù.

 

 

long Job

 

 

// Printer Setup ÇÁ·Î±×·¥À» È£ÃâÇÑ´Ù.

 

 

PrintSetup()

 

 

// print job new page¸¦ ½ÃÀÛÇÑ´Ù.

 

 

Job = PrintOpen()

 

 

RelativeDate PowerScript Function

 

 

¡ß ±â ´É

 

 

ƯÁ¤ÇÑ ³¯Â¥°¡ ÀÖÀº ÈÄ·Î ÀÏÁ¤ÇÑ Àϼö¸¸Å­ Áõ°¨µÈ ³¯Â¥¸¦ ¾Ë¾Æ³½´Ù.

 

 

¡ß ¹® ¹ý

 

 

RelativeDate( date, n )

 

 

parameter Description

 

 

date date °ª

 

 

n Áõ°¨µÉ ³¯Â¥

 

 

  ¹Ýȯ°ª

 

 

dateÇüÀÌ´Ù. nÀÌ 0º¸´Ù Å©¸é n¸¸Å­ Å« ³¯Â¥¸¦ ¸®ÅÏÇϰí, nÀÌ 0º¸´Ù ÀÛÀ¸¸é n¸¸Å­ ÀÛÀº ³¯Â¥¸¦ ¸®ÅÏÇÑ´Ù.

 

 

  ¿¹ Á¦

 

 

1990-02-10À» ¸®ÅÏÇÑ´Ù.

 

 

RelativeDate( 1990-01-31, 10)

 

 

1990-01-21À» ¸®ÅÏÇÑ´Ù.

 

 

RelativeDate( 1990-01-31, -10)

 

 

Reset PowerScript Function

 

 

  ±â ´É

 

 

ÄÁÆ®·ÑÀÇ µ¥ÀÌÅ͸¦ Áö¿î´Ù.

 

 

Syntex 1 : µ¥ÀÌÅÍÀ©µµ¿ì ÄÁÅÍ·ÑÀÇ µ¥ÀÌÅ͸¦ Áö¿î´Ù.

 

 

Syntex 2 : ¸®½ºÆ®ÀÇ ¸ðµç µ¥ÀÌÅ͸¦ Áö¿î´Ù.

 

 

Syntex 3 : ±×·¡ÇÁÀÇ Ä«Å×°í¸®, ½Ã¸®Áî µîÀÇ ¸ðµç µ¥ÀÌÅ͸¦ Áö¿î´Ù.

 

 

  ¹® ¹ý

 

 

Syntex 1 : datawindowname.Reset( )

 

 

Syntex 2 : listboxname.Reset( )

 

 

Syntex 3 : controlname.Reset(graphresettype)

 

 

*graphresettype :

 

 

All! -- controlnameÀÇ ¸ðµç ½Ã¸®Áî ¿Í Ä«Å×°í¸®µé, µ¥ÀÌÅ͸¦ Áö ¿î´Ù.

 

 

Category! -- controlnameÀÇ Ä«Å×°í¸®µé, µ¥ÀÌÅ͸¦ Áö¿î´Ù.

 

 

Data! -- controlnameÀÇ µ¥ÀÌÅ͸¦ Áö¿î´Ù.

 

 

Serise! -- controlnameÀÇ ¸ðµç ½Ã¸®Áî ¿Í µ¥ÀÌÅ͸¦ Áö¿î´Ù.

 

 

  ¹Ýȯ°ª

 

 

Integer. ¼º°ø½Ã 1À» ¿¡·¯¹ß»ý½Ã -1À» ¹Ýȯ

 

 

  »ç¿ë¹ý

 

 

Reset()Àº DataBase¿¡´Â º¯°æÀ» ÁÖÁö ¾ÊÀ¸¸ç ´ÜÁö Application¿¡¸¸ ÀÛ¿ëÇÑ´Ù. Áï, Delete´Â DataWindow Object¿Í °ü·ÃµÈ DataBase tableÀÇ Æ¯Á¤ row¸¦ »èÁ¦ÇÏÁö¸¸, reset ¹× updateÈÄ¿¡´Â DataBase table¿¡´Â º¯È­°¡ ¾ø´Ù.

 

 

  ¿¹ Á¦

 

 

1. dw_employeeÀÇ ³»¿ëÀ» ¸ðµÎ »èÁ¦ÇÏ´Â ¿¹Á¦

 

 

dw_employee.Reset( )

 

 

2. ddlb_ActionsÀÇ ¸ðµç µ¥ÀÌÅ͸¦ Áö¿ì´Â ¿¹Á¦

 

 

ddlb_Actions.Reset( )

 

 

3. ±×·¡ÇÁ gr_product_dataÀÇ µ¥ÀÌÅÍ¿Í ½Ã¸®Á ¸ðµÎ Áö¿ìÁö¸¸ Ä«Å×°í¸®¸¦ ³²±â´Â ¿¹Á¦

 

 

gr_product_data.Reset(Series!)

 

 

Retrieve PowerScript Function

 

 

  ±â ´É

 

 

µ¥ÀÌŸº£À̽º·ÎºÎÅÍ ÀڷḦ Á¶È¸ÇÏ¿© µ¥ÀÌŸÀ©µµ¿ì¿¡ º¸¿©ÁØ´Ù.

 

 

CommamdButton(cb_retrieve)ÀÇ Clicked À̺¥Æ®¿¡ ´ëÇÑ ½ºÅ©¸³Æ®¿¡¼­,

 

 

µ¥ÀÌŸ¸¦ °Ë»öÇϱâ À§Çؼ­ DataWindow °´Ã¼¿Í °áÇÕµÈ SQL Select¹® À» »ç¿ëÇÑ´Ù.

 

 

  ¹® ¹ý

 

 

datawindowname.Retrieve({,argument,argument,....})

 

 

datawindowname¿¡´Â database·ÎºÎÅÍ Á¶È¸ÇϰíÀÚ ÇÏ´Â row°¡ ÀÖ´Â DataWindow ControlÀ̳ª child DataWindowÀÇ À̸§À» ±âÀÔÇÑ´Ù. argument´Â SQL Select¹®Àå¿¡¼­ Á¶È¸Àμö·Î »ç¿ëµÈ´Ù.

 

 

  ¹Ýȯ°ª

 

 

¸®ÅϰªÀº longÇüÀÌ´Ù. ¼º°ø½Ã Á¶È¸µÈ rowÀÇ ¼ö, ½ÇÆÐÇϸé -1À» ¸®ÅÏÇÑ´Ù.

 

 

  ¿¹ Á¦

 

 

dw_employee.Retrieve() // Àüü¸¦ Á¶È¸ÇÔ

 

 

dw_employee.Retrieve(sBuseoCode) // ƯÁ¤ ºÎ¼­¸¸ Á¶È¸ÇÔ

 

 

dw_emp1.Retrieve(50000,"NW")

 

 

// database·ÎºÎÅÍ ±Þ·á°¡ 50,000 ÀÌ»óÀ̰í NorthWestÁö¿ª¿¡ »ç´Â °í

 

 

// ¿ëÀθ¸À» Á¶È¸ÇÔ

 

 

Double emps[3]

 

 

emps[1] = 100

 

 

emps[2] = 200

 

 

emps[3] = 300

 

 

dw_EmpHist.Retrieve(emps)

 

 

// EmpHist¿¡¼­ Á¶°Ç¿¡ ¸Â´Â Çุ Á¶È¸ÇÑ´Ù. ÀÎÀڴ óÀ½¿¡ ¹è¿­·Î

 

 

// ¼±¾ðÇÏ¿© º¯¼ö°ªÀ» ¹Þ¾Æµé¿© »ç¿ëµÉ ¼ö ÀÖ´Ù.

 

 

Right PowerScript Function

 

 

  ±â ´É

 

 

ÁÖ¾îÁø ¹®ÀÚ¿­¿¡¼­ ƯÁ¤ À§Ä¡¿¡ ÁöÁ¤ÇÑ ±æÀÌÀÇ ¹®ÀÚ¿­À» °¡Á®¿Â´Ù.

 

 

  ¹® ¹ý

 

 

Right( string, n )

 

 

parameter Description

 

 

string ¿øÇÏ´Â ¹®ÀÚµéÀÌ ÀÖ´Â string

 

 

n longÇüÀ¸·Î ¿À¸¥ÂÊ ³¡¿¡¼­ ¿øÇÏ´Â ¹®ÀÚµéÀÇ ¿øÇÏ´Â

 

 

¹®ÀÚµéÀÇ °¹¼ö

 

 

  ¹Ýȯ°ª

 

 

StringÇüÀÌ´Ù. ¼º°øÇϸé ÁÖ¾îÁø ¹®ÀÚ¿­ÀÇ ¿À¸¥Âʳ¡¿¡¼­ ºÎÅÍ n°³ÀÇ ¹®ÀÚ¸¦ ¸®ÅÏÇϰí, ¿¡·¯°¡ ¹ß»ýÇÏ¸é ºó ¹®ÀÚ¿­("")À» ¸®ÅÏÇÑ´Ù.

 

 

¸¸¾à nÀÌ stringÀÇ ±æÀ̺¸´Ù Å©°Å³ª °°À¸¸é string¸¸Å­ ¸®ÅÏÇÑ´Ù. n°ú °°°Ô space¸¦ ´õÇÏÁö´Â ¾Ê´Â´Ù.

 

 

  ¿¹ Á¦

 

 

BSON¸¦ ¸®ÅÏÇÑ´Ù.

 

 

Right( "JOSH GIBSON" , 4)

 

 

JOSH GIBSONÀ» ¸®ÅÏÇÑ´Ù.

 

 

Right( "JOSH GIBSON" , 4)

 

 

RightTrim PowerScript Function

 

 

¡ß ±â ´É

 

 

¹®ÀÚ¿­ÀÇ ¸¶Áö¸· ºÎºÐ¿¡¼­ÀÇ °ø¹é¹®ÀÚ¸¦ Á¦°ÅÇÑ´Ù.

 

 

¡ß ¹® ¹ý

 

 

RightTrim (string)

 

 

Parameter Description

 

 

--------- ------------------------------------------------

 

 

string trailing blanksÀ» »èÁ¦ÇÑ ¹®ÀÚ¿­À» ¸®ÅÏÇÑ´Ù.

 

 

  ¹Ýȯ°ª

 

 

string. trailing blanksÀÇ »èÁ¦°¡ ¼º°øÇÏ¸é º¹»çµÈ ¹®ÀÚ¿­À» ¸®ÅÏÇÏ°í ½ÇÆÐÇϸé ("")¸¦ return ÇÑ´Ù.

 

 

  ¿¹ Á¦

 

 

RightTrim("RUTH ") // RUTH¸¦ ¸®ÅÏÇÑ´Ù.

 

 

RowCount PowerScript Function

 

 

¡ß ±â ´É

 

 

µ¥ÀÌŸÀ©µµ¿ìÀÇ RowÀÇ °¹¼ö¸¦ ¾Ë¾Æ³½´Ù.

 

 

Primary Buffer¿¡ ÀÖ´Â RowÀÇ °¹¼ö¸¦ ¾Ë¾Æ³½´Ù.

 

 

¡ß Àû ¿ë

 

 

µ¥ÀÌÅÍÀ©µµ¿ì control °ú ÀÚ¼Õ µ¥ÀÌŸÀ©µµ¿ì

 

 

¡ß ¹® ¹ý

 

 

datawindowname.RowCount()

 

 

¡ß ¹Ýȯ°ª

 

 

Long. Á¶È¸µÈ ÀÚ·á°¡ ¾ø´Â °æ¿ì 0, ½ÇÆÐÇϸé -1À» ¸®ÅÏÇÑ´Ù.

 

 

¡ß »ç¿ë¹ý

 

 

ÇöÀç display µÇ°í ÀÖ´Â Çà¿¡ ´ëÇÑ primary buffer ÀÇ ÇàÀÇ ¹øÈ£ count

 

 

¡ß ¿¹

 

 

- dw_employeeÀÇ ÇöÀç Çà¹øÈ£¸¦ ¸®ÅÏ

 

 

Long 1Row

 

 

1Row = dw_emp.RowCount()

 

 

ScrollNextPage PowerScript Function

 

 

¡ß ±â ´É

 

 

µ¥ÀÌŸ À©µµ¿ì»ó¿¡ º¸¿©Áö´Â ºÎºÐÀ» ´ÙÀ½ ÆäÀÌÁö·Î À̵¿ÇÑ´Ù.

 

 

ScrollNextPage´Â ÇöÀçÀÇ row´Â ¹Ù²ÙÁö¸¸ ÇöÀçÀÇ columnÀº ¹Ù²ÙÁö ¾Ê ´Â´Ù.

 

 

¡ß Àû ¿ë

 

 

DataWindow control ¹× ÀÚ¼Õ DataWindow.

 

 

¡ß ¹® ¹ý

 

 

datawindowname.ScrollNextPage ( )

 

 

¡ß ¹Ýȯ°ª

 

 

Long. ¼º°øÇÑ °æ¿ì´Â È­¸éÀÇ Ã³À½ Çà¹øÈ£, ½ÇÆÐÇϸé -1À» ¸®ÅÏÇÑ´Ù.

 

 

¡ß »ç¿ë¹ý

 

 

ScrollNextPage´Â ÇöÀç ÇàÀ» °­Á¶ÇÏÁö´Â ¾Ê´Â´Ù. ÇöÀçÇàÀ» »ç¿ëÀÚ°¡ ¾Ëµµ·Ï Çϱâ À§Çؼ­´Â SelectRow¸¦ »ç¿ëÇ϶ó.

 

 

¡ß Event

 

 

ScrollNextPage´Â ´ÙÀ½ÀÇ À̺¥Æ®µéÀ» Æ®¸®°ÅÇÒ ¼ö ÀÖ´Ù.

 

 

#ItemChanged

 

 

#ItemError

 

 

#ItemFocusChanged

 

 

#RowFocusChanged

 

 

¡ß ¿¹

 

 

- ´ÙÀ½È­¸éÀ¸·Î À̵¿ÇÑ´Ù.

 

 

dw_employee.ScrollNextPage( )

 

 

ScrollPriorPage PowerScript Function

 

 

¡ß ±â ´É

 

 

µ¥ÀÌŸ À©µµ¿ì»ó¿¡ º¸¿©Áö´Â ºÎºÐÀ» ÀÌÀü ÆäÀÌÁö·Î À̵¿ÇÑ´Ù.

 

 

ScrollPriorPage´Â ÇöÀçÀÇ row´Â ¹Ù²ÙÁö¸¸ ÇöÀçÀÇ columnÀº ¹Ù²ÙÁö ¾Ê ´Ù.

 

 

¡ß Àû ¿ë

 

 

DataWindow control ¹× ÀÚ¼Õ DataWindow.

 

 

¡ß ¹® ¹ý

 

 

datawindowname.ScrollPriorPage ( )

 

 

¡ß ¹Ýȯ°ª

 

 

Long. ¼º°øÇÑ °æ¿ì´Â È­¸éÀÇ Ã³À½ row¹øÈ£, ½ÇÆÐÇϸé -1À» ¸®ÅÏÇÑ´Ù.

 

 

¡ß »ç¿ë¹ý

 

 

ScrollPriorPage´Â ÇöÀç ÇàÀ» °­Á¶ÇÏÁö´Â ¾Ê´Â´Ù. ÇöÀçÇàÀ» »ç¿ëÀÚ°¡ ¾Ëµµ·Ï Çϱâ À§Çؼ­´Â SelectRow¸¦ »ç¿ëÇ϶ó.

 

 

¡ß Event

 

 

ScrollPriorPage´Â ´ÙÀ½ÀÇ À̺¥Æ®µéÀ» Æ®¸®°ÅÇÒ ¼ö ÀÖ´Ù.

 

 

#ItemChanged

 

 

#ItemError

 

 

#ItemFocusChanged

 

 

#RowFocusChanged

 

 

¡ß ¿¹

 

 

- ÀÌÀüÈ­¸éÀ¸·Î À̵¿ÇÑ´Ù.

 

 

dw_employee.ScrollPriorPage( )

 

 

ScrollNextRow PowerScript Function

 

 

¡ß ±â ´É

 

 

µ¥ÀÌÅÍÀ©µµ¿ì ÄÁÆ®·ÑÀ» ´ÙÀ½ ÇàÀ¸·Î À̵¿½ÃŲ´Ù. À̶§ ÇöÀçÀÇ ÇàÀº º¯°æµÇÁö¸¸, columnÀº º¯°æµÇÁö ¾Ê´Â´Ù.

 

 

¡ß Àû ¿ë

 

 

DataWindow control ¹× ÀÚ¼Õ DataWindow.

 

 

¡ß ¹® ¹ý

 

 

datawindowname.ScrollNextRow ( )

 

 

¡ß ¹Ýȯ°ª

 

 

Long. ¼º°øÇÑ °æ¿ì´Â È­¸éÀÇ Ã³À½ Çà¹øÈ£, ½ÇÆÐÇϸé -1À» ¸®ÅÏÇÑ´Ù.

 

 

¡ß »ç¿ë¹ý

 

 

ScrollNextRow¸¦ È£ÃâÇϸé ÇöÀçÇàÀÇ ´ÙÀ½ÇàÀÌ »õ·Î¿î ÇöÀçÇüÀÌ µÈ´Ù. ¸¸¾à ±× ÇàÀÌ ÀÌ¹Ì ³ªÅ¸³ª ÀÖÀ¸¸é displayµÈ ±× ÇàÀº º¯ÇÏÁö ¾Ê°í ±× ÇàÀÌ ³ªÅ¸³ª ÀÖÁö ¾ÊÀ¸¸é ±× ÇàÀÌ displayµÉ ¶§±îÁö È­¸é¿¡ ³ªÅ¸³ª ÀÖ´ø ÇàµéÀÌ ¿Ã¶ó°¡°Ô µÈ´Ù.

 

 

ScrollNextRow´Â ±× ÇàÀ» highlightÇÏÁö ¾Ê´Â´Ù. SelectRow´Â »ç¿ëÀÚ°¡ ÇöÀçÀÇ ÇàÀÌ ¾îµðÀÎÁö ¾Ë°Ô Çϱâ À§ÇÏ¿© »ç¿ëÇÑ´Ù.

 

 

¡ß Event

 

 

ScrollNextRow´Â ´ÙÀ½ÀÇ À̺¥Æ®µéÀ» Æ®¸®°ÅÇÒ ¼ö ÀÖ´Ù.

 

 

#ItemChanged

 

 

#ItemError

 

 

#ItemFocusChanged

 

 

#RowFocusChanged

 

 

¡ß ¿¹

 

 

´ÙÀ½ row·Î À̵¿ÇÑ´Ù.

 

 

dw_employee.ScrollNextRow( )

 

 

ScrollPriorRow PowerScript Function

 

 

¡ß ±â ´É

 

 

µ¥ÀÌÅÍÀ©µµ¿ì ÄÁÆ®·ÑÀ» ÀÌÀü ÇàÀ¸·Î À̵¿½ÃŲ´Ù. À̶§ ÇöÀçÀÇ ÇàÀº º¯°æµÇÁö¸¸, columnÀº º¯°æµÇÁö ¾Ê´Â´Ù.

 

 

¡ß Àû ¿ë

 

 

DataWindow control ¹× ÀÚ¼Õ DataWindow.

 

 

¡ß ¹® ¹ý

 

 

datawindowname.ScrollPriorRow ( )

 

 

¡ß ¹Ýȯ°ª

 

 

Long. ¼º°øÇÑ °æ¿ì´Â È­¸éÀÇ Ã³À½ Çà¹øÈ£, ½ÇÆÐÇϸé -1À» ¸®ÅÏÇÑ´Ù.

 

 

¡ß »ç¿ë¹ý

 

 

ScrollPriorRow¸¦ È£ÃâÇϸé ÇöÀçÇàÀÇ ÀÌÀüÇàÀÌ »õ·Î¿î ÇöÀçÇüÀÌ µÈ´Ù. ¸¸¾à ±× ÇàÀÌ ÀÌ¹Ì ³ªÅ¸³ª ÀÖÀ¸¸é displayµÈ ±× ÇàÀº º¯ÇÏÁö ¾Ê°í ±× ÇàÀÌ ³ªÅ¸³ª ÀÖÁö ¾ÊÀ¸¸é ±× ÇàÀÌ displayµÉ ¶§±îÁö È­¸é¿¡ ³ªÅ¸³ª ÀÖ´ø ÇàµéÀÌ ³»·Á°¡°Ô µÈ´Ù.

 

 

ScrollPriorRow´Â ±× ÇàÀ» highlightÇÏÁö ¾Ê´Â´Ù. SelectRow´Â »ç¿ëÀÚ°¡ ÇöÀçÀÇ ÇàÀÌ ¾îµðÀÎÁö ¾Ë°Ô Çϱâ À§ÇÏ¿© »ç¿ëÇÑ´Ù.

 

 

¡ß Event

 

 

ScrollPriorRow´Â ´ÙÀ½ÀÇ À̺¥Æ®µéÀ» Æ®¸®°ÅÇÒ ¼ö ÀÖ´Ù.

 

 

#ItemChanged

 

 

#ItemError

 

 

#ItemFocusChanged

 

 

#RowFocusChanged

 

 

¡ß ¿¹

 

 

ÀÌÀü row·Î À̵¿ÇÑ´Ù.

 

 

dw_employee.ScrollPriorRow( )

 

 

ScrollToRow PowerScript Function

 

 

¡ß ±â ´É

 

 

ÁöÁ¤µÈ ÇàÀ¸·Î µ¥ÀÌÅÍÀ©µµ¿ìÀÇ È­¸éÀ» À̵¿½ÃŲ´Ù. ÇöÀçÀÇ ÇàÀº º¯°æ µÇÁö¸¸, columnÀº º¯°æµÇÁö ¾Ê´Â´Ù.

 

 

¡ß Àû ¿ë

 

 

DataWindow control ¹× ÀÚ¼Õ DataWindow.

 

 

¡ß ¹® ¹ý

 

 

datawindowname.ScrollToRow ( row )

 

 

datawindowname¿¡´Â ÁöÁ¤µÈ ÇàÀ» ½ºÅ©·ÑÇϱ⸦ À©ÇÏ´Â µ¥ÀÌÅÍ À©µµ¿ì ȤÀº Â÷ÀÏµå µ¥ÀÌÅÍÀ©µµ¿ìÀÇ À̸§À» ±âÀÔÇÑ´Ù. rowÀº longÇüÀÌ´Ù. ½ºÅ©·Ñ ÇϰíÀÚ ÇÏ´Â ¿­ÀÇ °ªÀÌ´Ù. ¸¸¾à 0ÀÌ¸é °¡Àå óÀ½ ÇàÀÌ°í ¸¶Áö¸·º¸´Ù Å©¸é ¸¶Áö¸· ÇàÀ» ½ºÅ©·Ñ ÇØ ÁØ´Ù.

 

 

  ¹Ýȯ°ª

 

 

Integer. ¼º°øÇÑ °æ¿ì 1, ½ÇÆÐÇϸé -1À» ¸®ÅÏÇÑ´Ù.

 

 

  »ç¿ë¹ý

 

 

ScrollToRowÇÔ¼ö¸¦ È£ÃâÇÑ ÈÄ¿¡ ÁöÁ¤µÈ row°¡ ÇöÀç ÇàÀÌ µÈ´Ù. ¸¸ÀÏ ±× ÇàÀ» ÀÌ¹Ì º¸¿©Á³´Ù¸é Ãâ·ÂµÈ ÇàµéÀº º¯°æÇÏÁö ¾Ê´Â´Ù. º¸¿©ÁöÁö ¾Ê¾Ò´Ù¸é µð½ºÇ÷¹ÀÌµÈ rowµéÀº ±× ÇàÀ» Ãâ·ÂÇϱâÀ§ÇØ º¯°æµÉ °ÍÀÌ´Ù.

 

 

ScrollToRowÇÔ¼ö´Â row¸¦ ÇÏÀ̶óÀÌÆ®ÇÏÁö ¾Ê´Â´Ù. ÀÌ¿ëÀÚ¿¡°Ô ÇöÀçÇàÀÌ ¾î¶²°ÍÀÎÁö ¾Ë·ÁÁÖ±âÀ§ÇØ SelectRowÇÔ¼ö¸¦ »ç¿ëÇÑ´Ù.

 

 

  Event

 

 

ScrollToRowÇÔ¼ö´Â ¾Æ·¡ À̺¥Æ®µéÀ» Æ®¸®°ÅÇÑ´Ù.

 

 

ItemChanged

 

 

ItemError

 

 

ItemFocusChanged

 

 

RowFocusChanged

 

 

  ¿¹ Á¦

 

 

dw_employee.ScrollToRow(10)

 

 

ÇöÀç DataWindowControlÀÌ dw_employee°¡ µÇ°í 10ÇàÀ¸·Î À̵¿ÇÑ´Ù.

 

 

SelectRow PowerScript Function

 

 

  ±â ´É

 

 

µ¥ÀÌÅÍÀ©µµ¿ì ÄÁÆ®·Ñ ¾È¿¡¼­ ÇàµéÀÌ ¹ÝÀü µÇ°Å³ª ¹ÝÀü µÇÁö ¾Ê´Â´Ù

 

 

¸ðµçÇàÀ» ¼±ÅÃÇϰųª ÇϳªÀÇ ÇàÀ» ¼±ÅÃÇÒ¼ö ÀÖ´Ù

 

 

SelectRow´Â ÇöÀçÀÇ Çà¿¡ ¿µÇâÀ» ÁÖÁö ¾Ê´Â´Ù

 

 

SelectRow ´Â µ¥ÀÌÅͺ£À̽º¾È¿¡¼­´Â ÇàÀ» ¼±ÅÃÇÏÁö ¾Ê´Â´Ù

 

 

  Àû ¿ë

 

 

µ¥ÀÌÅÍÀ©µµ¿ì ÄÁÆ®·Ñ°ú CHILD µ¥ÀÌÅÍÀ©µµ¿ì°¡ ÀÖ´Ù

 

 

  ¹® ¹ý

 

 

µ¥ÀÌÅÍÀ©µµ¿ì¸í.SelectRow (row,boolean)

 

 

Parameter Description

 

 

------------- ----------------------------------------------

 

 

µ¥ÀÌÅÍÀ©µµ¿ì¸í µ¥ÀÌÅÍÀ©µµ¿ì ÄÁÆ®·Ñ¸íÀ̳ª child µ¥ÀÌÅÍÀ©µµ¿ì´Â

 

 

ÇàÀ» ¼±Åà Çϰųª ¼±ÅÃÇÏÁö ¾ÊÀ»¼ö ÀÖ´Ù

 

 

Çà ÇàÀº longÇüÀÇ ½Äº°ÀÚ¸¦ °¡Áö¸ç ÇàÀ» ¼±Åà Çϰųª

 

 

¼±Åà ÇÏÁö ¾ÊÀ»¼ö ÀÖ´Ù

 

 

0 °ªÀÌ¸é ¼±ÅÃµÈ °ÍÀ» ÀÇ¹Ì ÇÑ´Ù

 

 

boolean boolean°ªÀº ÇàÀ» ¼±ÅÃÇϰųª ¼±ÅÃÇÏÁö ¾ÊÀº °æ¿ì ¿¡ °áÁ¤µÈ´Ù

 

 

True--¼±ÅÃµÈ ÇàÀÎ °æ¿ì

 

 

False--¼±Åà µÇ Áö ¾ÊÀº °æ¿ì

 

 

  ¹Ýȯ°ª

 

 

integer-->¸®ÅϰªÀÌ 1ÀÌ¸é ¼º°ø ¿¡·¯ÀÎ °æ¿ì -1À» ¸®ÅÏÇÑ´Ù

 

 

  ¿¹ Á¦

 

 

dw_employee.SelectRow(15, TRUE)

 

 

//dw_employee¿¡¼­ 15ÇàÀ» ¼±ÅÃ.

 

 

This.SelectRow(0, FALSE)

 

 

This.SelectRow(This.GetClickedRow(), TRUE)

 

 

//¸ðµç Çà¿¡ ´ëÇÑ ¹ÝÀüÀ» ÇØÁ¦Çϰí

 

 

//»ç¿ëÀÚ°¡ Ŭ¸¯ÇÑ ÇàÀ» ¹ÝÀüÇÑ´Ù.

 

 

SetColumn PowerScript Function

 

 

  ±â ´É

 

 

DataWindow control¿¡¼­ ÇöÀçÀÇ ¿­À» ¼³Á¤ÇÑ´Ù.

 

 

  Àû ¿ë

 

 

µ¥ÀÌÅÍÀ©µµ¿ì ÄÜÆ®·Ñ°ú Àڽĵ¥ÀÌŸÀ©µµ¿ì.

 

 

  ¹® ¹ý

 

 

datawindowname.SetColumn(column)

 

 

* datawindowname »ç¿ëÀÚ°¡ ÇöÀç ¿­·Î ÁöÁ¤Çϱ⸦ ¿øÇÏ´Â µ¥ÀÌÅÍÀ©µµ¿ì ÄÜ Æ®·Ñ°ú Àڽĵ¥ÀÌŸÀ©µµ¿ìÀÇ À̸§

 

 

* column »ç¿ëÀÚ°¡ ÇöÀç ¸¸µé±â¸¦ ¿øÇÏ´Â ¿­. ColumnÀº Ä®·³¹øÈ£ ¶Ç´Â Ä®·³¸í.

 

 

  ¹Ýȯ°ª

 

 

Integer. ¼º°ø½Ã 1, ¿¡·¯¹ß»ý½Ã -1À» ¹ÝȯÇÑ´Ù. columnÀÌ 1º¸´Ù À۰ųª columnÀÇ ¼öº¸´Ù Ŭ °æ¿ì´Â SetColumnÀº ½ÇÆÐÇÑ´Ù.

 

 

  »ç¿ë¹ý

 

 

SetColumnÀº Ä¿¼­¸¦ ÇöÀçÀÇ ¿­·Î ¿òÁ÷ÀÌÁö¸¸ µ¥ÀÌÅÍÀ©µµ¿ìÄÜÆ®·ÑÀ» ½ºÅ©·ÑÇÏÁö´Â ¾Ê´Â´Ù. ´ÜÁö ÆíÁýÇÒ¼ö ÀÖ´Â columnÀ» ÇöÀçÀÇ columnÀ¸·Î ÁöÁ¤ÇÒ ¼ö ÀÖ´Ù.

 

 

  Event

 

 

SetColumnÀº ´ÙÀ½ÀÇ À̺¥Æ®µéÀ» trigger ÇÒ ¼ö ÀÖ´Ù.

 

 

*ItemChanged

 

 

*ItemError

 

 

*ItemFocusChanged

 

 

¹«ÇÑ·çÇÁ¸¦ ÇÇÇϱâÀ§Çؼ­´Â ItemChanged, ItemError, ¶Ç´Â ItemFocusChanged À̺¥Æ®¿¡¼­ SetColumnÀ» È£ÃâÇÏÁö ¾Ê¾Æ¾ß ÇÑ´Ù. ¿Ö³ÄÇϸé SetColumnÀº ÀÌ·¯ÇÑ À̺¥Æ®µéÀ» triggerÇÒ ¼ö Àֱ⠶§¹®ÀÌ¸ç ±×·¯ÇÑ È¸±ÍÀûÀÎ ¿ä±¸´Â stack fault¸¦ ¹ß»ý½Ãų ¼ö ÀÖ´Ù.

 

 

  ¿¹ Á¦

 

 

- dw_employee¿¡¼­ 15¹øÂ° ¿­À» ÇöÀç ¿­·Î ¼³Á¤ÇÑ´Ù.

 

 

dw_employee.SetColumn(15)

 

 

SetFocus PowerScript Function

 

 

¡ß ±â ´É

 

 

ÁöÁ¤µÈ object³ª control¿¡ focus¸¦ ¼³Á¤ÇÑ´Ù.

 

 

¡ß Àû ¿ë

 

 

¸ðµç object

 

 

¡ß ¹® ¹ý

 

 

objectname.SetFocus()

 

 

Parameter Description

 

 

objectname focus¸¦ ¸ÂÃß°í ½ÍÀº object À̸§À̳ª control

 

 

  ¹Ýȯ°ª

 

 

integer. ¼º°øÇϸé 1. ½ÇÆÐÇϸé -1À» ¸®ÅÏÇÑ´Ù.

 

 

  »ç¿ë¹ý

 

 

objectÀ̸§ÀÌ ListBoxÀ̸é, SetFocus´Â óÀ½ item ÁÖÀ§ÀÇ focus »ç°¢ÇüÀ» º¸¿©ÁØ´Ù. objectÀ̸§ÀÌ DropDownListBoxÀ̸é SetFocus´Â edit box¸¦ ¹ÝÀü½ÃŲ´Ù. ListBox ³ª DropDownListBox ¾ÈÀÇ itemÀ» ¼±ÅÃÇÒ ¶§ SelectItemÀ» ÀÌ¿ëÇÑ´Ù.

 

 

±×¸®±â object´Â focus¸¦ °¡Áú ¼ö ¾ø´Ù. µû¶ó¼­, ¼±,Ÿ¿ø,Á÷»ç°¢Çü,¿øÇü»ç°¢ÇüÀÇ SetFocus¸¦ focus¸¦ ¸ÂÃâ¼ö ¾ø´Ù.

 

 

  ¿¹ Á¦

 

 

lb_Actions.SetFocus()

 

 

// lb_Actions ÀÇ Ã¹item¿¡ focus¸¦ ¿Å±ä´Ù.

 

 

SetItem PowerScript Function

 

 

  ±â ´É

 

 

Datawindow control¿¡ ÁöÁ¤µÈ °ªÀ¸·Î Çà°ú ¿­À» ¼³Á¤ÇÑ´Ù.

 

 

  Àû ¿ë

 

 

µ¥ÀÌÅÍÀ©µµ¿ì ÄÁÆ®·Ñ°ú CHILD µ¥ÀÌÅÍÀ©µµ¿ì°¡ ÀÖ´Ù

 

 

  ¹® ¹ý

 

 

µ¥ÀÌÅÍÀ©µµ¿ì¸í.SetItem(row,column,value)

 

 

Parameter Description

 

 

------------- --------------------------------------------------

 

 

µ¥ÀÌÅÍÀ©µµ¿ì¸í µ¥ÀÌÅÍÀ©µµ¿ì ÄÁÆ®·Ñ¸íÀ̳ª child µ¥ÀÌÅÍÀ©µµ¿ì´Â

 

 

Ưº°ÇÑ Çà°ú Ä®·³ÀÇ °ªÀ» ÁöÁ¤ ÇÑ´Ù

 

 

Çà ÇàÀº longÇüÀÇ ½Äº°ÀÚ¸¦ °¡Áø´Ù

 

 

Ä®·³ Ä®·³Àº Ä®·³ ¹øÈ£¸¦ Á¤¼ö ¶Ç´Â Ä®·³¸íÀ» stringÀ¸ ·Î °¡Áø´Ù

 

 

value Ä®·³À§Ä¡³ª Çà¿¡¼­ µ¥ÀÌÅ͸¦ ÁöÁ¤ ÇÒ¼ö ÀÖ´Ù

 

 

  ¹Ýȯ°ª

 

 

integer-->¸®ÅϰªÀÌ 1ÀÌ¸é ¼º°ø ¿¡·¯ÀÎ °æ¿ì -1À» ¸®ÅÏÇÑ´Ù

 

 

  »ç¿ë¹ý

 

 

SetItem ¿¡¼­ ÁöÁ¤ÇÑ °ªÀº µ¥ÀÌÅÍÀ©µµ¿ì ¹öÆÛ¿¡ °¡Áö°í ÀÖ´Ù

 

 

ÇöÀçÀÇ Çà°ú Ä®·³ À§¿¡ ÆíÁý ÄÜÆ®·ÑÀº ±×°ªÀÌ À¯È¿È­µÇ°í ¹Þ¾Æµé¿©Áú¶§±î

 

 

Áö µ¥ÀÌÅÍÀ©µµ¿ì ¾ÆÀÌÅÛÀÇ °ªÀÌ µÇÁö¾Ê´Â´Ù

 

 

½ºÅ©¸³Æ®¿¡¼­, SetTextÇÔ¼ö¸¦ °¡Áö°í ÆíÁýÁ¦¾î»óÅ¿¡ ÀÖ´Â °ªÀ» º¯°æÇÒ

 

 

¼ö ÀÖ´Ù.

 

 

¼Ò½º·Î½á ½ºÅ©¸³Æ®¸¦ °®´Â µ¥ÀÌÅÍÀ©µµ¿ì ÄÜÆ®·Ñ¿¡¼­ ¾ÆÀÌÅÛÀÇ °ªÀ»

 

 

¼¼Æ®ÇϰíÀÚ ÇÒ¶§ SetItemÀ» »ç¿ëÇÒ ¼ö ÀÖ´Ù.

 

 

  ¿¹ Á¦

 

 

dw_order.SetItem(3, "hire_date", 1993-06-07)

 

 

//dw_order µ¥ÀÌÅÍÄÜÆ®·ÑÀÇ hire_dateÄ®·³ 3Çà¿¡ 1993-06-07À» ¼¼Æ®ÇÑ´Ù.

 

 

integer null_num //³Î°ªÀ» Æ÷ÇÔÇϱâÀ§ÇØ.

 

 

integer col_no

 

 

SetNull(null_num)

 

 

col_no = This.GetColumn()

 

 

If col_no = 2 THEN //Ä®·³ 2¿¡ ´ëÇÑ Æ¯º°ÇÑ Ã³¸®

 

 

If This.GetText() = "" THEN

 

 

This.SetItem(This.GetRow(), col_no, null_num)

 

 

This.SetActionCode(2)

 

 

Return

 

 

END IF

 

 

END IF

 

 

// À§ ¿¹Á¦´Â Ä®·³2ÀÇ µ¥ÀÌÅÍÇüÀ» numericÀ¸·Î °¡Á¤Çϰí , ±×°ÍÀÌ ³¯Â¥,

 

 

// ½Ã°£, ¶Ç´Â ³¯Â¥½Ã°£À̶ó¸é ÀûÀýÇÑ µ¥ÀÌÅÍÇüÀ» °¡Áö°í ù¹øÂ° ¶óÀÎ

 

 

// (integer null_num)À» ±³Ã¼ÇÑ´Ù.

 

 

string s, snum, c

 

 

integer cmt

 

 

For cmt =1 to Len(s) //»ç¿ëÀÚ µ¥ÀÌÅͷκÎÅÍ ¼ýÀÚ¸¦ ÃßÃâ.

 

 

c = Mid(s, cmt, 1)

 

 

If IsNumber(c) THEN snum = snum + c

 

 

NEXT

 

 

This.SetItem(This.GetRow(), This.GetColumn(), Long(snum))

 

 

This.SetActionCode(3)

 

 

// À§ ¿¹Á¦´Â µ¥ÀÌÅÍÀ©µµ¿ìÀÇ ¾ÆÀÌÅÛ¿¡·¯ À̺¥Æ®¿¡ ´ëÇÑ ½ºÅ©¸³Æ® ÀÌ´Ù.

 

 

// Action code 3Àº ½ºÅ©¸³Æ®°¡ À¯È¿ÇÑ °ªÀ» Á¦°øÇØ ¿Ô±â ¶§¹®¿¡ ÆíÁýÁ¦

 

 

// ¾î»óÅ¿¡ ÀÖ´Â µ¥ÀÌŸ¸¦ °ÅÀýÇÒ Áöµµ ¸ð¸¥´Ù.

 

 

SetNull PowerScript Function

 

 

¡ß ±â ´É

 

 

ÁÖ¾îÁø º¯¼ö¸¦ Data Type¿¡ »ó°ü¾øÀÌ NULL·Î ¸¸µç´Ù.

 

 

¡ß ¹® ¹ý

 

 

SetNull ( anyvariable )

 

 

Parameter Description

 

 

---------- -----------------------------------------------

 

 

anyvariable »ç¿ëÀÚ°¡ null·Î setting ÇÏ·Á´Â º¯¼ö

 

 

  ¹Ýȯ°ª

 

 

Integer, ¼º°øÇϸé 1À» Return ÇÏ°í ½ÇÆÐÇϸé -1¸¦ ReturnÇÑ´Ù.

 

 

  »ç¿ë¹ý

 

 

Database¸¦ ÀÛ¼ºÇϱâ Àü¿¡ SetNullÇÔ¼ö¸¦ ½á¼­ Nullº¯¼ö¸¦ ÁöÁ¤ÇÏ´Â µ¥ »ç¿ëÇÑ´Ù.

 

 

PowerBuilder´Â º¯¼ö¸¦ Null·Î ÃʱâÈ­Çϱ⠾ʴ´Ù. ¸¸¾à º¯¼ö¸¦ ¼±¾ðÇÏ°í Æ¯Á¤°ªµéÀ» ÁöÁ¤ÇØ ÁÖÁö ¾ÊÀ¸¸é default°ªÀ¸·Î ÃʱâÈ­µÇ°í NULL°ªÀ¸·Î ÃʱâÈ­ÇÏ·Á¸é

 

 

SetNull ÇÔ¼ö¸¦ »ç¿ëÇÑ´Ù.

 

 

  ¿¹ Á¦

 

 

SetNull( salary ) // salary¸¦ null·Î ÇÑ´Ù.

 

 

SetPointer PowerScript Function

 

 

  ±â´É

 

 

mouse pointerÀÇ ¸ð¾çÀ» ÁöÁ¤ÇÑ´Ù.

 

 

  ¹® ¹ý

 

 

SetPoint ( type )

 

 

Parameter Description

 

 

--------- ---------------------------------------------------

 

 

type ¿øÇÏ´Â Æ÷ÀÎÅ͸¦ ÁöÁ¤ÇÏ´Â ¿­°Å data type Æ÷ÀÎÅÍÀÇ °ª.

 

 

Arrow!

 

 

Cross!

 

 

Beam!

 

 

HourGlass!

 

 

SizeNS!

 

 

SizeNEWS!

 

 

SizeWE!

 

 

SizeNWSE!

 

 

UpArrow!

 

 

  ¹Ýȯ°ª

 

 

Pointer ¿­°ÅµÈ pointerÀÇ typeµéÀ» ¹Ù²Ù°í ÀúÀåÇØ ÁØ´Ù

 

 

  »ç¿ë¹ý

 

 

¿À·£½Ã°£ ½ÇÇàµÇ¸é ½ºÅ©¸³Æ®ÀÇ Ã³À½¿¡ ¸ð·¡½Ã°è°¡ displayµÇµµ·Ï

 

 

Setpointer¸¦ ÀÌ¿ëÇÑ´Ù.

 

 

È­¸éÀ» Á¾·á ¶Ç´Â È­¸éÀ» ¹Ù²Ü¶§±îÁö pointer°¡ ³²¾ÆÀÖµµ·Ï ÇÑ´Ù.. È­¸éÀÇ ½ÇÇàÀ» ¸¶Ä¥¶§ Æ÷ÀÎÅÍ´Â arrow·Î ÀÚµ¿ÀûÀ¸·Î ¹Ù²ï´Ù.

 

 

powerbuilderÀÇ painter´Â window, control, datawindow°´Ã¼ÀÇ Á¤ÀÇµÈ ºÎºÐ ³Ñ¾î ¿òÁ÷À϶§ powerbuilder¿¡ display µÇµµ·Ï pointerÀÇ ¸ð¾çÀ» Á¤ÀÇÇÑ´Ù.

 

 

  ¿¹ Á¦

 

 

SetPointer ( HoutGlass! ) // ¸ð·¡½Ã°è ¸ð¾çÀÇ Æ÷ÀÎÅÍ·Î

 

 

pointer oldpointer // Declares a pointer variable

 

 

oldpointer = SetPointer (HourGlass!)

 

 

...... // performs some long activity

 

 

SetPointer (oldpointer)