StoryErpStoryErp

- 창 전환

1. 파워빌더 실행 후 모든 창을 닫은 상태입니다.

2. Shift + F10(기본지정 단축키죠..외워두시면 좋죠)을 누르시면 라이브러리 페인트 창이 나타납니다.

3. Shift + F7(기본지정 단축키)를 누르시면 데이터베이스 페인트 창이 나타납니다.

4. 창이 2개 열린 상태에서 상단메뉴의 Tools => Keyboard shortcuts...를 선택합니다.

　그럼 다음과 창이 나타납니다. 거기에서 Window를 선택하여서 트리를 확장하면

　Window 1 ~ Window 9가 보이실겁니다. 선택하셔서 아래의 Press keys for shortcut를 선택하셔서

　원하시는 단축키를 지정하십니다. 저같은 경우 Alt + 1 ~ Alt + 9로 지정을 하였습니다...

　지정을 하시고 Alt + 1과 Alt + 2를 눌러보세요...(저와 같이 지정했다는 가정하에...+_+)

　Alt + 1를 누르면 라이브러리 페인트로 이동하실거고 Alt + 2를 누르시면 데이터베이스 페인터로 이동할겁니다.

  여기서 윈도우든 데이터 윈도우든 간에 창을 한개 여시면 그 창은 Alt + 3을 누르면 이동이 됩니다.

　※ 오픈된 창을 확인하시고 싶으시면 상단메뉴의 Window를 가보시면 됩니다.(보면 알아요^^)

- Layout / Script / Event / Function / Declare 간의 이동

File>new 해서 나오는 팝업창에서

다음과 같은 Syntax를 볼 수 있습니다.

여기까지는 이제 아시는 분은 다 아시죠?

 

그럼.. 저기에 있는 목록을 가져오고 싶을 땐, 어떻게 해야 할까요?

출력해서 붙여놓고 쓰고 싶은 분도 계실 거니까요...

 

해답은 저 리스트중에 있습니다.

 

바로 Attributes 라는 것입니다.

 

데이터윈도우에 대한 걸 얻고 싶으면...

dw_1.Describe("DataWindow.Attributes") 하면,

 

위의 화면 목록들이 탭으로 구분되어서 리턴됩니다.  

 

이전 글에 GetHost는 이전 버전용이라 사용할 수 없는 줄 알았는데, 사용이 가능하며

10.5버전에서도 GetHost()를 통해 새로 생긴 Byte타입으로  연산하면 도메인명을 통한 IP추출이 가능합니다.

External Funtion 선언

function int WSAStartup (uint UIVerionrequested, ref str_wsadata lpWSAdata) library "wsock32.DLL" alias for "WSAStartup;ansi"
function int WSACleanup() library "wsock32.DLL"
function int WSAGetLastError() library "wsock32.DLL"
function int gethostname(ref string name, int namelen) library "wsock32.DLL"  alias for "gethostname;Ansi"
function string GetHost(string lpszhost,ref blob lpszaddress) library "pbws32.dll" alias for "GetHost;Ansi"

구조체 선언

str_wsadata

스크립트

String ls_ip, ls_host, ls_tmp
Blob{10} lb_host
Integer li_version, li_rc
str_wsadata lstr_wsadata
Byte lbt_host[10]

ls_host = Space(128)
li_version = 257
If WSAStartup(li_version, lstr_wsadata) = 0 Then
   If GetHostName(ls_host, Len(ls_host)) < 0 Then
      li_rc = WSAGetLastError()
   Else
 GetHost(ls_host, lb_host) 
 lbt_host[1] = byte(blobmid(lb_host, 1, 1))
 lbt_host[2] = byte(blobmid(lb_host, 2, 1))
 lbt_host[3] = byte(blobmid(lb_host, 3, 1))
 lbt_host[4] = byte(blobmid(lb_host, 4, 1))
 ls_ip = String(lbt_host[1]) + '.' + String(lbt_host[2]) + '.' + String(lbt_host[3]) + '.' + String(lbt_host[4])
      li_rc = 0
   End If
   MessageBox("My IP", ls_ip)
