Senin, 31 Mei 2010

Tugas Program TKP

TAMPILAN UTAMA PROGRAM TKP MENGGUNAKAN VB VERSI 6.0




PROFIL PEMBUAT




transaksi-transaksi























Sintax-sintax atau codding-codding vb


mnuFileExit_Click()
End
End Sub

Private Sub mnuFileProfil_Click()
FrmProfil.Show
End Sub

Private Sub mnuSavingDepositoBerjangka_Click()
FrmdepositoBerjangka.Show
End Sub


Private Sub mnuGiro_Click()
FrmGiro.Show
End Sub

Private Sub mnuLaporanCetak_Click()
DataReport1.Show
End Sub

Private Sub mnuModule_Click()
FrmModule.Show
End Sub

Private Sub mnuTransaksiDepositoBerjangka_Click()
FrmdepositoBerjangka.Show
End Sub

Private Sub mnuTransaksiDepositoOnCall_Click()
FrmOnCall.Show
End Sub

Private Sub mnuTransaksiDepositoSertifikat_Click()
FrmSertifikatDeposito.Show
End Sub

Private Sub mnuTransaksiSaving_Click()
FrmSaving1.Show
End Sub


Private Sub cmdKeluar_Click()
Unload Me
End Sub

Private Sub Form_Activate()
cmdKeluar.SetFocus
End Sub


Dim sngPemasukan, sngBunga, sngPajak, sngBungaBersih As Single
Private Sub Command1_Click()
sngNominal = 200000
If (Text1.Text > 1000) Then
sngBunga = Text1.Text * Text2.Text / 100 * Text4.Text / Text3.Text
sngPajak = sngBunga * Text6.Text / 100
sngBungaBersih = sngBunga - sngPajak
Else
sngBunga = 0
sngPajak = sngBunga * Text6.Text
sngBungaBersih = sngBunga - sngPajak
End If
Text5.Text = sngBunga
Text7.Text = sngPajak
Text8.Text = sngBungaBersih

End Sub

Private Sub cmdKembali_Click()
Unload Me
End Sub




Private Sub Form_Load()

End Sub
Dim sngPemasukan, sngTotalSaldoSD, sngBunga, sngPajak, sngBungaBersih, sngJmlh As Single
Private Sub Command1_Click()
sngNominal = 200000
If (Text1.Text > 1000) Then
sngTotalSaldoSD = Text1.Text * Text2.Text
sngBunga = sngTotalSaldoSD * Text5.Text / 100 * Text10.Text / Text11.Text
sngPajak = sngBunga * Text7.Text / 100
sngBungaBersih = sngBunga - sngPajak
sngJmlh = sngTotalSaldoSD - sngBungaBersih
Else
sngTotalNominalSD = Text1.Text * Text2.Text
sngBunga = 0
sngPajak = sngBunga * Text7.Text / 100
sngBungaBersih = sngBunga - sngPajak
sngJmlh = sngTotalSaldoSD - sngBungaBersih
End If

Text3.Text = sngTotalSaldoSD
Text4.Text = sngBunga
Text6.Text = sngPajak
Text8.Text = sngBungaBersih
Text9.Text = sngJmlh
End Sub

Private Sub cmdKembali_Click()
Unload Me
End Sub

Private Sub Form_Load()

End Sub Dim sngPemasukan, sngBunga, sngPajak, sngBungaBersih As Single
Dim sngMasuk, sngBng, sngPjk, sngBngBrh, sngJmlh, sngPenalty, sngBln1, sngBln2, sngDenda

Private Sub CmdHitung_Click()
sngNominal = 50000
If (Text2.Text > 1000) Then
sngBunga = Text1.Text / 100 * Text2.Text * Text4.Text / Text3.Text
sngPajak = sngBunga * Text6.Text / 100
sngBungaBersih = sngBunga - sngPajak

Else
sngBunga = 0
sngPajak = sngBunga * Text6.Text
sngBungaBersih = sngBunga - sngPajak

End If
Text5.Text = sngBunga
Text8.Text = sngPajak
Text9.Text = sngBungaBersih


End Sub

Private Sub cmdKembali_Click(Index As Integer)
Unload Me
End Sub

