.. .. procedure TForm1.BitBtnDeleteClick(Sender: TObject); begin if MessageDlg('Data Blackberry Ingin dihapus ?',mtInformation,,0)=mrYes then begin dm.dbpakarbb.Execute('delete from blackberry where kd_bb='+QuotedStr(Edit1.Text)); dm.blackberry.Requery; ShowMessage('Data sudah dihap
Aku masih bingung dengan coding yang agan beri, Aku cuman sekedar sedikit kasih info sebagai newbi: jika kita pakai if maka strukturnya: If ...... then begin ..... else ...... end; kalau if di gabung sama MessageDlg aku baru menemui. udah saya tes gan jadi error malah... else nya gak kebaca pr
All Germany Final Selamat Buat Bayern Munich melibas Barcelona kemaren, dan hari ini Selamat juga buat Borusia Dortmund yang melibas Real Madrid .. hahahaah....hahah....haaaa............. Buat Barca lovers mungkin peluang mu tinggal 10% , kalo Madridista 40% ... Jadi Munchen vs ???? -->>
di databasenya sendiri datanya ke update / delete gak? stlh jalanin program itu? karena button save nya bisa, jadi ada penambahan di databasenya.. klo pada delete , tidak bisa berkurang kalo pada edit , dbgridnya ,readonly harus di false kan dolo... baru di edit di tabelnya baru bisa ke edit gan.
Aku masih bingung dengan coding yang agan beri, Aku cuman sekedar sedikit kasih info sebagai newbi: jika kita pakai if maka strukturnya: If ...... then begin ..... else ...... end; kalau if di gabung sama MessageDlg aku baru menemui. o0o0, mungkin koding saya kurang lengkap ya... ntar saya cob
Mengenai programnya, maksudnya ga ngefek itu seperti apa? Gak efek itu, button edit,delete,cancel, kalo di tekan/klik ke tabel nya gak ngaruh... misalnya gw tekan delete seharusnya kan datanya berkurang , tapi gak berkurang .. tetap saja kyk semula... kalo button edit nya bisa berubah tapi pada db
jika anda terhubung ke database melalui tdatasource cukup hubungkan button2 tersebut dengan tActionlist jadi anda ga perlu bikin wrapper sendiri, coba liat2 help tentang tactionlist untuk lebih detailnya..... gan, masih bingung ane dgn tactionlist... adoconection,adoquery,datasource saya smua b
gan, untuk kirim listing program, gunakan tag , jangan gunakan tag ... bacanya pusing ... :berbusa sry gann masih pemula...:matabelo
implementation {$R *.dfm} procedure TForm1.tampildata; begin with dm.blackberry do //dm->data module begin sql.Clear; sql.Add('select * from blackberry'); Active:=false; Active:=true; end; end; procedure TForm1.bersih; begin Edit1.Clear; Edit2.Clear; end; procedure TForm1.BitBtnExitClick(Send
iya gan saya tau koding itu.... tapi prosedur awal nya gimn sbelum kita mengaktifkan button nya? soalnya saya buat gitu gak tepaat koding nya...apa harus buat procedure tersendiri lagi.... kalo ada skrip yg lengkap mungkin saya lebih paham..
iya benar kata agan diatas , yang anda ketik itu sudah rule nya.. berarti agan memakai metode forward chaining dengan bfs ya?? gejla1,gejala,4 then penyakit abcd maybe seperti itu gan... saya kasih masukan sedikit saaja. smoga bermanfaat ...:najis
Coba search disini sistem pakar, sdh pernah ada yg share, kalo tdk salah sistem pakar penyakit ayam dmana gan?:bingungs
tabel gejala (kodegejala,namagejala) tabel rusak(koderusak,namarusak,kodesolusi) tabel solusi(kodesolusi,namasolusi) tabel rule(id_rule,kodegejala,if_ya,if_no) tabel user(id_user,nama_user,pass_user,status) apakah seperti ini bentuk database nya? dan rule nya metode forward chaining (BFS) benar g...
sebelum mikir tabelnya apa aja, harus ngerti apa yang mau dibuat (fiturnya apa aja, yang mau ditampilin apa, klo ada inputan yang mau disave isinya apa) ya kalo topiknya kaya gitu minimal ngerti Forward chaining itu apa dan BFS(breadth first search) itu kaya gimana, dari situ kan ntar ketauan kebut
