PROGRAM KOPERASI YAYASAN ASSA'ADAH MENGGUNAKAN VB.6.0

PROGRAM KOPERASI YAYASAN ASSA'ADAH MENGGUNAKAN VISUAL BASIC 6.0

1. 

Script Menu

Private Sub DF_Click()

DAFTAR_HARGA.Show

End Sub

Private Sub MA_Click()

INPUT_OMA.Show

End Sub

Private Sub MI_Click()

INPUT_OMI.Show

End Sub

Private Sub PE_Click()

End

End Sub

Private Sub POB_Click()

PEROLEHAN_OB.Show

End Sub

2. 

Script Daftar Harga Barang

Public blues As ADODB.Connection

Public pedia As ADODB.Recordset

Private Sub DataGrid1_Click()

INPUT_OMA.Show

INPUT_OMA.Combo2.Text = DataGrid1.Columns(1).Text

INPUT_OMA.Text3.Text = DataGrid1.Columns(2).Text

End Sub

Private Sub bluespedia()

Set pedia = New ADODB.Recordset

pedia.Open "select*from HARGA_MAKANAN", blues, adOpenDynamic, adLockOptimistic

Set DataGrid1.DataSource = pedia

End Sub

Private Sub DataGrid2_Click()

INPUT_OMI.Show

INPUT_OMI.Combo2.Text = DataGrid2.Columns(1).Text

INPUT_OMI.Text3.Text = DataGrid2.Columns(2).Text

End Sub

Private Sub Form_Load()

Set blues = New ADODB.Connection

blues.CursorLocation = adUseClient

blues.Provider = "microsoft.jet.oledb.4.0"

blues.Open App.Path & "\DAFTAR_HARGA_BARANG.mdb"

Call bluespedia

End Sub

3. 

Script Perolehan Omset Barang

Private Sub Command1_Click()

PEROLEHAN_OB.Hide

End Sub

4. 

Script Input Omset Barang

Private Sub Command1_Click()

PEROLEHAN_OB.Adodc1.Recordset.AddNew

PEROLEHAN_OB.Adodc1.Recordset.Fields("Nama_Produsen").Value = Combo1.Text

PEROLEHAN_OB.Adodc1.Recordset.Fields("Nama_Konsumen").Value = Text1.Text

PEROLEHAN_OB.Adodc1.Recordset.Fields("Nama_Barang").Value = Combo2.Text

PEROLEHAN_OB.Adodc1.Recordset.Fields("Jumlah_Barang").Value = Text2.Text

PEROLEHAN_OB.Adodc1.Recordset.Fields("Harga_Barang").Value = Text3.Text

PEROLEHAN_OB.Adodc1.Recordset.Fields("Jumlah_Harga").Value = Text4.Text

PEROLEHAN_OB.Adodc1.Recordset.Update

Combo1.Text = ""

Text1.Text = ""

Combo2.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

PEROLEHAN_OB.Show

INPUT_OMA.Hide

End Sub

Private Sub Command2_Click()

INPUT_OMA.Hide

End Sub

Private Sub Command3_Click()

DAFTAR_HARGA.Show

INPUT_OMA.Hide

End Sub

Private Sub Form_Load()

Combo1.AddItem "Riansyah"

Combo1.AddItem "Mustopa Akil"

Combo1.AddItem "Nirwana"

Combo1.AddItem "M. Rabith"

End Sub

Private Sub Text4_Click()

Text4.Text = Text2.Text * Text3.Text

End Sub

5. 

Script Input Omset Minuman

Private Sub Command1_Click()

PEROLEHAN_OB.Adodc1.Recordset.AddNew

PEROLEHAN_OB.Adodc1.Recordset.Fields("Nama_Produsen").Value = Combo1.Text

PEROLEHAN_OB.Adodc1.Recordset.Fields("Nama_Konsumen").Value = Text1.Text

PEROLEHAN_OB.Adodc1.Recordset.Fields("Nama_Barang").Value = Combo2.Text

PEROLEHAN_OB.Adodc1.Recordset.Fields("Jumlah_Barang").Value = Text2.Text

PEROLEHAN_OB.Adodc1.Recordset.Fields("Harga_Barang").Value = Text3.Text

PEROLEHAN_OB.Adodc1.Recordset.Fields("Jumlah_Harga").Value = Text4.Text

PEROLEHAN_OB.Adodc1.Recordset.Update

Combo1.Text = ""

Text1.Text = ""

Combo2.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

PEROLEHAN_OB.Show

INPUT_OMI.Hide

End Sub

Private Sub Command2_Click()

INPUT_OMI.Hide

End Sub

Private Sub Command3_Click()

DAFTAR_HARGA.Show

INPUT_OMI.Hide

End Sub

Private Sub Form_Load()

Combo1.AddItem "Riansyah"

Combo1.AddItem "Mustopa Akil"

Combo1.AddItem "Nirwana"

Combo1.AddItem "M. Rabith"

End Sub

Private Sub Text4_Click()

Text4.Text = Text2.Text * Text3.Text

End Sub

Semoga Bermanfaat

Terima Kasih

Read more...

Pemrograman Database Visual Basic

PEMROGRAMAN DATABASE ACCESS

DENGAN MENGGUNAKAN BAHASA PEMROGRAMAN VISUAL BASIC 6.0

PROGRAM INPUT BIODATA

1. Listing Program

  a. Script Untuk Simpan

Adodc1.Recordset.AddNew
Adodc1.Recordset!No = Text1.Text
Adodc1.Recordset!Nama_Lengkap = Text2.Text
Adodc1.Recordset!Kelas = Combo1.Text
Adodc1.Recordset!Alamat = Text3.Text
Adodc1.Recordset.Update
DataGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Text3.Text = ""

  b. Script Untuk Cari Data

Adodc1.Recordset.Find "Nama_Lengkap='" + Text4.Text + "'", , adSearchForward, 1

If Not Adodc1.Recordset.EOF Then

     Text1.Text = Adodc1.Recordset!No

     Text2.Text = Adodc1.Recordset!Nama_Lengkap

     Combo1.Text = Adodc1.Recordset!Kelas

     Text3.Text = Adodc1.Recordset!Alamat

End If

Catatan : Script diatas ditulis di Text4

  c. Script Untuk Edit

Adodc1.Recordset!No = Text1.Text

Adodc1.Recordset!Nama_Lengkap = Text2.Text

Adodc1.Recordset!Kelas = Combo1.Text

Adodc1.Recordset!Alamat = Text3.Text

Adodc1.Recordset.Update

DataGrid1.Refresh

Text1.Text = ""

Text2.Text = ""

Combo1.Text = ""

Text3.Text = ""

Text4.Text = ""

Catatan : Sebaiknya Edit dilakukan setelah adanya perintah Cari Data

  d. Script Untuk Hapus

Adodc1.Recordset.Delete

DataGrid1.Refresh

  e. Script Untuk Keluar

End

Untuk Design Program

Untuk Output Program

SELAMAT MENGERJAKAN ...!!!

TERIMA KASIH

WASSALAM.........!!!

Read more...