Wednesday, September 27, 2007
Tip of the Day #3: Finding Row Size using RRowSize.RBL Plugin
Supported Versions:
. R:BASE 7.6 for Windows
. R:BASE (C/S:I) 7.6 for Windows
. R:BASE Turbo V-8 for Windows
Here's how to find Row Size using RRowSize.RBL Plugin.
You may integrate this technique in your own database/application.
Example 01:
-- Start
IF (CVAL('DATABASE')) <> 'RRBYW14' OR (CVAL('DATABASE')) IS NULL THEN
CONNECT RRBYW14 IDENTIFIED BY NONE
ENDIF
LABEL Start
CLEAR VAR vTableName,vRowSize,vString,vPauseMessage,vYesNo,vCaption,vEndKey
SET VAR vTableName TEXT = NULL
SET VAR vRowSize INTEGER = NULL
SET VAR vString TEXT = NULL
SET VAR vPauseMessage TEXT = NULL
SET VAR vYesNo TEXT = 'No'
SET VAR vCaption TEXT = ' Finding Row Size - Select Table Name'
CLS
CHOOSE vTableName FOR #TABLES +
CHKBOX 1 +
TITLE 'Select a table and then click on [OK] button to continue' +
CAPTION .vCaption LINES 19 FORMATTED +
OPTION LIST_FONT_COLOR MAROON +
|TITLE_FONT_COLOR MAROON +
|TITLE_BACK_COLOR [R234,G234,B234] +
|WINDOW_BACK_COLOR [R234,G234,B234] +
|TITLE_FONT_SIZE 10 +
|TITLE_FONT_NAME VERDANA +
|LIST_BACK_COLOR [R234,G234,B234] +
|BUTTONS_SHOW_GLYPH ON +
|THEMENAME R:BASE Rocks!
IF vTableName = '[Esc]' THEN
GOTO Done
ENDIF
IF vTableName IS NULL THEN
PAUSE 2 USING 'Table NOT Selected!' +
CAPTION .vCaption ICON STOP +
BUTTON 'Click here to select a table ...' +
OPTION BACK_COLOR WHITE +
|MESSAGE_COLOR WHITE +
|MESSAGE_FONT_NAME Verdana +
|MESSAGE_FONT_COLOR RED +
|MESSAGE_FONT_SIZE 10 +
|MESSAGE_FONT_BOLD ON +
|MESSAGE_FONT_ITALIC OFF +
|MESSAGE_FONT_STRIKEOUT OFF +
|BUTTON_COLOR WHITE +
|BUTTON_FONT_COLOR GREEN +
|THEMENAME R:BASE Rocks!
GOTO Start
ENDIF
SET VAR vString = ('vRowSize|TABLE_NAME'&.vTableName)
PLUGIN RRowSize76.RBL &vString
SET VAR vPauseMessage = +
((CHAR(013))+'Table Name:'+(CHAR(009))&.vTableName+(CHAR(013))+ +
'Row Size:'+(CHAR(009))&(CTXT(.vRowSize)))
CLS
PAUSE 2 USING .vPauseMessage +
CAPTION 'Finding Row Size' +
ICON APP +
BUTTON 'Press any key to continue ...' +
OPTION MESSAGE_FONT_NAME VERDANA +
|MESSAGE_FONT_SIZE 10 +
|MESSAGE_FONT_COLOR MAROON +
|MESSAGE_FONT_BOLD OFF +
|BUTTON_COLOR WHITE +
|BUTTON_FONT_COLOR GREEN +
|THEMENAME R:BASE Rocks!
GOTO Start
LABEL Done
CLEAR VAR vTableName,vRowSize,vString,vPauseMessage,vYesNo,vCaption,vEndKey
RETURN
-- End
Enjoy and make sure to have fun!
Very Best R:egards,
Razzak.
P.S.
RRowSize.RBL Plugin will be available in the next update of R:BASE
Plugin Power Pack http://www.rbase.com/products/pluginpowerpack/
