E-DOC E-Doc (Edysoftware-Delphi Online Course) HADIR SITUS TERBARU KAMI SEBAGAI LAYANAN PEMBELAJARAN DELPHI...! http://delphionderdils.com Kunjungi segera dapatkan artikel dua bahasa secara uptodate beserta source code Hubungi: ID YM : edy_ppkia dan edysoftware email: edysoftware@yahoo.com edy_ppkia@yahoo.com Flexi : 01017-0331-7799690 IM3 : 085732304464 IM3 : 085730598789   Pembayaran : BCA Cabang Jember N a m a : Edy Sutrisno No Rek. : 0243064284 Mandiri Alun-Alun Jember N a m a : Edy Sutrisno No Rek. : 143-00-0225594-9

Mohon bantuan,fastreport

Hai para master firebird.. saya mau minta tolong ini,gini saya mau bikin stored procedure menampilkan pembelian barang. Dan dalam sp itu dipergunakan untuk report. intinya,per 10 item dari pembelian barang si report akan otomatis create hal baru dan batasnya juga 10 item begitu seterusnya.. ... Baca selengkapnya » ================================================= Kamis, 10 Mei 12 - oleh : Damar Rodriego | 0   comment

cara menampilkan bilangan genap n ganjil

mau tanya giman menampilkan bilangan genap dan ganjil tapi menggunakan perulangan fo... makasai atas bantuan nya,,, Jawab: var x:integer; begin for x:=1 to 10 do begin if (x mod 2 )=0 then memo1.lines.add('cetak bil genap : '+inttostr(x)) else memo1.lines.add('cetak bil ganjil : '+inttostr(x)); end; end; ================================================= Kamis, 10 Mei 12 - oleh : bii | 0   comment

mohon bantuannya

maaf saya ingin bertanya saya  pengen melakukan penjumlahan database dari satu field di table a dgn satu field di table b ... Abis ntu hasilnya dimasukin k field c ... terima kasih  mohon bantuannya  Jawab : var nilA,nilB,NilC:integer; begin nilA:=tableA.fieldbyname('nilai').asinteger; nilB:=tableB.fieldbyname('nilai').asinteger; NilC:=NilA+NilB; Tablec.append; tablec.fieldbyname('nilai').asinteger:=NilC; tablec.post;   end;   ================================================= Rabu, 09 Mei 12 - oleh : adithdasopang | 0   comment

cara membuat procedure dan memanggilnya dan enumarasi

berikut ini cara membuat procedur dan memanggilnya unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, Buttons, StdCtrls; type   TManusia = class(TForm)     Button1: TButton;     procedure Kerja(Sender: TObject);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   ... Baca selengkapnya » ================================================= Selasa, 08 Mei 12 - oleh : edy | 0   comment

cara menulis pada string grid

