Saya melanjutkan membuat program, tp beberapa saat kemudian ketika saya compile dan jalankan kembali programnya, virus tersebut muncul lagi…dan selalu terus seperti itu. Karena penasaran  dan curiga virus tersebut berasal dari IDE Delphi, saya scan folder tempat instalasi delphi saya, akhirnya KIS mendeteksi file yang dianggap virus, file tersebut bernama sysconst.dcu yang berlokasi di C:\Program Files\Borland\Delphi7\Lib\sysconst.dcu. Lagi-lagi penasaran saya iseng nyari di Mbah Google tentang virus tersebut, beberapa detik kemudian wow…sepertinya virus tersebut memang baru saja disebarkan, karena setiap postingan yang saya baca rata-rata baru dibuat bulan Agustus antara tanggal 19-20an,tepat ketika saya terkena virus tsb.

ini salah satu postingannya :

WAH

Yang saya khawatirkan adanya pengembangan dari virus tersebut, tapi mudah-mudahan saja tidak. Hayo segera update database antivirus Anda, siapa tahu virus telah menjangkit komputer Anda.
Jadi Waspadalah Programmer yang menggunakan Delphi, mungkin ini hanya baru awalnya saja….

<?php
function kdauto($tabel, $inisial){
$struktur	= mysql_query("SELECT * FROM $tabel");
$field		= mysql_field_name($struktur,0);
$panjang	= mysql_field_len($struktur,0);
$qry	= mysql_query("SELECT max(".$field.") FROM ".$tabel);
$row	= mysql_fetch_array($qry);
if ($row[0]=="") {
$angka=0;
}
else {
$angka		= substr($row[0], strlen($inisial));
}
$angka++;
$angka	=strval($angka);
$tmp	="";
for($i=1; $i<=($panjang-strlen($inisial)-strlen($angka)); $i++) {
$tmp=$tmp."0";
}
return $inisial.$tmp.$angka;
}
?>

Simpan script diatas dalam satu file php saja. Script diatas adalah fungsi untuk membuat generate code/no urut, jadi jika Anda ingin menggunakannya tinggal panggil file dengan menggunakan perintah include/require pada PHP. Contohnya seperti ini :

include_once "generate.php";

Nah untuk menjalankan fungsi tinggal panggil saja fungsi kdauto, seperti berikut :

$kode = kdauto("member","MID");

Pada pemangilan fungsi diatas kode yang dihasilkan akan disimpan di variabel $kode. Untuk parameter didalam fungsi kdauto terdapat 2 parameter, yang pertama nama tabel, dan yang ke-2 yaitu, inisial depan dari no urut. Panjangnya no urut disesuaikan dengan field pada saat Anda membuat tabel, misalkan saat Anda membuat field dengan nama “no_urut” dengan tipe “varchar” dan length “6“, maka kode yang dihasilkan menjadi MID001.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

procedure TForm1.GenerateClick(Sender: TObject);
var kd,st,newKd,tgl,bln,thn,tglx,potKd:string;
i,n:integer;
begin
tgl:=datetostr(date);
tgl   :='';
bln  :='';
thn  :='';
//Set Format tanggal
ShortDateFormat:='dd/MM/yy';
 
tgl:=copy(datetostr(date),1,2);
bln:=copy(datetostr(date),4,2);
thn:=copy(datetostr(date),7,2);
 
tglx := tgl + bln + thn;
 
ATable1.Last;
//Mengecek bila tabel belum pny satu pun record
if not(ATable1.eof and ATable1.Bof) then
begin
kd:=ATable1.FieldByName('No').AsString;
potKd:=copy(kd,1,6);
 
//Ngecek jika input baru yg dimasukan merupakan tahun ajaran baru berikutnya
if (tglx = potKd) then
begin
for i:=7 to 9 do
st:=st+kd[i];
n:=strtoint(st)+1;
case length(inttostr(n)) of
1 : newKd:=tglx + '00'+inttostr(n);
2 : newKd:=tglx + '0'+inttostr(n);
3 : newKd:=tglx + ''+inttostr(n);
end;
end
else newKd:=tglx + '001';
self.Edit1.Text:=newKd;
end
else newKd:=tglx + '001';
self.Edit1.Text:=newKd;
ATable1.Append;
end;

