Showing posts with label Delphi 7. Show all posts
Showing posts with label Delphi 7. Show all posts

03 June 2012

Effand Nozh

Download Program Delphi Perpustakaan Database Terbaru


Download Program Delphi Perpustakaan Database Mediafire- Berikut ini saya uploadkan contoh program delphi sederhana menggunakan database ms. Access dengan satu buah form utama, jadi jika ingin dimodifikasi silahkan karena tujuan saya upload ini hanya untuk share program basic sehingga nantinya bisa dikembangkan seperti dikasih Form Log in dan Form-Form lainnya.

Download Program Delphi Perpustakaan Database Terbaru

Bagi rekan-rekan mahasiswa yang sedang belajar pemrograman delphi bisa download Program Delphi Perpustakaan dengan Database Sederhana ini. Dalam program ini sudah terdapat script untuk Save, Edit, Delete dan Edit yang biasa dipakai dalam pemrograman database.

Contoh berikut ini sudah dilengkapi beberapa tombol utama seperti Save, Edit, Delete dan Update sehingga anda bisa mencobanya tetapi jika error sesuaikan alamat database accessnya terlebih dahulu, karena memang biasanya akan error, tetapi kalau gag salah ini akan tetap bisa berjalan di laptop anda.

Program yang saya Upload ini belum lengkap secara keseluruhan, tetapi saya harap dapat bermanfaat bagi rekan-rekan yang sedang belajar Delphi untuk database. 

Silahkan anda Download Program Delphi Perpustakaan Database dibawah ini

Download Program Delphi Perpustakaan Database.
Read More

02 June 2012

Effand Nozh

Contoh Script Delphi Simpan, Edit dan Deleted

Download Contoh Script Delphi Simpan, Edit dan Deleted Database - Pagi ini hanya iseng saja, karena blog udah gag keurus jadi posting nya juga agag ngawur. Berikut ini Script Delphi Simpan, Edit dan Deleted Database, mungkin bagi anda yang baru belajar database delphi bisa dijadikan referensi.

Contoh Script Delphi Simpan, Edit dan Deleted

Mari belajar lagi bahasa pemrograman khususnya adalah Delphi 7, yang lagi cari referensi bisa nih di download file yang sudah saya siapkan berikut.

