Pert.12 Record

Record atau lebih mudah kita sebut sebagai tempat penyimpanan.
Bentuk Umum :
type
namarecord=record
nama variabel;
end;

Buat Tampilan sebagai berikut :

Listing Program :
program pembuatan_record;
uses crt;
procedure garis;
begin
writeln(‘==============================================’);
end;

type
reckaryawan=record
jab,nip,nama:string;
gol:integer;
gapok,tunj:real;
end;

var pegawai:reckaryawan;
total:real;

begin
clrscr;
writeln(‘ LAPORAN PERHITUNGAN GAJI KARYAWAN’);
garis;
writeln;
write(‘Masukan NIP Karyawan : ‘);readln(pegawai.nip);
write(‘Masukan Nama Karyawan : ‘);readln(pegawai.nama);
write(‘Golongan[1/2/3] : ‘);readln(pegawai.gol);
garis;
case pegawai.gol of
1:
begin
pegawai.jab:=’Staf dan Tetap’;
pegawai.gapok:=900000;
end;
2:
begin
pegawai.jab:=’Staf dan Kontrak’;
pegawai.gapok:=700000;
end;
3:
begin
pegawai.jab:=’Kontrak’;
pegawai.gapok:=500000;
end;
end;

if pegawai.jab=’Staf dan Tetap’ then
pegawai.tunj:=25/100*pegawai.gapok
else
if pegawai.jab=’Staf dan Kontrak’ then
pegawai.tunj:=10/100*pegawai.gapok
else
pegawai.tunj:=0;
total:=(pegawai.gapok)+(pegawai.tunj);

writeln(‘Jabatan Karyawan : ‘,pegawai.jab);
writeln(‘Gaji Pokok : ‘,pegawai.gapok:8:0);
writeln(‘Tunjangan : ‘,pegawai.tunj:8:0);
garis;
writeln(‘Total Gaji Karyawan : ‘,total:8:0);
readln;
end.

Coba Dikembangkan lagi…..

Struktur SQL dalam VB

SQL = Struktur Query Language (Sebuah bahasa yang dirancang khusus untuk dapat berkomunikasi dengan database). Buatlah Tampilan Seperti dibawah ini :

Untuk Koneksi diproperties :
Data1 = databasename
DBGrid1 = data1

Listing Program :
Private Sub CmdProses_Click()
Dim x As String
On Error GoTo Salah
Data1.RecordSource = Text1
Data1.Refresh
If Data1.Recordset.EOF Then
x = MsgBox(“Data Tidak Ketemu”, 0, “Informasi”)
Data1.Refresh
Text1.SetFocus
End If
On Error GoTo 0
Exit Sub
Salah:
x = MsgBox(“Sintak SQL Error”, 0, “Info Dari Admin”)
Text1.Text = “”
Text1.SetFocus
End Sub

Private Sub CmdUlang_Click()
Text1.Text = “”
Text1.SetFocus
End Sub

Private Sub Form_Activate()
Text1.Text = “”
Text1.SetFocus
CmdProses.Default = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub Timer1_Timer()
Me.BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
End Sub

Catatan :
cmdproses.default=true —-> maksudnya adalah setelah menuliskan perintah SQL kemudian kita enter pada text1 maka proses cmdproses pun akan dijalankan. Coba kamu praktekkan listing berikut kedalam text1 :
1. select * from barang in ‘c:\labsore\pembelian.mdb’ —> alamat penyimpanan
2. select * from barang
3. select kobar from barang
4. select kobar,nabar form barang
5. select * from supplier order by nasup
6. select kosup from supplier where kosup=”SP001″Selamat Memodifikasi…