ini adalah procedure untuk menulis text pada stringgrid unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Grids; type   TForm1 = class(TForm)     StringGrid1: TStringGrid;     Button1: TButton;     procedure TulisGrid(sg:tstringgrid;kolom,baris:integer;s:string);     procedure Button1Click(Sender: TObject);   private     { Private ... Baca selengkapnya » ================================================= Selasa, 08 Mei 12 - oleh : edy | 0   comment

MySQL Holic

tool untuk database MySQL, dengan software ini anda bisa mebuat, mengatur database mysql, table, user dan dengan mudah mendapatkan coding delphi secara otomatis dengan klik nama table akan terbentuk coding procedure delphi Bisa anda download di menu top download ================================================= Selasa, 08 Mei 12 - oleh : edy | 0   comment

membuat papan skor

master edy,,saya mau nannya ...bagaimana cara membuat papan skor dengan delphi...contoh ..ada 7 label yg disusun sperti angka 8 ,jika angka 1 maka yg menyala label yg membentuk angka 1 ...mohon pencerahannya master...?? jawab : 1-1 1-1 1-1 mungkin yang dimaksud seperti formasi angka pada kalkulator atau pada alat alat digital . ... Baca selengkapnya » ================================================= Senin, 07 Mei 12 - oleh : awan | 1   comment

sorting berdasarkan kecocokan

assalamualaikum.. mohon bantuan ya mas edy, saya punya masalah begini, misalnya saya punya edit1.text sampai edit5.text terus saya ingin mencari kata di setiap edit text ke dalam data base..setelah datanya dapat kemudian akan di sortir berdasarkan kecocokan...misalnya edit1.text:='aku' edit2.text:='mau' edit3.text:='makan' edit4.text:='sayur' edit5.text:='bening' dan dalam data base ada beberapa record record1=aku suka jalan record2=aku mau tidur record3=makan sayur bening record4=aku makan sayur ... Baca selengkapnya » ================================================= Kamis, 03 Mei 12 - oleh : amir | 2   comment

Tanya browse file dengan delphi

mohon bantuannya master, saya ada tugas kuliah menggunakan delphi, saya masih bingung gimana caranya browse data misal .doc , .txt atau .ppt di delphi dan mengetahui isi data tersebut? terimakasih.. Jawab: gunakan opendialog filter isi dengan .txt untuk mengetahui isi dalam hal ini fomat yang dikenal adalah txt karena itu yang support dengan ... Baca selengkapnya » ================================================= Rabu, 02 Mei 12 - oleh : ariana | 0   comment

Update Artikel

master...... kenapa tidak pernah diupdate lg ini web?, kami lagi haus ilmu delphi  jawab: webnya kena spam.. ribuan masuk.. jadi susah bedakan mana yang baru masuk mana spam.. langsung aja dihapus.. soalnya space kepenuhan ================================================= Senin, 30 April 12 - oleh : Burhan | 0   comment

satu TEdit1 Dua Kata

Master ,saya coba membuat denah tanah lokasi tanah kaplingan jadi blok2 yang terjual atau belum bisa terlihat berapa sisa dan yang terjual. saya coba pakai edit1  dan  DBEdit  Menjadi Dua fungsi tapi ngak tau supaya menjadi 2 fungsi, Umpama Edit1 atau DBEdit Ada Kata Masih (Kosong) dan jika kita klik dia berubah otomatis ... Baca selengkapnya » ================================================= Selasa, 24 April 12 - oleh : adhy | 0   comment

summary group

salam delphi mas edi, sy mohon bantuannya untuk buat qreport delphi 7, misalnya ada data : Nama : Barang A: tgl 1. jns_ transaksi : Keluar =4,Keluar=8 ,Masuk=24, ,, dst tgl 2. jns_transaksi : Keluar=10, Masuk=12, masuk=67, Keluar=7,,dst dng proses ... Baca selengkapnya » ================================================= Senin, 27 Februari 12 - oleh : gilang | 6   comment

menguranggi stok barang secara otomatis

mas,tolong gimana coding menguranggi stok barang yang berada didata barang dengan melakukan diform transaksi,saya mengunakan delphi7 databasenya ms access.thank master Jawab: pake query. 'UPDATE TBARANG SET STOK=STOK-' +ejumlah.text; ================================================= Minggu, 19 Februari 12 - oleh : adhy | 6   comment

buat kwitansi dengan q report

mas.. mw tanya ne.. kan mw bkin laporan kwitansi tp bngung nyusunnya..  ehm.. gini.. saya sudah susun seperti kwitansi tp hasil ndak keluar.. brand type itu bisa ditumpuk apa ndak.? Jawab: jika tidak keluar kemungkinan quickrept belum terhubung dataset atau dataset belum di open bandtype tidak bisa ditumpuk ================================================= Senin, 13 Februari 12 - oleh : aliyudincjdw | 0   comment

membuat search engine

assalamualaikum... mas mnta bntuannya dong...ajarin buat search engine...mencari data di database access...misalnya kita mencari kata "ini budi"..hasilnya program akan mencari kata "ini budi" , "ini" dan "budi"...jadi walaupun terpisah tetap ketemu mas...kaya semacam searching di google gtu :)   mohon bantuannya mas :)  Jawab: pake sql, contoh SELECT * FROM DATA WHERE NAMA LIKE "%INI ... Baca selengkapnya » ================================================= Senin, 06 Februari 12 - oleh : rul | 5   comment

Pengurangan stok bersamaan

ex kasus: tabel : stok_kain transaksi :  brg1: kain merah dengan penjualan 5m brg2:kain biru dengan penjualan 3m brg3:kain hijau dengan penjualan 7m bagaimana pengurangan stok kain merah,biru,& hijau secara bersamaan dalam 1 tabel stok dengan 1 transaksi.. trimakasih sebelumnya mas.  Jawab: perintah update diulang sebanyak jenis barang yang berbeda 'UPDATE TBARANG SET STOK=stok- '+ ... Baca selengkapnya » ================================================= Kamis, 02 Februari 12 - oleh : eza | 3   comment

Cristal Report 8.5

Gan,maw nanya.. gimana sih cara mengkoneksikan Cristal Report Ke Delphi 7..??? gimana listingnya Gan??? mohon di bantu Ya Gan... ================================================= Selasa, 31 Januari 12 - oleh : Mr.U | 0   comment

Membatasi Nilai agar Nilai yang di Inputkan Tidak Boleh Negatif

Permisi .. Saya masih Newbie .. Mau Nanya .. kalau cara membatasi nilai agar nilai tidak boleh bernilai negatif (-) gimana caranya yah ?.. Contoh Kasus : 1. Memasukan Banyak Stock jadi Banyak Stock tersebut tidak boleh ber-Isikan nilai < 1.   Terima Kasih..  Jawab: salah satu ... Baca selengkapnya » ================================================= Kamis, 26 Januari 12 - oleh : Faiq | 1   comment

Menggambil Sebagian String

Misal :  Var kata : string; angka : intege;  begin kata := 'SK-0002' ;  angka := ... ( 0002 ) // diambil dari bagian belakang string kata end;    terima kasih ...   Jawab: angka:=strtoint(copy(kata,3,4); ================================================= Senin, 23 Januari 12 - oleh : ahmad | 0   comment

Penggajian

