SHiDi 0 Report post Posted January 4, 2008 (edited) 7) bila ditanya untuk membuat primary key - klik NO.Kenapa NO pula? Edited January 4, 2008 by SHiDi Quote Share this post Link to post Share on other sites
TJ-Ariff 40 Report post Posted January 7, 2008 Kenapa NO pula?sebab kita tak menggunakan primary key ini sebagai rujukan untuk proses mencari. Quote Share this post Link to post Share on other sites
TJ-Ariff 40 Report post Posted January 7, 2008 sori , kalau aku nak buat tutorial nie memang lah lambat... banyak kerja... tapi pelan pelan la.. ok..ok, satu lagi aku nak tambah, hari tu terlupa pulak.. tentan database yang telah siap tu, sebalum keluar dari Access, kita kena convert dahulu sebelum boleh dilinkkan dengan VB6.cara nya , dengan database yg telah dibuka, pergi ke :-tools - datebase Utilities - Convert Database - To Access 97 file format...kemudian barulah di simpan (save) fail tersebut..wassalam.. p/s: sambungan untuk VB nanti akan aku cuba curi2 masa.. 2 projek on hand Quote Share this post Link to post Share on other sites
LanoV 22 Report post Posted January 8, 2008 Aku pun tak sempat nak jenguk thread ni selalu... nak buat tutorial... komitmen macam tu, masa tak izinkan lagi. Lagipun ada projek lain tengah diusahakan nie... kepada ahli2 kelab lain, marilah menyumbang ilmu korang... Quote Share this post Link to post Share on other sites
Kuzie 0 Report post Posted January 9, 2008 Function_Conn()Set conn = Server.CreateObject("ADODB.Connection") conn.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("NamaDatabase.mdb"))SQL = "SELECT * FROM NamaTable"Set rsTest = Server.CreateObject("ADODB.Recordset")rsTest.Open SQL, conn, 3, 3End FunctionSalah satu lagi cara nak connect database tanpa convert...Sbb die pakai SQL coding dan kebanyakan source code lain pun seakan-akan coding ni...Cara ni lagi mudah sbb xperlu sangat pakai ODBC dalam setiap form..Panggil je function - call Conn() - ni untuk database dalam setiap form yg guna database ni tuh..Xsilap aku macam ni la cara panggil die.. Quote Share this post Link to post Share on other sites
TJ-Ariff 40 Report post Posted January 11, 2008 Salah satu lagi cara nak connect database tanpa convert...Sbb die pakai SQL coding dan kebanyakan source code lain pun seakan-akan coding ni...Cara ni lagi mudah sbb xperlu sangat pakai ODBC dalam setiap form..Panggil je function - call Conn() - ni untuk database dalam setiap form yg guna database ni tuh..Alhamdulillah... bagus tu...Betul, cara untuk memanggil dan berhubung dengan database ada banyak, dan apa yg diberikan itu adalah salah satu cara, walaupun database tersebut tidak di convert, tetapi kita kena tahu bagaimana hendak menulis command untuk memanggil database tersebut.Kita akan cuba gunakan cara yang paling basic, InsyaAllah..p/s : Pendapat dan cadangan dari ahli juga diperlukan..Silakan.. Quote Share this post Link to post Share on other sites
TJ-Ariff 40 Report post Posted January 11, 2008 Alhamdullillah...Dengan sedikit kelapangan yang saya dapat nie, mari kita mulakan membuat login page dengan VB6.Buka VB , mulakan dengan Standart.exe ,tambahkan button.. seperti dalam gambar..setelah itu, kita add form. (tambah form)lihat gambar kedua..kemudian pilih login form..gambar ketiga.. Quote Share this post Link to post Share on other sites
hairulfadly 27 Report post Posted January 15, 2008 Teruskan Abang TJ dengan tutorialmu itu..Saya akan menyusul kemudian..Tutorial untuk pangkalan data dah ada.. Tapi takde kemudahan internet la..nak masukkan kat sini..Huhu... Quote Share this post Link to post Share on other sites
LanoV 22 Report post Posted January 19, 2008 Wahh.. best2 nie. Quote Share this post Link to post Share on other sites
hairulfadly 27 Report post Posted February 5, 2008 Sudah semakin menyepi thread ini ya.. Hehe..Takpe, aku hangatkan balik ...Okey kita sambung sebulan yang lalu..Kita telah belajar cara untuk Do/Loop dan di bawah iniadalah contoh aturcaranya..Apa lagi tulis dalam perisian VB anda. Hehehe...Contoh Aturcara 3.4Aturcara ini melibatkan melibatkan data yang berada dalam satu senarai. Senarai tersebut akan dimasukkan terlebih dahulu ke dalam aturcara melalui objek senarai (list).1. Bina antaramuka Form seperti Rajah 3.82. Tekan 2 kali butang arahan cmdCari dan masukkan aturcara di bawah:Rajah 3.8-----------------------------------------1. Private Sub cmdCari_Click()2. ‘Mencari padanan antara kotak teks dengan elemen senarai3. Dim blnJumpa As Boolean4. Dim intIndeksItem As Integer5. blnJumpa = False6. intIndeksItem = 07.8. Do Until blnJumpa Or intIndeksItem = lstNama.ListCount9. If txtCarian.Text = lstNama.List(intIndeksItem)Then10. blnJumpa = True11. End If12. intIndeksItem = intIndeksItem + 113. Loop14.15. If blnJumpa Then16. MsgBox “Nama anda ada dalam senaraiâ€, vbInformation, “Nama dijumpaiâ€17. Else18. MsgBox “Maaf, nama anda tiada dalam senaraiâ€, vbInformation, “Nama tak jumpaâ€19. End If20. End Sub----------------------------------ATURCARA 3.4Penerangan Aturcara 3.4Dalam baris 3, kita perhatikan data diisytiharkan sebagai boolean. Seperti yang dipelajari sebelum ini, boolean cuma mempunyai 2 nilai iaitu TRUE dan FALSE (BENAR dan SALAH). Boolean memudahkan kita untuk mencari suatu senarai atau pangkalan data. Dalam baris 5, data boolean blnJumpa akan kita setkan sebagai FALSE, menandakan data belum dijumpai. Jika nama yang dimasukkan dalam kotak teks sama dengan senarai (aturcara baris 8), barulah blnJumpa akan disetkan TRUE. Keadaan TRUE dan FALSE ini amat penting untuk kita menentukan mesej apa yang akan dikeluarkan oleh kotak mesej (aturcara 15-19). Quote Share this post Link to post Share on other sites
hairulfadly 27 Report post Posted February 5, 2008 Contoh Aturcara 3.5 Gegelung For... NextBina antaramuka di bawah ini.Rajah 3.9 Antaramuka Form Aturcara 3.5dan tekan 2 kali pada butang dan masukkan kod di bawah ini.-----------------------------------------1. Private Sub cmdTekan_Click()2. Dim i As Integer3. ‘Tunjukkan jadual nombor dan kuasa duannya4. For i = 1 to 55. picJawapan.Print i; i ^ 26. Next i7. End Sub-----------------------------------------------------------ATURCARA 3.5Dalam contoh sebelum ini, kita tidak menetapkan berapa langkah nombor yang bergerak untuk setiap gelung. Oleh yang demikian, nombor akan bergerak satu langkah bagi setiap gelung. Untuk menetapkannya, kita akan gunakan katakunci step di dalam gegelung For/Next kita.For i = m To n Step sErtinya gelung akan bermula dari nilai m ke nilai n dengan bergerak sebanyak s langkah.Contoh Aturcara 3.61. Bina antaramuka seperti rajah di bawah (Rajah 3.10)2. Tekan butang arahan cmdTerbalik dan masukkan Aturcara 3.6Rajah 3.10 Antaramuka Form Aturcara 3.6-----------------------------------------------------1. Private Sub cmdTerbalik_Click()2. Dim m As integer, j As integer, temp As string3. picTerbalik.Cls4. m = Len (txtKata.text)5. temp = “â€6. For j = m To 1 step -17. temp = temp + Mid(txtKata.text, j, 1)8. Next j9. picTerbalik.Print temp10. End Sub---------------------------------------------------------------ATURCARA 3.6Penerangan Aturcara 3.6picTerbalik.Cls dalam baris 3 bermaksud kita akan mengosongkan skrin bagi picTerbalik. Len dalam baris 4 akan memulangkan bilangan huruf dalam perkataan yang diberi (dalam kes ini txtKata.text). Pembolehubah temp sengaja diwujudkan sebagai ingatan sementara bagi menyimpan huruf yang akan diterbalikkan. Mid (txtKata.text, j, 1) pada baris 7 bermaksud, fungsi Mid akan memulangkan satu huruf, iaitu huruf yang ke-j bagi perkataan dalam txtKata.text.Rajah 3.11 Output dan aturcara 3.6KESIMPULAN Selain dari penyataan kawalan yang diulas dalam tutorial ini, banyak lagi penyataan lain yang diubahsuai dari penyataan If Then … Else, Select Case, Do/Loop mahupun For/Next. Namun tujuannya tetap sama, iaitu untuk mewujudkan kawalan bagi program yang kita bangunkan. Konsep kawalan amat penting dan amat memudahkan kita dalam membangunkan aturcara yang baik. Okey. Bersambung nanti. Quote Share this post Link to post Share on other sites
songoten86 0 Report post Posted February 5, 2008 (edited) wahh... bagus.. bagus... dah bertambah ramai...sila kenalkan diri masing masing...senarai terbaru...1) LanoG2) mFaiz3) Airbatucamput_QzaiMe4) Intel2Core (Nad)5) Shidi6) Spirit7) Pyro8) Kamshin9) Mistique_Mastermind10) amie611) Zaly12) Kuzie12) Funtasie_ilusiaku nk join jgk!!! cambest jek..nk join gk.. bgune mnde ni..email = [email protected]ym = [email protected]aku tatau pape pasal vb..start bidang IT ni pon mase diploma..start2 je da subjek c++..start from ZERO..mmg blur jek memule.. Edited February 5, 2008 by songoten86 Quote Share this post Link to post Share on other sites
aduka kias utama 0 Report post Posted February 5, 2008 wahahaha... dah lame aku tgg kemunculan bro hairulfadly...thankz a lat for your tutorial.. byk gak membantu newbie cam aku nih.. Quote Share this post Link to post Share on other sites
hairulfadly 27 Report post Posted February 5, 2008 BAB 3 MENCIPTA DAN MENCAPAI PANGKALAN DATAKebanyakkan sistem atau aplikasi yang dibangunkan melalui Visual Basic pasti akan menggunakan pangkalan data. Apakah ia pangkalan data ?Pangkalan data adalah koleksi data yang disimpan dalam sistem komputer yang akan memudahkan pengguna untuk mencapai, menambah, membuang, mengubahsuai atau memanipulasikan data tersebut. Dalam erti kata lain, ia adalah stor simpanan bagi data.VB mempunyai kelebihan mencapai dan memanipulasi pangkalan data. Terdapat pelbagai jenis pangkalan data yang disokongh oleh VB seperti Dbase, FoxPro, Lotus, Paradox, MDB dan fail teks. Malah dengan menggunakan Penyambungan Data Terbuka (ODBC), VB boleh mencapai berbagai lagi jenis pangkalan data lain yang lebih laju seperti Oracle, DB2, MySQL atau PostgreSQL.Dalam tutorial kali ini, untuk pengenalan kita akan menggunakan pangkalan data Microsoft Data Base (MDB) yang dibangunkan oleh Microsoft Access. Format bagi fail pangkalan data ini adalah *.mdb Quote Share this post Link to post Share on other sites
hairulfadly 27 Report post Posted February 6, 2008 (edited) BEBERAPA TERMINOLOGI PENTING PANGKALAN DATAFail Access (format .mdb) boleh mengandungi banyak jadual (table). Setiap jadual akan dilihat seperti kita melihat jadual dalam excel yang mengandungi baris (rows) dan lajur (column).Setiap baris akan mewakili satu rekod data, contohnya data pekerja bernama Ahmad.Setiap lajur akan mewakili pelbagai elemen data, contohnya nama, alamat, nombor KP dan sebagainya. Setiap elemen data ini dikenali sebagai medan (field).Jadual yang baik seharusnya mengandungi kekunci medan (key field) untuk memberikan identiti unik ke atas setiap rekod. Kekunci medan seharusnya memilih medan data yang unik seperti nombor KP atau nombor pekerja. Nama tidak sesuai dipilih sebagai kekunci medan kerana ramai antara kita yang mempunyai nama yang sama.Contoh sebuah jadual dalam pangkalan data adalah seperti Jadual di bawah ini : Edited February 6, 2008 by hairulfadly Quote Share this post Link to post Share on other sites
hairulfadly 27 Report post Posted February 6, 2008 MENCIPTA SEBUAH PANGKALAN DATAKita tidak boleh mencipta pangkalan data terus dari VB kerana VB hanyalah sebuah platform bagi menyediakan antaramuka dan program. Di sini, kita akan menggunakan Microsoft Access untuk mencipta fail pangkalan data.1. Buka Microsoft Access. Tekan New pada menu bar.2. Klik Blank Databases dari senarai pilihan (secara default di kanan skrin).3. Akan keluar windows File New Databases. Masukkan dbPekerja pada ruangan File Name. Ingat lokasi fail anda, sebaiknya diletakkan ia dalam satu folder yang baru dicipta.4. Tekan butang create.5.Tetingkap dbPekerja seperti Rajah 1 dipaparkan.Rajah 16. Kita sudah mencipta nama bagi pangkalan data. Kini kita perlu mencipta jadual pula. Tekan Create table in Design View.Rajah 27. Tetingkap Table (nama Table 1) akan dipaparkan. Masukkan data seperti Rajah 2. (Kepada yang mahir mencipta Pangkalan Data, anda boleh masukkan terus saiz medan (Field Size) untuk setiap jenis data yang anda cipta. Contohnya NoKP boleh dimasukkan Field Size bernilai 12, kerana nombor KP mempunyai 12 angka. Data-data lain juga boleh dimasukkan Field Size mengikut kehendak masing-masing. Secara defaultnya, Field Size bernilai 50.8. Kemudian, halakan penunjuk ke rekod NoPekerja. Klik kanan dan akan keluar satu popup menu. Lihat Rajah 3.Rajah 39. Klik Primary Key untuk mensetkan rekod NoPekerja sebagai kekunci medan.10. Klik butang Close pada tetingkap Table 1. Akan keluar satu kotak mesej menanyakan adakah anda ingin menyimpan perubahan pada Table 1 ? Tekan butang Yes.11. Akan keluar kotak mesej seperti Rajah 4. Masukkan nama jadual anda sebagai infoPekerja. Tekan butang OK.Rajah 4 Quote Share this post Link to post Share on other sites
hairulfadly 27 Report post Posted February 6, 2008 12. Kita akan dapati pada tetingkap dbPekerja, akan muncul sebuah jadual yang baru dicipta iaitu infoPekerja. Ini bermakna kita telah berjaya mencipta sebuah jadual dalam pangkalan data. Lihat Rajah 5.Rajah 5Seperti yang dijelaskan sebelum ini, pangkalan data boleh terdiri lebih dari satu jadual. Setiap jadual mempunyai peranan dalam menyimpan data yang berbeza-beza. Contohnya mungkin kita boleh cipta jadual lain seperti waktu bekerja pekerja, maklumat anak dan isteri bekerja, maklumat gaji pekerja dan sebagainya dalam pangkalan data yang sama. 13. Klik pada ikon infoPekerja seperti Rajah 5.14. Akan keluar jadual infoPekerja yang masih kosong seperti Rajah 6. Rajah 615. Isikan jadual di atas dengan 2 atau 3 rekod sebagai percubaan. Bahagian medan Bil tidak perlu diisi kerana nombornya akan dijana secara automatik oleh komputer. NoPekerja tidak boleh bertindan dan mesti unik. Lihat Rajah 7. Rajah 716. Klik butang Close pada teingkap infoPekerja.17. Kini jadual kita telahpun diisi dengan beberapa data. Secara umumnya, kita telah pun membina sebuah pangkalan data yang lengkap. Quote Share this post Link to post Share on other sites
hairulfadly 27 Report post Posted February 6, 2008 MENGHUBUNGKAN VB DENGAN PANGKALAN DATASelesai membina pangkalan data, kini tiba masanya untuk menghubungkan sebuah sistem. Sebenarnya kita mempunyai beberapa pilihan mencapai pangkalan data. Paling mudah kita gunakan Data Access. Namun Data Access mempunyai beberapa kekangan. Oleh yang demikian itu, kita akan guna aplikasi Kawalan Data Objek Activex atau ADODC.Menyenaraikan ADODC dalam kotak alatan1. Jika kita membuka VB, ADODC tidak disenaraikan terus dalam kotak tools. Ia perlu diadakan terlebih dahulu melalui VB Components.2. Pada bar menu, klik Project > Components.Rajah 83. Tetingkap Components seperti Rajah 8 akan dipaparkan.4. Klik kotak pilihan Microsoft ADO Data Control. Kemudian tekan butang OK.Rajah 95. Kita akan dapati, ikon ADODC akan muncul pada kotak tools seperti Rajah 9. Quote Share this post Link to post Share on other sites
hairulfadly 27 Report post Posted February 6, 2008 Mencipta Aplikasi Yang Dihubungkan Dengan Pangkalan Data1. Bina sebuah Form seperti Rajah 10.Rajah 102. Klik ikon ADODC pada kotak alatan dan heret ke atas form. Objek ADODC bernama Adodc1 telah dimasukkan ke dalam form. Lihat Rajah 11.Rajah 113. Klik kanan pada objek Adodc1 tersebut, akan keluar satu popup menu. Klik Adodc properties.4. Tetingkap Properties Pages akan dipaparkan. Klik butang pilihan Use Connection String dan tekan butang Build. Lihat Rajah 12.Rajah 125. Tetingkap Data Link Properties akan dipaparkan. Pilih Microsoft Jet 4.0 OLE DB Provider pada senarai OLE DB Provider dan tekan butang Next>>.6. Seterusnya pada bahagian Connection , kita akan memilih pangkalan data yang telah kita cipta sebentar tadi. Tekan butang kecil…, cari dan pilih pangkalan data dbPekerja.mdb. Lihat Rajah 13.Rajah 137. Tekan Test Connection. Jika kotak mesej seperti Rajah 14 muncul, pangkalan data yang anda pilih betul dan berfungsi. Jika tidak, anda mungkin telah silap memilih pangkalan data.Rajah 14 Quote Share this post Link to post Share on other sites
hairulfadly 27 Report post Posted February 6, 2008 8. Klik butang OK.9. Kini kita kembali ke tetingkap Property Pages. Klik bahagian Record Source.10. Pada senarai Command Type, pilih 2-adCmdTable. Kemudian pada senarai Table or Stored Procedure Name,pilih jadual yang anda bina tadi iaitu infoPekerja. Lihat Rajah 15.Rajah 1511. Tekan butang OK.12. Kita telah selesai mengkofigurasi hubungan pangkalan data ke form kita.13. Sebagai langkah terakhir, kita perlu hubungkannya pula dengan objek-objek dalam form kita seperti kotak teks.Menghubungkan Pangkalan Data dengan Objek1. Klik pada kotak teks txtNoPekerja dan fokus kepada Propertiesnya.2. Lakukan ini mengikut turutan. Pada ciri DataSource pilih Adodc1.3. Kemudian pada DataField, kita dapati senarai medan data yang kita cipta dalam jadual infoPekerja muncul di sini.4. Pilih medan data yang bersesuaian. Jika kotak teks yang kita pilih ada txtNoPekerja, pilih medan data NoPekerja.5. Ulang semua langkah di atas dengan kotak teks yang lain seperti txtNama, txtNoKP, txtJawatan dan txtAlamat.6. Kesemua DataSource bagi kotak-kotak teks tersebut adalah sama. Bezanya hanya pada DataField sahaja. Rujuk Rajah 16.Rajah 167. Setelah selesai, klik Start. Lihat Rajah 17. Kita boleh klik butang < atau > untuk menggerakkan data kita.Rajah 17Seperti Rajah 17, kita dapati data yang kita isi dalam jadual infoPekerja tadi telah dipaparkan pada form kita. Ini menunjukkan kita telah berjaya menghubungkan aplikasi VB kita dengan pangkalan data Microsoft Access tadi.Dalam tutorial yang berikutnya, kita akan belajar pula cara menambah, membuang dan mengubahsuai data dalam pangkalan data melalui VB. Quote Share this post Link to post Share on other sites
hairulfadly 27 Report post Posted February 6, 2008 BAB 4 PENGURUSAN PANGKALAN DATADalam tutorial yang tadi kita telah mempelajari cara mewujudkan pangkalan data dan menghubungkannya dengan Visual Basic. Tetapi sistem tersebut masih belum siap sepenuhnya, kerana kita perlu mengubahsuai sistem kita agar dapat menerima, membuang, mencari atau mengubahsuai data. Tidak dapat tidak anda perlu menaip baris aturcara bagi mencapai matlamat ini.Namun kemahiran mengaturcara ini amat penting sekiranya kita bercita-cita mewujudkan sebuah sistem yang mantap. Tutorial ini akan memperkenalkan beberapa jenis aturcara yang penting dalam memanipulasikan pangkalan data.MEMULAKAN ATURCARA1. Ubahsuai Form kita dalam tutorial yang lepas seperti Rajah 1.2. Masukkan butang2 arahan yang berkenaan. Pastikan nama dan captionnya seperti jadual Rajah 1.Rajah 1 Tambahan butang-butang untuk mengawal rekodMEMASUKKAN DATA BARUMemasukkan data baru (adding new data) adalah antara ciri terpenting dalam sesebuah sistem. Ciri ini membenarkan kita memasukkan rekod baru tanpa perlu membuka pangkalan data seperti Access dan sebagainya. Kita Cuma boleh melakukannya melalui sistem yang dibangunkan. Aturcara 11. Tekan 2 kali pada butang cmdTambah.2. Masukkan aturcara seperti dalam Rajah 2.Rajah 2 Aturcara Tambah DataDua baris sahaja?. Mungkin ada antara kita yang terkejut bagaimana aturcara untuk memasukkan data ke dalam pangkalan data hanya memerlukan 2 baris sahaja. Sebenarnya 2 baris ini adalah kaedah kemasukkan data yang paling ringkas. Anda boleh melakukan pengubahsuaian yang sesuai dengan keperluan sistem anda.Penerangan Adodc1.Recordset adalah set aturcara terpenting kita akan sentuh dalam tutorial ini. Adodc1 adalah objek yang kita wujudkan untuk menghubungkan pangkalan data. Kita boleh memanipulasi set rekod seperti menambah, membuang atau mengemaskini data. Perhatikan Rajah 3. Rajah 3 Komponen dalam RecordsetJika kita lihat Rajah 3, setelah kita menaip titik, akan keluar sebuah popup list yang menyenaraikan tindakan atau keadaan yang boleh kita setkan ke atas set rekod Adodc1. Untuk pengetahuan, popup list ini tidak akan keluar jika kita tersilap menaip aturcara kerana ia hanya mencari objek yang telah kita wujudkan. Jika ia muncul bermaksud kita telah menaip aturcara yang betul.Adodc1.Recordset.AddNew adalah arahan untuk menambah rekod baru ke dalam pangkalan data. Kita akan perhatikan kesemua kotak teks akan dikosongkan untuk kita memasukkan rekod baru. Arahan ini akan menyimpan rekod yang kita masukkan secara automatik ke dalam pangkalan data tanpa sebarang kawalan.txtNoPekerja.setFocus adalah arahan untuk mensetkan txtNoPekerja sebagai kotak teks yang bersedia untuk dimasukkan data (cursor berada di dalam kotak teks tersebut). Quote Share this post Link to post Share on other sites
hairulfadly 27 Report post Posted February 6, 2008 MEMBUANG DATA Fungsi ini digunakan untuk membuang rekod yang sedang dipaparkan dari pangkalan data pada sistem kita.Aturcara 21. Tekan 2 kali pada butang cmdBuang.2. Masukkan Aturcara 2.1. Private Sub cmdBuang_Click()2. ‘Buang data yang sedang dipapar3. Adodc1.Recordset.Delete4. ‘Gerakkan ke data seterusnya supaya pengguna nampak data yang dibuang.5. Adodc1.Recordset.MoveNext6. If Adodc1.Recordset.EOF Then7. Adodc1.Recordset.MovePrevious8. End If9. End SubPeneranganAdodc1.Recordset.Delete adalah arahan untuk membuang set rekod yang sedang dipaparkan dari pangkalan data. Arahan di baris 5-8 bermaksud setelah kita membuang rekod yang dikehendaki, maka rekod tersebut akan hilang dan rekod yang akan dipaparkan adalah set rekod selepasnya. Jika rekod tersebut adalah rekod terakhir seperti ditunjukkan dalam aturcara baris 6, maka set rekod sebelumnya pula akan dipaparkan.MENGUBAHSUAI DATAFungsi ini digunakan untuk memngubahsuai rekod yang telah sedia ada dalam pangkalan data. Untuk tujuan pengemaskinian, kita akan gunakan satu lagi butang iaitu cmdSimpan.Aturcara 31. Tekan 2 kali pada butang cmdEdit.2. Masukkan Aturcara 3.3. Aturcara ini akan mensetkan sekali butang cmdSimpan.1. Private Sub cmdEdit_Click()2. cmdSimpan.Enabled = True3. End Sub4. Private Sub cmdSimpan_Click()5. Adodc1.Recordset.Update6. cmdSimpan.Enabled =False7. End SubPeneranganJika kita lihat dalam baris 2, kita tahu peranan butang cmdEdit hanyalah untuk mensetkan butang cmdSimpan kepada boleh ditekan (Enabled=True). Hal ini kerana sebelum ini, kita telah mensetkan cmdSimpan sebagai tidak boleh disetkan (Enabled=False). Tujuannya hanyalah sebgai kawalan yang mana kita cuma boleh mengemaskini data hanya setlah membuat pengubahsuaian ke atasnya. Untuk butang cmdSimpan, kita akan mengemaskini pangkalan data dan akan dilaksanakan oleh Adoc1.Recordset.Update. Baris 6 menunjukkan kita akan mensetkan semula butang cmdSimpan untuk boleh ditekan (Enabled =False).MENCARI DATACarian data antara ciri terpenting yang perlu ada dalam setiap sistem. Kita perlu menetapkan sebuah medan data sebagai kekunci untuk carian kita. Dalam sesetengah sistem, kekunci carian boleh terdiri dari lebih satu jenis medan. Dalam kes ini, kita akan memilih No Pekerja yang unik sebagai kekunci carian.Aturcara 41. Tekan 2 kali pada butang cmdCari.2. Masukkan Aturcara 4.3. Tekan Start dan perhatikan output atucara seperti Rajah 4 dan 5.1. Private Sub cmdCari_Click()2. Dim strCai As String3. Dim blnJumpa As Boolean4. strCari = UCase(InputBox(“Masukkan No Pekerja yang dicariâ€))5. If Len(strCari)>0 Then6. Adodc1.Recordset.MoveFirst7. blnJumpa = False8. Do While (Not blnjumpa) And (NotAdodc1.Recordset.EOF)9. If UCase(Adodc1.Recordset.Fields(“NoPekerjaâ€).Value) = strCari Then 10. blnJumpa = True11. Else12. Adodc1.Recordset.MoveNext13. End If14. Loop15. If Not blnjumpa Then16. MsgBox “No Pekerja yang anda masukkan tidak dijumpaiâ€, , “Tak Jumpaâ€17. Adodc1.Recordset.MoveLast18. End If19. Else20. MsgBox “Masukkan nombor pekerjaâ€,,â€â€21. End If22. End SubPenerangan Aturcara ini mungkin agak panjang bagi anda, tetapi pengertiannya mudah sahaja. strCari yang diisytihar dalam baris 2 adalah katakunci yang kita masukkan untuk dicari rekodnya. Blnjumpa adalah sejenis boolean (dwipilihan) yang mana jika kita menjumpai rekod yang dikehendaki, nilainya adalah TRUE, dan sebaliknya, nilainya adalah FALSE.Baris 4 menunjukkan kita menggunakan kotak input untuk pengguna memasukkan input. Len(strCari)>0 dalam baris 5 bermaksud kita perlu memasukkan kata kunci dan tidak boleh kosong. Baris 8-14 menunjukkan gelungan yang mana komputer akan mencari data yang sama dengan katakunci yang dicari dalam setiap rekod sehingga jumpa. Baris 15-17 adalah penyataan sekiranya data tidak dijumpai.Rajah 4 Pengguna Memasukkan kata kunci dalam kotak inputRajah 5 Kotak mesej sekiranya tiada data yang dicari Quote Share this post Link to post Share on other sites
hairulfadly 27 Report post Posted February 6, 2008 MENGGERAKKAN DATA KE DEPAN DAN KE BELAKANGKita boleh menggunakan butang Previous atau Next pada Adodc1 sahaja tetapi biasanya objek Adodc ini akan dilindungkan (hide) apabila sistem siap. Jadi bagaimana kita boleh menggerakkan data ke depan atau ke belakang? Kita boleh mencipta butang sendiri yang hanya mempunyai fungsi yang sama dengan yang ada pada objek Adodc.Aturcara 51. Tekan 2 kali sama ada butang cmdPrevious atau cmdNext2. Masukkan aturcara seperti di bawah.1. Private Sub cmdNext_Click()2. Adodc1.Recordset.MoveNext3. If Adodc1.Recordset.EOF Then4. Adodc1.Recordset.MoveFirst5. End If6. End Sub7. Private Sub cmdPrevious_Click()8. Adodc1.Recordset.MovePrevious9. If Adodc1.Recordset.BOF Then10. Adodc1.Recordset.MoveLast11.End If12.End SubMEWUJUDKAN FORM LOGINSebuah sistem tentulah mempunyai kawalan capaian yang tersendiri. Biasanya sebelum pengguna boleh login ke dalam sistem, mereka perlu memasukkan nama pengguna atau ID dan katalaluan sebagai pengesahan mereka sebagai pengguna yang sebenar.Disini kita akan diterangkan bagaimana kita boleh wujudkan form login yang mula sekali akan dipaparkan yang mana boleh menerima ID dan katalaluan yang disimpan dalam pangkalan data dan menentukan ID tersebut sah atau tidak.Aturcara 6Pangkalan data dan ID kita perlu disimpan dalam pangkalan data. Kita tidak perlu mencipta fail pangkalan data (*.mdb) yang baru sebaliknya boleh mewujudkan satu lagi jadual (table) dalam pangkalan data sedia iaitu dbpekerja.1. Seperti dalam tutorial sebelum ini, buka Microsoft Access, buka fail dbpekerja dan wujudkan jadual bernama login dalam pangkalan data dan cipta medan data seperti Rajah 6.Rajah 6 Jadual Login yang baru dicipta2. Masukkan medan data dan setkan bil sebagai autonumber dan kekunci utama seperti Rajah 7.Rajah 7 Setting bagi jadual login3. Masukkan beberapa ID dan katalaluan sebagai permulaan seperti Rajah 8.Rajah 8 Jadual login yang diisi beberapa rekod4. Setelah selesai, buka VB dan cipta Form Login seperti Rajah 9. Rajah 9 Form Login5. Bagi Adodc yang baru dicipta bernama Adodc1, setkan hubungan pangkalan data kepada dbpekerja. Setting yang lain adalah sama seperti sebelum ini kecuali RecordSource. Jika sebelum ini kita gunakan Command Type adCmdTable, kali ini kita gunakan adCmdText. Dengan erti kata lain, kita akan gunakan arahan SQL (Structed Query Language). Quote Share this post Link to post Share on other sites
hairulfadly 27 Report post Posted February 6, 2008 6. Taip SQL pada command Text seperti Rajah 10.Rajah10 Setkan SQL pada RecordSource7. Tekan OK.8. Tekan 2 kali pada cmdMasuk dan masukkan Aturcara 6.9. Namakan form anda sebagai frmLogin.10. Pada menu Project, tekan Project1 Properties dan setkan Startup Object anda sebagai frmLogin. Tekan OK.11. Tekan Start untuk larikan aturcara kita tadi.-------------------------------------------------------------------------------------------------1. Private Sub cmdMasuk_Click()2. Adodc1.RecordSource = “SELECT * FROM Login where ID = ‘ “&txtID.Text&â€â€™â€3.Adodc1.Refresh4. If Adodc1.Recordset.RecordCount = 0 Then5. MsgBox “ID anda salah, sila cuba lagiâ€6. txtID.SetFocus7.Exit Sub8.End If9. If Adodc1.Recordset.Fields(“Passwordâ€) = txtPassword.Text Then10. Form1.Show11.Unload Me12. Else13. MsgBox “Kata laluan anda salah, sila cuba lagiâ€14. End If15. End Sub-----------------------------------------------------------------------PeneranganBermula dari aturcara ini, kita akan mula berjinak-jinak dengan arahan SQL. Arahan SQL tidak akan diajar di sini namun ia adalah arahan mudah untuk mentadbir pangkalan data. Baris 2 menunjukkan penggunaan arahan SQL yang mana kita mahu Adodc1 cuma memilih rekod yang mana Idnya sama dengan ID yang dimasukkan pengguna dalam teks txtID. Dalam baris ke 4 menunjukkan jika rekod tersebut tiada, maka ID tersebut tidak wujud dan mengeluarkan mesej seperti baris 5. Jika wujud, maka arahan pada baris 9 akan dilaksanakan. Jika katalaluan pada rekod sama dengan kata laluan yang dimasukkan pengguna, maka Form1 akan dipaparkan. Jika tidak, mesej seperti baris 13 akan dipaparkan.Rajah11 Output bagi Form LoginDalam tutorial yang akan datang, kita akan membongkar lagi modul-modul dalam pengurusan data terutama yang melibatkan SQL. Sekian, jumpa lagi. Quote Share this post Link to post Share on other sites
songoten86 0 Report post Posted February 18, 2008 6. Taip SQL pada command Text seperti Rajah 10.Rajah10 Setkan SQL pada RecordSource7. Tekan OK.8. Tekan 2 kali pada cmdMasuk dan masukkan Aturcara 6.9. Namakan form anda sebagai frmLogin.10. Pada menu Project, tekan Project1 Properties dan setkan Startup Object anda sebagai frmLogin. Tekan OK.11. Tekan Start untuk larikan aturcara kita tadi.-------------------------------------------------------------------------------------------------1. Private Sub cmdMasuk_Click()2. Adodc1.RecordSource = “SELECT * FROM Login where ID = ‘ “&txtID.Text&â€â€™â€3.Adodc1.Refresh4. If Adodc1.Recordset.RecordCount = 0 Then5. MsgBox “ID anda salah, sila cuba lagiâ€6. txtID.SetFocus7.Exit Sub8.End If9. If Adodc1.Recordset.Fields(“Passwordâ€) = txtPassword.Text Then10. Form1.Show11.Unload Me12. Else13. MsgBox “Kata laluan anda salah, sila cuba lagiâ€14. End If15. End Sub-----------------------------------------------------------------------PeneranganBermula dari aturcara ini, kita akan mula berjinak-jinak dengan arahan SQL. Arahan SQL tidak akan diajar di sini namun ia adalah arahan mudah untuk mentadbir pangkalan data. Baris 2 menunjukkan penggunaan arahan SQL yang mana kita mahu Adodc1 cuma memilih rekod yang mana Idnya sama dengan ID yang dimasukkan pengguna dalam teks txtID. Dalam baris ke 4 menunjukkan jika rekod tersebut tiada, maka ID tersebut tidak wujud dan mengeluarkan mesej seperti baris 5. Jika wujud, maka arahan pada baris 9 akan dilaksanakan. Jika katalaluan pada rekod sama dengan kata laluan yang dimasukkan pengguna, maka Form1 akan dipaparkan. Jika tidak, mesej seperti baris 13 akan dipaparkan.Rajah11 Output bagi Form LoginDalam tutorial yang akan datang, kita akan membongkar lagi modul-modul dalam pengurusan data terutama yang melibatkan SQL. Sekian, jumpa lagi. nk wat vb kene pkai software apa ya?? seyes tatau ape pon psl vb ni.. Quote Share this post Link to post Share on other sites