pemrograman » code4769's site

Mengurutkan data hari pada database mysql

Mar 122011

beberapa hari yang lalu, saya kesulitan untuk mencari referensi tentang bagaimana mengurutkan data berdasarkan hari. saya pernah tau bahwa ada cara khusus yang simple untuk melakukan itu. namun saya lupa. . kemudian saya mencari-cari di google. namun, tidak ada hasil pencarian yang sesuai dengan maksud. setelah bertanya-tanya pada kawan, akhirnya saya menemukan cara tersebut… hewhew… simple memang, namun benar-benar bermanfaat. berikut codenya :

select * from hari order by field(hari, 'Senin', 'Selasa', 'Rabu', 'Kamis', 'Jumat', 'Sabtu', 'Minggu');

cara tersebut, selain berguna untuk mengurutkan hari, bisa juga untuk mengurutkan data berdasarkan kriteria yang kita berikan…

em, semoga membantu, semoga bermanfaat.

Tips dan Trik DBgrid delphi : Memberi warna pada record yang aktif pada dbgrid

IT No Responses »

Feb 262011

ukey, setelah sekian lama g update… karena kesibukan… (sok sibuk nie ) kali ini saya akan share tips n trick untuk customize dbgrid pada borland delphi 7. customize yang dimaksud adalah memebrikan warna pada record yang aktif di dbgrid tersebut.

hmm… gampang aja.. mudah, easy…

cukup tambahkan aja kode berikut ini pada even DBGrid.OnDrawColumnCell.

codenya adalah :

type TCustomDBGridCracker = class(TCustomDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin with TCustomDBGridCracker(Sender) do if DataLink.ActiveRecord = Row - 1 then Canvas.Brush.Color := clRed else Canvas.Brush.Color := clWhite; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;

yups.. coba diliat efek setelah ditambah kode itu…

sekian kawan, jika ada yang ditanyakan, silakan lewat komen atau email… thanks…

source code program tabu search dengan borland delphi 7

IT 18 Responses »

Jan 292011

Uke, kali ini kita kembali ke Delphi . saya ingin berbagi sebuah source code tentang tabu search yang merupakan bagian dari study Artificial Intelligent atau kecerdasan buatan. emh… sebenarnya banyak yang bisa disampaikan tentang tabu search. apa itu, bagaimana kerjanya, serta implementasinya. namun saya asumsikan saja bahwa anda sampai ke tulisan ini setelah anda mengetahui tentang tabu search dan mencari source code applikasi tersebut. jika demikian, maka tidak perlu bagi saya untuk menjelaskan lebih jauh. langsung saja saya sajikan screen shot programnya serta source code nya. untuk pertanyaan, atau diskusi, bisa via comment atau email. screen shot app :

screen shot tabu search

source code software penghitung nilai resistor pada rangkaian seri paralel campuran dengan bahasa c++

IT No Responses »

Jan 272011

setelah kemarin saya upload sebuah program sederhana penghitung nilai resistor. maka kini saya share source code program penghitung nilai hambatan resistor pada rangakain seri, paralel, atopun campuran. wah, repot juga buat kasih penjelasan. gini ja wes, silakan anda coba dulu, setelah itu kalau ada yang kesulitan bisa ditanyakan via komen atau via email.

source code software penghitung nilai resistor pada rangkaian seri paralel campuran dengan bahasa c++ :

=========================begin===============================
#include
#include
#include

int menu,jumcampur,jumseri,jum,jumsp,jump,loop,z,y,x,n,i,j,m;
char menu1;
float resistor[100],serin[100],seripa[100],serip,a=1,b,Seri,atas,bawah=1,perrp,rp,tot,sp;

float seri()
{
printf(“Program untuk menghitung rangkaian Resistor Seri\n”);
printf(“jumlah res : “);scanf(“%d”, &jum);
for (loop=0; loop
{
printf (“masukkan nilai resistor ke %d: “,loop+1);
scanf(“%g”, &resistor[loop]);
Seri=Seri+resistor[loop];
}
printf(“Resistor Seri adalah %g\n”, Seri);
}

Cara koneksi delphi dengan database mysql memakai zeos

IT 13 Responses »

Nov 292010

cara koneksi delphi dengan database mysql adalah satu hal yang banyak dipertanyakan. mengingat delphi tidak menyediakan default conector ke mysql. sedangkan mysql adalah salah satu database yang menjadi pilihan favorit. maka disini akan dituliskan tutorial sederhana untuk koneksi delphi ke mysql, dan dalam hal ini dipakai delphi 7.

langkah-langkah:
1. download zeos di sourceforge.net atau cari di gogel.
2. extract file zeosdbo-6.6.5-stable.zip
3. Letakkan ke lokasi yang kamu inginkan, karena ini tidak akan kita hapus lagi.
4. Buka Delphi 7
5. File -> Close All
6. Buka File ZeosDbo.bpg yang ada di folder Zeos -> Packages\Delphi7
7. Pada Delphi Klik Project -> Compile All
8. File -> Close All
9. Pada Delphi Klik Tools -> Environment Options, Klik tab Library. Lalu klik tab Library, dan klik tombol elipsis di samping kanan combobox Library path.
10. Klik tombol di kanan textbox yang berada dibawah tulisan Greyed items denote invalid path, kemudian pilih folder zeos -> Packages\Delphi7\build
11. Klik OK 2 kali sampai Environment Option ditutup.
12.Dari Delphi, Buka file pada folder zeos -> Packages\Delphi7\ZComponentDesign.dpk. Lalu klik tombol Install…
13. Coba liat di bagian Komponen, biasanya dibagian kanan sendiri sudah terinstal zeosnya

jika berhasil, maka selamat belajar dan bekerja…

ups… lupa…
bagi yang lum tahu cara koneksi ke database mysql pake zeos, caranya….

1. jalankan delphi…
2. letakkan komponen zconnection yang terdapat pada tab zeos access.
3. ubah properti hostname menjadi localhost atau IP dari server database yang dituju.
4. isikan user n password sesuai dengan setingan database anda. defaultnya, username = root password nya dikosongi.
5. protocol di pilih mysql-5
6. database isikan dengan nama database yang ingin anda koneksikan.
7. terakhir, ubah connected menjadi true.

** jika ada error, dan ada peringatan bahwa tidak menemukan file libmysql.dll ato file library apapun, jangan panik dan teriak-teriak.. search di komputer anda nama file tersebut, kemudian jika ketemu, copykan file tersebut ke system32 atau ke folder dimana anda menyimpan aplikasi yang membutuhkan koneksi ke mysql.

jika conected bisa diubah menjadi true, maka proses anda berhasil… selamat….

untuk step-step koneksi diatas, bisa dibolak-balik sesuai selera… asal bagian conected nya harus paling akhir.

kalo dah conect trus ngapain? ya terserah…

prinsip kerja zeos seperti komponen standar ADO. kalo di ado ada adoconnection, di zeos zconnection, kalo di ADO ada ADOquery, di zeos ada zquery, begitu seterusnya…

ada pertanyaan??

Older Entries Newer Entries