Database yang saya upload berikut ini meliputi script untuk Simpan, Delete dan Edit juga dilengkapi script Enter (#13) untuk solusi pencarian jika data yang akan di Input ternyata sudah ada.

Silahkan didownload dibawah ini.

Download

Jangan lupa komentar jika link tidak bekerja baik.
Read More

19 October 2011

Effand Nozh

Membuat Judul Form Berjalan Di Delphi 7

Berbagi hal disini sangat menyenangkan karena dapat membantu kalayak umum khusunya teman-teman yang saat ini kebingungan oleh Tugas-tugas dari guru maupun dari Dosen nya.

Untuk Hari ini saya Bagikan Tips atau Tutorial yang saya punyai Tentang Membuat Judul Berjalan Di Borland Delphi 7. jadi project kali ini akan membuat tampilan Form kita sedikit Different gitu, dari pada umumnya karena judulnya bisa berjalan.

#berikut Sourcenya :
 bagian Pertama,
var 
a: string; 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
Read More
Effand Nozh

Membuat Auto Shut Down Di Delphi 7

Tugas lagi dari bapak Dosen Pemrograman yang kali ini disuruh membuat Program Delphi yang bisa auto Shutdown . ..

setelah kesana kemari mencari akhirnya dapat juga
Karena Sudah jadi langsung aja saya bagikan.
seperti ini scriptnya ..

##source



Auto Shutdown


procedure TForm1.FormShow(Sender: TObject);
begin
DateTimePicker1.Time:=Now;
Timer1.Enabled:=false;
end;

procedure TForm1.btnkeluarClick(Sender: TObject);
begin
close;
end;

procedure TForm1.btnaktifkanClick(Sender: TObject);
begin
if btnaktifkan.Caption=’Aktifkan Auto Shutdown’ then
begin
timer1.Enabled:=true;
DateTimePicker1.Enabled:=false;
btnaktifkan.Caption:=’Batalkan Auto Shutdown’;
Application.Minimize;
end
else
begin
timer1.Enabled:=false;
DateTimePicker1.Enabled:=true;
btnaktifkan.Caption:=’Aktifkan Auto Shutdown’;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
j1,m1,d1,md1 : Word;
j2,m2,d2,md2 : word;
begin
DecodeTime(now,j1,m1,d1,md1);
DecodeTime(DateTimePicker1.Time,j2,m2,d2,md2);
if (j2=j1) and (m2=m1) and (d2=d1) then
begin
btnaktifkan.Click;
ExitWindowsEx(EWX_SHUTDOWN,0);
end;
end;

end.



Read More

03 October 2011

Effand Nozh

Memberi Image Pada Combobox di Delphi 7


Ok, pada kesempatan sore yang indah ini saya akan berbagi tips sederhana tapi tidak murahan tentunya. kita akan membuat Combobox tetapi ada list gambarnya. mungkin banyak yang masih bingung dengan maksud judul ini. jadi biasanya kalau kita taruh combobox yang ada di delphi 7 pasti akan hanya biasa saja tanpa image. jadi sekarang saatnya kalian coba tutorial yang satu ini yang mungkin bisa beri kalian imajinasi baru ..  ckkckck (koyo opo ae tutorialku)

masih bingung :? baik saya kasih contohnya :


seperti diatas itu contohnya kawan. .. .. . .
lalu scriptnya .. . .
hahahha jangan buru-buru,, 
ni sebelumnya kalian tambahkan Combobox1 dan image List1 dulu..
Combobox stylenya dirubah juga jadi csOwnerDrawFixed
combobox yang di event pada list OnDrawItem dirubah juga ComboBox1DrawItem

Berikut listing Programnya:
#
{$R *.DFM}

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
     ComboBox1.Canvas.FillRect(Rect);
     ImageList1.Draw(ComboBox1.Canvas,Rect.Left,Rect.Top,Index);
     ComboBox1.Canvas.TextOut(Rect.Left+ImageList1.Width+2,Rect.Top,
                          ComboBox1.Items[Index]);
end;

end.

Sudah selesai program kita untuk membuat comboboxnya ada gambarnya...
jika masih bingung, silahkan tinggalkan pesan anda dibawah..


Read More
Effand Nozh

Disabled Menu Close Di Delphi 7

Hari ini Tutorial kita lanjut lagi, terkadang kita pingin iseng atau mengerjain temen kita yang biasanya suka iseng ama kita, sekarang kita yang bikin iseng dengan mendisabled menu close program kita atau project dari temen kita. ok langsung saja tutorial ini saya kasih tau ke anda semua.

Contoh jadi seperti ini :

Ini script yang harus kalian ketik atau langsung Copas aja deh biar gag capek .. . 

#
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var 
   hMenuHandle : HMENU; 
begin 
     hMenuHandle := GetSystemMenu(Form1.Handle, FALSE);
     if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;

end.

Ok selesai.
Seperti sebelumnya jika ada request atau pertanyaan silahkan layangkan pesan ajah. OK
Wassalam .

By. Effand Bocah Nozh



Read More
Effand Nozh

Menampilkan Jam pada Title Bar dengan Delphi 7

Baik pada kesempatan sore hari ini saya akan membagikan sedikit tips bagi kalian yang ingin atau sedang memperdalam ilmu tentang pemrograman kususnya Borland Dhelpi 7.
Sore hari ini tips yang akan saya bagikan adalah membuat Jam pada title bar, jadi jika ingin menghias program anda atau ingin mempercantik tampilan form nya silahkan coba tutorial yang satu ini.

Tutorial Membuat Jam di Title Bar

Note : Yang perlu kalian tambahkan adalah Timer 1 buah aja.
jangan lupa Enable nya di true in biar bisa ketap ketip jamnya trus intervalnya adalah 1000

Script :
#

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
  TheTime: array[0..80] of char;
begin
  StrPCopy(TheTime, TimeToStr(time));
  TextOut(dc, width DIV 2, 5, TheTime, StrLen(TheTime));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  dc := GetWindowDC(handle);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ReleaseDC(handle, dc);
end;

end.


Kira-kira seperti itu scriptnya, jika anda bingung silahkan tinggalkan pesan anda dibawah . ..
OK, Good Luck dan selamat Belajar

NB : Hanya bekerja Di Windows XP
Read More

02 July 2011

Effand Nozh

Delphi Mouse Over


Hari ini kita akan belajar Delphi lagi yang tentunya dapat menambah ilmu kita .. .
Pada bab ini saya kan membagikan tutorial membuat tulisan di delpi menjadi seperti link
Atau biasa disebut mouse over . .
Jika anda bingung seperti ini kira2 image nya :

Sebelumnya anda klik 2X mouseMove di Tab event
Juga mouse leave di tab event juga . .

Langsung saja anda copy listing Program nya dibawah ini :
{$R *.dfm}

Read More
Effand Nozh

Disable Ctrl+alt+del dengan Delphi 7

Berikaut ini saya bagikan untuk membuat software yang dapat mendisable ctrl+alt+del . . .
tapi mohon maaf saya hanya akan membagikan script nya saja karena saya yakin anda pasti sudah bisa mengembangkannya sendir . . .

Berikut ini adalah contoh Script nya :
//Listing Program
Disable Ctrl+Alt+Del
unit Unit1;
Read More

30 June 2011

Effand Nozh

Konversi Suhu, Bilangan Ganjil, Luas Tabung Dan Grade


Pada Kesempatan Kali ini saya akan membagikan tutorial yang menjadi tugas kuliah saya dulu .. .
Mungkin saja temen-temen yang baru belajar Delphi bias membuat juga atau mengedit ini sebagai bahan belajar atau tugas kuliah . . .
Program ini terdiri dari beberapa program :
1.       Program Hitung bilangan Ganjil
2.       Hitung Luas Tabung
3.       Masa Aktif Kerja Berdasarkan UMUR
4.       Konversi Suhu
5.       Grade Nilai
Langsung saja anda siapkan kopi dan camilan heeee
Buat project baru lalu tambahkan alat-alatnya dan bentuk seperti form dibawah in :
 
Read More
Effand Nozh

Judul Berjalan Di Delphi 7


Tutorial ini adalah untuk salah satu Penghias Form saja . ..
Disini kita akan membuat Judul form Project di delphi kita berjalan . . . .
Jadi ketika decompile judul form kita akan berjalan dari kekanan to kiri . . .
Image nya seperti ini . . 


Read More
Effand Nozh

Form Log in Dengan Delphi

Hari ini saya akan membagikan tutorial membuat form log in
Yaitu terdiri dari Username dan password
Dan ketika di klik log in maka anda akan diantar ke form selanjutnya yaitu yang utama . ….
Langsung anda buat form anda seperti ini

Setelah anda buat  form anda seperti diatas . . .. .
Maka klik 2X button submit anda
Kemudian masukan listing program dibawah ini
Read More
Effand Nozh

Delphi Close Application

Selamat Datang di Blog saya hari ini semoga anda tidak kecewa telah berkunjung disini . ..
Di kesempatan Kali ini Tutorial yang akan saya posting adalah tentang Delphi Close Application
Jadi Program berikut adalah program Delphi yang ketika projectnya disclose maka akan tgampil animasi unik yang akan memanjakan mata . . .
Langsung saja Ke TKP, sekarang buat project baru :
Read More
Effand Nozh

Delphi Border Corner


Program Kali ini juga sangat sederhana, dan bias dijadikan penghias form kita agar lebih menarik
Program ini untuk membuat border menjadi melengkung di ke 4 sisinya .. .
Hasil compile nya seperti dibawah ini :

Read More

25 June 2011

Effand Nozh

Timer Pemakaian PC/Laptop Dengan Delphi 7

Pada kesempatan ini admin akan membagikan 1 lagi tips dan trik yaitu membuat Timer dengan delphi
Dimana kali ini kita akan membuat timer dengan delphi yaitu untuk mengetahui berapa lama komputer kita digunakan atau telah berapa lama Laptop kita aktiv. .. .
jadi dengan demikian kita bisa mengetahui sudah berapa jam kah laptop kita sudah dipakai . .

langsung saja buka delphi anda
pada project kemudian tambahkan 1 label dan 1 button kemudian klik 2x button tersebut lalu setelah itu anda tinggal mengkopikan script dibawah ini .. . .


Read More
Effand Nozh

Membuat Background RGB di Delphi 7

Pembahasan Kali ini saya akan menunjukan atau membagikan tutorial tentang Membuat Background RGB di Delphi 7 . .. 
Script yang digunakan juga sederhana . . .
Kurang Lebih tampilan seperti dibawah ini :

Read More
Effand Nozh

Delphi Database Sederhana

Baik di posting yang pertama ini saya ingin membagi berbagai tips yang mungkin bisa membantu temen-teman dalam mengerjakan Tugas atau sekedar Belajar Bahasa Pemrograman Delphi 7 . .. .
Langsung saja kita disini akan membuat sebuah database sederhana menggunakan 2 Form yang akan dibuat seperti screen dibawah ini . .


Read More