ݺߣ

ݺߣShare a Scribd company logo

Vb furqon al basyar

•Download as DOCX, PDF•
•
R
Recky Ardiansyah

Program ini membuat form untuk mencatat transaksi penjualan roti di toko roti Mas Boy menggunakan bahasa pemrograman Visual Basic. Form ini berisi label, textbox, dan command untuk menambah, menghapus, dan keluar dari data transaksi yang tersimpan dalam database Access.

1 of 8
Download to read offline
VISUAL BASIC PROGRAM TOKO ROTI MAS BOY Disusun oleh NAMA : FURQON AL BASYAR NIM : (061330701271) KELAS : 4CC TEKNIK KOMPUTER POLITEKNIK NEGERI SRIWIJAYA 2015
PROGRAMVB 1. PROGRAMTOKOROTI MAS BOY A. FORMYANG DIGUNAKAN : - LABEL - TEXTBOX - COMMAND - DATA GRID - ADODC B. ISIFORM - LABEL 1. JENIS KUE 2. JUMLAH KUE 3. NAMA PELANGGAN 4. ALAMAT PELANGGAN 5. NAMA KASIR 6. JUMLAH HARGA - TEXTBOX 1. JENISKUE Data Field= JENISKUE, Data Source = Adodc1 2. JUMLAH KUE Data Field= JUMLAH KUE, Data Source = Adodc1 3. NAMA PELANGGAN Data Field= NAMA PELANGGAN,Data Source = Adodc1 4. ALAMAT PELANGGAN Data Field= ALAMATPELANGGAN,Data Source = Adodc1 5. NAMA KASIR Data Field= NAMA KASIR,Data Source = Adodc1 6. JUMLAH HARGA Data Field= JUMLAH HARGA,Data Source = Adodc1 - COMMAND 1. TAMBAH 2. HAPUS 3. KELUAR
C. MEMBUAT FORMTOKOROTI MAS BOY - Langkah awal kitaakan membuatnamaform : - Selanjutnyabuatnamalabel padamasing-masingformsepertigambardibawah
- Untuk mengisi form,kitaakan membuatTextBox padaprogramini - SetelahitubuatformCommanduntukmemasukkaninstruksi atauperintahyangakan dijalankanpadaprogramini.
- Langkah terakhiryaitumembuatDatadan AdodcuntukmemasukkanDatabase yang sebelumnyatelah kitabuatdi MS.ACCESSatau lainnya. D. MENJALANKAN PROGRAM - Untuk menjalankannya,pilihRun ->Start atau tekantombol F5. Jikaberhasil,makatampilannyaakanseperti diatas.
- JalankantigaCommandyangtelahkitabuat. a. TAMBAH DATA Kitapilih TAMBAHDATA,laluisi sesuai TextBox masing-masing.Sepertigambar dibawah,jikaberhasil makadataakanmasukke FormData. b. HAPUS Sama seperti bagianA,kitapilihHAPUS,dantentukanDatamana yangingin Dihapus.Misalnyasayaakan menghapusDatayangbaru dibuat.
c. KELUAR Untuk keluardari program, kitahanya pilihCommandKELUAR E. SOURCE CODE PROGRAM Private SubAdodc1_WillMove(ByVal adReasonAsADODB.EventReasonEnum,adStatusAs ADODB.EventStatusEnum,ByVal pRecordsetAsADODB.Recordset) On Error Resume Next Adodc1.Caption=Adodc1.Recordset.AbsolutePosition&Adodc1.Recordset.RecordCount End Sub Private SubCommand1_Click() Adodc1.Recordset.AddNew End Sub Private SubCommand2_Click() On Error Resume Next If Text1.Text= "" Then MsgBox "NAMA KUE tidakbolehdikosongkan",vbCritical ExitSub ElseIf Text2.Text="" Then MsgBox "JENISKUE tidakbolehdikosongkan",vbCritical ExitSub ElseIf Text3.Text="" Then MsgBox "NAMA PELANGGAN tidakbolehdikosongkan",vbCritical
ExitSub End If Adodc1.Recordset.Update Adodc1.Recordset.Requery MsgBox "Data berhasil disimpan",vbInformation End Sub Private SubCommand3_Click() Prompt$ = "Apakahanda inginmenghapusdatatersebut?" ulang= MsgBox(Prompt$,vbOKCancel,"HapusData") If ulang = vbOKThen Adodc1.Recordset.Delete Adodc1.Recordset.MoveFirst MsgBox "Data berhasil dihapus",vbInformation Else MsgBox "Data gagal dihapus",vbCritical End If End Sub Private SubCommand4_Click() Dima AsString a = MsgBox("Apakahandainginkeluar",vbYesNo+vbQuestion, "Perhatian") If a = vbYesThen UnloadMe End If End Sub

