Stillcetek http://www.stillcetek.com blog lukman stillcetek, delphi tutorial, php tutorial, article css, mysql, javascript tutorial, tausiyah, ms sql server Tue, 15 Jul 2008 16:04:17 +0000 http://wordpress.org/?v=2.2 en Input , Search Data With ADO & MS Access http://www.stillcetek.com/2008-07-15/input-search-data-with-ado-ms-access.html http://www.stillcetek.com/2008-07-15/input-search-data-with-ado-ms-access.html#comments Tue, 15 Jul 2008 14:58:12 +0000 Lukman http://www.stillcetek.com/2008-07-15/input-search-data-with-ado-ms-access.html Blogku, sebenarnya g tega meninggalkan blog lama2, dah hampir 2 bulan ga sentuh stillcetek :((
Ada yang menanyakan tentang ADO dan MS Access, kebetulan tugas akhir dulu saya menggunakan delphi, dengan ADO Connection, dan MS Access sebagai databasenya, program sederhana ya tapi alhamdulillah bener2 buat sendiri jadi puas sedapatnya. :)

Ini Contoh program Add :

procedure TFrBarang.BTAddClick(Sender: TObject);
begin
if Application.MessageBox('Benar mau disimpan ?','Konfirmasi',4+32)=idyes then
begin
with ADOobat do
begin
append;
FieldByName('kdobat').AsString:=ed1.Text;
FieldByName('nmobat').AsString:=ed2.Text;
FieldByName('satuan').AsString:=ed3.Text;
FieldByName('harga').AsFloat:=StrToInt(ed4.Text);
FieldByName('stok').AsInteger:=StrToInt(ed5.Text);
FieldByName('kdjenis').AsString:=DbJenis.KeyValue;
post;
end;
end;
end;

Saya menggunakan method Append; dan Post; untuk save data, ADOobat adalah Ado table yang saya rename, kalo untuk Edit data tinggal ganti Append dengan Edit;

Untuk pencarian saya gunakan query, contohnya sebagai berikut; contoh mencari Obat sesuai kodenya:

With ADOobat Do
begin
Close;
Sql.Clear;
sql.Add('Select * From tb_obat Where kode_obat=:kd');
Prepared;
Parameters.Items[0].Value:=comboObat.KeyValue;
Open;
if Not Eof then
ed2.Text:=FieldByname('nama_obat').AsString;
end;

Close : tutup koneksi
sql.clear : bersihkan query yang mungkin sudah ada sebelumnya
sql.Add : buat query pencariannya
Prepared : query dipersiapkan
Parameters : Poin yang dicari; items[0] adalah mengambil nilai parameter pertama yang ada comboObat(Dbcombobox) atau jika ada disebuah textbox maka text.text;
Jika ketemu maka contoh nama obat akan di tampilkan di ed2;

Contoh dengan dua parameter pencarian; Mencari data di table tbbeli dengan nofaktur tertentu dan kode barang tertentu:

With DM.Abeli Do
begin
Close;
Sql.Clear;
sql.Add('Select * From tbbeli where nofaktur=:nf and kdobat=:ko');
Prepared;
Parameters.Items[0].Value:=Ed1.Text;
Parameters.Items[1].Value:=Edit1.Text;
Open;
If not eof then
begin
Date1.Date:=FieldByName('tglbeli').AsDateTime;
DbPasok.KeyValue:=FieldByName('kdpemasok').AsString;
Ed2.Text:=FieldByName('nmpemasok').AsString;
Ed3.Text:=FieldByName('nmobat').AsString;
end
else
begin
MessageDlg('Kode barang '+Edit1.Text+ ' dengan no faktur '+ed1.Text+' tidak ada!',mtInformation,[MbOK],0);
end;

Semoga membantu

]]> http://www.stillcetek.com/2008-07-15/input-search-data-with-ado-ms-access.html/feed Nonton TV Sambil Ngenet (TV Online) http://www.stillcetek.com/2008-03-14/nonton-tv-sambil-ngenet-yuk.html http://www.stillcetek.com/2008-03-14/nonton-tv-sambil-ngenet-yuk.html#comments Thu, 13 Mar 2008 18:04:50 +0000 Lukman http://www.stillcetek.com/2008-03-14/nonton-tv-sambil-ngenet-yuk.html TV Online :

  1. mms://202.171.25.216/metro (pake browser otomatis nonton pake media player)
  2. mms://202.171.25.216/transtv (pake browser otomatis nonton pake media player)
  3. rtsp://202.58.181.185/broadcast/sctv (pake realplayer)
  4. rtsp://202.58.181.185/broadcast/rcti (pake realplayer)

