Konu: program exe olurken
sorunum şu programı exe haline cevirdiğimde fox penceresi açılıp yok oluyor ve proğram tabiki çalışmıyor. bir döngü oluşturuyor do while.t. döngüsünü kaldırırsamda hemen çıkıyor
*
on key labe f4 cancel
ON KEY LABE F2 BROWSE
ON KEY LABE F3 DO GIRIS.SPR
OLDCAPS=CAPSLOCK()
=CAPSLOCK(.T.)
OLDNUM=numlOck()
=numlOck(.t.)
set date briti
IF USED("setup")
SELECT setup
SET ORDER TO 0
ELSE
SELECT 0
USE (LOCFILE("setup.dbf","DBF","Bu dosya nerede :setup?"));
AGAIN ALIAS setup ;
ORDER 0
ENDIF
*OPEN DATABASE d:\fpw26\zz\ZEK
MODIFY WINDOW SCREEN ;
AT 0.000, 0.000 ;
SIZE 50,150;
TITLE SETUP.AD11 +" HASTA TAKİP PROĞRAMI VER 3.00";
FONT "MS Sans Serif", 8 ;
STYLE "B" ;
CLOSE ;
MINIMIZE ;
FILL FILE LOCFILE("BATHROOM.BMP","BMP|ICO|PCT|ICN", ;
"Bu dosya nerede :bathroom?")
zoom WINDOW SCREEN max
DO WHILE.T.
IF USED("randevu")
SELECT randevu
ELSE
SELECT 0
USE (LOCFILE("randevu.dbf","DBF","Bu dosya nerede :randevu?"));
AGAIN ALIAS randevu ;
ORDER TAG "no"
ENDIF
IF USED("hasta")
SELECT hasta
ELSE
SELECT 0
USE (LOCFILE("hasta.dbf","DBF","Bu dosya nerede :hasta?"));
AGAIN ALIAS hasta ;
ORDER TAG "NO"
ENDIFIF USED("irklar")
SELECT irklar
ELSE
SELECT 0
USE (LOCFILE("irklar.dbf","DBF","Bu dosya nerede :irklar?"));
AGAIN ALIAS irklar;
ORDER TAG "ADI"
ENDIFIF USED("asilama")
SELECT asilama
ELSE
SELECT 0
USE (LOCFILE("asilama.dbf","DBF","Bu dosya nerede :asilama?"));
AGAIN ALIAS asilama;
ORDER TAG "ATAR" INDEX ASILAMA
ENDIF
IF USED("asilar")
SELECT asilarELSE
SELECT 0
USE (LOCFILE("asilar.dbf","DBF","Bu dosya nerede :asilar?"));
AGAIN ALIAS asilar ;
ORDER TAG "ASI"
ENDIF
IF USED("HASTALIK")
SELECT HASTALIKELSE
SELECT 0
USE (LOCFILE("HASTALIK.dbf","DBF","Bu dosya nerede :HASTALIK?"));
AGAIN ALIAS HASTALIK ;
ORDER TAG "NO"
ENDIF
IF USED("CINSLER")
SELECT CINSLERELSE
SELECT 0
USE (LOCFILE("CINSLER.dbf","DBF","Bu dosya nerede :CINSLER?"));
AGAIN ALIAS CINSLER
ENDIF
DO form form1
=capslock(oldcaps)
=numlock(oldnum)
close all
clea all
clea
quit
ENDD