농부지기

String ls_folder = "c:\edu"
Double ldo_folder_size
Long ll_result

OLEObject FSO, FSO2

FSO = CREATE OLEObject

SetPointer(Hourglass!)

ll_result = FSO.ConnectToNewObject("Scripting.FileSystemObject")

IF ll_result <> 0 THEN
 messagebox('error',ll_result)
 DESTROY FSO
 SetPointer(Arrow!)
 return
END IF

IF FSO.FolderExists(ls_folder) THEN
 FSO2 = FSO.GetFolder(ls_folder)
 ldo_folder_size = FSO2.Size
 MessageBox('', ldo_folder_size)
Else
 DESTROY FSO
 return
End if

DESTROY FSO2

SetPointer(Arrow!)

// blob gf_FileRead(string as_file)

Blob  ib_file, b
integer i_fn
Long  l, l_loop
Long  l_fLen

l_fLen = FileLength(as_File)

IF l_fLen > 32765 THEN
 IF Mod(l_fLen, 32765) = 0 THEN
  l_loop = l_fLen / 32765
 ELSE
  l_loop = l_fLen / 32765 + 1
 END IF
ELSE
 l_loop = 1
END IF

i_fn   = FileOpen(as_File, StreamMode!, Read!)
FOR l = 1 to l_loop
 FileRead(i_fn, b)
 ib_file = ib_file + b
NEXT

FileClose(i_fn)

return ib_file

☞  

☞   

컨트롤버튼 동적생성 http://cafe.naver.com/pentaeduclub/5392 답변글 참고....

open 이밴트에 기술... (버튼일때는 this. 대신 parent로 하심 됩니다.)

This.setredraw(false)

CommandButton cb_7

cb_7 = CREATE CommandButton
// cb_7 = create using 'cb_6'
this.OpenUserObject(cb_7, 1842 + 100, 436 + 100) 

cb_7.resize( 500, 100 )
cb_7.visible = true
This.setredraw( True)

오브젝트 생성  http://cafe.naver.com/pentaeduclub/2876

데이타원도우/데이타스토어 동적생성  http://cafe.naver.com/pentaeduclub/5389  

질문과 답년글을 참고하시면 좋은 내용입니다. 답글에 링크도 같이 참고하시기 바랍니다..

원도우 형변환과 관련  http://cafe.naver.com/pentaeduclub/4962 ,  http://cafe.naver.com/pentaeduclub/4979

PBDN 에서 찾은건데.. ㅠ.ㅠ

blob 형식의 파일을 Picturecontrol 에 setpicture로 뿌린뒤..

초기화 방법 찾으시는 분있으실까봐..

Setnull(blob 변수)

p_1.setpicture(blob 변수)

이렇게 해봤지만.. 안되더군요...

그런데..

p_1.PictureName = Space(1)

☞   

MLE에서 현재의 행위치와 컬럼의 위치를 계산 해보겠습니다.

/*  현재의 행과 컬럼의 위치 계산 */
il_Line = SelectedLine()
il_Column = of_getlinecolumn( il_Line )
is_line   = String(il_Line,'0000')
is_column = String(il_Column,'0000')

/* of_getlinecolumn ( ai_line )
 현재 행에서 위치한 컬럼의 위치
*/
Long    l_Len, l_cnt, l_loop
integer i_column, i
string  ls_line[]
l_Len = of_stringarray( ls_line )
l_loop = ai_line - 1
for i = 1 to l_loop
 l_cnt += Len( ls_line[i] )
next
i_column = Position() - l_cnt - ai_line - ai_line + 2
return i_column

/* integer of_stringarray ( ref String as_line[] )
 Line을 Line별 배열로 만든다.
 반환값은 라인의 갯수
*/

Integer li_pos, i
String   ls_text, ls_char
ls_char = '~r~n'
ls_text = Text + ls_char
li_pos  = Pos(ls_text, ls_char)
i = 0
do while li_pos > 0
 i ++
 as_line[i] = Left(ls_text, li_pos - 1)
 ls_text = mid(ls_text, li_pos + Len(ls_char) )
 li_pos  = Pos(ls_text, ls_char)
Loop

Return UpperBound(as_line)

☞   

☞   

오브젝트 하나 만들어 달라고 해서 만들면서 만든 함수 하나 소개 할까 합니다.

