skrip vb akuntansi

ini hanya sebagian dari yang sayasudah kejakan aja..lo..
blom smuanya bener dan juga belum seratus persen..ya bagi kawan kawan yang ada tugas sama dengan saya kira kira boleh lah tinggal ketik aja ya paling paling dapat nilai ya,,,se adanya aja la 30 juga kan lumayan to,,,,he,,,he,,,tapi jangan la ya,,tu dapat kepala botak aku sendiri tu...

Private Sub Combo1_LostFocus()
konek
Set Rs = New ADODB.Recordset
Rs.Open "select * 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 * from rekening", conn, adOpenStatic, adLockOptimistic
Rs.MoveFirst
While Not Rs.EOF
Combo1.AddItem (Rs!no_akun)
Rs.MoveNext
Wend
Text1.SetFocus
End Sub
Private Sub jurnal_umum()
Set Rs = New ADODB.Recordset
Rs.Open "select * from jurnalumum where no_bukti='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockOptimistic
If Not Rs.EOF Then
MsgBox "DATA SUDAH ADA, DATA TELAH DIUPDATE?"
Set Rs = New ADODB.Recordset
Rs.Open "select * from jurnalumum where no_bukti ='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockOptimistic
Rs!no_bukti = Trim(Text1.Text)
Rs!tgl_jurnal = Trim(DTPicker1.Value)
Rs!ket = Trim(Text8.Text)
Rs.Update
Rs.Close
tampil
Else
'jika data belum ada langsung di simpan
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.Update
Rs.Close
tampil
'End If
End If
'help:
'If Err.Number = 0 Then
'Exit Sub
'Else
'MsgBox "ERROR, CEK DATA ANDA", vbInformation, "INFORMASI [SISTEM KOMPUTER AKUNATSI]"
'End If
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 = "URAIAN"
.Columns(9).Width = 1000
.Columns(9).Caption = "KETERANGAN"
.Columns(10).Caption = 100
.Columns(10).Caption = "STATUS"

End With
End Sub

Private Sub aktif()
Text1.Enabled = True
Combo1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.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
'CEK VLIDASI
On Error GoTo help:
If Text1.Text = "" Then
MsgBox "DATA TIDK BOLEH KOSONG ! ", vbInformation, "INFORMASI [SISTEM KOMPUTER AKUNTANSI]"
Text1.SetFocus
ElseIf DTPicker1.Value = "" Then
MsgBox "DATA TIDK BOLEH KOSONG ! ", vbInformation, "INFORMASI [SISTEM KOMPUTER AKUNTANSI]"
ElseIf Combo1.Text = "" Then
MsgBox "DATA TIDK BOLEH KOSONG ! ", vbInformation, "INFORMASI [SISTEM KOMPUTER AKUNTANSI]"
Combo1.SetFocus
Else
'jika di cari ketemu langsung di update
Set Rs = New ADODB.Recordset
Rs.Open "select * from pembelian where nomor_pembelian='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockOptimistic
If Not Rs.EOF Then
MsgBox "DATA SUDAH ADA, DATA TELAH DIUPDATE?"
Set Rs = New ADODB.Recordset
Rs.Open "select * from pembelian where nomor_pembelian='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockOptimistic
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(Text4.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
tampil
Else
'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(Text4.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
tampil
End If
'End If
help:
'If Err.Number = 0 Then
'Exit Sub
'Else
'MsgBox "ERROR, CEK DATA ANDA", vbInformation, "INFORMASI [SISTEM KOMPUTER AKUNATSI]"
End If
End Sub

Private Sub Command2_Click()
simpan
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
Text4.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()
tampil
tidakaktif
End Sub