Sayang ya resolusinya kecil. Ntar bakal semua tv online ya. Khan asik tuh.

http://alhakim.wordpress.com/2007/12/06/ nonton-trans-tv-dan-metro-tv-online-di-internet/

]]> http://www.stillcetek.com/2008-03-14/nonton-tv-sambil-ngenet-yuk.html/feed The Gangster Family http://www.stillcetek.com/2008-02-25/51.html http://www.stillcetek.com/2008-02-25/51.html#comments Mon, 25 Feb 2008 12:52:14 +0000 Lukman http://www.stillcetek.com/2008-02-25/51.html

Masih ingat game MMORPG The Gangster Family? Ya, saya lihat banyak pembaca blog ini yang sudah ikutan main, bahkan beberapa cukup addict. :)

Setelah sempat off untuk beberapa lama, The Gangster Family kini kembali online. Dan kali ini saya tidak sendiri, karena INARTS mendukung penuh pengembangan aplikasi ini. Mulai dari penyediaan server, instalasi, optimasi sampai re-design tampilan semua dikerjakan oleh tim INARTS. Untuk ilustrasi tokoh-tokohnya sendiri, kita dibantu oleh ilustrator kenamaan Indonesia, Chris Lie. Very nice!

Aplikasi ini secara resmi dirilis (kembali) hari Selasa 19 Februari lalu, namun karena server ngoprekweb sedang ngadat waktu itu, saya baru bisa posting hari ini.

Berikut adalah alamat URL nya sekarang:

Web: http://gangsterfamily.in2social.com
Facebook apps: http://apps.facebook.com/gangsterfamily

Kita masih terus melakukan pengembangan dan perbaikan, rencananya aplikasi ini juga akan dibuat dalam versi mobile dan dalam bentuk widget di Friendster. Kalau ingin ngintip seperti apa, berikut alamat URL nya:

Friendster: http://widgets.friendster.com/25d707f99a0923c1755377d3af0fb037
Mobile: http://m.in2social.com/gf

So, tunggu apa lagi, let’s go to the mattresses while we still have muscle. ;)

– eris –

]]> http://www.stillcetek.com/2008-02-25/51.html/feed Trailer Film Ayat-ayat Cinta http://www.stillcetek.com/2008-01-12/trailer-film-ayat-ayat-cinta.html http://www.stillcetek.com/2008-01-12/trailer-film-ayat-ayat-cinta.html#comments Sat, 12 Jan 2008 09:45:16 +0000 Lukman http://www.stillcetek.com/2008-01-12/trailer-film-ayat-ayat-cinta.html Rileks dulu setelah 2 minggu kejar setoran, tukang ojek kale, ketinggalan berita neh, mas hanung dah pasang dari tanggal 23 dec ternyata trailernya, ehhh baru ngeliat. gapapalah bagi yang kebetulan menemukan trailer ayat-ayat cinta diblog ini ya monggo dilirik…

AYAT-AYAT CINTA video clip (Rossa)

]]> http://www.stillcetek.com/2008-01-12/trailer-film-ayat-ayat-cinta.html/feed HTML Rotator With Prototype & Scriptaculous Effect http://www.stillcetek.com/2007-12-23/html-rotator-with-prototype-scriptaculous-effect.html http://www.stillcetek.com/2007-12-23/html-rotator-with-prototype-scriptaculous-effect.html#comments Sun, 23 Dec 2007 04:03:34 +0000 Lukman http://www.stillcetek.com/2007-12-23/html-rotator-with-prototype-scriptaculous-effect.html Melanjutkan article HTML Rotator, yang ini akan lebih menarik karena diberi effect fade saat slidenya.

Untuk effect gunakan prototype.js dan Scriptaculous

Ok See code below :

<html>
<head><title>Cetek</title>
<style type="text/css">
img{
border:none;
}
</style>

<script src="js/scriptaculous/lib/prototype.js" type="text/javascript"></script>
<script src="js/scriptaculous/src/scriptaculous.js" type="text/javascript"></script>
<script type="text/javascript">