DW를 그리지 않고 DS 와 ListView를 이용하여 SQL Select 를 실행하고 결과를 보여주기 입니다.

필요없다고 생각하지 마시고 파빌을 이렇게도 사용가능하구나 하고 너그럽게...

///--------------------------------------------------------------------------------------

// long of_autolistview( listview alv_list, string as_SQL, transaction atrans )

// 반환값 : 행 갯수

// 전달값 1 : 보여질 ListView

// 전달값 2 : SQL 스크립트

// 전달값 3 : 트렌젝션
DataStore lds
Long      row, rowcnt, lpos
String    ls_tmp, ls_SQL, ls_column[], ls_DWsyntax, ls_ColType
Integer   i, li_Item
Any       la_data[]

as_sql = Upper( as_sql )
// Select 문인지 검사한다.
lpos = Pos(as_sql,'SELECT')
ls_SQL = Trim( Upper(Mid(as_sql, lpos, Len('SELECT') )) )
if ls_SQL <> Upper('SELECT') then Return 0
// 컬럼의 갯수를 파악한다.
lpos   = Pos(as_sql,'SELECT')
ls_SQL = Upper(Mid(as_sql, lpos + Len('SELECT') ))
ls_SQL = Left(ls_SQL, Pos(ls_SQL, 'FROM') - 1 )
ls_SQL = Trim(ls_SQL) + ','
lpos = Pos(ls_SQL, ',')
i = 0
Do While lpos > 0
 ls_tmp = ''
 ls_tmp = Left( ls_SQL, lpos - 1 )
 ls_SQL = Mid( ls_SQL, lpos + 1 )
 if Not ( Trim(ls_tmp) = '' or IsNull(ls_tmp) ) then
  i ++
  ls_column[i] = ls_tmp
 end if
 lpos = Pos(ls_SQL, ',')
Loop
// ListView를 컬럼 형식으로 조정한다.
alv_list.View = listviewreport! // List형식으로
alv_list.SortType = UnSorted!   // 정렬하지 않음
alv_list.ButtonHeader = true    // 제목을 버튼으로
alv_list.Hideselection = false  // 선택 사용
alv_list.FullRowSelect = true   // 행선택 사용
alv_list.FaceName = '굴림'
alv_list.TextSize = 12
// 파악한 컬럼을 가지고 ListView 컬럼을 만들과 변수를 초기화 한다.
For i = 1 to UpperBound(ls_column)
 alv_list.AddColumn(ls_column[i], Left! , 800)
 la_data[i] = ''
Next
// 자료를 조회 한다.
lds = Create DataStore
ls_SQL = as_sql
ls_DWsyntax = atrans.SyntaxFromSQL(ls_SQL, "style(type=grid)", ls_SQL)
lds.Create ( ls_DWsyntax )
lds.SetTransObject( atrans )
rowcnt = lds.Retrieve()

// 조회된 값을 넣는다.

alv_list.SetRedraw(false)

alv_list.DeleteItems()
for row = 1 to rowcnt

 for i = 1 to UpperBound(ls_column)
  // Column Type 에 따른 값읽기
  ls_ColType = Lower ( ls_column[i]+'.ColType' )
  ls_ColType = lds.describe(ls_ColType)
  if Pos(ls_ColType,'(') > 0 then
   ls_ColType = Left(ls_ColType, Pos(ls_ColType,'(') - 1)
  end if
  choose case ls_ColType
   case 'decimal' ;la_data[i] = lds.GetItemDecimal (row,i)
   case 'char'  ;la_data[i] = lds.GetItemString  (row,i)
   case 'date'  ;la_data[i] = lds.GetItemDate    (row,i)
   case 'time'  ;la_data[i] = lds.GetItemTime    (row,i)
   case 'datetime';la_data[i] = lds.GetItemDateTime(row,i)
   case else  ;la_data[i] = lds.GetItemNumber  (row,i)  //'number', 'long', 'real'
  end choose
  if i = 1 then
   // 첫컬럼이면 행추가
   li_Item = alv_list.AddItem(String(la_data[i]), 1)
  else
   alv_list.SetItem(li_Item, i, String(la_data[i]))
  end if
 Next
next

alv_list.SetRedraw(true)
DESTROY lds

return rowcnt