Contoh Program Siap Pakai Mengunakan Delphi 7

free download , Kumpulan Program Delphi Lengkap
bebas download, Source Code Program Delphi
berbagi ilmu pengetahua,Tutorial Delphi

1. Sistem Informasi Showroom Sepeda Motor V.1.0	Download
2. Sistem Informasi Showroom Sepeda Motor V.2.0	Download
3. Sistem Informasi Akademik SMK/SMA	Download
4. Sistem Informasi Penggajian Bank Swasta	Download
5. Sistem Informasi PPOB	Download
6. Program Farmasi	Download
7. Program Rawat Inap Rumah sakit	Download
8. Program Penelitian Geologi	Download
9. Program Inventarisasi Jaminan Bank	Download
10. Program Kompresi Citra (Chroma Subsampling)	Download
11. Program Kompresi Citra (Chroma Subsampling) V2.0	Download
12. Program Merubah nama File(Auto Renamer)	Download
13. program membuat Sertifikat	Download
14. program Konversi Suhu (Android)+ source Code	Download
15. program Penjualan Toko Bangunan	Download
16. Program Cek Tombol Keyboard Dengan Delphi	Download
17. Program Cek LCD Dengan Delphi 7	Download
18. Program Utility Save Walpaper	Download
19. program membuat Sertifikat V. 1.5	Download
20. program Jual Beli Di Minimarket V1.0	Download
21. Program Alarm / Bel Sekolah dengan Delphi 7	Download
22. Program penerapan Algoritma Cluster Dengan Delphi 7	Download
23. Program Aplikasi penerapan Algoritma Naive Buyes Dg Delphi 7	Download
24. Program Aplikasi Algoritma Naive Buyes V2.0 Dg Delphi 7	Download
25. Program Aplikasi Algoritma Naive Buyes V2.5 Dg Delphi 7	Download
26. Program Aplikasi Penjualan Eskrim Menggunakan Delphi 7	Download
27. Program Aplikasi di Industri Kayu Menggunakan Delphi 7	Download
28. Program Servis dan Penjualan Suku Cadang Sepeda Motor	Download
29. Program Permohonan Surat di kantor/Instansi	Download
30. Program Menonaktifkan USB Flasdisk	Download
31. Program Test Dengan Komputer SPT UNBK	Download
32. Program Aplikasi BK (Bimbingan Konseling)	Download
33. Program Simpan pinjam di Bank Swasta (BMT)	Download
34. Program Pembayaran listrik dengan Delphi + Source Code	Download
35. Program Perpustakaan Sekolah + Source Code	Download
36. Program Implementasi Algoritma Aproksimasi + Source Code	Download
37. Program Implementasi Enkripsi MD5 / HASH	Download

Komponen Delphi Fast Report Terbaru

komponen fast report adalah salah satu komponen untuk membuat laporan yang m=paling keren menurut admin. dari kemudahan bahasa, sampai dengan penggunakan serta tampilanya yang menarik membuat komponen ini diminati banyaki programmer. 

ada beberapa kasus waktu lalu mimin menggunakan fast report versi 4.9 dengan delphi 7 sebagai software bahasanya. kemudian menggunak windows 10 sebagai sistem operasi pembuat programnya. setelah aplikasi berhasil di render, ternyata aplikasi tidak bisa di jalankan pada komputer lain terutama pada tampilan laporanya

nah ini contoh laporanya.

dawri brosing sama sini ternyata juga tidak nemu permalasalahany.

ahirnya nekad aja mimin ganti dengan versi terbaru yaitu versi 6. 

update terbaru ternyata pada class exportnya yang lebih mumpuni dan powerful

berikut tampilan komponen fast report 6.0

nah buat teman-teman yang mau download komponen tersebut silahkan buka link dibawah ya....

https://delphi-zones.blogspot.com/p/komponen-delphi.html

 

MENERAPKAN ENKRIPSI HASH MD5 KE PROGRAM DELPHI 7

Keamanan sebuah sistem yang kita bangun adalah harapan yang didambakan para programer dan pemilik sistem. banayk cara dilakukan, salah satunya menerapkan Enkripsi yang sudah sangat terkenal dan di pake oleh banyak orang karena keandalanya yaitu MD5..

enkripsi MD5 ini hampir bisa diterapkan di semua jenis pemrogramman, bahkan di dalah delphi 7. sudah ada komponen yang membuatnya dan kita tinggal menuliskan pada uses saja

