Fungsi Network

********************************************************************
* Program NETWORK.PRG
* File ini berisikan Fungsi-Fungsi yang dapat dimanfaatkan pada
* Aplikasi Multi User (LAN / Local Area Network.)
* 1996 Armansyah 1416 H
* =-=-=-=-=-=-=-=-
Function Net_Use
* -=-=-=-=-=-=-=-=
* Fungsi in digunakan untuk membuka DataBase secara Exclusive/Shared
* =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
* Dengan Lama, menunggu selama N detik
* -=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Parameters Dbf_Nama, Open_Mode, Detik
Private Lamanya, Pilihan
x= 0
Detik= If(PCount()= 2 , 5, Detik)
Lamanya= If(Detik > 0, .T., .F.)

* Open_Mode= .T. => Exclusive, .F. => Shared
* =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Do While Lamanya
If Open_Mode
Use &Dbf_Nama Exclusive
Else
Use &Dbf_Nama
Endif
If NetErr()
Tone(800, 1)
Tone(600, 1)
Pilih= PopMenu(10, 10, "DataBase tidak berhasil dibuka ! " +;
"Anda ingin mencoba lagi ? ", " Ya ", " Tidak ")
If Pilih= 2
Exit
Endif
Inkey(1)
x= x + 1
If x > Detik
Exit
Endif
Else
Return .T.
Endif
Enddo
Return .F.