var content = new Array('<img src="images/jseyes.gif">','<img src="images/icon_ots.png">','<img src="images/image1.png">');

var links = new Array('http://www.google.com','http://www.stillcetek.com','http://www.yahoo.com');

var contentStart = 0;
var contentCount = content.length;
var bannerSpeed  = 10;
var bannerDuration  = 5.0;

function bannerRotator() {
var bannerRotasi = document.getElementById("bannerRotasi");
contentStart++;
if (contentStart == contentCount) {
contentStart = 0;
}
if(document.all){
bannerRotasi.innerHTML = content[contentStart];
} else{
bannerRotasi.innerHTML = content[contentStart];
}
bannerRotasi.href=links[contentStart];

$('frame').hide();
Effect.Appear('frame',{duration:  bannerDuration});
setTimeout('bannerRotator()',bannerSpeed * 1000);
}

</script>
</head>
<body>
<div id="frame" background-color:#FF0055">
<a href="#" target="_blank" name="bannerRotasi" id="bannerRotasi"></a>
<script type  ="text/javascript">
bannerRotator()
</script>
</div>

</body>
</html>
]]> http://www.stillcetek.com/2007-12-23/html-rotator-with-prototype-scriptaculous-effect.html/feed HTML Rotator http://www.stillcetek.com/2007-12-23/html-rotator.html http://www.stillcetek.com/2007-12-23/html-rotator.html#comments Sun, 23 Dec 2007 03:46:56 +0000 Lukman http://www.stillcetek.com/2007-12-23/html-rotator.html Kode sederhana HTML rotator, bisa digunakan sebagai banner rotator iklan, slideshow fhotos, atau text rotator dengan format-format html. Nice.. get the code below:

<html>
<head><title>Cetek</title>
<style type="text/css">
img{
border:none;
}
</style>

<script type="text/javascript">var content = new Array('<b>Test Link1</b> Bold','Test Link2 <i> Format HTML</i>','<img src="images/link.gif">');

var links = new Array('http://www.google.com','http://www.stillcetek.com','http://www.yahoo.com');

var contentStart = 0;
var contentCount = content.length;
var bannerSpeed  = 10;

function bannerRotator() {
var bannerRotasi = document.getElementById("bannerRotasi");
contentStart++;
if (contentStart == contentCount) {
contentStart = 0;
}
if(document.all){
bannerRotasi.innerHTML = content[contentStart];
} else{
bannerRotasi.innerHTML = content[contentStart];
}

bannerRotasi.href=links[contentStart];
setTimeout('bannerRotator()',bannerSpeed * 1000);
}

</script>
</head>
<body>
<div id="frame" background-color:#FF0055">
<a href="#" target="_blank" name="bannerRotasi" id="bannerRotasi"></a>
<script type  ="text/javascript">
bannerRotator()
</script>

</div>
</body>
</html>
]]> http://www.stillcetek.com/2007-12-23/html-rotator.html/feed Pengenalan CSS http://www.stillcetek.com/2007-12-20/pengenalan-css.html http://www.stillcetek.com/2007-12-20/pengenalan-css.html#comments Thu, 20 Dec 2007 09:29:02 +0000 Lukman http://www.stillcetek.com/2007-12-20/pengenalan-css.html Apa sih CSS itu?

CSS (Cascading Style Sheet) adalah bahasa yang digunakan untuk memformat tampilan html, bahasa yang direkomendasikan W3C (World Wide Web Consortium) untuk melukiskan gaya seperti font, warna, ukuran, jarak, posisi pada dokumen-dokumen web. CSS sangat membantu para web designer untuk memperindah halaman web templatesnya.

Apa bedanya css dengan format html biasa? apa untungnya?

CSS sama fungsinya dengan cara format html biasa, namun CSS mempunyai lebih banyak element yang  bisa kita atur.

contoh:

tag table punya element border, css juga punya fromat untuk border namun lebih detail lagi seperti : border-top, border-right, border-bottom, border-left. artinya lebih kompleks karena memungkinkan kita membuat sisi border yang berbeda. :) .

ini contoh sederhana aja, masih banyak sekali keuntungan-keuntungan lain. So.. go to struggle.

Dimana saya bisa meletakkan kode-kode css?

Setidaknya ada 3 tempat meletakkan kode-kode css

