RAS Client menggunakan Visual Foxpro

Jika kita ingin membuat sistem RAS (Dial-Up) Client pada Ms Windows, yang biasanya menyatu pada aplikasi yang kita buat, dibawah ini langkah-langkah untuk membuat sistem tersebut yang telah saya coba menggunakan Visual Foxpro 9.0.

1. Download rasdial.ocx (versi free) di website http://www.coolstf.com/
2. Tambahkan .ocx tersebut kedalam daftar ActiveX Control pada Visual Foxpro dengan cara :
   • Pilih menu Tools – Options
   • Pilih tab Controls dan pilih options ActiveX controls dan klik button Add
   • Browse file rasdial.ocx
   • Setelah Rasdial Control muncul pada selected ActiveX controls, klik button Set As Default
3. Buat form pada Visual Foxpro dengan desain sebagai berikut :



4. Tambahkan object Rasdial Control pada form anda sehingga secara default akan ada object dengan nama Olecontrol1
5. Pada object command button Dial, berikan perintah berikut :

xtelp=ALLTRIM(thisform.txt_notelp.Value) xusername=ALLTRIM(thisform.txt_username.Value) xpass=ALLTRIM(thisform.txt_password.Value) thisform.olecontrol1.PhoneNumber=xtelp thisform.olecontrol1.UserName=xusername thisform.olecontrol1.Password=xpass thisform.olecontrol1.dial

6. Form sudah siap digunakan sebagai RAS Client

Generate SQL Script MySQL menggunakan Visual Foxpro

SQL Script pada MySQL biasanya berguna untuk mem-backup tabel maupun database MySQL sehingga bagi pengembang aplikasi akan sangat dibutuhkan. Berikut ini adalah kode program Visual Foxpro yang dapat men-generate script sql untuk MySQL :

DBname=”" && nama database

Server=”" && alias / IP server

Username=”" && user mysql

Passwd=”" && password user

DSN=”DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE=”;
+DBname+”;SERVER=”+Server+”;UID=”+Username+;
“;PASSWORD=”+Passwd+”;PORT=;OPTION=2056;STMT=;”

PUBLIC koneksi, xstatuser && variabel koneksi
koneksi=SQLSTRINGCONNECT(DSN)

SQLEXEC(koneksi, “show tables”, “crtables”)
nm=”tables_in_”+ALLTRIM(db)

txtsql=”"
DO WHILE NOT EOF()

xtabel=ALLTRIM(crtables.&nm)

xteks=”DROP TABLE IF EXISTS &xtabel”+”;”+CHR(13)+CHR(13)

**** buat script create table

SQLEXEC(koneksi, “show create table &xtabel”,”crtb”)

xteks=xteks+ALLTRIM(crtb.create_table)+”;”+CHR(13)+CHR(13)

txtsql=txtsql+xteks

**** Ambil rincian field (row)

SQLEXEC(koneksi, “describe &xtabel”,”crdesc”)

n=0

DO WHILE NOT EOF()

n=n+1

xfield=ALLTRIM(crdesc.field)

vfld(n)=xfield

SELECT crdesc

SKIP 1

ENDDO

**** Buat Script INSERT

SQLEXEC(koneksi, “select * from &xtabel”, “crb”)

SELECT crb
DO WHILE NOT EOF()

txt=”INSERT INTO “+xtabel+” VALUES (“

FOR w=1 TO n

IF alltype(crb.&vfld(w))=’N’

txt=txt+ALLTRIM(STR(crb.&vfld(w)))+”, “
ENDIF
IF alltype(crb.&vfld(w))=’C’

txt=txt+’”‘+ALLTRIM(crb.&vfld(w))+’”‘+”, “
ENDIF
IF alltype(crb.&vfld(w))=’D’

xtglnya=ALLTRIM(DTOC(crb.&vfld(w)))

IF ISNULL(xtglnya)

xtglnya=”
ELSE

xtglnya=RIGHT(xtglnya,4)+”-”+SUBSTR(xtglnya,4,2)+”-”+LEFT(xtglnya,2)
ENDIF
txt=txt+’”‘+xtglnya+’”‘+”, “

ENDIF
NEXT w

txt=ALLTRIM(txt)
txt=SUBSTR(txt, 1, LEN(txt)-1)
txt=txt+”);”+CHR(13)

txtsql=txtsql+txt
SELECT crb
SKIP 1

ENDDO

SELECT crtables
SKIP 1

ENDDO

sqlscript=txtsql && hasil script