skrip vb2

nih buat temen temen yang belum ngumpulin di sini ada dan boleh di copi lagi tapi tanggung jawabnya sendiri ya.....
jangan bilang dari halaman ini lo ya..
met ngumpulin.....
Private Sub Combo1_Click()
konek
Set Rs = New ADODB.Recordset
Rs.Open "select nama_akun from rekening where no_akun='" & Trim(Combo1.Text) & "'", conn, adOpenStatic, adLockOptimistic
If Rs.RecordCount <> 0 Then
Label12 = Rs!nama_akun
End If
Text2.SetFocus
End Sub

Private Sub Command1_Click()
aktif
konek
Set Rs = New ADODB.Recordset
Rs.Open "select no_akun from rekening", conn, adOpenStatic, adLockOptimistic
Rs.MoveFirst
While Not Rs.EOF
Combo1.AddItem (Rs!no_akun)
Rs.MoveNext
Wend
Text1.SetFocus
Command1.Enabled = False
End Sub
Private Sub jurnal_umum()
Set Rs = New ADODB.Recordset
Rs.Open "select * from jurnalumum", conn, adOpenStatic, adLockOptimistic
Rs.AddNew
Rs!no_bukti = Trim(Text1.Text)
Rs!tgl_jurnal = Trim(DTPicker1.Value)
Rs!ket = Trim(Text8.Text)
Rs!j_debit = 0
Rs!kredit = Trim(Text10.Text)
Rs!uraian = "kas"
Rs.Update
Rs.Close
'tampil

End Sub
Private Sub pajak()
Set Rs = New ADODB.Recordset
Rs.Open "select * from jurnalumum", conn, adOpenStatic, adLockOptimistic
Rs.AddNew
Rs!no_bukti = Trim(Text1.Text)
Rs!tgl_jurnal = Trim(DTPicker1.Value)
Rs!ket = Trim(Text8.Text)
Rs!j_debit = Trim(Text11.Text)
Rs!kredit = 0
Rs!uraian = "pajak"
Rs.Update
Rs.Close
'tampil

End Sub
Private Sub pembelian()
Set Rs = New ADODB.Recordset
Rs.Open "select * from jurnalumum", conn, adOpenStatic, adLockOptimistic
Rs.AddNew
Rs!no_bukti = Trim(Text1.Text)
Rs!tgl_jurnal = Trim(DTPicker1.Value)
Rs!ket = Trim(Text8.Text)
Rs!j_debit = Trim(Text10.Text)
Rs!kredit = 0
Rs!uraian = "pembelian"
Rs.Update
Rs.Close
'tampil

End Sub
Private Sub tampil()
konek
Adodc1.ConnectionString = strKon
Adodc1.RecordSource = "select*from pembelian order by nomor_pembelian asc"
Adodc1.Refresh
With DataGrid1
Set .DataSource = Adodc1
.Caption = "DAFTAR AKUN SISTEM KOMPUTER AKUNTANSI [SKA]"
.Columns(0).Width = 1300
.Columns(0).Caption = "NO PEMBELIAN"
.Columns(1).Width = 1000
.Columns(1).Caption = "TANGGAL PEMBELIAN"
.Columns(2).Width = 1000
.Columns(2).Caption = "KODE REKENING"
.Columns(3).Width = 1000
.Columns(3).Caption = "KODE BARANG"
.Columns(4).Width = 1300
.Columns(4).Caption = "NAMA BARANG"
.Columns(5).Width = 1000
.Columns(5).Caption = "SATUAN"
.Columns(6).Width = 1000
.Columns(6).Caption = "HARGA"
.Columns(7).Width = 1300
.Columns(7).Caption = "JUMLAH BELI"
.Columns(8).Width = 1000
.Columns(8).Caption = "KETERANGAN"
.Columns(9).Width = 1000
.Columns(9).Caption = "STATUS"

End With
End Sub

Private Sub aktif()
Text1.Enabled = True
Combo1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Combo2.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Command2.Enabled = True
End Sub

Private Sub simpan()
konek

'jika data belum ada langsung di simpan
Set Rs = New ADODB.Recordset
Rs.Open "select * from pembelian", conn, adOpenStatic, adLockOptimistic
Rs.AddNew
Rs!Nomor_Pembelian = Trim(Text1.Text)
Rs!tgl_pembelian = Trim(DTPicker1.Value)
Rs!kode_rekening = Trim(Combo1.Text)
Rs!Kode_Barang = Trim(Text2.Text)
Rs!nama_barang = Trim(Text3.Text)
Rs!Satuan = Trim(Combo2.Text)
Rs!harga = Trim(Text5.Text)
Rs!jumlah_beli = Trim(Text6.Text)
Rs!uraian = Trim(Text7.Text)
Rs!keterangan = Trim(Text8.Text)
Rs!Status = Trim(Text9.Text)
Rs.Update
Rs.Close
jurnal_umum
pajak
pembelian
tampil
End Sub

Private Sub Command2_Click()
simpan
bersih
Command2.Enabled = False
Command1.Enabled = True

End Sub
Private Sub bersih()
Text1.Text = ""
DTPicker1.Enabled = False
Combo1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo2.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
End Sub

Private Sub Command3_Click()
Unload Me
End Sub
Private Sub tampil_komponen()
' menampilkan data saat di klik di data grid
konek
On Error GoTo help
If Adodc1.Recordset.BOF Then
Exit Sub
ElseIf Adodc1.Recordset.EOF Then
Exit Sub
Else
Text1.Text = "" & Adodc1.Recordset.Fields("nomor_pembelian")
DTPicker1.Value = "" & Adodc1.Recordset.Fields("tgl_pembelian")
Combo1.Text = "" & Adodc1.Recordset.Fields("kode_rekening")
Text2.Text = "" & Adodc1.Recordset.Fields("kode_barang")
Text3.Text = "" & Adodc1.Recordset.Fields("nama_barang")
Text4.Text = "" & Adodc1.Recordset.Fields("satuan")
Text5.Text = "" & Adodc1.Recordset.Fields("harga")
Text6.Text = "" & Adodc1.Recordset.Fields("jumlah_beli")
Text7.Text = "" & Adodc1.Recordset.Fields("uraian")
Text8.Text = "" & Adodc1.Recordset.Fields("keterangan")
Text9.Text = "" & Adodc1.Recordset.Fields("status")
End If
help:
If Err.Number = 0 Then
Else
MsgBox "ADA ERROR", vbInformation, "INFORMASI [SISTEM KOMPUTER AKUNTASI]"
End If
End Sub
Private Sub tidakaktif()
Text1.Enabled = False
Combo1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Combo2.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Command2.Enabled = False
End Sub

Private Sub DataGrid1_Click()
tampil_komponen
End Sub

Private Sub Form_Load()
Adodc1.Visible = False
tampil
tidakaktif
Combo2.AddItem "unit"
Combo2.AddItem "bks"
Combo2.AddItem "pak"
Combo2.AddItem "kodi"
End Sub


Private Sub Text6_Change()
Text10.Text = (Val(Text5.Text) * (Val(Text6.Text)))
Text11.Text = (Val(0.1 * Text10.Text))

End Sub