1. Tag <Head> document HTML

Kita bisa menuliskan seluruh kode-kode css kita didalam tag head document html kita

Contoh

<HTML><head>
<title>page title</title>
<style type="text/css">
body{
background-color:#FFFFFF;
margin:2px;
}
//KODE KODE CSS
</style>
</head>
<body></body>
</HTML>


2. Di Tag Element-element HTML

Kita juga bisa meletakkan kode-kode css kita di properties tag-tag html

contoh:

<p style="font-size:12px;color:#0000FF"> text-text content yang akan diformat </p>

3. Ekternal File

Menuliskan kode-kode css di luar document html dengan ekstensi file *.css. Kemudian file *.css ini diincludekan kedalam document html tepatnya pada tag head.

contoh:

<head>
<title>page title</title>
<link rel="stylesheet" href="eksternal_file_css.css " type="text/css">
</head>

Kode-kode CSS juga bisa dituliskan dengan berbagai cara, lihat contoh-contoh dibawah.

Menerangkan format tag-tag html

seperti <body>, <div>, <table>,<p>,<h1>,<font> dan lain-lain

p{
font-family:Arial;
color:#0000DD;
font-size11px;
text-align:right;
}

Dengan contoh diatas maka text-text yang berada didalam tab <p> akan diformat dengan jenis font arial, warna biru tua, ukuran 11 pixel dan rata kanan.

Selector Class

kode css:

.areabanner{
width:200px;
height:100px;
}

kode di html:

<div class="areabanner">content</div>

atau bisa juga

<p class="areabanner">content</p>

Semua tag html yang mempunyai class areabanner maka akan diformat sesuai dengan format yang ditulis di .areabanner

Selector ID

kode css:

#areabanner{
width:200px;
height:100px;
}

kode html

<div id="areabanner">content</div>

dengan menambahkan karakter # di awal nama ID nya, berarti format itu adalah format untuk tag html yang berselector ID.

]]> http://www.stillcetek.com/2007-12-20/pengenalan-css.html/feed Filter Data Database Paradok di Delphi 7 http://www.stillcetek.com/2007-12-19/filter-data-database-paradok-di-delphi-7.html http://www.stillcetek.com/2007-12-19/filter-data-database-paradok-di-delphi-7.html#comments Wed, 19 Dec 2007 15:23:02 +0000 Lukman http://www.stillcetek.com/2007-12-19/filter-data-database-paradok-di-delphi-7.html Artikel kali ini membahas tentang bagaimana memfilter data dalam membuat laporan dari hasil pengolahan data yang kita buat. Mb Sri yang nanya nih. :D.

Misalkan kita hanya akan mencetak data penjualan pada tanggal sekian saja, atau akan mencetak data barang yang stoknya menipis, atau mencetak data mahasiswa yang nilainya A saja, atau anda ingin memfilter data karyawan yang menerima gaji tanggal sekian dan dengan NIK tertentu, serta masih banyak lagi lainnya. Yang pasti Filter data sangat penting sekali dalam proses pembuatan laporan.

Saya Menggunakan Object Table di BDE dan Data Source di Data Access untuk koneksi dan pengolahan datanya.

1. Tampilkan data Karyawan dengan NIK “040001″

Code :

Table1.Filtered:=False;
Table1.Filter='NIK='+QuotedStr('040001');
Table1.Filtered:=True;

2. Tampilkan data yang karyawan yang gajinya lebih besar dari 2 juta.

code:

Table1.Filtered:=False;
Table1.Filter:='Total_Gaji>2000000';
Table1.Filtered:=True;

3. Tampilkan data penjualan tanggal 17/05/2007 dan dengan Nomor Jual 1002

code:

Table1.Filtered:=False;
Table1.Filter:='Tgl_Jual='+QuotedStr('17/05/2007') +'And No_Jual='+QuotedStr('1002');
Table1.Filtered:=True;

Anda bisa menggunakan statement And atau Or jika terdapat dua atau lebih kondisi. :) .

]]> http://www.stillcetek.com/2007-12-19/filter-data-database-paradok-di-delphi-7.html/feed Membuat Menu Aplikasi di Delphi 7 http://www.stillcetek.com/2007-12-19/membuat-menu-aplikasi-di-delphi-7.html http://www.stillcetek.com/2007-12-19/membuat-menu-aplikasi-di-delphi-7.html#comments Wed, 19 Dec 2007 14:01:03 +0000 Lukman http://www.stillcetek.com/2007-12-19/membuat-menu-aplikasi-di-delphi-7.html contohmenu.jpg