Else
   li_rc = WSAGetLastError()
End If

WSACleanup()

 

메뉴에서 "화면인쇄" 목록만들고

Click Event에 아래와 같이 넣으시면됩니다...

활성화된 윈도우만 A4  1/2 사이즈로 인쇄됩니다.

long Job
Job = PrintOpen( )
boolean bValid
window wSheet
wSheet = w_main.GetFirstSheet()
bValid = IsValid (wSheet)
if bValid then
wSheet.Print(Job, 1000,500, 6000,4500)
end if
PrintClose(Job)

파워빌더에서도 API함수를 이용하면 원하는 모양의 윈도우를 만들수 있습니다. 저도한번 해봤는데, 꽤 신기하네요 ~

1.Gloval External Function에 다음과 같이 선언

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

  Function long CreateEllipticRgn( long lX1, long lY1, long lX2, long lY2 ) Library "gdi32.dll"
  Function long SetWindowRgn( long lHandle, long lRgn, boolean bIsRedraw ) Library "user32.dll"
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
2.윈도우 open script에 작성

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
Long hRgn
hRgn = CreateEllipticRgn( 0, 0, This.Width/5, This.Height /4)
SetWindowRgn( Handle( This ), hRgn, True )
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
※ CreateEllipticRgn() 함수는 타원형 함수입니다.

기존의 딱딱하기만 한 네모 모양의 윈도우 형태를 떠나서 이렇게 시도해보는것도 재미있을 것 같네요.

디자인만 잘 한다면 괜찮은 걸 만들수도 있을 것 같아요. 예를 들면 아래 그림처럼...(하얀바탕이 네모라면.. 저런식으로 타원생성)

가끔 작업을 하다 보면 불가피(?)하게 2개의 디비에 접속을 해야할 경우가 생깁니다.

특히 sms 보내기 등 할때 말이죠.. ㅠㅠ

파빌 9.0 + ms sql2000 기준입니다.. 다른 디비는 접속 스크립트를 변경하시면..되겠죠..

배포시에는.. 해당 디비의 접속 dll 이 들어가야 한답니다..--;;

//글로벌 변수

TRANSACTION SQLCA, SQLCA_sms //사용할 트랜젝션 선언해줍니다..

//어플리케이션 오픈 이벤트

// 1번디비
SQLCA = Create Transaction // 트랜젝션 생성합니다..

SQLCA.DBMS = "MSS Microsoft SQL Server"
SQLCA.Database = "디비명"
SQLCA.LogPass = "페스워드"
SQLCA.ServerName = "서버주소"
SQLCA.LogId = "로그인아뒤"
SQLCA.AutoCommit = False
SQLCA.DBParm = ""

connect using sqlca;

if sqlca.sqlcode <> 0 then
 messagebox('error', sqlca.sqlerrtext)
 return
end if

//sms디비
sqlca_sms  = Create Transaction

sqlca_sms.DBMS = "MSS Microsoft SQL Server"
sqlca_sms.Database = "디비명"
sqlca_sms.LogPass = "페스워드"
sqlca_sms.ServerName = "서버주소"
sqlca_sms.LogId = "로그인아뒤"
sqlca_sms.AutoCommit = False
sqlca_sms.DBParm = ""

connect using sqlca_sms;

if sqlca_sms.sqlcode <> 0 then
 messagebox('error', sqlca_sms.sqlerrtext)
 return
end if

open(w_main) //오픈윈도우..

// 사용할 페이지에서..변수 선언 제외했음..

select count(*) into :변수 from 테이블 using sqlca;  //1번 디비 연결이용

select count(*) into :변수 from 테이블 using sqlca_sms;  //sms 디비 연결 이용..