kak.... apa ya coding delphi penggajian yg soalnya kyk gini : 1. Gaji pokok -> Bos=5.000.000, Staff=3.000.000, OB=2.000.000 2.Jika status belum kawin, maka otomatis textbox jumlahanak dan jumlah istri=0 (nol) , jika status kawin maka textbox jumlah anak dan jumlah istri harus diisi 3. potongan PPh adalah hasil persentase dari gaji pokok 4. ... Baca selengkapnya » ================================================= Minggu, 22 Januari 12 - oleh : novita | 2   comment

Penggajian

kak.... apa ya coding delphi penggajian yg soalnya kyk gini : 1. Gaji pokok -> Bos=5.000.000, Staff=3.000.000, OB=2.000.000 2.Jika status belum kawin, maka otomatis textbox jumlahanak dan jumlah istri=0 (nol) , jika status kawin maka textbox jumlah anak dan jumlah istri harus diisi 3. potongan PPh adalah hasil persentase dari gaji pokok 4. ... Baca selengkapnya » ================================================= Minggu, 22 Januari 12 - oleh : novita | 0   comment

Gimana source kode penghapusan data di dua tabel

Gan gimana yach,,cara mengahpus data di dua tabel,,cz script aku gak jalan. Jawab: hapusnya harus gantian satu satu tabel dulu pertanyaannya kurang jelas.. salahnya dimana ================================================= Kamis, 19 Januari 12 - oleh : adithya | 0   comment

update record tabel mySQL

bagaiman bentuk format sintak untuk update record pada tabel dengan ADO query dgn menggunakan format perintah (format()) pada delphi,thanks.  Jawab:   tolong berikan contoh sql nya langsung pada mysql nanti saya bantu conversi ke delphi ================================================= Rabu, 18 Januari 12 - oleh : lanangcupu | 4   comment

tampilan dbEdit

Pak edy..mohon bantuannya.. bagaimana script membuat tampilan di dbedit ada pemisah ribuan.. sebelumya terima kasih...  Jawab: aktifkan dataset table atau query double klik dataset sehingga tampil jendela field klik kanan add allfields klik field yang akan diberikan format ribuan tekan F11 cari properti displayformat isi property dengan ###,## ================================================= Jumat, 13 Januari 12 - oleh : Luthfi | 0   comment

QREPORT

assalamualaikum,,  mau nanya mas ? aq udah coba buat quick report, yg menggunakan koneksi pake zeos, tp pas di preview qreport nya malah blank(kosong), ini koding yang buat aq nampilin hasil dr quick report nya : QReportMeminjam.QRDBText1.DataSet:= ZTableAnggotaPinjaman; QReportMeminjam.QRDBText1.DataField:='NAMA'; QReportMeminjam.QRDBText2.DataSet:= ZTableAnggotaPinjaman; QReportMeminjam.QRDBText2.DataField:='NOMOR_ANGGOTA'; QReportMeminjam.QRDBText3.DataSet:=ZTablePinjaman; QReportMeminjam.QRDBText3.DataField:='TANGGAL_BULAN_TAHUN'; QReportMeminjam.Preview;  Jawab: beberapa kemungkinan : data kosong mungkin kena filter  ZTableAnggotaPinjaman belum aktif/masih close ================================================= Kamis, 12 Januari 12 - oleh : Aliudin | 0   comment

newbie delphi mau tanya...

1. klo misal sy mo input data nama,alamat, dsb..ttp pas input tgl lahir..klo di input tgl(DateTimePicker) yg melebihi hr ini tdk bs..muncul ket. klo tgl lhir slh/blm lahir crnya gmana y bos??  2. sy pk database Acces..utk no.telepon sy pk tipe data text..bgmna cr agar jika sy input selain ... Baca selengkapnya » ================================================= Rabu, 11 Januari 12 - oleh : badam | 1   comment

Help me

minta bantuannya master,d bawah ini ada listing program pembangkitan kunci. nah saya ingin mnambahkan tombol clear untuk menghapus isi kunci waktu d bngkitkan ( mngembalikan ke 0)saat keluar dari form key atau kemmbali ke form utama  begin  P:=primaaman;  alfa:=primitif(p);  a:=random(p-3)+1;  beta:=fastexp(alfa,a,p);  //Kunci Publik  lblPublicY.Caption:='Y ='+IntToStr(beta);  lblPublicG.Caption:='g ='+IntToStr(alfa);  lblPublicP.Caption:='p ='+IntToStr(p);  //Kunci Private  lblPrivatX.Caption:='x ='+IntToStr(a);  lblPrivatP.Caption:='p ='+IntToStr(p); end;   Jawab: variabelnya ditaruh di bagian public, ... Baca selengkapnya » ================================================= Selasa, 10 Januari 12 - oleh : Bagoez | 1   comment

aray form

