Listing foxpro
Object
Fmahasiswa
procedure
Tampil_data
Thisform.txtnim.value=mahasiswa.nim
Thisform.txtnama.value=mahasiswa.nama
Thisform.txtalamat.value=mahasiswa.alamat
Thisform.txtsex.value=mahasiswa.sex
Thisform.txtjurusan.value=mahasiswa.jurusan
Thisform.txtangkatan.value=mahasiswa.angkatan
Object
Fmahasiswa
procedure
TAMPILAN
Thisform.txtnim.value=mahasiswa.nim
Thisform.txtnama.value=mahasiswa.nama
Thisform.txtalamat.value=mahasiswa.alamat
Thisform.txtsex.value=mahasiswa.sex
Thisform.txtjurusan.value=mahasiswa.jurusan
Object Fmahasiswa
Procedure txthidup
Thisform.txtnim.Enabled= .T.
Thisform.txtnama.Enabled= .T.
Thisform.txtalamat.Enabled= .T.
Thisform.txtsex.Enabled= .T.
Object
Fmahasiswa
procedure click
Txtkosong
Thisform.txtnim.value=””
Thisform.txtnama.value=””
Thisform.txtalamat.value=””
Thisform.txtsex.value=””
Thisform.txtjurusan.value=””
Thisform.txtangkatan.value=””
Object
Fmahasiswa
Procedure
txtmati
Thisform.txtnim.Enabled= .F.
Thisform.txtnama.Enabled= .F.
Thisform.txtalamat.Enabled= .F.
Thisform.txtsex.Enabled= .F.
Thisform.txtjurusan.Enabled= .F.
Thisform.txtangkatan.Enabled= .F.
Thisform.simpan.Enabled= .F.
Thisform.batal.Enabled= .F.
Object Fmahasiswa
Procedure
init
Thisform.txtmati()
Object txtnim
procedure
lostFocus
if
!empty(this.value)
thisform.pangil_jurusan()
select
mahasiswa
set
order to tag nim
seek
vcek
if
found()
Cek=messagebox(“nim”+vcek+” sudah ada dengan nama mahasiswa,”+chr(13);
“”+Alltrim(mahasiswa.nama)+”apakah mau
diedit??”,4+32,”konfirmasi”)
If Cek=6
Thisform.tampilkan()
this.Enable= .F.
thisform.txtnama.setFocus()
else
thisform.batal.click()
endif
endif
endif
object txtnama procedure
gotFocus
if Empty(thisform.txtnim.value)
thisform.txtnim.setfocus()
thisform.txtjurusan.value=” “
endif
object
GRridMahasiswa procedure txthidup
LPARAMETERS
THISFORM.TAMPILKAN()
Object
tambah
procedure click
Thisform.txthidup()
Thisform.txtkosong()
Thisform.txtnim.setFocus()
Thisform.edit.Enabled= .F.
Thisform.batal.Enabled= .T.
Thisform.hapus.Enabled= .F.
Thisform.simpan.Enabled= .T.
This.Enabled= .F.
Object
simpan procedure click
If
empty (thisform.txtnim.value)
Messagebox(“nim
belum diisi.”,0+64,” informasi”)
Thisform.txtnim.setFocus()
Else
If
empty (thisform.txtnama.value)
Messagebox(“nama belum diisi.”,0+64,” informasi”)
Thisform.txtnama.setFocus()
Else
If
empty (thisform.txtalamat.value)
Messagebox(“alamat belum
diisi.”,0+64,” informasi”)
Thisform.txtalamat.setFocus()
Else
If
empty (thisform.txtsex.value)
Messagebox(“jenis_kelamin belum
diisi.”0+64,”informasi”)
Thisform.txtsex.setFocus()
Else
Select mahasiswa
VKODE=Alltrim(thisform.txtnim.value()
Set
order to tag nim
Seek
VKODE
If
found()
Thisform.simpan_data()
Else
Append
Blanck
Thisform.simpan_data()
Endif
Thisform.GRdmahasiswa.Refresh()
Thisform.BATAL.click()
Endif
Endif
Endif
Endif
Object
edit
procedure click
If
empty (thisform.txtnim.value)
Thisform.GRdmahasiswa.colum1.text1.setFocus()
Endif
Thisform.hapus.enabled=
.F.
Thisform.tambah.enabled= .F.
Thisform.simpan.enabled= .T.
This.enabled=
.F.
Thisform.batal.enabled= .F.
Thisform.txthidup.enabled()
Thisform.txtnim.enabled= .F.
Thisform.txtnama.setFocus()
Object
batal procedure click
Thisform.txtkosong()
Thisform.txtmati
()
Thisform.tambah.enable=
.T.
Thisform.simpan.enabled=
.F.
Thisform.Edit.enabled= .F.
Thisform.hapus.enabled=
.F.
This.enabled=
.F.
Object
hapus procedure click
If
empty (thisform.txtnim.value)
Messagebox(“masukan nim yang mau
dihapus.”,0+64,”informasi”)
Thisform.GRdmahasiswa.colum1.text1.setFocus()
Else
Select
mahasiswa
VKODE=Alltrim(thisform.txtnim.value)
Set
order to tag nim
Seek
VKODE
If
found()
Cek=messagebox(“apakah
data”+Alltrim(thisform.txtnama.value)
+”benar
dihapus??”,4+32,”konfirmasi”)
If CEK=6
Set
deleted on
Delete
for mahasiswa.NIM.VKODE
Thisform.GRdmahasiswa.Refresh()
Thisform.txtkosong()
Else
Thisform.txtkosong()
Endif
Endif
Endif
Object keluar procedure
click
Sai=messagebox(“keluar dari form ini??”,4+32,”konfirmasi”)
If sai=6
Thisform.release()
Endif
Object
Fmahasiswa
procedure
Tampil_data
Thisform.txtnim.value=mahasiswa.nim
Thisform.txtnama.value=mahasiswa.nama
Thisform.txtalamat.value=mahasiswa.alamat
Thisform.txtsex.value=mahasiswa.sex
Thisform.txtjurusan.value=mahasiswa.jurusan
Thisform.txtangkatan.value=mahasiswa.angkatan
Object
Fmahasiswa
procedure
TAMPILAN
Thisform.txtnim.value=mahasiswa.nim
Thisform.txtnama.value=mahasiswa.nama
Thisform.txtalamat.value=mahasiswa.alamat
Thisform.txtsex.value=mahasiswa.sex
Thisform.txtjurusan.value=mahasiswa.jurusan
Object Fmahasiswa
Procedure txthidup
Thisform.txtnim.Enabled= .T.
Thisform.txtnama.Enabled= .T.
Thisform.txtalamat.Enabled= .T.
Thisform.txtsex.Enabled= .T.
Object
Fmahasiswa
procedure click
Txtkosong
Thisform.txtnim.value=””
Thisform.txtnama.value=””
Thisform.txtalamat.value=””
Thisform.txtsex.value=””
Thisform.txtjurusan.value=””
Thisform.txtangkatan.value=””
Object
Fmahasiswa
Procedure
txtmati
Thisform.txtnim.Enabled= .F.
Thisform.txtnama.Enabled= .F.
Thisform.txtalamat.Enabled= .F.
Thisform.txtsex.Enabled= .F.
Thisform.txtjurusan.Enabled= .F.
Thisform.txtangkatan.Enabled= .F.
Thisform.simpan.Enabled= .F.
Thisform.batal.Enabled= .F.
Object Fmahasiswa
Procedure
init
Thisform.txtmati()
Object txtnim
procedure
lostFocus
if
!empty(this.value)
thisform.pangil_jurusan()
select
mahasiswa
set
order to tag nim
seek
vcek
if
found()
Cek=messagebox(“nim”+vcek+” sudah ada dengan nama mahasiswa,”+chr(13);
“”+Alltrim(mahasiswa.nama)+”apakah mau
diedit??”,4+32,”konfirmasi”)
If Cek=6
Thisform.tampilkan()
this.Enable= .F.
thisform.txtnama.setFocus()
else
thisform.batal.click()
endif
endif
endif
object txtnama procedure
gotFocus
if Empty(thisform.txtnim.value)
thisform.txtnim.setfocus()
thisform.txtjurusan.value=” “
endif
object
GRridMahasiswa procedure txthidup
LPARAMETERS
THISFORM.TAMPILKAN()
Object
tambah
procedure click
Thisform.txthidup()
Thisform.txtkosong()
Thisform.txtnim.setFocus()
Thisform.edit.Enabled= .F.
Thisform.batal.Enabled= .T.
Thisform.hapus.Enabled= .F.
Thisform.simpan.Enabled= .T.
This.Enabled= .F.
Object
simpan procedure click
If
empty (thisform.txtnim.value)
Messagebox(“nim
belum diisi.”,0+64,” informasi”)
Thisform.txtnim.setFocus()
Else
If
empty (thisform.txtnama.value)
Messagebox(“nama belum diisi.”,0+64,” informasi”)
Thisform.txtnama.setFocus()
Else
If
empty (thisform.txtalamat.value)
Messagebox(“alamat belum
diisi.”,0+64,” informasi”)
Thisform.txtalamat.setFocus()
Else
If
empty (thisform.txtsex.value)
Messagebox(“jenis_kelamin belum
diisi.”0+64,”informasi”)
Thisform.txtsex.setFocus()
Else
Select mahasiswa
VKODE=Alltrim(thisform.txtnim.value()
Set
order to tag nim
Seek
VKODE
If
found()
Thisform.simpan_data()
Else
Append
Blanck
Thisform.simpan_data()
Endif
Thisform.GRdmahasiswa.Refresh()
Thisform.BATAL.click()
Endif
Endif
Endif
Endif
Object
edit
procedure click
If
empty (thisform.txtnim.value)
Thisform.GRdmahasiswa.colum1.text1.setFocus()
Endif
Thisform.hapus.enabled=
.F.
Thisform.tambah.enabled= .F.
Thisform.simpan.enabled= .T.
This.enabled=
.F.
Thisform.batal.enabled= .F.
Thisform.txthidup.enabled()
Thisform.txtnim.enabled= .F.
Thisform.txtnama.setFocus()
Object
batal procedure click
Thisform.txtkosong()
Thisform.txtmati
()
Thisform.tambah.enable=
.T.
Thisform.simpan.enabled=
.F.
Thisform.Edit.enabled= .F.
Thisform.hapus.enabled=
.F.
This.enabled=
.F.
Object
hapus procedure click
If
empty (thisform.txtnim.value)
Messagebox(“masukan nim yang mau
dihapus.”,0+64,”informasi”)
Thisform.GRdmahasiswa.colum1.text1.setFocus()
Else
Select
mahasiswa
VKODE=Alltrim(thisform.txtnim.value)
Set
order to tag nim
Seek
VKODE
If
found()
Cek=messagebox(“apakah
data”+Alltrim(thisform.txtnama.value)
+”benar
dihapus??”,4+32,”konfirmasi”)
If CEK=6
Set
deleted on
Delete
for mahasiswa.NIM.VKODE
Thisform.GRdmahasiswa.Refresh()
Thisform.txtkosong()
Else
Thisform.txtkosong()
Endif
Endif
Endif
Object keluar procedure
click
Sai=messagebox(“keluar dari form ini??”,4+32,”konfirmasi”)
If sai=6
Thisform.release()
Endif
Object
Fmahasiswa
procedure
Tampil_data
Thisform.txtnim.value=mahasiswa.nim
Thisform.txtnama.value=mahasiswa.nama
Thisform.txtalamat.value=mahasiswa.alamat
Thisform.txtsex.value=mahasiswa.sex
Thisform.txtjurusan.value=mahasiswa.jurusan
Thisform.txtangkatan.value=mahasiswa.angkatan
Object
Fmahasiswa
procedure
TAMPILAN
Thisform.txtnim.value=mahasiswa.nim
Thisform.txtnama.value=mahasiswa.nama
Thisform.txtalamat.value=mahasiswa.alamat
Thisform.txtsex.value=mahasiswa.sex
Thisform.txtjurusan.value=mahasiswa.jurusan
Object Fmahasiswa
Procedure txthidup
Thisform.txtnim.Enabled= .T.
Thisform.txtnama.Enabled= .T.
Thisform.txtalamat.Enabled= .T.
Thisform.txtsex.Enabled= .T.
Object
Fmahasiswa
procedure click
Txtkosong
Thisform.txtnim.value=””
Thisform.txtnama.value=””
Thisform.txtalamat.value=””
Thisform.txtsex.value=””
Thisform.txtjurusan.value=””
Thisform.txtangkatan.value=””
Object
Fmahasiswa
Procedure
txtmati
Thisform.txtnim.Enabled= .F.
Thisform.txtnama.Enabled= .F.
Thisform.txtalamat.Enabled= .F.
Thisform.txtsex.Enabled= .F.
Thisform.txtjurusan.Enabled= .F.
Thisform.txtangkatan.Enabled= .F.
Thisform.simpan.Enabled= .F.
Thisform.batal.Enabled= .F.
Object Fmahasiswa
Procedure
init
Thisform.txtmati()
Object txtnim
procedure
lostFocus
if
!empty(this.value)
thisform.pangil_jurusan()
select
mahasiswa
set
order to tag nim
seek
vcek
if
found()
Cek=messagebox(“nim”+vcek+” sudah ada dengan nama mahasiswa,”+chr(13);
“”+Alltrim(mahasiswa.nama)+”apakah mau
diedit??”,4+32,”konfirmasi”)
If Cek=6
Thisform.tampilkan()
this.Enable= .F.
thisform.txtnama.setFocus()
else
thisform.batal.click()
endif
endif
endif
object txtnama procedure
gotFocus
if Empty(thisform.txtnim.value)
thisform.txtnim.setfocus()
thisform.txtjurusan.value=” “
endif
object
GRridMahasiswa procedure txthidup
LPARAMETERS
THISFORM.TAMPILKAN()
Object
tambah
procedure click
Thisform.txthidup()
Thisform.txtkosong()
Thisform.txtnim.setFocus()
Thisform.edit.Enabled= .F.
Thisform.batal.Enabled= .T.
Thisform.hapus.Enabled= .F.
Thisform.simpan.Enabled= .T.
This.Enabled= .F.
Object
simpan procedure click
If
empty (thisform.txtnim.value)
Messagebox(“nim
belum diisi.”,0+64,” informasi”)
Thisform.txtnim.setFocus()
Else
If
empty (thisform.txtnama.value)
Messagebox(“nama belum diisi.”,0+64,” informasi”)
Thisform.txtnama.setFocus()
Else
If
empty (thisform.txtalamat.value)
Messagebox(“alamat belum
diisi.”,0+64,” informasi”)
Thisform.txtalamat.setFocus()
Else
If
empty (thisform.txtsex.value)
Messagebox(“jenis_kelamin belum
diisi.”0+64,”informasi”)
Thisform.txtsex.setFocus()
Else
Select mahasiswa
VKODE=Alltrim(thisform.txtnim.value()
Set
order to tag nim
Seek
VKODE
If
found()
Thisform.simpan_data()
Else
Append
Blanck
Thisform.simpan_data()
Endif
Thisform.GRdmahasiswa.Refresh()
Thisform.BATAL.click()
Endif
Endif
Endif
Endif
Object
edit
procedure click
If
empty (thisform.txtnim.value)
Thisform.GRdmahasiswa.colum1.text1.setFocus()
Endif
Thisform.hapus.enabled=
.F.
Thisform.tambah.enabled= .F.
Thisform.simpan.enabled= .T.
This.enabled=
.F.
Thisform.batal.enabled= .F.
Thisform.txthidup.enabled()
Thisform.txtnim.enabled= .F.
Thisform.txtnama.setFocus()
Object
batal procedure click
Thisform.txtkosong()
Thisform.txtmati
()
Thisform.tambah.enable=
.T.
Thisform.simpan.enabled=
.F.
Thisform.Edit.enabled= .F.
Thisform.hapus.enabled=
.F.
This.enabled=
.F.
Object
hapus procedure click
If
empty (thisform.txtnim.value)
Messagebox(“masukan nim yang mau
dihapus.”,0+64,”informasi”)
Thisform.GRdmahasiswa.colum1.text1.setFocus()
Else
Select
mahasiswa
VKODE=Alltrim(thisform.txtnim.value)
Set
order to tag nim
Seek
VKODE
If
found()
Cek=messagebox(“apakah
data”+Alltrim(thisform.txtnama.value)
+”benar
dihapus??”,4+32,”konfirmasi”)
If CEK=6
Set
deleted on
Delete
for mahasiswa.NIM.VKODE
Thisform.GRdmahasiswa.Refresh()
Thisform.txtkosong()
Else
Thisform.txtkosong()
Endif
Endif
Endif
Object keluar procedure
click
Sai=messagebox(“keluar dari form ini??”,4+32,”konfirmasi”)
If sai=6
Thisform.release()
Endif
Pengertian, Kekurangan, Dan Kelebihan LAN, MAN, dan WAN
Pengertian LAN
Local Area Network biasa disingkat
LAN adalah jaringan komputer yang jaringannya hanya mencakup wilayah kecil;
seperti jaringan komputer kampus, gedung, kantor, dalam rumah, sekolah atau
yang lebih kecil. Saat ini, kebanyakan LAN berbasis pada teknologi IEEE 802.3
Ethernet menggunakan perangkat switch, yang mempunyai kecepatan transfer data
10, 100, atau 1000 Mbit/s. Selain teknologi Ethernet, saat ini teknologi
802.11b (atau biasa disebut Wi-fi) juga sering digunakan untuk membentuk LAN.
Tempat-tempat yang menyediakan koneksi LAN dengan teknologi Wi-fi biasa disebut
hotspot.Pada sebuah LAN, setiap node atau komputer mempunyai daya komputasi
sendiri, berbeda dengan konsep dump terminal. Setiap komputer juga dapat
mengakses sumber daya yang ada di LAN sesuai dengan hak akses yang telah
diatur. Sumber daya tersebut dapat berupa data atau perangkat seperti printer.
Pada LAN, seorang pengguna juga dapat berkomunikasi dengan pengguna yang lain
dengan menggunakan aplikasi yang sesuai.
Berbeda dengan Jaringan Area Luas
atau Wide Area Network (WAN), maka LAN mempunyai karakteristik sebagai berikut
:
1. Mempunyai pesat data yang lebih tinggi
2. Meliputi wilayah geografi yang lebih sempit
3. Tidak membutuhkan jalur
telekomunikasi yang disewa dari operator telekomunikasiBiasanya salah satu
komputer di antara jaringan komputer itu akan digunakan menjadi server yang
mengatur semua sistem di dalam jaringan tersebut.
Kelebihan LAN:
LAN dapat dihubungkan dengan berbagai cara seperti kabel pasangan, serat optik, kabel telepon, dan cahaya inframerah, serta isyarat radio. Konfigurasi keterhubungan antara beberapa komputer dikenal dengan topologi. Setiap topologi perlu melaksanakan kerjasama yang biasa ditemui dalam jaringan yaitu pesan dari satu komputer ke komputer yang lain atau petunjuk supaya menjalankan tugas yang tersimpan di dalam jaringan
Kekurangan LAN :
LAN hanya dapat menghubungkan sejumlah komputer yang berada dalam kawasan tertentu seperti di dalam kampus, dalam sebuah bangunan, dan dalam ruang yang yang seringkali dihubungkan dengan minikomputer. Namun begitu, jarang sekali LAN meliputi kawasan yang lebih dari satu gedung.
LAN dapat dihubungkan dengan berbagai cara seperti kabel pasangan, serat optik, kabel telepon, dan cahaya inframerah, serta isyarat radio. Konfigurasi keterhubungan antara beberapa komputer dikenal dengan topologi. Setiap topologi perlu melaksanakan kerjasama yang biasa ditemui dalam jaringan yaitu pesan dari satu komputer ke komputer yang lain atau petunjuk supaya menjalankan tugas yang tersimpan di dalam jaringan
Kekurangan LAN :
LAN hanya dapat menghubungkan sejumlah komputer yang berada dalam kawasan tertentu seperti di dalam kampus, dalam sebuah bangunan, dan dalam ruang yang yang seringkali dihubungkan dengan minikomputer. Namun begitu, jarang sekali LAN meliputi kawasan yang lebih dari satu gedung.
Pengertian MAN
Metropolitan area network atau disingkat dengan MAN. Suatu
jaringan dalam suatu kota dengan transfer data berkecepatan tinggi, yang
menghubungkan berbagai lokasi seperti kampus, perkantoran, pemerintahan, dan
sebagainya. Jaringan MAN adalah gabungan dari beberapa LAN. Jangkauan dari MAN
ini antar 10 hingga 50 km, MAN ini merupakan jaringan yang tepaMetropolitan
area network atau disingkat dengan MAN. Suatu jaringan dalam suatu kota dengan
transfer data berkecepatan tinggi, yang menghubungkan berbagai lokasi seperti
kampus, perkantoran, pemerintahan, dan sebagainya. Jaringan MAN adalah gabungan
dari beberapa LAN. Jangkauan dari MAN ini antar 10 hingga 50 km, MAN ini
merupakan jaringan yang tepat untuk membangun jaringan antar kantor-kantor
dalam satu kota antara pabrik/instansi dan kantor pusat yang berada dalam
jangkauannya.
Kelebihan MAN:
MAN dapat melingkupi kawasan yang lebih luas dibanding dengan LAN. Jaringan MAN biasanya dioperasikan di bandara-bandara, gabungan beberapa buah sekolah ataupun di sebuah daerah. Dengan menjalankan suatu jaringan keterhubungan yang besar, informasi dapat disebarkan dengan lebih meluas, cepat dan bermakna. Perpustakaan-perpustakaan umum dan agen-agen pemerintahan biasanya menggunakan MAN.
Kekurangan MAN:
MAN hanya akan berlaku jika komputer pribadi tersebut dapat bersaing atau sebagai terminal. Jika sebuah komputer pribadi digunakan sebagai terminal, memindahkan file (file transfer software) membolehkan pengguna untuk mengambil file (download) dari hos ataupun menghantar data ke hos (upload). Download file berarti membuka dan mengambil data dari sebuah komputer pribadi yang lain dan menghantar data ke komputer yang berkenaan yang diminta oleh pengguna.
MAN dapat melingkupi kawasan yang lebih luas dibanding dengan LAN. Jaringan MAN biasanya dioperasikan di bandara-bandara, gabungan beberapa buah sekolah ataupun di sebuah daerah. Dengan menjalankan suatu jaringan keterhubungan yang besar, informasi dapat disebarkan dengan lebih meluas, cepat dan bermakna. Perpustakaan-perpustakaan umum dan agen-agen pemerintahan biasanya menggunakan MAN.
Kekurangan MAN:
MAN hanya akan berlaku jika komputer pribadi tersebut dapat bersaing atau sebagai terminal. Jika sebuah komputer pribadi digunakan sebagai terminal, memindahkan file (file transfer software) membolehkan pengguna untuk mengambil file (download) dari hos ataupun menghantar data ke hos (upload). Download file berarti membuka dan mengambil data dari sebuah komputer pribadi yang lain dan menghantar data ke komputer yang berkenaan yang diminta oleh pengguna.
Pengertian WAN
WAN adalah singkatan dari istilah teknologi informasi dalam
bahasa Inggris: Wide Area Network merupakan jaringan komputer yang mencakup
area yang besar sebagai contoh yaitu jaringan komputer antar wilayah, kota atau
bahkan negara, atau dapat didefinisikan juga sebagai jaringan komputer yang
membutuhkan router dan saluran komunikasi publik. WAN digunakan untuk
menghubungkan jaringan lokal yang satu dengan jaringan lokal yang lain,
sehingga pengguna atau komputer di lokasi yang satu dapat berkomunikasi dengan
pengguna dan komputer di lokasi yang lain.
WAN dapat menghubungkan komputer pada suatu kawasan yang lebih luas secara geografi, contoh menghubungkan Florida, Amerika Serikat dengan dunia. Jaringan WAN berupaya menghubungkan sekolah-sekolah di Florida dengan tempat-tempat lain di dunia sebagai contoh Tokyo hanya dalam waktu beberapa menit saja, tanpa perlu menyediakan sejumlah uang yang besar untuk membayar telepon.
Kekurangan WAN:
Jaringan WAN ini lebih rumit dan kompleks. Ia memerlukan perbagai peralatan dan data sebelum jaringan setempat dan metropolitan berhubungan dengan komunikasi secara global dan antarabangsa seperti internet
Komentar