Jul 232011
 

emmmm…. sebenarnya kali ini saya tidak akan menulis. (lhah… terus ngopo??) hehehe.  cuma mau share ja tentang tools untuk export data dari delphi ke berbagai format file yang ada. ceritanya, kemaren saya pusing bikin report dari delphi. nampaknya, untuk kasus ini qreport dan rave report belum cukup, bahkan terkesan terlalu sederhana untuk memenuhi model report yang diinginkan.belum lagi bila report harus di export ke format file lain seperti doc, docx, atau rtf nya ms word, xls atau xlsx nya ms excel, atau pdf, atau xml, atau yang lain… hemm… otak pun mulai berfikir.. berfikir sangat.. hingga akhirnya penelusuran jejak pun dimulai. mencari sebuah komponen yang bisa mendukung. singkat cerita, saya menemukan EMS Advanced Data Export Component Suite 4.2.0.6. tools yang menarik saya pikir begitu membaca sekilas tentang penjelasan produk nya :

====================

Advanced Data Export VCL is a component suite for Borland Delphi and C++ Builder that allows you to save your data in the most popular data formats for the future viewing, modification, printing or web publication. You can export data into MS Access, MS Excel, MS Word (RTF), Open XML Format, Open Document Format (ODF), HTML, XML, PDF, TXT, DBF, CSV and more! There will be no need to waste your time on tiresome data conversion – Advanced Data Export will do the task quickly and will give the result in the desired format.

Key Features

  • Data export into 17 most popular formats: MS Access, MS Excel, MS Word, Open XML Format, Open Document Format (ODF), RTF, HTML, XML, PDF, TXT, DBF, CSV, SYLK, DIF, LaTeX, SQL and Windows Clipboard
  • Delphi 5-7, 2005-2007, 2009, 2010, XE and C++ Builder 5-6, 2006-2007, 2009, 2010, XE support
  • Export of Unicode data. Manually preset text encoding for exported data (UTF-8, UTF-16/UCS-2, UTF-32/UCS-4, Latin1, Latin2, Latin5, Latin7 and more)
  • Saving data for future viewing, modification, printing or web publication
  • Easy-to-use wizard allows your end-users to export data quickly
  • Powerful export options for each data format
  • 100% native Delphi code
  • No additional libraries or software required to operate
  • Detailed help system and demo application
  • Powerful components and properties editors
  • Setting the user formats for each field separately
  • Multilanguage support

===============================================
Continue reading »

Jun 042011
 

ukey kawan… mulai share lagi nieh…

beberapa hari memikirkan cara untuk mengubah data baris (record) pada sebuah table dan menampilkannya menjadi kolom. kasusnya demikian :

q punya 3 table anggota, simpanananggota, simpanan

anggota:
NPA
nama

simpananangota:
idsimpanananggota
idsimpanan
npa
status

simpanan:
idsimpanan
nama
jumlah

q pengen nampilkan sebuah view yang menampilkan:
npa
nama
simpananwajib —> awalnya ini adalah record dari simpanan
simpanankhusus —> ini juga salahsatu record dari simpanan
simpananpendidikan —> ini juga, jadi ada 3 record dalam table simpanan

query yang dipakai adalah :

Continue reading »

Feb 262011
 

ukey, setelah sekian lama g update… karena kesibukan… (sok sibuk nie :D) 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…

Jan 292011
 

Uke, kali ini kita kembali ke Delphi :D. 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

screen shot tabu search

screen shot tabu search 1



Continue reading »

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

 IT  Comments Off on source code software penghitung nilai resistor pada rangkaian seri paralel campuran dengan bahasa c++
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);
}



Continue reading »