Perintah copy merupakan fungsi yang digunakan untuk mengambil nilai pada bagian string tertentu/substring. Didalam fungsi copy terdapat 3 parameter (string yang diambil, posisi awal, jumlah yang diambil). Nah, untuk tahun ajaran berikutnya kode yang dihasilkan berupa 2 digit tanggal, 2 digit bulan, 2 digit tahun dan 3 digit no urut yang dimulai no urut pertama lagi.

Hasil dari generate diatas seperti  berikut : 130409001, 130409002, 130409003 dst….

Potongan prosedur diatas sudah siap digunakan dan Anda hanya tinggal membuat prosedur untuk menyimpan kode yang dihasilkan ke database.

<?php
echo "<b>Hello World</b>" ;
echo "<b>Halo Dunia</b>" ;
?>

penulisan <?php bisa juga tidak diikuti tulisan “php” jd bisa diawali “<?”dan diakhiri “?>”.
Lanjut, berikutnya langsung ke studi kasus, yaitu membuat halaman buku tamu. Berikut contoh programnya :
Buat database dengan nama “latihan”

Buat halaman seperti berikut :

form guestbook

Atau tulis code programnya (guestbook.php):

<html>
<head>
<title>guestbook</title>
</head>

<body>
<p>Silahkan Tulis Komentar Anda di sini : </p>
<form id="form1" name="form1" method="post" action="input_pesan.php">
<table width="357" border="0" cellspacing="1">
<tr>
<td width="99">Nama</td>
<td width="6">:</td>
<td width="242"><input name="nama" type="text" id="nama" size="40" /></td>
</tr>
<tr>
<td>Email</td>
<td>:</td>
<td><input name="email" type="text" id="email" size="40" /></td>
</tr>
<tr>
<td>Komentar</td>
<td>:</td>
<td><textarea name="komentar" cols="37" rows="8" id="komentar"></textarea></td>
</tr>
<tr>
<td>&amp;amp;amp;amp;amp;nbsp;</td>
<td>&amp;amp;amp;amp;amp;nbsp;</td>
<td><input type="submit" name="Submit" value="Simpan" />
<input type="reset" name="Submit2" value="Batal" /></td>
</tr>
</table>
</form>
</body>
</html>

Kemudian buat file php dengan nama “input_pesan.php“dan tuliskan code program berikut ini :

<?php
//AWAL KODE PROGRAM KONEKSI DATABASE
$host='localhost';
$user='root';
$pass='12345678';
$db='latihan';

mysql_connect($host,$user,$pass) or die ("Tidak terkoneksi ke Server");
mysql_select_db($db) or die ("Database tidak ditemukan");
//AKHIR KODE PROGRAM KONEKSI DATABASE

$valid_mail = "^([._a-z0-9-]+[._a-z0-9-]*)@(([a-z0-9-]+.)*([a-z0-9-]+)(.[a-z]{2,3}))$";
if (!eregi($valid_mail, $_POST['email'])||empty($_POST['nama'])||empty($_POST['pesan'])) {
$error = TRUE;
}
if ($error) {
if(empty($_POST['nama'])){
echo "<li>Anda belum mengisi <b>Form Nama</b></li>";
}
if (!eregi($valid_mail, $_POST['email'])){
echo "<li>Penulisan alamat E-mail Anda salah!</li>";
}
if(empty($_POST['pesan'])){
echo "<li>Anda belum menuliskan <b>Komentar Anda</b></li>";
}
}
else{
$lindungi_nama=strip_tags($_POST[nama]);
$lindungi_email=strip_tags($_POST[email]);
$lindungi_pesan=strip_tags($_POST[pesan],"<br />");
$tanggal_sekarang=date("Ymd");

$query = "INSERT INTO guestbook (nama , email, tanggal, pesan)
VALUES ('$lindungi_nama','$lindungi_email','$tanggal_sekarang','$lindungi_pesan')";
$result = mysql_query($query);

if ($result) {
//MENAMPILKAN GUESTBOOK
echo "<b>Pesan Anda berhasil disimpan..!!!</b>";
$query = "SELECT * FROM guestbook ORDER BY id DESC";
$result = mysql_query($query);
while ($row = mysql_fetch_array($result)) {
echo   "<p><b>Nama :</b> $row[nama]<br>
<b>Email :</b> $row[email]<br><b>Tanggal :</b> $row[tanggal]<br>
<b>Pesan :</b> $row[pesan]<br>";
}
}
else {
echo "Maaf pesan Anda tidak dapat disimpan...!!!!";
}
}
?>

