Membuat Sub Program untuk edit/koreksi data di Quick Basic

kali ini tambahan sub program edit data untuk melengkapi beberapa sub program yang sebelumnya, berikut codenya :

SUB editdata

COLOR 0, 10

CLS

DIM ketemu AS INTEGER

jmlrec = LOF(1) / LEN(siswa)

CALL kotak(2, 2, 15, 40, 7, 1, 0)

COLOR 5, 1: LOCATE 3, 3: PRINT ".: Form Pengeditan Data"

COLOR 5, 1: LOCATE 4, 3: PRINT "======================="

COLOR 0, 1

LOCATE 6, 3: INPUT "Masukan NIM anda :", cari$

ketemu = 0

posisi% = 0

SEEK #1, 1

FOR i = 1 TO jmlrec

GET #1, i, siswa

IF RTRIM$(siswa.nim) = RTRIM$(cari$) THEN

ketemu = 1

posisi% = i

EXIT FOR

END IF

NEXT

IF ketemu = 1 THEN

LOCATE 7, 3: PRINT "Data ditemukan..."

x$ = INPUT$(1)

LOCATE 7, 3: PRINT SPACE$(20)

GET #1, posisi%, siswa

LOCATE 8, 3: PRINT "Nim :"; siswa.nim

LOCATE 9, 3: PRINT "Nama :"; RTRIM$(siswa.nama)

IF siswa.jk = 1 THEN jkel$ = "Pria" ELSE jkel$ = "Wanita"

LOCATE 10, 3: PRINT "Jenis Kelamin :"; jkel$; ""

LOCATE 11, 3: PRINT "Alamat :"; RTRIM$(siswa.alamat)

LOCATE 12, 3: PRINT "Kota :"; RTRIM$(siswa.kota)

SELECT CASE siswa.jurusan

CASE 1

jur$ = "Inforkom"

CASE 2

jur$ = "Kasimapurel"

CASE 3

jur$ = "KabapEksim"

CASE 4

jur$ = "Degrakom"

CASE ELSE

jur$ = "Kosong"

END SELECT

LOCATE 13, 3: PRINT "Jurusan :"; jur$

LOCATE 9, 3: INPUT "Nama :", siswa.nama

LOCATE 10, 3: INPUT "Jenis Kelamin :", siswa.jk

LOCATE 11, 3: INPUT "Alamat :", siswa.alamat

LOCATE 12, 3: INPUT "Kota :", siswa.kota

LOCATE 13, 3: INPUT "Jurusan :", siswa.jurusan

LOCATE 15, 3: INPUT "Simpan data [Y/T]:", jwb$

IF UCASE$(jwb$) = "Y" THEN

PUT #1, posisi%, siswa

END IF

CALL tampildata

ELSE

LOCATE 4, 3: PRINT "Data tidak ditemukan.."

END IF

x$ = INPUT$(1)

CALL menuutama

END SUB

untuk baris perintah CALL KOTAK(SETTINGANNYA) disini anda harus sudah punya sub kotak yang didalamnya terdapat baris code untuk bisa menampilkan sebuah kotak secara otomatis sesuai setting posisi baris, kolom dan warnannya.

Tulisan yang berkaitan :

membuat-sub-program-untuk-mencari-data.html

membuat-sub-program-hapus-data-di-quick.html