KASKUS

stau ane mah bikin ndiri gan... ni contohnya procedure Split(const Delimiter: Char; Input: string; const Strings: TStrings); begin Assert(Assigned(Strings)); Strings.Clear; Strings.Delimiter := Delimiter; Strings.DelimitedText := Input; end; procedure TForm1.Button1Click(Sender: TObject) ; var A...

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

tadi ane udah nyobain gan,. file exe. yg ada database ny,. ane pake paradox bawaannya delphi,. tp ko eror y.. gini eror ny : "exception EDatabaseError in module Projectmahasiswa.exe at 00086004. dbeNAMA:Field 'NAMA MAHASISWA' not found." itu gmn gan?.. itu NAMA MAHASISWA ada k...

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

agan-agan sekalian ane butuh bantuan negh.. untuk baca string dari mikro negh.... string yang harusnya terbaca ada 12 digit plus " - " dan 6 digit berikutnya, jadi totalnya ada 19 digit.... nagh kalo di VB ada kan tugh perintah untuk split dengan memasukkan pemisahnya... kalo di delphi ...

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

gan mau tanya negh.... kalo kita mau buat notifikasi jka port com yang dipilih salah dan diminta untuk milih lagi gimana yagh? mohon pencerahannya agan2 semua.... terimakasih.... :ilovekaskus

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

" UUtama.pas(56): Published field 'ComPort1' not a class nor interface type" gimana gan belom ada jalan keluar dari error ini....

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

Coba spasinya dihilangkan jadi ComPort1 itu di gabung gan tanpa sepasi... ane aja yang salah tulis di situ.... gmn gan? ada jalan keluar lain?

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

"Published Field "ComPort 1" not a class nor interface type" kok bisa ada keluar itu ya gan.. padahal sebelum2nya ga pernah lho keluar error kaya gitu... jadi ga bisa di compile dia.... tolong bantuanya gan...... :iloveindonesia:iloveindonesia

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

gwa lagi belajar ntu gan :p rfid read write,..ayo blajar bareng gan Gan referensinya dah dapet? bagi2 DUNK gan,, hihihihi....

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

Alow agan2 semua..... mau tanya negh, dah pernah ada yang yang buat sms gateway pake nrComm belom? kalo udah ada atau tau artikel2 tentang itu boleh sharing2 dunk disini.....

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

Tanya lagi gan... mau minta contoh penggunaan RFID pada Delpji dunk...... thaks semua//.....

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

masa sih :amazed: coba ini deh :bingung: ADOQuery1.close; ADOQuery1.sql.text := 'select * from TbKaryawan where RDIF like '+QuotedStr('%'+EID.Text+'%'); ADOQuery1.open; if ADOQuery1.recordcount > 0 then begin EID.text := ADOQuery1.fieldbyname('RDIF').as...

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

FIELDByName maskudnya gan, salah ketik :malu: kelewatan ketiknya tadi :hammer: Tetep ga bisa gan......

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

coba gini gan: with ADOQuery1 do begin close; sql.text('select * from TbKaryawan where RDIF like '+ QuotedStr('%'+EID.Text+'%')); open; end; if ADOQuery1.recordcount > 0 then begin EID.SelectAll; EID.SetFocus; EID.text := ADOQuery1.fiedbyname('RFID').ass...

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

Coba perhatiin yg gw bold gan...ko bisa beda gitu?emg beda field,atau salah ketik? Salah ketik gan.. hahaha, lelah mata ne gan, ngejar setoran, cuma kok sama aja ga biss muncul data yang sesuai dengan no RFIDnya.... RFID isinya apa? autoincreament? di tabel ada isinya gak? RFID isinya cuma sekump...

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

Coba perhatiin yg gw bold gan...ko bisa beda gitu?emg beda field,atau salah ketik? wah ia gan.... buset, lelah mata negh kejar setoran... hehehe... thaks gan....

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

Gan mau tanya lagi dunk... kalo untuk mencari isi database dengan kata kunci tertentu, dan memunculkan keseluruhan tabel dalam TEdit atau TLabel itu gmn? tolong bantuanya gan.. ane dagh nyoba dengan cara ini with ADOQuery1 do begin close; sql.clear; sql.add('select * from TbKaryawan where RD...

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

jangan lupa pake exec SQL. jika error gak ada coba cek apa ada rutin untuk mengintercept error nya? try // query insert except // do nothing end; jika ya jangan begini gak bagus... sudah ada gan exec-nya... dan saya ga pake interceptnya....

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

udah gak error lg gan?coba di check lagi mungkin agan ada yg lupa,di liat2 lg code and properties2 nya Kalo errornya dah ga keluar lagi.. cuma dataya masih belum masuk, jadi cuma ada kolom kosong doang ga da isinya,,,,... gimana ya gan?

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

value2 ini apa gan (InID,InNama,InAlamat,InNoHP,Foto,InPass)? apakah nama komponen atau variable? klo tu nama komponen (biasanya textBox entrian user) sy biasa nulisnya kyk gini: itu variable gan....

Membalas thread wonguedantenan

{Terminal} Delphi and Pascal

menggunakan object stream dan TBlobField gan...potongan kodenya mungkin seperti ini: untuk menyimpan gambar: procedure simpanFoto(img:TImage) var conn: TADOConnection; ds: TADODataSet; blob: TBlobField; strim: TMemoryStream; begin {inisialisasi objek koneksi dan dataset} conn := TADOConnection....