May 2012 - Ilmu Alakadarnya
Wie lautet meine IP

Cara Memunculkan Komponen QuickReport Delphi7

Halo agan sekalian kali ini saya akan sedikit memberi tahu cara menambahkan Pallete QuickReport di delphi, langsung saja ikuti cara berikut;
  • Klik menu Component
  • Klik Install Packages…
muncul gambar seperti berikut :

  • Klik tombol Add…
muncul gambar seperti berikut :

  • Cari file dclqrt70.bpl pada direktori ….Program Files => Borland => Delphi7 => Bin kemudian klik Open

muncul gambar seperti berikut :
  • QuickReport akan ditambahkan pada Design packages kemudian klik OK
selesai dech dan coba lihat di komponen pallet QReport sudah muncul dan sudah bisa digunakan, Semoga bermanfaat
 

Sintak Update Delphi7 dengan Ms.Access

Sintak Update Delphi7 dengan Ms.Access


    ADOTable1.Open;
    ADOTable1.Edit;
    ADOTable1.FieldByName('No').AsString:=PBNumEdit1.Text;
    ADOTable1.FieldByName('Nama').AsString:=edit1.Text;
    ADOTable1.fieldByName('Alamat').AsString:=edit2.text;
    ADOTable1.FieldByName('Tanggal_Lahir').AsDateTime:=DateTimePicker1.Date;
    ADOTable1.FieldByName('Asal_Sekolah').AsString:=edit3.Text;
    ADOTable1.FieldByName('Nama_Orang_Tua').AsString:=edit4.Text;
    ADOTable1.FieldByName('Alamat_Orang_Tua').AsString:=edit5.Text;
    ADOTable1.FieldByName('Status_Siswa').AsString:=ComboBox1.Text;
    ADOTable1.Post;

Semoga bermanfaat....selamat berkarya
 

Sintak Simpan Delphi7 & Ms.Access

Sintak Simpan delphi konek Ms.Access dengan ADOTable

   
    ADOTable1.Open;
    ADOTable1.Append;
    ADOTable1.FieldByName('No').AsString:=PBNumEdit1.Text;
    ADOTable1.FieldByName('Nama').AsString:=edit1.Text;
    ADOTable1.fieldByName('Alamat').AsString:=edit2.text;
    ADOTable1.FieldByName('Tanggal_Lahir').AsDateTime:=DateTimePicker1.Date;
    ADOTable1.FieldByName('Asal_Sekolah').AsString:=edit3.Text;
    ADOTable1.FieldByName('Nama_Orang_Tua').AsString:=edit4.Text;
    ADOTable1.FieldByName('Alamat_Orang_Tua').AsString:=edit5.Text;
    ADOTable1.FieldByName('Status_Siswa').AsString:=ComboBox1.Text;
    ADOTable1.Post;

semoga bermanfaat gan hehe
selamat berkreasi bersama delphi anda. . . .
 

Buka Tutup CD ROOM Dengan Delphi

Malem agan lama gak posting nie hehe kangen juga he.e. . . . 
kali ini saya akan sekedar memberi tahu cara membuat tombol open CD ROOM dengan delphi tentunya,,,jika untuk laptop hanya bisa di pakai untuk open saja sedangkan untuk komputer kayaknya c bisa di pakai untuk open dan close CD ROOM. kmari langsung saja kita praktekan.
Desain form seperti gambar 1.1

setelah itu double klik pada "Open CD" lalu masukan scrip seperti berikut di bawah begin :

try
mciSendString('Set cdaudio door open', nil, 0, handle);
except
end;

dan setelah itu double klik pada "Close CD" lalu masukan scrip seperti berikut di bawah begin :

try
mciSendString('Set cdaudio door closed', nil, 0, handle);
except
end;

selesai dech coba jalankan dan lihat hasilnya hehe semoga bermanfaat,,EH iya jagan lupa menambahkan MMSYSTEM di usesnya biar bisa di excute.





 
 

Lampu Laulintas Delphi

Malam agan-agan pada malan ini saya akan memberi sedikit tips dan trik untuk membuat contoh program lampu lalu lintas Merah Kunin Hijau yang dengan sendirinya berganti-ganti. Dari pada kebanyakan cing cong langsung saja desain form seperti gambar di samping ok ok ok
komponen yang di pakai antara lain :
>> 2 panel ambil di pallet standard
>> 1 timer ambil di pallet system
>> 3 image di pallet aditional (untuk image kita buat 3 gambar dengan paint dengan warna merah kuning hijau dan disimpan dengan format BMP)

untuk pengisian scripnya sebagai berikut :
pada timer 1 klik dua kali(double klik);


procedure TForm1.Timer1Timer(Sender: TObject);
var
  waktu : integer; //untuk variabel waktu adalah integer/angka
begin
  waktu:=strtoint(panel2.Caption); //untuk membuat agar oanel ter indeksi integer
  waktu:=waktu+1;
  panel2.Caption:=inttostr(waktu);
if panel2.Caption='6' then
  begin
  Image1.Visible:=true;//agar image 1 terlihat
  Image2.Visible:=false;//agar image 2 tidak terlihat
  Image3.Visible:=false;//agar gambar 3 tidak terlihat
  end
  else
if panel2.caption='12' then
  begin
  Image1.Visible:=false;//agar image 1 tidak  terlihat
  Image2.Visible:=false;//agar image 2 terlihat
  Image3.Visible:=true;//agar image 3 tidak terlihat
  end
  else
if panel2.caption='18' then //pada saat panel 2 captionnya 18
  begin //maka
  Image1.Visible:=false;//agar image 1 tidak terlihat
  Image2.Visible:=true;//agar image 2 tidak terlihat
  Image3.Visible:=false;//agar image 3 terlihat
  panel2.caption:='0';//panel2 kembali ke posisi 0
  end;

sekian postingan kali ini selamat mencoba dan semoga berhasil untuk membuatnya.Good Luck dan Salam Ilmu
 

Ilmu Alakadarnya III

kali ini saya sedikit bercerita nih. ternyata Dalam sehari ternyata hampir alexa rank blg saya turun 1930 dan hal itu sangat menguntungkan bagi blog ini,untuk para pengunjung blog ini saya ucapkan terimakasih dan semoga blog anda juga semakin terkenal dan semakin tinggi page rank dan alexa rangnya semakin menyusut salam bloger dan saling BERSILAHTURAHMILAH antar pengguna BLOG agar bisa saling menguntungkan
 

Warna

Pagi agan-agan kali ini sedikit saya akan posting untuk tips membuat warna berkedip dengan delphi langsung saja kita praktekan.

  • buka delphinya.
  • ambil komponen timer di pallet System.
  • double klik pada timer danmasukan rumus sebagai berikut : form1.Color:=rgb(round(random*225),round(random*225),round(random*225));
  • setelah itu jalankan dan lihat hasilnya.
sekian postingan pagi ini semoga bermanfaat