MyPage is a personalized page based on your interests.The page is customized to help you to find content that matters you the most.


I'm not curious

Dynamic Datawindow Creation in Powerbuilder

Published on 26 August 16
1325
0
3
Dynamic Datawindow creation
************************************************
// Composite Style is not supported in it
// You need to create a datawindow dw_all_pws with with out dataobject
// Default --> dw_syntax_str = SQLCA.SyntaxFromSql(ls_sql_stm, "style(type=grid)", errors)

string ls_select
string ls_where
string ls_dwsyntax
string ls_err,ls_presentation


ls_select = "select s_no,password_type from passwords"

ls_presentation=&
"style( type=Grid &
Horizontal_spread = 25 &
Header_bottom_margin = 15 &
Header_top_margin = 15 ) &
datawindow( units=2 &
Color= 67108864) &
column( Font.Face='system' &
Font.Height=-10 &
Font.Weight=700) &
text( Font.Face='system' &
Font.Height=-10 &
Font.Weight=700 &
Border=6)"

ls_dwsyntax = SQLCA.SyntaxFromSQL ( ls_select, ls_presentation, ls_err )
dw_all_pws.Create ( ls_dwsyntax, ls_err ) --> Returns 1 if it is success
IF ls_err <> '' THEN
MessageBox ( "error - Syntax", ls_err )
ELSE
dw_all_pws.SetTransObject ( SQLCA )
dw_all_pws.Retrieve()
END IF

// This will be usefull while creating the reports. Users can select the number of the columns that the report need to have
Dynamic Datawindow creation

************************************************

// Composite Style is not supported in it

// You need to create a datawindow dw_all_pws with with out dataobject

// Default --> dw_syntax_str = SQLCA.SyntaxFromSql(ls_sql_stm, "style(type=grid)", errors)

string ls_select

string ls_where

string ls_dwsyntax

string ls_err,ls_presentation

ls_select = "select s_no,password_type from passwords"

ls_presentation=&

"style( type=Grid &

Horizontal_spread = 25 &

Header_bottom_margin = 15 &

Header_top_margin = 15 ) &

datawindow( units=2 &

Color= 67108864) &

column( Font.Face='system' &

Font.Height=-10 &

Font.Weight=700) &

text( Font.Face='system' &

Font.Height=-10 &

Font.Weight=700 &

Border=6)"

ls_dwsyntax = SQLCA.SyntaxFromSQL ( ls_select, ls_presentation, ls_err )

dw_all_pws.Create ( ls_dwsyntax, ls_err ) --> Returns 1 if it is success

IF ls_err '' THEN

MessageBox ( "error - Syntax", ls_err )

ELSE

dw_all_pws.SetTransObject ( SQLCA )

dw_all_pws.Retrieve()

END IF

// This will be usefull while creating the reports. Users can select the number of the columns that the report need to have

This blog is listed under Development & Implementations and Data & Information Management Community

Post a Comment

Please notify me the replies via email.

Important:
  • We hope the conversations that take place on MyTechLogy.com will be constructive and thought-provoking.
  • To ensure the quality of the discussion, our moderators may review/edit the comments for clarity and relevance.
  • Comments that are promotional, mean-spirited, or off-topic may be deleted per the moderators' judgment.
You may also be interested in
 
Awards & Accolades for MyTechLogy
Winner of
REDHERRING
Top 100 Asia
Finalist at SiTF Awards 2014 under the category Best Social & Community Product
Finalist at HR Vendor of the Year 2015 Awards under the category Best Learning Management System
Finalist at HR Vendor of the Year 2015 Awards under the category Best Talent Management Software
Hidden Image Url

Back to Top