Tulisan Biasa Penulis

DOWNLOAD DISINI

Delphi 7.0 eror atau gagal Running mungkin terjadi pada windows 7 atau tidak compatibly dengan Window 7 atau versi diatas Windows XP seperti pada gambar dibawah ini : Cara Mengatasi mudah tekan Tombol start pada keyboard . atau pada Desktop Klik kanan pada Delphi 7 >> Propierties lalu Ceklist seperti gambar dibawah ini Pilih tab Compatibilty Lalu Ok Setelah itu Klik kanan Kembali Delphi 7 dan Run Administator . Selamat Delphi 7 Sudah Bisa anda Gunakan... :)

Qreport adalah komponen yang Langsung tertanam pada delphi 7, tetapi untuk menggunakan nya terlebih dahulu harus kita instal, Berbeda dengan Versi diatas nya Qreport sudah langsung ada. Qreport digunakan untuk mencetak Laporan Seperti hal nya kita ingin membuat struk penjualan atau laporan lain nya sesuai dengan kebutuhan. Berikut ini Langkah" nya. 1. Buka Aplikasi Delphi 7 2.Pada Menu Bar Pilih Component >> Install Packages >> Add 3. Lalu Cari Pada Drive C: atau sesuai kan letak anda menginstal Delphi 7 4.Pilih Borland >> Delphi 7 >> Bin Ketikan Ini dclqrt70.bpl 5.Seperti gambar dibawah ini : 6. Bila sudah Tekan Ok 7. Dan liat pada Pojok Kanan >> Geser Selamat Qreport Berhasil Anda Instal... 

Sebelum nya sudah saya post membuat bootable dengan Flashdisk disini , Selanjutnya saya akan posting sedikit cara burning CD/VCD sesuai ukuran dengan kebutuhan anda. Burning ini bisa digunakan untuk Data atau Sistem Operasi. Maaf untuk Topik diatas karena saya terlalu semangat :v Download UltraIso 1. Run Administrator ultra Iso 2. File >> open pilih Iso sistem Operasi 3. Seperti gambar ini setelah di buka 4. selanjutnya klik icon ini atau klik Tools>>Burn CD/DVD Image 5. Klik Verify 6. Selanjutnya terakhir klik pada Burn Tinggal tunggu beberapa saat... Mudah kan :) Semoga bermanfaat ...

Penampakan seperti diatas terdiri dari tanggal + inisial pelanggan saya singkat PP + no urut pelanggan Komponen yang digunakan qpelanggan= adoquery letakkan pada procedure atau sesuai kebutuhan anda... procedure autonumber; berikut lisitng program nya : procedure TForm1.autonumber; var kode : Double; begin qpelanggan.Close; qpelanggan.SQL.Clear; qpelanggan.SQL.Add(' select * from tblpelanggan order by kd '); qpelanggan.Open; if qpelanggan.RecordCount = 0 then kode:=001 else begin qpelanggan.Last; kode:=StrToFloat(copy (qpelanggankd.AsString,1,3)); kode:=kode + 1; end; edkode.Text:=  FormatDateTime('yy//mm/dd',Date) + 'PP'  + FormatFloat('000',kode); if qpelanggan.RecordCount > kode then begin ShowMessage('database full hubungi pengembang'); Form1.Close; end;

Berikut ini tampilan program Jasa pembuatan hubungi Facebook Admin Tanya jawab silahkan berikan komentar :)