Modul 4 dbase

modul 4 dbase  disini

a)      Berikut merupakan kode program input_pas

Set talk off

Use pasien

Set color to w

Do while .T.

Append blank

Clear

@2,15 to 15,65 double

@3,25 say “ input data pasien “

@5,18 say “ NO RM :” get NO_RM

@6,18 say “ Nama pasien:” get NAMA

@7,18 say “ Alamat pasien:” get ALAMAT

@8,18 say “jenis kelamin:” get J_KEL

Read

If J_KEL=1

Kel=”laki-laki”

Else

Kel=”perempuan”

Endif

@8,15 say Kel

@9,18 say “Umur            :” get UMUR

@10,18 say “Agama    :” get AGAMA

Read

JWB=”n”

@13,18 say “ Inputkan data lagi ?? (y/n)” get JWB

Read

If JWB=”n”

Exit

Endif

Enddo

Return