bagi kalian yang belum memiliki komponenya, bisa di download disini ya

Download komponen Delphi 7 Hash MD5

nah untuk langkah-langkah menerapkanya pada delphi 7, alangkah baiknya simak video berikut ini ya sob

kalau sudah menyimak video diatas, dan kalaian ingin mencoba, berikut sudah saya sertakan hasil aplikasi di dalam video ya…

Download Aplikasi Sederhana Penerapan Enkripsi MD5
Download Aplikasi Sederhana penerapan Enkripsi MD5 Alternatif2

menerapkan Algoritma Aproksimasi dengan Delphi 7

Aproksimasi adalah pendekatan hasil pengukuran, misalnya panjang, masa, luas dan waktu dari suatu benda yang diukur karena hasil dari suatu pengukuran tidak memberikan ketelitian yang mutlak (absolut). 



download Alghoritma Aproksimasi + Source Code dalam bahasa Delphi

Program Implementasi Algoritma Aproksimasi dengan Delphi + Source Code

halo gaes, lagi ngetren ngetrenya panggil gaes ternyata, heee..
kali ini saya mencoba untuk memposting program yang saya buat dalam rangka implementasi Algoritma Aproksimasi menggunakan bahasa pemrogramman Delphi 7.
tapi sebelumnya sudah tau blm ni gaes apa itu aproksimasi?

Aproksimasi adalah pendekatan hasil pengukuran, misalnya panjang, masa, luas dan waktu dari suatu benda yang diukur karena hasil dari suatu pengukuran tidak memberikan ketelitian yang mutlak (absolut). Termasuk dalam aproksimasi yaitu : pengukuran, penimbangan, dan penakaran.


Download Program Implementasi Algoritma Aproksimasi dengan Delphi 

Program perpustaan Sekolah + SC

program ini masih dalam tahapan sederhana, hanya untuk sekedar pembelajaran
.belum memiliki fitur yang komplek. dikerjakan dalam tugas kelompok
ada 2 elemen sederhana yaitu buku, dan anggota kemudian 1 transaksi yaitu peminjaman
program ini dibuat dengan bahasa delphi. dan masih sangat bisa untuk dikembangkan

jadi bagi agan agan yang membutuhkan source code. silahkan bisa di download pada link dibawah




Download program perpustakaan

UTAK ATIK DBGRID / CRDBGRID DENGAN MENAMBAH WARNA HOVER / WARNA SAAT MOUSE DI ATAS BARIS DAN MEMILIHNYA PADA DELPHI

hai sobat hibhib yang budiman, dbgrid bawaan standar delphi sering menyuguhkan warna secara default yang tidak bisa di ubah pada menu properties, warna tersebut biasanya adalah putih pada fontnya dan hitam pada backgroundnya saaat diselec record. hal ini sudah lumrah, tapi akan menjadi malasalah mana kala warna bacgroud dasarnya di ganti dan di utak atik, atau pingin lebih dengan warna sesuai custom atau yang kita inginkan,milsal Highlighting Mouse Pointer. berikut adalah cara hack atau mengubah tampilan dasar dari dbgrid atatu crdbgrid pada komponen mydac untuk delphi.
kami anggap anda sudah menguasai struktur dari unit.pas delphi

pada bagian code dibawah type tambahkan baris perintah berikut

THackingGrid = class(TDBGrid);

Arahkan kursor pada bagian deklarasi private dan public.
Tepat dibawah deklarasi private, sebelum public tambahkan deklarasi variabel, procedure dan property baru seperti ini:

Private
fMouseOver: Integer;
procedure SetMouseOver(const Value: Integer);
property MouseOver: integer read fMouseOver write SetMouseOver;

Arahkan kursor ke bagian implementation (dibawah kata kunci implementation), buat procedure SetMouseOver yang sudah dideklarasikan sebelumnya, menjadi seperti ini:

procedure TForm1.SetMouseOver(const Value: Integer);
begin
if fMouseOver <> Value then
begin
fMouseOver:= Value;
DBGrid1.Repaint;
end;
end;

Klik ganda menu OnMouseMove sehingga code editor akan mengantar kita bada kerangka kode event tersebut. Tepat diatas kata kunci begin, deklarasikan variabel baru:

var
point: TGridCoord;
begin
point:= DbGrid1.MouseCoord(x, y);
MouseOver:= point.Y;
end;