Pada guestbook diatas penggunaan syntax html tidak akan dieksekusi, karena dengan fungsi “strip_tags” dapat menghilangkan kode-kode html atau php yang dimasukan oleh pemakai melalui keyboard.

Selamat mencoba.

Ada dua cara untuk menampilkan data di listview :
1. Melalui properties di komponennya (klik kanan listview, pilih “column editor” atau “item editor”)
2. Menggunakan code program.

Saya akan menjelaskan untuk no.2.

Berikut code programnya :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

procedure TForm1.Button1Click(Sender: TObject);
var
KolomBaru:TListColumn;
ItemBaru:TListItem;
begin
ListView1.ViewStyle := vsReport;
ListView1.Columns.Add;
ListView1.Columns[0].Caption:='No';
ListView1.Columns.Add;
ListView1.Columns[1].Caption:='Judul Buku';
ListView1.Columns.Add;
ListView1.Columns[2].Caption:='Komentar';
ItemBaru:=ListView1.Items.Add;
ItemBaru.Caption:='1';
ItemBaru.SubItems.Add('Belajar Delphi');
ItemBaru.SubItems.Add('Terus coba ya');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
jmlkolom,i:integer;
begin
for i := ListView1.Items.Count - 1 downto 0 do
ListView1.Items.Delete(i);
for i := ListView1.Columns.Count - 1 downto 0 do
ListView1.Columns[i].Destroy;
end;

Prosedur pertama digunakan untuk tombol membuat data dan kolom, dan prosedur yang ke dua digunakan untuk tombol hapus data.

Nah untuk menampilkan data dari database yang ditampilkan di ListView nantikan artikel selanjutnya.

hasil tampilan program :

Ketika membuat program seringkali kita membuat no urut yang dibuat dari bawaan database, seperti kode yang bertipe integer dan yang bersifat increment. Cara tersebut memberikan keuntungan yaitu mudah dan cepat, namun saya seringkali mendapat masalah saat menghapus record/data paling terakhir, yaitu no urut akan terus bertambah seiring banyak data yang pernah ada. Misal seperti ini, ada 10 data mulai no urut 1-10. Bila data ke-9 dan ke-10 saya hapus, berarti tinggal 8 data kan, kemudian saya menambahkan 1 data ke database, timbulah permasalah yaitu no urut yang dihasilkan bukanlah no-9 melainkan no 11. Itu terjadi karena database masih menyimpan no urut yang pernah di hapus. Untuk mengatasi hal ini akhirnya saya menggunakan code seperti ini, walaupun masih memiliki kelemahan, tetapi untuk kasus seperti yang saya ceritakan bisa diatasi. Berikut source code nya :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

 
var kd,st,newKd:string;
i,n:integer;
....
ADOTable1.Last;
if not(ADOTable1.eof and ADOTable1.Bof) then
begin
kd:=ADOTable1.FieldByName('kode').AsString;
// auto generate
for i:=1 to 2 do
st:=st+kd[i+1];
n:=strtoint(st)+1;
case length(inttostr(n)) of
1 : newKd:='K0'+inttostr(n);
2 : newKd:='K'+inttostr(n);
end;
end
else newKd:='K01';
Edit1.Text:=newKd;

nb: Untuk field kode bertipe varchar/text dengan length 3.
Hasil akhir akan menghasilkan kode yang berurut yang mulai diawali dengan huruf :
K01
K02
K03
…
K99

Silahkan dimodifikasi dan selamat mencoba…

1.  Tambahkan komponen TApplicationEvent pada tab Additional.
2.  Klik pada event onMessage
3.  Tambahkan kode sehingga seperti berikut :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var
i: SmallInt;
begin
{Mouse wheel behaves strangely with dgbgrids - this proc sorts this out}
if Msg.message = WM_MOUSEWHEEL then
begin
Msg.message := WM_KEYDOWN;
Msg.lParam := 0;
i := HiWord(Msg.wParam);
if i > 0 then
Msg.wParam := VK_UP
else
Msg.wParam := VK_DOWN;
Handled := False;
end;
end;