Private Sub Command1_Click()
sngaldo = 50000
If (Text10.Text > 1000) Then
sngBng = Text10.Text * Text7.Text / 100 * Text11.Text / Text12.Text
sngPjk = sngBng * Text14.Text / 100
sngBngBrh = sngBng - sngPjk
sngPenalty = Text18.Text - Text19.Text
sngBln1 = sngPenalty / 100 * Text22.Text * Text24.Text / Text23.Text
sngBln2 = sngPenalty / 100 * Text27.Text * Text29.Text / Text28.Text
sngJmlh = sngBln1 + sngBln2
sngDenda = sngJmlh - sngBngBrh
End If

Text13.Text = sngBng
Text16.Text = sngPjk
Text17.Text = sngBngBrh
Text20.Text = sngPenalty
Text25.Text = sngBln1
Text30.Text = sngBln2
Text32.Text = sngDenda
Text31.Text = sngJmlh
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub SSTab1_DblClick()

End Sub Dim sngPemasukan, sngSaldoHarian, sngSaldoTerendah, sngSaldoRata2 As Single
Private Sub cmdBatal_Click()
txt_Tanggal.Text = ""
txt_Transaksi.Text = ""
txt_Debit.Text = ""
txt_Kredit.Text = ""
txt_Saldo.Text = ""
txt_jmlHrMengendap.Text = ""

txt_Tanggal.SetFocus
End Sub

Private Sub cmdHapus_Click()
Dim x As Byte
x = MsgBox("Anda Yakin Akan diHapus ?", vbQuestion + vbYesNo, "Hapus")
If x = vbYes Then
Data1.Recordset.Delete
End If
End Sub


Private Sub cmdKeluar_Click(Index As Integer)
Unload Me
End Sub

Private Sub cmdSimpan_Click()
Data1.Recordset.AddNew
Data1.Recordset!tanggal = txt_Tanggal.Text
Data1.Recordset!transaksi = txt_Transaksi.Text
Data1.Recordset!debit = txt_Debit.Text
Data1.Recordset!kredit = txt_Kredit.Text
Data1.Recordset!saldo = txt_Saldo.Text
Data1.Recordset!jmlHrMengendap = txt_jmlHrMengendap.Text
Data1.Recordset.Update
Data1.Refresh
cmdBatal_Click
End Sub

Private Sub Command1_Click()
sngNominal = 200000
If (Text2.Text > 1000) Then
sngSaldoHarian = Text1.Text * Text2.Text * Text3.Text / Text4.Text
sngSaldoRata2 = Text6.Text * Text7.Text / Text8.Text
sngSaldoTerendah = Text11.Text * Text12.Text / Text13.Text
Else
sngSaldoHarian = 0
sngSaldoRata2 = Text6.Text * Text7.Text / Text8.Text
sngSaldoTerendah = Text11.Text * Text12.Text / Text13.Text
End If
Text5.Text = sngSaldoHarian
Text10.Text = sngSaldoRata2
Text15.Text = sngSaldoTerendah

End Sub Private Sub cmdBatal_Click()
txt_Tanggal.Text = ""
txt_Transaksi.Text = ""
txt_Debit.Text = ""
txt_Kredit.Text = ""
txt_Saldo.Text = ""
txt_jmlHrMengendap.Text = ""

txt_Tanggal.SetFocus
End Sub

Private Sub cmdHapus_Click()
Dim x As Byte
x = MsgBox("Anda Yakin Akan diHapus ?", vbQuestion + vbYesNo, "Hapus")
If x = vbYes Then
Data1.Recordset.Delete
End If
End Sub


Private Sub cmdKeluar_Click(Index As Integer)
Unload Me
End Sub

Private Sub cmdSimpan_Click()
Data1.Recordset.AddNew
Data1.Recordset!tanggal = txt_Tanggal.Text
Data1.Recordset!transaksi = txt_Transaksi.Text
Data1.Recordset!debit = txt_Debit.Text
Data1.Recordset!kredit = txt_Kredit.Text
Data1.Recordset!saldo = txt_Saldo.Text
Data1.Recordset!jmlHrMengendap = txt_jmlHrMengendap.Text
Data1.Recordset.Update
Data1.Refresh
cmdBatal_Click
End Sub

Tidak ada komentar:

Posting Komentar