yang terakhir harus dilakukan adalah membuat koding yang terkait pada event untuk membuat highlighting baris data pada saat mouse melewati baris data DBGrid1. Untuk menyelesaikan tujuan itu, kembali ke Object Inspector, arahkan pada events OnDrawColumnCell lalu klik ganda hingga kerangka events terbuka pada code editor. Ketikkan kode seperti ini, tepat dibawah kata kunci begin:

procedure TForm1.DBGrid1DrawColumnCell
(Sender: TObject; const Rect: TRect; DataCol: Integer;
Column: TColumn; State: TGridDrawState);
begin
if (THackDBGrid(DBGrid1).DataLink.ActiveRecord + 1 =
THackDBGrid(DBGrid1).Row)
or (gdFocused in State) or (gdSelected in State) then
begin
DBGrid1.Canvas.Brush.Color := clSkyBlue;
DBGrid1.Canvas.Font.Style := DBGrid1.Canvas.Font.Style + [fsBold];
DBGrid1.Canvas.Font.Color := clRed;
end;
end;

sumber
hibhib.com

CARA MEMBUKA CASH DRAWER RJ 11 TERHUBUNG KE MINI PRINTER DOT MATRIX USB DENGAN POS COMMAND DELPHI

kawan hibhib yang budiman. berawal dari permintaan user untuk membuat program Point Of Sale (POS) atau program toko minimarket yang harus suport sengan printer dot matrix usb 58mm dan cash drawer yang terhubung ke printer dengan konektor RJ11, dan alhamdulillah dapat berhasil dengan baik. walaupun harus melewati perjalanan yang tidak mudah, berkali kali brosing dan uji coba, gagal. sebagian besar saat brosing yang saya temukan adalah peinter yang menggunakan COM sebagai koneksinya. sementara kebutuhanya adalah menggunakwn USB.

bahasa yang saya gunakan adalah menggunakan bahasa delphi. pada mulanya membaca sebuah aricle yang bahasa juga sulit dimengerti karena bahasa inggris, heee. ini hasil brosing yang saya dapatkan

var
f:textfile;
Begin
assignfile(f);
try
rewete(f,’nama comport’);
//membuka laci uang dengan pos escape
writeln(f,chr(27),chr(220),…)
closefile(f);
except
showmessage(‘gagal membuka laci uang’);
end;
end;

saya coba berulang kali ternyata tetap gagal, sampai mengganti nama port dengan ‘USB002′ Sesuai dengan yang saya baca.
namun tetap gagal.

setelah melirik pada sebuah web, saya menemukan ada yang menggunakan uses printers pada delphi. itulah pertama kali titik terang yang saya dapatkan. kemudian saya coba sedikit ubah coding yang tadi menjadi..
var
f:textfile;
Begin
assignprn(f);
try
rewete(f,’nama comport’);
//membuka laci uang dengan pos escape
writeln(f,’tek yang akan di cetak’);
closefile(f);
except
showmessage(‘gagal membuka laci uang’);
end;

dan alhamdulillah coding ini word 100%.
struk pada mini printer keluar dan mencetak sesuai dengan yang saya tulis pada writeln.dan yang paling saya suka adalah, laci uang juga terbuka….

taraaa..
baik listing code selengkapnya sebagai berikut…

naik agan sekalian, sekian dulu. semoga bermanfaat.
happy berselancar di dunia maya…
bagi yang menemukwn artikel ini, silahkan komentar…
heee

// Sumber

https://hibhib.com/cara-membuka-cash-drawer-rj-11-terhubung-ke-mini-printer-dot-matrix-usb/

program pembayran Listrik Dengan Delphi + Source Code

baik Agan sekalian, program ini dibuat dalam rangka mencoba untuk mengerjakan Ujian
beikut adalah skema dari konseptual databasenya

baik gan langsung saja. untuk mencoba programnya sekaligus mendapatkan source codenya silahkan kunjungi website resminya di 

Program Simpan Pinjam Di Bank Swasta (BMT)

Selamat Pagi agan agan sekalia, kali ini saya akan berbagi tentang program aplikasi yang saya buat untuk Tugas Akhir teman saya yaitu Program Simpan pinjam di Sebuah Bank Swasta (BMT). program ini dibuat pada tahun 2013. saya kira Source Codenya sudah ilang, ee. ternyata masing mingslep di sebuah hardisk yang gak kepake. dari pada tidak bermanfaat, maka saya coba share kan saja. heee.