More Related Content

Vb furqon al basyar

  • 1. VISUAL BASIC PROGRAM TOKO ROTI MAS BOY Disusun oleh NAMA : FURQON AL BASYAR NIM : (061330701271) KELAS : 4CC TEKNIK KOMPUTER POLITEKNIK NEGERI SRIWIJAYA 2015
  • 2. PROGRAMVB 1. PROGRAMTOKOROTI MAS BOY A. FORMYANG DIGUNAKAN : - LABEL - TEXTBOX - COMMAND - DATA GRID - ADODC B. ISIFORM - LABEL 1. JENIS KUE 2. JUMLAH KUE 3. NAMA PELANGGAN 4. ALAMAT PELANGGAN 5. NAMA KASIR 6. JUMLAH HARGA - TEXTBOX 1. JENISKUE Data Field= JENISKUE, Data Source = Adodc1 2. JUMLAH KUE Data Field= JUMLAH KUE, Data Source = Adodc1 3. NAMA PELANGGAN Data Field= NAMA PELANGGAN,Data Source = Adodc1 4. ALAMAT PELANGGAN Data Field= ALAMATPELANGGAN,Data Source = Adodc1 5. NAMA KASIR Data Field= NAMA KASIR,Data Source = Adodc1 6. JUMLAH HARGA Data Field= JUMLAH HARGA,Data Source = Adodc1 - COMMAND 1. TAMBAH 2. HAPUS 3. KELUAR
  • 3. C. MEMBUAT FORMTOKOROTI MAS BOY - Langkah awal kitaakan membuatnamaform : - Selanjutnyabuatnamalabel padamasing-masingformsepertigambardibawah
  • 4. - Untuk mengisi form,kitaakan membuatTextBox padaprogramini - SetelahitubuatformCommanduntukmemasukkaninstruksi atauperintahyangakan dijalankanpadaprogramini.
  • 5. - Langkah terakhiryaitumembuatDatadan AdodcuntukmemasukkanDatabase yang sebelumnyatelah kitabuatdi MS.ACCESSatau lainnya. D. MENJALANKAN PROGRAM - Untuk menjalankannya,pilihRun ->Start atau tekantombol F5. Jikaberhasil,makatampilannyaakanseperti diatas.
  • 6. - JalankantigaCommandyangtelahkitabuat. a. TAMBAH DATA Kitapilih TAMBAHDATA,laluisi sesuai TextBox masing-masing.Sepertigambar dibawah,jikaberhasil makadataakanmasukke FormData. b. HAPUS Sama seperti bagianA,kitapilihHAPUS,dantentukanDatamana yangingin Dihapus.Misalnyasayaakan menghapusDatayangbaru dibuat.
  • 7. c. KELUAR Untuk keluardari program, kitahanya pilihCommandKELUAR E. SOURCE CODE PROGRAM Private SubAdodc1_WillMove(ByVal adReasonAsADODB.EventReasonEnum,adStatusAs ADODB.EventStatusEnum,ByVal pRecordsetAsADODB.Recordset) On Error Resume Next Adodc1.Caption=Adodc1.Recordset.AbsolutePosition&Adodc1.Recordset.RecordCount End Sub Private SubCommand1_Click() Adodc1.Recordset.AddNew End Sub Private SubCommand2_Click() On Error Resume Next If Text1.Text= "" Then MsgBox "NAMA KUE tidakbolehdikosongkan",vbCritical ExitSub ElseIf Text2.Text="" Then MsgBox "JENISKUE tidakbolehdikosongkan",vbCritical ExitSub ElseIf Text3.Text="" Then MsgBox "NAMA PELANGGAN tidakbolehdikosongkan",vbCritical
  • 8. ExitSub End If Adodc1.Recordset.Update Adodc1.Recordset.Requery MsgBox "Data berhasil disimpan",vbInformation End Sub Private SubCommand3_Click() Prompt$ = "Apakahanda inginmenghapusdatatersebut?" ulang= MsgBox(Prompt$,vbOKCancel,"HapusData") If ulang = vbOKThen Adodc1.Recordset.Delete Adodc1.Recordset.MoveFirst MsgBox "Data berhasil dihapus",vbInformation Else MsgBox "Data gagal dihapus",vbCritical End If End Sub Private SubCommand4_Click() Dima AsString a = MsgBox("Apakahandainginkeluar",vbYesNo+vbQuestion, "Perhatian") If a = vbYesThen UnloadMe End If End Sub