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

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 | 2   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 | 0   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 | 1   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 | 0   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 | 0   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 | 0   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 | 1   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 | 0   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

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 | 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 | 1   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

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

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 | 0   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 | 6   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 | 0   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 | 5   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 | 1   comment

Filter berdasarkan Range

Mas Edhy saya mau tanya, kenapa hasil filter berdasar range tidak muncul pada db grid. Saya menggunakan syntax ini : 'select * from tbbeli where tanggal between"'+datetostr(datetimepicker1.Date)+'"and"'+datetostr(datetimepicker2.Date)+'"'  Ket :  -tbbeli = nama tabel -tanggal = variabel yg ingin di filter pada tb beli (format data : Date) -datetimepicker1 & 2 = komponen yg dipakai untuk ... Baca selengkapnya » ================================================= Sabtu, 15 Oktober 11 - oleh : Karim | 4   comment

warna pada dbgrid

pak minta tolong gmana kalo memberi warna pada dbgrid dimana data yang ada (tanggalnya lebih kecil dari  tanggal sistem) contoh  tanggal data 19-10-10 akan berwarna merah apabila telah tanggal 19-10-11 makasi pak... jawab: procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if Table1.FieldByName('hiredate').AsDateTime DBGrid1.Canvas.Font.Color:=clred; DBGrid1.DefaultDrawColumnCell (Rect, ... Baca selengkapnya » ================================================= Jumat, 14 Oktober 11 - oleh : BUDI | 0   comment

[Revisi] Cara ambil 2 karakter

mas edy .. mohon maaf sblumnya .. mksd saya di kiriman artikel sebelumnya bgini .. kan kalimatnya 'parcel' tuh .. nah saya mau ambil huruf p dan l nya misal . nah nti tampilnya atau cara lihatnya di enterprise Managernya SQL Server mas .. bgaimna tu cranya mas ini nomer ... Baca selengkapnya » ================================================= Minggu, 02 Oktober 11 - oleh : Gandhi Rusdiana | 0   comment

[Help} Cara ambil 2 karakter

Mas Edy .. minta ajarin cara ambil 2 karakter. saya taunya yg 1 karakter ky gni : if cbxkategori.Text = 'parcel' then   begin   sql.Parameters.Add('@pkategori',cbxkategori.text.substring(0,1)); nah kalo yg biar 2 ky gmn ya mas? ato pake coding apa?? trima kasih atas perhatiannya .. ... Baca selengkapnya » ================================================= Minggu, 02 Oktober 11 - oleh : Gandhi Rusdiana | 0   comment

ekeyviol prosedure

tu buat apaan ya,...??menghindari duplikasi no indeks ??? tapi pas di run ga Bisa... pdhl uda bener listingnya... const eKeyViol = 9729; eRequiredFieldMissing = 9732; eForeignKey = 9733; eDetailsExist = 9734; eSqlGralerror = 13059; implementation{$R *.DFM}Baca selengkapnya » ================================================= Sabtu, 01 Oktober 11 - oleh : winnnn | 5   comment

QRExpr Didelphi

Master mau tanya nie..... giman caranya membulatkan angka menjadi dua  angka dibelakang koma misal 3,45555 menjadi 3,40...di QRExpr  yang diambildari palletQreport... terima kasi atas bantuanya mas... Jawab: pada property mask atau format kalo tidak salah dengan memasukan tanda ###,## saran : pake aja freereport lebih cepat dan lebih mudah.. search di google free ================================================= Rabu, 28 September 11 - oleh : Maskur | 0   comment

Tanya tentang TRegistry

pak mau tanya, saya punya code seperti ini: procedure TfrmMain.createValue(const yesNo: Boolean); const   rootKeys = 'Software\Microsoft\Windows\CurrentVersion\Policies\System';   opt : array[False .. True ] of word = (0,1); var   xReg :TRegistry; begin   xReg := nil;   with xReg do   begin     try       Create;       RootKey := HKEY_CURRENT_USER;       if OpenKey(rootKeys, False) then     ... Baca selengkapnya » ================================================= Senin, 26 September 11 - oleh : FitriAry | 2   comment

Memfilter Data Dengan TQuery

Aku mau tanya mas.... Contoh kasus aplikasi pembayaran siswa meliputi spp, osis. yang ingin saya tanyakan bagaimana cara menampilkan data siswa yang belum membayar untuk bulan tertentu. Dengan ketentuan jika NIS yang ada pada Tabel Siswa belum ada pada Tabel Pembayaran maka dianggap belum membayar. terima kasih jawab : select * from siswa ... Baca selengkapnya » ================================================= Senin, 26 September 11 - oleh : Burhan | 5   comment

MEMBUAT LAPORAN SECARA VERTIKAL

Asslm Pak pak edi saya minta pencerahan gmana membuat laporan dalam bentuk seperti : nama       tgl hadir                1|2|3|4|5 adi         H|H|H|H|H keterangan  H : HAdir makasi pak Jawab : sama aja dengan report yang mendatar, tinggal jarak atas dan bawah detail dilebarkan aja kemudian taruh di bawahnya.    ================================================= Senin, 26 September 11 - oleh : BUDI | 0   comment

MENGETAHUI DAN MENGHAPUS DATA ITU SENDIRI APABILA DATA TERSEBUT TELAH LEWAT (EXPAYET)

Asslm Pak Edi minta pencerahanya ni gmana y cara mengetahui data tersebut sudah lewat (expayet) dan kemudian dengan sendirinya data tersebut terhapus makasi y om .... jawab : ambil data tanggal expired bandingankan dengan tanggal sistem jika sama maka lakukan perintah penghapusan semua kegiatan ini di berikan pada component timer ================================================= Minggu, 25 September 11 - oleh : awing | 5   comment

cara mencetak satu record saja dalam sebuah tabel database

ciang....   gmn nih cara mencetak satu record saja dalam sebuah tabel database.  misalkan kita klik satu record yng mau dicetak, gmn pemilihannya?? mgkn ada listing atau code source trtntu???  mohon dijawab prtnyaanku... salam win Jawab: jika mencetak record dalam qreport gunakan rb title jangan pake rbdetail taruh qrdbtext di rbtilte tersebut maka record aktif yg akan ... Baca selengkapnya » ================================================= Minggu, 25 September 11 - oleh : win | 5   comment

shioi

assalamualiakum,maaf saya mau tanya gimana caranya 1.untuk coding mengetahui shio dari tahun masehi Jawab: harus mengetahui batasan range tanggal shio buat patokan sample enghitungan data mulai lakukan penghitungan tanggal berdasarkan patokan tersebut. contoh : saat membuat program untuk menentukan pasaran hari pon, wage kliwon, legi, pahing maka kita ambil patokan tanggal 17 agustus 1945 yang jatuh ... Baca selengkapnya » ================================================= Rabu, 21 September 11 - oleh : heri teguh triyono | 0   comment

membatasi pembayaran gaji tidak dua kali dalam 1 bulan

met mlm pak mohon bantunya membatasi pembayaran  2 kali dalam sebulan maksi om Jawab: query data pembayaran berdasarkan NIP dan bulan aktif jika datanya tidak kosong maka pembayaran ditolak. artinya sudah terjadi pembayaran di bulan tersebut. contoh query : SELECT * FROM BAYAR WHERE NIP="0001" AND MONTH(TGLBAYAR)=MONTH(NOW()) ... Baca selengkapnya » ================================================= Senin, 19 September 11 - oleh : bayu | 0   comment

Konekasi antar form pada delphi

assalammualaikum, om mau tanya ni sintak buat kita koneksikan form, saya buat program coba2,  seperti yang saya buat, data master anggaran di form1 dan data pencairan di form2, trus saya ingin data rincian di form1 muncul di form2 tanpa harus membuat Tedit lagi. terima kasih. Jawab : jika menggunakan table dalam database ... Baca selengkapnya » ================================================= Minggu, 18 September 11 - oleh : Rifki | 1   comment

Tanya Qreport Tidak ada

mas edy kenapa yach habis saya nginstal delphi 7 di windows 7 qrepotrnya tidak ada, saya sudah coba install packages juga tidak ada di folder BIN nya, mohon bantuanya mas edy.. Terima Kasih mas edy jawab: menu component install package  add open file dclqrt70.bpl file tersebut ada di folder bin   ================================================= Rabu, 14 September 11 - oleh : sukarada | 8   comment

Optimalisasi Karakter

saya newbie nih....lagi buat aplikasi coba2..... begini  saya mau menginputkan data di edit.text yaitu 5.2.2.01.01 tetapi inputannya hanya mngetikkan 5220101 dan secara otomatis titiknya ada di belakang angka yang saya inginkan.intinya angka berapapun yang kita inputkan secara otomatis program akan menempatkan posisi titik seperti angka di atas. terima kasih sebelumnya....... ... Baca selengkapnya » ================================================= Kamis, 08 September 11 - oleh : Rifki | 4   comment

Mohon Bantuanya

Om Master Tolong Dung,saya new bie ni, saya mau buat combobox, edit di dalam skrolbox tapi tidak mengambil dari panel, jadi kalau kita jalankan trus kita isi comboboxnya bertambah lagi dibawahnya combobox baru yang kosong, tolong dunk sript nya. makasi om. Jawab: ini pertanyaannya kurang begitu jelas maksudnya. namun mungkin yang ... Baca selengkapnya » ================================================= Kamis, 08 September 11 - oleh : Rifki | 0   comment

amplikasi sederhana dan program sederhana

assalamualiakum,maaf saya mau tanya gimana caranya 1. membuat amplikasi sedrehana untuk mengetahui berapa kali seseorang melihat tahun baru berdasarkan inputan dia lahir 2. membuat program bantu belajar (sd kelas 3 berhubungan dg bangun ruang trimakasih atas bantuannya Jawab : 1. mengetahui tahun baru identik dengan umur. yaitu dengan cara mengurangi tahun sekarang dengan ... Baca selengkapnya » ================================================= Rabu, 07 September 11 - oleh : heri teguh triono | 5   comment

tanya menjumlahkan

pak edi mohon bantuanya asslm pak edi saya minta tolong gmana menjumlahkan hasil dari data yang telah lewat misal kehadiran pegawai pada bulan juli dapat dilihat jumlah kehadiran masuk kerja pada form lihat jumlah hadir (terpisah pada form absen)  yang jadi pertanyaan saya yaitu sintak query pada form lihat kehadiran gmana ... Baca selengkapnya » ================================================= Selasa, 30 Agustus 11 - oleh : awing | 1   comment

isi field tertentu melalui form yg berbeda

salam kenal mas, sy mw tanya, gmn cara nya mengisi DBEdit untuk field nomor pesan yg data nya diambil dari form berbeda. contoh klo mw retur brg dri nomor pesan tertentu, klo pake dblookupcombobox, nomor pesan terlalu pjg di scroll ke bwh ketika datanya sudah tahunan jdi ambil no pesan ... Baca selengkapnya » ================================================= Selasa, 30 Agustus 11 - oleh : Icha | 0   comment

membagi data dari satu kolom tabel ke beberapa tabel

gimana ya solusinya,,,,??? ada data dalam 2 kolom tabel seperti ini: 01/02/03         07:03 01/02/03         12:00 01/02/03         22:00 02/02/03         07:14 02/02/03         13:03 02/02/03         22:00 kemudian di jadikan 4kolom  seperti ini 01/02/03    07:03   12:00   22:00 02/02/03    07:14   13:03   22:00 mohon bantuan codingnya..... jawab : menggunakan looping bisa for atau while menguji posisi record dengan mod atau ... Baca selengkapnya » ================================================= Senin, 29 Agustus 11 - oleh : affan | 1   comment

check palindrome

selamat siang pak..  ini pak, saya baru belajar delphi..  jadi sedikit gagap dengan code nya.. saya mau nanya pengolahan string untuk check 2 kata palindrome atau tidak..  boleh sedikit petunjuk untuk code nya pak..   terimakasih pak.. Jawab: kasih contohnya langsung aja mas.. apa maksud palindrome.. ================================================= Rabu, 24 Agustus 11 - oleh : tino | 5   comment

MENJUMLAHKAN DATA DIDATABASE

pak de ... minta tolong gmana menjumlahkan data kehadiran pada database absen kemudian ditampilkan ke form lihat kehadiran, ( absen untuk bulan yang telah lewat) makasi pak de... SELECT COUNT(HADIR) AS TOTAL FROM ABSEN WHERE MONTH(TANGGAL)<MONTH(NOW()) hadir << nama field karena pertanyaan gak detil datanya jadi jawaban sementara seperti ini ================================================= Sabtu, 20 Agustus 11 - oleh : BUDI | 3   comment

Cek listing

asslm pak de... mau tanya bener gk listing ini ( menjumlahkan absen kehadiran dalam satu bulan yang telah lewat)  {SQL.Text:='SELECT count(nipo) as jumlah,count(tglabsen) FROM tabsenmasuk WHERE nipo = ' + QuotedStr(FBAYAR.NIPO.Text) +                     ' AND (TGLABSEN >= #' + FormatDateTime('mm/dd/yyyy',StrToDate(tglawalan))+ '#)';           } contoh query pake database ms access S:='SELECT TANGGAL,NOBIL,IDPEL,IDMETER,SNMETER,NAMA,ALAMAT,TELEPON,TARIF,JUMLAH,'+ 'HARGA,TOTAL,KASIR FROM TBILLING'+ ... Baca selengkapnya » ================================================= Sabtu, 20 Agustus 11 - oleh : BUDI | 0   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