Gambar1.0 Contoh Form Simpanan

Gambar 2.0 Contoh Form Penarikan

gambar 3.0 Contoh Form Pengajuan pinjaman

Gambar 4.0 Realiasai Pinjaman

Gambar 5.0 Anggusan

Gambar 6.0 Penggajian karyawan

Gambar 7.0 Input Pengeluaran harian

Gambar 8.0 laporan pembayaran

Program ini terdapat beberapa fitur unggulan diantaranya terdiri dari pengelolaan data nasabah, pengelolaan data karyawan,data tabungan / simpanan, dan pinjaman
, Realisasi, Pinjaman, Gaji karyawan
Untuk Dowload program, Silahkan klik Link dibawah ini





Download Aplikasi Simpan Pinjam di bank Swasta dengan bahasa Delphi


Untuk Source Codenya bisa Kunjungi Link dibawah ini

Program Aplikasi untuk BK(Bimbingan konseling) Disekolah

salam agan -agan Semua, kali ini saya ingin ngeshare aplikasi yang sebenarnnya sudah lama saya buat untuk kepentingan sekolah, yaitu program tentang pengelolaan Bimbingan konseling(BK disekolah).
Program ini mampu menangani kredit point tiap siswa, sehingga bisa menentukan dengan cepat jumlah pelanggaran dan kredit poin siswa yang dicari.
tambahan utama pada program ini adalah menggunakan Algoritma yang mampu menganalisa karakter siswa dalam satu sekolah secara keseluruhan.

untuk download aplikasinya disini

Aplikasi bimbingan Konseling (BK) V1.5

untuk mendapatkan source Code dalam bahasa delphi, silahkan kunjungi website resminya yaitu di


www.hibhib.com

Program E - Test atau Tes Dengan Komputer Seperti UNBK

Baik kawan sekalian, program ini hampir selesai dalam proses pembuatanya. seperti biasa, saya buat dengan delphi 7.
program ini terdiri dari 2 exe. dimana 1 untuk server dan yang 1 untuk client nya
1 server dapat melayani beberapa client. tergantung dari speck servernya
Cara Instalasi
1.Instal terlebih dahulu databasenya pada sisi server (bagi yang belum paham, bisa baca dahulu tutorial sebelumnya)
2. Instal Juga File Client pada komputer Client
3. Seting Koneksi Client ke database Komputer Server
4. Tingal Jalankan Deh

oh iya, untuk soal dan kunci jawaban, bisa diisi sesuai dengan kebutuhan


kelemahan
belum bisa memuat gambar
jadi bagi agan agan yang mau membantu, akan saya berikan sourcodennya kemudian silahkan di edit.
untuk lebih jelas silakan klik link dibawah ini

https://hibhib.com/software-test-ulangan-berbasis-komputer-gratis-open-source/

program menonaktifkan Fungsi USB pada Komputer

Program ini saya beri nama "Nz USB Save1.0" karena masih dalam tahap pengembangan.

halo kawan sekalian, kalau dilihat dari judulnya memang aneh ya? hee

biasanya orang kan mencari komputer ya harus ada USBnya kok malah dimatikan.. 

cuma ini kasusnya beda gays.. 

kebetulan saya mengelola Laboratorium Sekolah.

untuk antisipasi penyalah gunaan ketika ujian berbasis komputer. maka USB untuk Flasdisk perlu dilok. 

setelah brosing sana sini didapatkan kesimpulah bahwa fungsi USB bisa dinonaktifkan lewa Registry. caranya sebagai berikut :

1. Klik Start -->RUN --> ketik regedit --> klik OK
2. Di jendela Registry Editor masuk ke :HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR

3. Dobel klik dword Start(di sebelah kanan) ganti Value Data yang semula 3 menjadi 4 --> klik OK. --> tutup jendela registry editor
Sekarang fungsi USB disk sudah disable (untuk beberapa kasus, komputer harus restart ).

Untuk mengembalikan fungsi USB disk menjadi normal kembali ulangi langkah seperti di atas, pada langkah ketiga kembalikan ValueData dari 4 menjadi 3.

nah bagi sebagian orang, masuk registri merupakan hal yang membingungkan. nah DARI SITU AHIRNYA SAYA ISENG BUAT PROGRAM DENGAN DELPHI

1. pertama buat sebuah form baru