Menanggapi respon dari mas rohman, yang ingin membuat menu utama pada aplikasinya. Monggo ikuti langkah-langkah berikut untuk membuat menu seperti contoh diatas.

  1. Buat Project sebuah baru anda, dari menu File -> New -> Application,maka akan otomatis ada form1
  2. Buat beberapa form baru di dalam project anda tersebut. Dari menu File -> New -> Form, pada contoh ini saya membuat 3 form yaitu Form1 (sebagai menu utama), Form2 dan Form3 sebagai Form prompt ketika di klik salah satu menu.
  3. Jangan lupa menyimpan project dan form-form anda, dari menu File -> Save All.
  4. Mulai membuat menupada Form1 letakkan object MainMenu yang ada ditab Standar. Klik kanan pada MainMenu1 -> Menu Designer. maka akan ada tampilan edit menu.2.jpg

    Klik pada area biru gambar diatas, kemudian pada properties Caption ketikkan “Document“, kemudian enter. Satu menu utama sudah terbuat.Untuk membuat menu dari Document, klik pada menu document, akan ada satu area menu yang masih kosong, klik kemudian pada caption ketikkan Baru dan enter, dan seterusnya untuk menu-menu lain.

    Untuk membuat garis pembatas antar menu, cukup ketikkan - (tanda min), pada caption.

    Untuk membuat sub menu dari menu Baru, klik kanan pada Menu Baru -> Create Sub Menu, klik pada satu area kosong dari sub menu baru, kemudian ketik Dokument Kosong. Demikianjuga untuk membuat menu-menu.

    Close windows editor menu untuk selesai dan kembali ke design Form1. Jika berhasil maka pada form1 sudah ada menu-menu yang kita buat.

  5. Membuat Form show/dan showmodal.untuk contoh ini, Form2 akan ditampilkan jika dipilih menu Document -> Buka.
    pilih menu Document dan klik Buka, maka akan masuk ke lebar source code, Kodenya adalah

    Form2.Show;

    atau bisa juga

    Form2.ShowModal.

    Apa perbedaan antara kedua kodenya?

    Jika menggunakan fungsi show, maka form1 dan form2 bisa bertukar tempat, artinya form1 bisa diatas Form2 dan Form2 bisa diatas form1. Tapi ShowModal akan membuat Form1 sebagai menu utama selalu berada dibelakang, dan Form2 akan selalu berada diatas (Always on Top).

  6. Simpan kembali project anda.
  7. Run / F9 untuk eksekusi.ketika run akan ada pesan berikut

    info.jpg

    Pilih Yes, bahwa benar Form1 mereferensikan form dua di unitnya.

]]> http://www.stillcetek.com/2007-12-19/membuat-menu-aplikasi-di-delphi-7.html/feed Film Ayat-ayat Cinta Tunda Tayang http://www.stillcetek.com/2007-12-16/film-ayat-ayat-cinta-tunda-tayang.html http://www.stillcetek.com/2007-12-16/film-ayat-ayat-cinta-tunda-tayang.html#comments Sun, 16 Dec 2007 05:04:40 +0000 Lukman http://www.stillcetek.com/2007-12-16/film-ayat-ayat-cinta-tunda-tayang.html aac.jpg

Shooting film AAC sudah rampung, sisa adegan terakhir hanya membutuhkan waktu 5 hari dikairo, tapi berbagai macam halang rintang ternyata tidak jadi di ambil di sana, kata mas hanung, Local Producer kairo mengajukan dana 3 Milyar untuk 5 hari (wajar ya untuk ukuran film berkualitas :D). selain dana, juga terhambat pengurusan visa, yang akhirnya diputuskan pengambilan dilakukan di India.

Seperti yang disampaikan mas Hanung, Penayangan film AAC ditunda hingga tahun depan (januari 2008.)  :) bentar lagi ko’ :D selamat menunggu bagi yang sudah ga sabaran.. he he.

baca lengkap

eh ada cuplikannya disini loh

 

]]> http://www.stillcetek.com/2007-12-16/film-ayat-ayat-cinta-tunda-tayang.html/feed