본문 바로가기

파워빌더

파워빌더 - MS Access DB odbc에 자동으로 등록하기 MS Access db 를 프로그램 실행시 자동으로 odbc에 등록하여 사용하기입니다. 윈도우의 데이터원본(ODBC)에 별도설정 없이 프로그램 실행시 ODBC에 자동으로 등록됩니다. //Global External Functions //윈도우디렉토리 위치 확인용 함수 FUNCTION ulong GetWindowsDirectoryA(ref string wdir, long buf) LIBRARY "kernel32.dll" //스크립트 string ls_job_folder,ls_dbname,ls_dbuid,ls_dbpwd ls_job_folder = "C:\pbex\" // DB 파일이 있는 폴더 ls_dbname = "sample" // DB명 , 확장자 mdb는 빼고 ls_dbuid = "admin" //.. 더보기
파워빌더 - 주민번호체크 // 주민번호 체크 // 주민번호가 맞는지 틀리는지 검사합니다. // function 으로 만들어 사용하시면 되겠습니다. int 함수명(string 주민번호) int value[13], i, h_mod, h_minus, h_last, last_jumin jumin = trim(jumin) // 길이가 반드시 13이어야 함. if len(jumin) 13 then return -1 if not (mid(jumin,7,1)="1" or mid(jumin,7,1)="2") then return -1 last_jumin = dec(Mid(jumin,13,1)) value[1] = dec(Mid(jumin,1,1)) * 2 value[2] = dec(Mid(jumin,2,1)) * 3 value[3] = dec(.. 더보기
파워빌더 - 사업자번호체크 // 사업자번호 체크 // 사업자등록번호가 맞는지 틀리는지 검사합니다. // function 으로 만들어 사용하시면 되겠습니다. boolean 함수명(string ls_epno) int i, sum = 0, li_y, epno_chk, li_epno[10], li_chkvalue[9] = {1,3,7,1,3,7,1,3,5} For i = 1 to 10 li_epno[i] = integer(mid(ls_epno, i, 1)) Next for i = 1 to 9 sum += li_epno[i] * li_chkvalue[i] Next sum = sum + ((li_epno[9] * 5) / 10) li_y = mod(sum, 10) If li_y = 0 Then epno_chk = 0 Else epno_chk.. 더보기
파워빌더 - 팝업메뉴 만들기 // 마우스의 오른쪽 키를 눌러 메뉴를 불러오는 코딩 // rbuttondow event에 작성을 한다. // 메뉴는 미리 만들어 놓아야 합니다.  Menu lm_popup integer li_x, li_y li_x = mdiframe윈도.pointerx() li_y = mdiframe윈도.pointery() //messagebox('위치', '현재의 위치는 X: ' + string(li_x, '#,##0') + ' Y: ' + String(li_y, '#,##0')) lm_popup = Create m_메뉴이름 lm_popup.m_메뉴이름.popmenu(li_x, li_y) destroy lm_tem 더보기
파워빌더 - Directory 존재여부 확인 Function Long SetCurrentDirectoryA (ref String lpPathName ) Library "kernel32" Function Long GetCurrentDirectoryA (ref Long nBufferLength ,ref String lpBuffer ) Library "kernel32" /******************************************************************** Argument : String = 디렉터리명(as_dirname) [ EX : C:\WINDOWS ] Return : Integer = 1 이면 디렉터리존재 0 이면 디렉터리미존재 **********************************************.. 더보기