2. isi form tersebut dengan 2 button dan ganti captionya sesuai pada gambar

3. Pada uses di form utama silahkan tuliskan registry

4.pada chekbok (Aktifkan USB flashdis ) silahkan tuliskan sintax berikut

if CheckBox4.Checked=true then

    begin

    regbuat(HKEY_LOCAL_MACHINE,'\SYSTEM\CurrentControlSet\services\USBSTOR','int','Start','3');

    BitBtn3.Enabled:=false;

    //CheckBox4.Checked:=true;

    //CheckBox4Click(Sender);

    BitBtn2.Enabled:=true;

    Label14.Caption:='USB Aktif';

    end

    else

    begin

    regbuat(HKEY_LOCAL_MACHINE,'\SYSTEM\CurrentControlSet\services\USBSTOR','int','Start','4');

    BitBtn3.Enabled:=true;

    //CheckBox4.Checked:=false;

    //CheckBox4Click(Sender);

    BitBtn2.Enabled:=false;

    Label14.Caption:='USB Tidak Aktif';

    end;

ket :

regbuat adalah sebuah fungsi yang telah saya buat terlebih dahulu sebelunya

function regbuat(key:HKEY;rot,status,nama,nilai:string):string;

begin

reg:=TRegistry.Create;

reg.RootKey:=key;

reg.OpenKey(rot,true);

if status='str' then

    begin

    reg.WriteString(nama,nilai);

    end

    else

if status='bol' then

    begin

    reg.WriteBool(nama,strtobool(nilai));

    end

    else

if status='int' then

    begin

    reg.WriteInteger(nama,StrToInt(nilai));

    end

    else

if status='date' then

    begin

    reg.WriteDate(nama,StrToDate(nilai));

    end;

if status='cur' then

    begin

    reg.WriteCurrency(nama,StrToCurr(nilai));

    end;

if status='float' then

    begin

    reg.WriteFloat(nama,StrToFloat(nilai));

    end;

reg.CloseKey;

reg.Free;

end;

5. pada button "matikan USB" tuliskan perintah berikut ini

BitBtn3.Enabled:=true;

CheckBox4.Checked:=false;

CheckBox4Click(Sender);

BitBtn2.Enabled:=false;

Label14.Caption:='USB Tidak Aktif';

dan pada button "hidupkan USB"  sebaliknya 

BitBtn3.Enabled:=false;

CheckBox4.Checked:=true;

CheckBox4Click(Sender);

BitBtn2.Enabled:=true;

Label14.Caption:='USB Aktif';

6. terhir tinggal compile dah , heee

ok kawan dari pada pusing, ini langsung saya bagikan aplikasinya
silahkan klik link download dibawah ini

Download Nz USB save V1.0

untuk sorce codenya bisa klik link dibawah ini

Download Nz USB Save V1.0 + Source Code

Mencari Selisih Tanggal pada Komponen Datetime Picker

dalam beberapa kasus contohnya dalam proses pembutan program penyewaan, tentunya akan menjumpai selisih antar tanggal.
contoh kasus adalah ketika seseorang meminjam barang, baik itu rental mobil, atau buku, pada saat mengembalikan di tanggal itu, maka program harus bisa mendeteksi apakan waktu pengembaliana telat, atau tidak,. kemudian berapa dendanya begitu kan gan? hehee

oke gan untuk mencari selisih waktu pada delphi kita bisa menggunakan fungsi yang telah disediakan yaitu
DaysBetween

bentuk umumnya adalah
DaysBetween(Waktu1,Waktu2)

fungsi tersebut akan menghasilkan nilai balik berupa integer

contoh penerapanya adalah sebagai berikut

procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
a:=DaysBetween(DateTimePicker1.Date,DateTimePicker2.Date);
Edit1.Text:=FloatToStr(a);
end;
contoh rancangan interfavenya sebagai berikut

contoh program selengkapnya bisa di download dengan klik link dibawah ini

https://drive.google.com/open?id=0B0T9jFZChgVIQ2NLcWJ3ZzZvUTg

salam berkarya gan

Program Permohonan Surat Di kantor Desa atau Kecamatan

Gambar 1.0 Form Input Pemohon

Program ini hanya untuk tahap pembelajaran semata
dibuat karena ada salahsatu teman dari jauh meminta bantuan masalah it dikantornya.
bisa dikatakan program ini adalah bahan dasar untuk pembelajaran Pemrogramman Database dalam bahasa Delphi.
langkah pertama adalah buat form utama terlebih dahulu seperti pada gambar disamping

