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...