Mas saya mau tanya bs gak form itu dijadikan array?? Misal kita ingin melakukan perulangan agar form itu mengulang sesuai perintah kita? mohon bimbingannya Jawab: bisa contohnya di aplikasi ym, dia cuma mengubah caption form, silahkan download TymHTTP di menu top download        achat : array[0..50] of TFrmChat ;  begin     achat[i] := Tfrmchat.Create( self );     ... Baca selengkapnya » ================================================= Senin, 09 Januari 12 - oleh : abdi | 0   comment

minta tolong

master minta tolong ngejelasin skrip rumus ini... bingung ane? begin     c:=0;     input1:='';     for i:=length(input) downto 1 do input1:=input1+input[i]+'';     input1:=uppercase(input1);     for i:=1 to length(input1) do     begin       if (input1[i] in ['A'..'F'])and(i>1)then           c:=((ord(input1[i])-ord('A')+10) shl (4*(i-1)))or c       else       if (input1[i] in ['0'..'9'])and(i>1)then           c:=((ord(input1[i])-ord('0')) ... Baca selengkapnya » ================================================= Sabtu, 07 Januari 12 - oleh : herman | 8   comment

ado koneksi

untuk membuat koneksi dengan ado, berikut ini adalah potongan dari website saya tentang pembahasan delphi dalam dua bahasa di http://delphionderdils.com/ procedure TForm1.FormCreate(Sender: TObject); var spath,scon:string; begin spath:=extractfilepath(application.exename)+'data.mdb'; scon:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ spath+ ';Jet OLEDB:Database Password="delphi7"'+ ';Persist Security Info=False'; ADOConnection1.ConnectionString:=scon; ADOConnection1.LoginPrompt:=false; ... Baca selengkapnya » ================================================= Kamis, 05 Januari 12 - oleh : edy | 0   comment

renge

bos mff mo nanya klo mencari untuk menampilkan data antara tanggal=a sampai tanggal=b gengan ado query gmna cranya klo pke ms acces Jawab: SELECT * FROM TSISWA WHERE TGLDAFTAR>#01/01/2012# AND TGLDAFTAR<#20/01/2011#    tanda # kadang harus ada terkadang tidak, karena mungkin masalah versi ms officenya formasi tanggal dd/mm/yyyy Bisa jadi mengikuti regional setting komputer   ================================================= Rabu, 04 Januari 12 - oleh : rahmad | 0   comment

membuat edit lebih dari satu sekaligus

Untuk membuat edit otomatis dan dalam jumlah banyak. maka dibutuhkan variabel array dari tedit. berikut ini contohnya : procedure TForm1.Button2Click(Sender: TObject); var x: array[1..5] of tedit; i:byte; y:integer; begin for i:=1 to 5 do begin   x[i]:= TEdit.Create(self);   with x[i] do   begin     Parent:=form1;     Left := 128;     Top ... Baca selengkapnya » ================================================= Selasa, 03 Januari 12 - oleh : edy | 8   comment

Membuat Tedit dalam form secara run time

biasanya kita membuat inputan dengan edit pada saat design, nah ternyata bisa juga dibuat pada saat program sedang berjalan. berikut ini contoh codingnya:  procedure TForm1.Button1Click(Sender: TObject); var x:tedit; begin   x:= TEdit.Create(self);   with x do   begin     Parent:=form1; // menempelkan di form     Left := 128;     Top := ... Baca selengkapnya » ================================================= Selasa, 03 Januari 12 - oleh : edy | 0   comment

database

tanya mas, gimana cara edit beberapa record sekaligus pada delphi dengan database access? Jawab : misal mengedit jumlah stok barang yang satuannya box dengan nilai 10 UPDATE TBARANG SET STOK=10 WHERE SATUAN='BOX' addoquery1.close; addoquery1.connection:= ADOConnection1; addoquery1.sql.text:='UPDATE TBARANG SET STOK=10 WHERE SATUAN='+quotedstr('BOX'); ADOQuery1.ExecSQL; atau  ADOConnection1.Execute('UPDATE TBARANG SET STOK=10 WHERE SATUAN='+quotedstr('BOX'));   ================================================= Senin, 02 Januari 12 - oleh : achied | 2   comment

MENAMPILKAN ISI MEMO PADA DBGRID

Master, aku mau nanya nih, bagaimana menampilkan isi memo pada dbgrid soalnya pada field yang diisi memo hanya terisi (Memo).. Tolong bantuannya ya?? Thanks Jawab: misal nama fieldyang berisi memo adalah Catatan gunakan adotable1 dan adoconnetion koneksikan adoconnetion dan adotable1 saat design Double klik Addotable1 pada kotak field klik kanan Add All fields pilih field yang ... Baca selengkapnya » ================================================= Rabu, 28 Desember 11 - oleh : Yan Paul | 0   comment

Warna pada field yang sudah di edit

siang Bang Edy,  saya mau nanya,gimana caranya membuat field yang sudah di update kelihatan berwarna pada grid? misal : nama     alamat badu      jakarta amir      bandung   nama badu dengan alamat jakarta saya update,nama dan alamat tersebut berwarna merah ataupun warna lainnya,sedangkan amir dengan alamat bandung warnanya default. Trus ... Baca selengkapnya » ================================================= Selasa, 27 Desember 11 - oleh : Najmu | 0   comment

animasi flash di belakang label

mas master delphi sy mau nanya dong... sy lagi bikin aplikasi pake delphi 2009 dengan background animasi flash, tapi pas flash-nya disimpen di form, label2 sy jadi di belakang flash itu...  mohon pencerahannya soalnya udah dicoba buat "send to back" di flash-nya tapi tetep gak mau ke belakang label...  ================================================= Selasa, 20 Desember 11 - oleh : danu | 5   comment

Mengubah pointer mouse dan skin

mas master delphi,gwa ada kesusahan ne dlm pembuatan program... saya pgn minta tolong,gmn sih caranya mengubah pointer mouse/cursor dan skin pada delphi 7...thx yah  Jawab : ubah cursor >> form1.Cursor:=crhandpoint; untuk skin cari aja googling di 4shared vclskin banyak disitu yang crack bukan ngajari crack xixixi   ================================================= Minggu, 18 Desember 11 - oleh : rudi | 0   comment

membuat isi laporan kesamping (bukan kebawah)

asslm pak mohon bantuaan ya pak cara membuat laporan menyamping makasih pak Jawab : untuk qreport buka aja foder demos tepatnya di C:\Program Files\Borland\Delphi7\Demos\Quickrpt ================================================= Rabu, 14 Desember 11 - oleh : budi | 6   comment

scanner pada printer-scan

pak bagainmana caranya scan hardware pakai printer-scan trus hasilnya langsung berupa .pdf mhon bantuannya Jawab : belum pernah coba printer tersebut alurnya scan data maka output terbentuk file file tersebut di convert ke pdf coba aja telti file2 yang digunakan printer tersebut mungkin bisa berupa ocx. nah jika ocx ada kemungkinan untuk di import ... Baca selengkapnya » ================================================= Selasa, 13 Desember 11 - oleh : Prayit | 0   comment

Membongkar Exe Aplikasi Buatan Delphi

mas aku tanya, gimana caranya membongkar atau melihat source aplikasi yang dibuat pake delphi yang sudah menjadi Exe atau yang di compile? aku habis pake DeDe (Delphi Decompile) tapi tetap tidak bisa keliat sourcex. Terima kasih sebelumnya jawab: untuk tool2 itu memang hanya formnya yang bisa di dapat, tapi codingnya tetap gak ... Baca selengkapnya » ================================================= Minggu, 11 Desember 11 - oleh : Burhan | 2   comment

range tanggal menggunakan paradox

mas edi minta tolong nih saya mencari data absensi pegawai   dengan nik dari tanggal sekian hingga tanggal sekian.. saya pake database paradox.. terima kasih sebelum nya..   ================================================= Kamis, 08 Desember 11 - oleh : nesken | 0   comment

Duplicate form

mas saya pengen sharing nie menemui masalah bagaimana cara create form dengan otomatis bagaimana membuat program yang dapat melakukan program iterasi dimana iterasinya diperlihatkan dengan mengcreate form secara otomatis  Jawab: contoh form yang di create adalah form2. var form2:tform2; begin form2:=tform2.create(self); form2.show; end; ================================================= Selasa, 06 Desember 11 - oleh : I Putu Gede Abdi Sudiatmika | 6   comment

mohon bantuan 2 looping untuk input MYSQL

Mohon bantuan para master, saya coba buat software sms massal dengan menggunakan 2 hp. permasalahannya disini ialah pada saat input sms ke mysql dengan dua looping. bingung bahasanya sy kasih code sy: procedure TForm3.Button1Click(Sender: TObject); var i: integer; b:integer; begin try for b:=0 to memo2.Lines.Count -1 do begin for i:=1 ... Baca selengkapnya » ================================================= Minggu, 04 Desember 11 - oleh : Luthfi | 1   comment

mencari data dalam field ms.access....

assalamualaikum mas edy,, saya mau nanya ni,,  misalnya saya punya sebuah tabel seprti ini: kasus    gejala  penyakit  solusi kasus1   1,2,3   penyakit1    A      kasus2   4,5,6   penyakit2    B   kemudian saya buat beberapa checkbox yg berupa gejala2 yg ada pada tabel diatas,,, yang ingin saya tnyakan bagaimna mencari kasus yg sesuai ... Baca selengkapnya » ================================================= Rabu, 30 Nopember 11 - oleh : rullah | 5   comment

Mengubah isi listbox ke memo dari line ke baris

Om Master, mau tanya nih, bagai mana mengubah kalimat yang udah dijadikan perline tiap kata dalam komponen listbox dan mengubahnya menjadi satu baris kalimat ke dalam komponen memo. contoh : di listbox aku anak indonesia   trus dimasukkan ke memo menjadi akuanakindonesi.  mohon bantuannya om edy.. jawab: procedure TForm1.Button1Click(Sender: TObject); var i:byte; s:string; begin s:=''; for i:=0 to ... Baca selengkapnya » ================================================= Rabu, 30 Nopember 11 - oleh : Ade Mirza Surahman | 1   comment

Penjumlahan dalam ADOQuery

Sy mau tanya nih mas bro.... sy pakai adoquery1 dbgrid1 tgl transaksi   nama     upah 11/11/2011    Frans    300 12/11/2011    Frans    400  klik button maka muncul penjumlahan upah yang ada pada dbgrid1 ke edit1   Terimakasih seblmnya..... Jawab: adoquery2.close; adoquery2.sql.text:='select sum(upah) as total from gaji';  adoquery2.open; edit11.text:=adoquery2.fieldbyname('total').asstring;   ================================================= Rabu, 30 Nopember 11 - oleh : Ferry | 0   comment

Cara Membuat Login dengan 2 UserName

Mas Edi Mau tanya; Bagaimana cara buat login dengan 2 username, misalkan user STAFF dan ADMIN. pada saat Staff Login, menu yang tampil, menu staff dan bila Admin yg login, maka menu Admin yang tampil. Menu Utamanya berisi MASTER DATA, TRANSAKSI, LAPORAN & KELUAR. Menu Staff (Master Data), Menu Admin (Transaksi, ... Baca selengkapnya » ================================================= Minggu, 27 Nopember 11 - oleh : azzam ronie | 7   comment

tanya komponen convert flv to 3gp, mp4 dan mp3

mas edy minta bantuan nya donk,  mau tanya tau komponen buat convert file flv ke 3gp, mp4 atau mp3 ?  atau ada cara lain untuk selain dengan komponen ?   terima  kasih . ================================================= Rabu, 23 Nopember 11 - oleh : jajang | 4   comment

membuat cetakan memo rapi

mau tanya donk master,, bagaimana membuat cetakan pada memo yang rapi seperti ini,, : ------------------------------------- Nama : Jimmy No.reg  :1 Ruang: 120 No.Urut :4 ------------------------------------- notes:nama, no registrasi dan No,reg diambil dari database  jika Namanya panjang permasalahan yg saya hadapi Cetakan No.Reg akan bergeser..   Jawab: harus membuat pemetaan misal lebar memo adalah 50 huruf maka ... Baca selengkapnya » ================================================= Selasa, 22 Nopember 11 - oleh : jimy | 0   comment

Query dan Source Code untuk relasi 2 Database pada Delphi

Buat mas Edy, websitenya sangat membantu saya dalam memahami delphi.. Saya pengen tanya ni, Query untuk relasi antar dua database (bukan 2 table), mis db_A dan db_B, nah didalm masing2 database ada beberapa table yang saling terhubung. kemudian contoh source codenya di delphi gimana mas, atau kalo menggunakan DM giman source codenya.. ... Baca selengkapnya » ================================================= Sabtu, 19 Nopember 11 - oleh : Aam Andrian | 6   comment

Merubah record dari database MS. Acces

pak Edy yg saya hormati. apa yg salah dari code dibawah ini......    procedure TFormPegDinkes.btUbahClick(Sender: TObject); begin Try ConPegDinkes.BeginTrans;  with Qper do Begin  Qper.Active:=true;    Sql.Text:=('UPDATE Peg Set Nama='+QuotedStr(Dbnama.EditText)+',Set Nip='+QuotedStr(dbNip.EditText)+    ',Set Pangkat_Gol='+QuotedStr(dbPang.EditText)+',Set Jenis_Kelamin='+QuotedStr(dbKelamin.EditText)+    ',Set Jabatan='+QuotedStr(dbjab.EditText)+',Set NPWP='+QuotedStr(dbNpwp.EditText)+    ',Set Bidang='+QuotedStr(dbBid.EditText));    Sql.Text:=('Where Nip='+QuotedStr(EcariNip.Text));    ExecSql;  end; ConPegDinkes.CommitTrans; Except ConPegDinkes.RollbackTrans; end end; end.   pesan error seperti ini: " Invalid SQL Statement; 'DELETE','INSERT','PROCEDURE','SELECT or UPDATE'"   mohon Pak Edy ... Baca selengkapnya » ================================================= Kamis, 17 Nopember 11 - oleh : Luthfi | 6   comment

tanya

mau tnya??? jadi gini aq pnya database mysql dikomputer server dengan ip 192.168.1.33 dan komputer client dengan ip 192.168.1.34  gimana caranya mengkoneksikan database yang ada di komputer client agar bisa terhubung dengan database komputer server??? Jawab: koneksi client ke server mysql jika user menggunakan password , maka user , ip client harus di ... Baca selengkapnya » ================================================= Rabu, 16 Nopember 11 - oleh : dion | 5   comment

tanya

mau tnya??? jadi gini aq pnya database mysql dikomputer server dengan ip 192.168.1.33 dan komputer client dengan ip 192.168.1.34  gimana caranya mengkoneksikan database yang ada di komputer client agar bisa terhubung dengan database komputer server??? Jawab ip komputer client harus didaftarkan dulu di mysql di computer server arahkan host client ke ip server ... Baca selengkapnya » ================================================= Rabu, 16 Nopember 11 - oleh : dion | 0   comment

convert mp3 ke wav

mass... sya lg buat program convert nih,,,  mnta tolong klo source kode/syntax bwt ngeconvert file format mp3 ke wav pke delphi 7.0 gmna y..??? trims ================================================= Selasa, 15 Nopember 11 - oleh : andri | 5   comment

Menyimpan setting koneksi

berikut ini contoh menyimpan setting koneksi database mysql ke dalam registri dengan bantuan variable public berbentuk record. nama variabel tersebut adalah con procedure TFrmMain.BtnSDatabaseClick(Sender: TObject); var reg:tregistry; begin if messagedlg('Simpan setting...?',mtconfirmation,[mbyes,mbno],0)=mryes then begin  con.Hostname:=ehostname.Text;  con.DataBasename:=eDataBasename.Text;  con.User:=eUser.Text;  con.Password:=ePassword.Text;  con.Port:=ePort.Text;   data.Disconnect;  data.Hostname:=con.Hostname;  data.Database:=con.DataBasename;  data.User:=con.User;  data.Password:=con.Password;  data.Port:=strtoint(con.Port);  data.Protocol:='mysql';  data.Connect;     ... Baca selengkapnya » ================================================= Selasa, 15 Nopember 11 - oleh : edy sutrisno | 5   comment

handle proses dbgrid

Para Master semuanya... Mohon bantuanya, saya melakukan pembacaan dbgrid dari first sampai last. Tapi saat melakukan looping tsb program saya seperti macet dan harus ditunggu sampai selesai proses looping baru bisa menjalankan proses yang selanjutnya. pertanyaan saya bagaimana cara handlenya supaya saat proses looping dilakukan akan diikuti proses progress bar sebagai indikasi ... Baca selengkapnya » ================================================= Minggu, 13 Nopember 11 - oleh : Viri | 0   comment

convert dbgrid

para master delphi yg saya hormati,,, mohon bantuanya... Saya bikin aplikasi sederhana melakukan convert data dari sql ke dbf, tapi saat proses konversi berlangsung aplikasi program ga bisa di apa2in sampai proses konversi selesai..  Bagaimana caranya handle convert dbgrid? jadi saat konversi berlangsung akan saya tambahkan progress barr sebagai petunjuk proses konversi ... Baca selengkapnya » ================================================= Minggu, 13 Nopember 11 - oleh : firi | 5   comment

cara mengisi stringgrid

berikut ini contoh mengisi stringgrid dengan angka 1 sampai 100 procedure TForm2.Button4Click(Sender: TObject); var x,y:integer; begin  stringgrid1.ColCount:=4;  stringgrid1.RowCount:=100;  for y := 1 to 100 do  begin    for x := 0 to 4 do    begin    stringgrid1.Cells[x,y]:=inttostr(y);    end;  end; end; ================================================= Jumat, 11 Nopember 11 - oleh : edy | 0   comment

ERROR Delphi

salam digital, para mastah yang berbahagia.. sy mw tny ni. saat compile program Delphi semua baik2 saja tpi ketika di-run timbul pesan error "Exception EOleException in module "namaProject.exe" at 001282EC. Missing Connection or ConnectionString" bagi para mastah, mohon pencerhannya... Jawab : connection string dikosongi component connection jangan aktif waktu design aktifkan waktu onshow form sebelum aktif connection string ... Baca selengkapnya » ================================================= Jumat, 11 Nopember 11 - oleh : Kary | 1   comment

membuat laporan pada delphi

asslm pak de.. minta pencerahan dan petunjuk gmaman cara membuat laporan memanjang kesamping ex: nama            tanggal                      1|2|3|4|5|6 andi              H|H|H|H|S|A makasi... Jawab: Gunakan free report atau qreport jika pake qreport ada rbheader, ada rb detail. nah untuk ... Baca selengkapnya » ================================================= Selasa, 08 Nopember 11 - oleh : BUDI | 7   comment

help database

maaf saya mau nanya, gimana cara nya mengambil 1 data dari database kemudian di tampilkan pada label setelah menekan tombol. contoh data dalam tabel byk idskill   nama   waktu s01     mining     90 s02     cuting       80   saya mau ambil data kedua setelah menekan tombol dan menampilkan ... Baca selengkapnya » ================================================= Rabu, 02 Nopember 11 - oleh : Silvia | 1   comment

Menampilkan data dari tabel ke form lain

Pak Edy.. mohon bantuanny.. apa codyngnya jika ingin menampilkan data secara otomatis dari tabel ke form lain. misalnya ingin menampilkan kode user yang aktif dari tabel user ke edit1 yang ada di form Simpanan wajib. mohon pencerahannya pak. Terimakasih... jawab: formsimpananwajib.edit1.text:=formutama.kodeuser; ================================================= Selasa, 01 Nopember 11 - oleh : Rani | 6   comment

menampilkan Record ke edit1.text dari database MS. Accses

Ass, Wr.Wb Pak Edi,   saya baru belajar Delphi, saya membuat sebuah aplikasi database, saya ingin merubah data dari Database Ms. Acces menggunakan Delphi, bagaimana cara membuat codenya. minsalnya mencari nama pegawai berdasarkan NIP. dan menampilkanya ke edit2.text untuk di ubah. mohon arahanya, sblmnya trima kasih. Wassalam   Jawab: buat koneksi dengan adoconnetion  sambungkan dengan databasenya sambungkan ... Baca selengkapnya » ================================================= Selasa, 01 Nopember 11 - oleh : Luthfi | 0   comment

konversi aksara jawa

Saya ingin membuat aplikasi konversi latin ke aksara jawa. Aplikasi yang ingin saya buat ini menggunakan 2 buah Memo (Memo1 untuk huruf latin dan Memo2 untuk aksara jawa), dan 1 buah Button (Button Konversi). Apabila kita memasukkan kalimat di Memo1 dan menekan Button Konversi, maka secara ... Baca selengkapnya » ================================================= Minggu, 30 Oktober 11 - oleh : wendi | 0   comment

Bluetooth di delphi 7

Mas edy mau tanya nie... komponen delphi untuk ngirim data dengan bluetooth...maksudnya komponen bluetoothnya apa?... kemudian komponen agar bisa akses webcam didelphi....mohon bantuannya Jawab : cari aja googling WBluetoothSocket.pas itu nama componentnya   ================================================= Sabtu, 29 Oktober 11 - oleh : Maskur | 2   comment

[ASK] Cara simpan data dari tEdit ke sql server

Salam kenal, Saya pemula nih bos, mau nanya. Bagaimana cara  simpan data (tEdit.Text) ke tabel database sql server? saya dah coba buat kayak dibawah ini bos.. tapi tetep tdk berhasil. procedure TFInputSoal.Button1Click(Sender: TObject); begin         ado_simpan.append;         ado_simpan.FieldByName('kd_soal').AsString:=edit1.Text;         ado_simpan.FieldByName('desk_soal').AsString:=memo1.Text;         ado_simpan.FieldByName('ch_a').AsString:=edit2.Text;         ado_simpan.FieldByName('ch_b').AsString:=edit3.Text;         ado_simpan.FieldByName('ch_c').AsString:=edit4.Text;         ado_simpan.FieldByName('ch_d').AsString:=edit5.Text;         ado_simpan.FieldByName('ch_e').AsString:=edit6.Text;         ... Baca selengkapnya » ================================================= Selasa, 25 Oktober 11 - oleh : ibn | 5   comment

matriks dalam Tstringgrid

mau tanya nih pak… tentang matriks Tstringgrid.. misalnya : matriks 5×5 O/D 1 2 3 4 5 1 0 5 10 5 5 2 5 0 2 5 10 3 10 2 0 10 12 4 5 5 10 0 10 5 5 10 ... Baca selengkapnya » ================================================= Rabu, 19 Oktober 11 - oleh : vintara | 5   comment

Mengecek Komponen Yang Kosong

Mas bagaimana caranya melakukan pengecekan apabila saat menekan tombol Simpan dilakukan pengecekan terhadap komponen yang belum terisi dan kursor langsung menunjuk pada komponen tersebut serta warna pada semua komponen yang belum terisi langsung berwarna merah. contoh Dalam 1 Form terdiri : Edit1 Edit2 edit3 edit1 terisi dan edit 2 dan edit 3 tidak terisi, jadi ... Baca selengkapnya » ================================================= Senin, 17 Oktober 11 - oleh : Burhan | 6   comment

matriks dalam Tstringgrid

misalnya : matriks 5x5 dalam Tstringgrid O/D 1 2 3 4 5 1 0 5 10 5 5 2 ... Baca selengkapnya » ================================================= Senin, 17 Oktober 11 - oleh : vintara | 5   comment

70 Tutorials Before »

Tutorials

Tdelphi Delphi Tutorials/ Delphi Enviroment Treserved Word key word Ttype Data All About Data types Tstatements All about statements Tprocedures contoh penggunaan prosedur Tfunctions Contoh penggunaan fungsi TDatabase metode akses database TBDE All about Borland Database Engine Tregistry penggunaan registri Tqreport membuat laporan TExport Excel All about export data to excel TFile Directory manage file and directories Tprinter berbgai metode mencetak ke kertas Tindy pengunaan komponen indy Tunix unix tips and triks TKonsultasi bagi anda yang ingin berkonsultasi silahkan kirim artikel di Topik Tkonsultasi. Kami jawab selama kami mampu VCL Component Component VCL third party TSQL Perintah Perintah SQL TGraphic pencetakan grafik, canvas TMySQL Pembahasan Database MySQL dengan Delphi TInterbase Pembahasan Database Interbase dengan Delphi TFireBird Pembahasan Database Firebird dengan Delphi TOracle Pembahasan Database Oracle dengan Deelphi TMsSql Server Pembahasan Database Microsoft SQL Server Dengan Delphi TFreeReport Component Free untuk membuat laporan dengan mudah, cepat, ringan bisa export ke beberapa format TADO teknik koneksi ke database menggunakan komponen ADO TMyProject Project Pengelola situs Humor selingan dalam membuat program biar gak stress kena erorr 20x