Gambar 2. Form Utama

yang kedua buat form baru dan desain lah dengan berbagai komponen seperti pada gambar 1.0\

kemudian buat form ke 3 untuk menampilkan hasil input pemohon seperti pada gambar dibawah ini

Gambar 3. Data Pemohon

pada form utama, main menu data, silahkan tuliskan perintah berikut ini agar form pemohon bisa dipanggil dari form utama

Gambar 4. Sintak Memanggil FOrm Pemohon

sekarang kembali ke form pemohon, kita coba mengfungsikan tombol simpan, silahkan klik 2 kali pada tombol simpan, kemudian diantara begin dan end isikan baris perintah berikut ini

procedure TfPemohonIn.btsimpanClick(Sender: TObject);
var i:integer;
 a:Boolean;
dataku:TDataSet;
gambarasl,gambartujuan:pchar;
gambarA,gambarB:string;
begin
if futama.cekKosong(Edit1,'Id no KTP belum ditentukan')=true then exit;
if futama.cekKosong(Edit2,'Nama Anggota belum ditentukan')=true then exit;
if futama.cekKosong(Edit3,'Tempat Tanggal Lahir belum ditentukan')=true then exit;


if btsimpan.Caption='Simpan' then
    begin
    //cek jika sudah ada data yang sama

    futama.MyCommand1.SQL.Clear;
    futama.MyCommand1.SQL.Add('insert into pemohon '+
    '(no_ktp,nama,tempatlahir,tgllahir,kelamin,agama,pekerjaan,pendidikanterakhir,'+
    ' alamat,foto) values('+
    QuotedStr(Edit1.Text)+','+
    QuotedStr(Edit2.Text)+','+
    QuotedStr(Edit3.Text)+','+
    QuotedStr(FormatDateTime('yyyy/mm/dd',DateTimePicker1.Date))+','+
    QuotedStr(cbjns_kel.Text)+','+
    QuotedStr(Edit4.Text)+','+
    QuotedStr(Edit5.Text)+','+
    QuotedStr(Edit6.Text)+','+
    QuotedStr(Edit7.Text)+','+
    QuotedStr(Edit1.Text+'.jpg')+')');
    futama.MyCommand1.Execute;

      //copy gambar
   if FileExists(Edit8.Text)=true then
      begin
      if DirectoryExists(ExtractFilePath(Application.ExeName)+'Gambar')=false then
          CreateDir(ExtractFilePath(Application.ExeName)+'Gambar');
      gambarasl:=Pchar(OpenPictureDialog1.FileName);
      gambartujuan:=Pchar(ExtractFilePath(Application.ExeName)+'Gambar\'+Edit1.Text+'.jpg');
      CopyFile(gambarasl,gambartujuan,true);
      end;

    ShowMessage( 'Proses penyimpanan berhasil');
    end
    else
    begin
    futama.MyCommand1.SQL.Clear;
    futama.MyCommand1.SQL.Add('update pemohon set '+
    'no_ktp='+QuotedStr(Edit1.Text)+
    ',nama='+QuotedStr(Edit2.Text)+
    ',tempatlahir='+QuotedStr(Edit3.Text)+
    ',tgllahir='+QuotedStr(FormatDateTime('yyyy/mm/dd',DateTimePicker1.Date))+
    ',kelamin='+QuotedStr(cbjns_kel.Text)+
    ',agama='+QuotedStr(Edit4.Text)+
    ',pekerjaan='+QuotedStr(Edit5.Text)+
    ',pendidikanterakhir='+QuotedStr(Edit6.Text)+
    ',alamat='+QuotedStr(Edit7.Text)+
    ' where no_ktp='+QuotedStr(lbkode.Caption));
    futama.MyCommand1.Execute;
 
    //update gambar
    if FileExists(Edit8.Text)=true then
      begin
      gambarA:=ExtractFileName(OpenPictureDialog1.FileName);
      gambarB:=Edit1.Text+'.jpg';
      gambarasl:=Pchar(OpenPictureDialog1.FileName);
      gambartujuan:=Pchar(ExtractFilePath(Application.ExeName)+'Gambar\'+Edit1.Text+'.jpg');

      if gambarA<>gambarB then
          begin
          DeleteFile(ExtractFilePath(Application.ExeName)+'Gambar\'+lbkode.Caption+'.jpg');
          CopyFile(gambarasl,gambartujuan,true);
          end;
      end;
   
    ShowMessage('update berhasil');

    end;
btbatalClick(Sender);
if fpemohon<>nil then fPemohon.MyQuery1.Refresh;
end;

tapi sebelumnya silahkan sobat install dulu databasenya ya, bisa copy pada folder contoh di paketan ini.

berikut ini adalah beberapa hal yang dibutuhkan sebelum anda mencobanya
1. Install Komponen Mydac V8.3.9 for delpji 7
2. Install Software Xampp dan aktifkan server MySQL
3. Install Software navicat v.8.0.29 enterprise
3. buka navicat dan buat database dengan nama "permohonan"
3. impor file database (pemohon.sql)yang ada pada folder DB satu paket dengan file permohonan.rar
cara Import
a. Klik kanan database permohonan kemudian pilih "execute bacth file"
b. cari file database nya (permohonan.sql)
c. chek Continue on Erroors
d. strart
f. Finish

nhah kawan selamat mencoba, yang kurang jelas bisa ditanyakan langsung lewat komentar atau email, thanks

oh iya untuk download contohnya bisa klik link dibawah ini :

http://adf.ly/6054696/dp-sc-programpermohonan

Program Servis dan Penjualan Suku Cadang di Mataram Motor

Program ini dibuat dalam rangka untuk memenuhi tugas akhir mata kuliah Teknik Komputer.
sehingga pada program lengkap dengan laporanya dari bab 1 sampai akhir.
untuk mendownload laporan Skripsi dan Rancangan program bisa klik link dibawah ini

http://laporan-skripsi.blogspot.co.id/2016/12/skripsi-sistem-informasi-servis-dan.html

Program ini diberi judul Sistem Informasi Servis dan penjualan Suku Cadang Di Mataram Motor Wonosobo.
dalam program ini sudah dapat mengcover beberapa proses diantaranya adalah

Penanganan Master Data

1. Data Suplier
2. Data Mekanik
3. Data Kendaraan
4. Data Customer

Penanganan Servis

1. Data Paket Servis
2. Proses Pendaftaran Servis Kendaraan
3. Servis
4. Komplain Servis

Penanganan Suku Cadang

1. Data Suku Cadang
2. Jenis Suku Cadang
3. Pembelian
4. Penjualan Suku Cadang

Laporan
Untuk laporan saya buat menggunakan Fast Report dengan tampilan yng sangat user frindly
banyak sekali laporanyang sudah saya suguhkan diantaranya:

1. Laporan Data
2. Laporan Servis
3. Laporan Penjualan dan Pembelian
4. Laporan Laba Rugi

1. 

untuk mencoba aplikasi trsebut bisa download dengan klik link dibawah ini

Program Aplikasi Servis dan Penjulanan Suku Cadang Sepeda Motor

ffast respone L email : delphi.programku@gmail.com

Program Aplikasi di Pabrik kayu (bensaw) dengan Delphi 7

Program ini saya buat karna ada permintaan dari seorang Bos perusahaan kayu yang akan mengubah ke sistemnya menjadi terkomputerisasi.
tujuanya untuk mempermudah administrasi sekaligus kecepatan laporan untuk menentukan rugi dan labanya
dalam program ini mencangkup

1. Pembelian Kayu langsung maupun dari perusahaan lain
2. Perkiraan Produksi dari Bahan mentah yang ada
3. Penggajian karyawan
4. Laporan Laba Rugi
5. Dll

karna program ini ditujukan untuk laporan skripsi, maka terdapat pula rancangan databasenya maupun alur sistemnya menggunakan DFD, Flowmap, Normalisasi, dan HIPO

baik sob, untuk mencoba aplikasinya
Silahkan download aplikasinya dengan klik link dibawah ini



Program Aplikasi Pengolahan kayu di Pabrik Kayu (bensaw)

Program Algoritma Naive Bayes 2.5 Menentukan Kelayakan PIP

Program indonesia pintar merupakan program pemerintah yang dinilai sangat efektif dalam meningkatkan mutu pendidikan Masarakat terutama yang kurang mampu.program ini mampu mengurangi angka putus sekolah dibawah usia 12 tahun. akan tetapi, terkadang pemberian PIP ini masih belum menjangkau semua masarakat yang memang sebetulnya sangat membutuhkan.
dalam penelitian ini, penulis mencoba untuk membuat sebuah aplikasi berbahasa delphi untuk menentukan kelayakan mendapatkan PIP berdasarkan jarak Siswa ke Sekolah, Pendidikan Orang Tua, Pekerjaan Orang tua dan Penghasilan.

dalam sample sudah disertakan sejumlah 182 siswa yang menerima mauoun tidak menerima Program indonesia Pintar disebuah SD Negeri ternama.
langkah-langkahnya sebagai berikut
1. pengelompokan data
  a. alamat 182 siswa dikelompokan menjadi 3 yaitu Jauh, Sedang dan Dekat
  b. Pendidikan orang tua dikelompokan menjadi : Rendah, Sedang dan tinggi
  c. Pekerjaan Orang tua dikelompokan menjadi : Petani, Wiraswasta, dan Buruh
  d. Penghasilan Orang tua dikelompokan menjdi Sedang dan tinggi
2. Ambil beberapa Sample Siswa
3. terapkan Algoritma terhadap masing-masing variable setiap siswa
   contoh siswa pertama memiliki alamat dekat, pendidikan orang tua rendah, pekerjaan petani, penghasilan sedang, apakah layak mendapatkan PIP?


untuk lebih jelasnya bisa download contoh aplikasi Algoritma Naive Bayes dengan klik link dibawah ini
Download Program Naive bayes Versi 2.5

Program Algoritma Naive Bayes Data Meaning V.2 Dengan Delphi 7

Program Algoritma naive bayes Data meaning V.2 ini merupakan program penyempurna dari versi sebelumnya. bagi yang belum punya bisa kunjungi di link bawah ini

http://delphi-zones.blogspot.co.id/2016/11/program-aplikasi-penerapan-algoritma.html

pada versi 2 ini menggunakan variable yang berbeda dibandingkan versi sebelumnya yang  digunakan untuk memutuskan prestasi siswa apakah meningkat atau tidak.

untuk menentukan siswa memiliki prestasi yang meniungkat atau tidak, pada program ini sudah kami uji coba terhadap 182 siswa di SD Watuduwur Purworejo.

berikut ini adalah data siswa

variable yang menentukan adalah berdasarkan Motivasi baik /Kurang, Disiplin :kurang/baik , Dukungan Orang Tua : baik/kurang, Lingkungan : baik atau Kurang.

berikut adalah screenshoot program dalam mengambil data siswa dari database

untuk memanggil data seluruh siswa , tekan tombol ambil data karakter siswa dan hasilnya seperti pada gambar diatas

langkah berikutnya adalah pilih salah satu data siswa atau lebih dengan menekan tombol Ambil 1 Sample Siswa sebagai sample untuk uji coba algoritma naive bayes berdasarkan variable diatas.

langkah yang terahir adalah tekan tombol terapkan algoritma

hasilnya seperti pada gambar dibawah ini

bagaimana kawan tertarik untuk mencoba atau sedang membutuhkan contoh untuk tugas..

bisa download contoh aplikasinya dengan klik dibawah ini gan

Program Algoritma Naive bayes V2.0

untuk Source Kodenya bisa klik link dibawah ini

Source Code Program Algoritma Naive bayes

Untuk Instalasinya, Berikut adalah langkah langkahnya

1. ekstrak folder "program Clasifier Nbayes Prestasi V2.1"

2. Buka Navicat untuk memasukan database MySQL yang sudah ada dalam paket
   yang belum punya Aplikasi Navycat bisa Download disini

3. Buat Database dengan nama "sd_watuduwur"

4.Klik Kanan nama databse tersebut dan pilih Execute

5. Setelah Proses restore selesai, bisa langsung menjalankan program exenya

selamat mencoba

Program Penjualan Eskrim Dengan Delphi 7

Program Penjualan ini dibuat menggunakan delphi 7 dan dengan database Microsoft office Access dengan ekstensi *.mdb.
dalam paketanya, saya sertakan juga tutorial pembuatan database dan koneksi ke databasenya
monggo bagi yang sedang mencoba untuk mengerjakan tugas kuliah, atau memang yang sedang mempelajari coding berbahasa delphi, juga saya sertakan source codenya.

bagi yang menginginkan aplikasi hasil compile nya, bisa di download dengan klik link dibawah ini



Aplikasi Penjualan Eskrim

untuk source codenya bisa klik link dibawah ini