pembelian dan penjualan

untitled11

untitled12

untitled13

untitled14

Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button And vbRightButton Then

PopupMenu MNWINDOWS

End If

End Sub

Private Sub MNYES_Click()

End

End Sub

Iklan

menu child dan windows

cascade

horizontal

vertical

Private Sub MNANAK1_Click()

Form2.Show

End Sub

Private Sub MNANAK2_Click()

Form3.Show

End Sub

Private Sub MNANAK3_Click()

Form4.Show

End Sub

Private Sub MNCASCADE_Click()

Arrange vbCascade

End Sub

Private Sub MNEXIT_Click()

End

End Sub

Private Sub MNTUTUP1_Click()

Form2.Hide

End Sub

Private Sub MNTUTUP2_Click()

Form3.Hide

End Sub

Private Sub MNTUTUP3_Click()

Form4.Hide

End Sub

Private Sub MNUEXIT_Click()

End

End Sub

Private Sub TILEHORIZONTAL_Click()

Arrange vbHorizontal

End Sub

Private Sub TILEVERTICAL_Click()

Arrange vbVertical

End Sub

hide menu windows

windows1

Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button And vbRightButton Then

PopupMenu MNWINDOWS

End If

End Sub

Private Sub MNCASCADE_Click()

Arrange vbCascade

End Sub

Private Sub MNHORIZONTAL_Click()

Arrange vbTileHorizontal

End Sub

Private Sub MNVERTIKAL_Click()

Arrange vbTileVertikal

End Sub

Private Sub MNYA_Click()

Unload Me

End Sub

nomor 5

nomor 5

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnik.Text = “”

txtgol.Text = “”

txtkode.Text = “”

txtstatus.Text = “”

txttahun.Text = “”

txtbagian.Text = “”

txtjabatan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txttoga.Text = “”

End Sub

 

 

Private Sub cmdproses_Click()

Dim s As String

s = Left(txtnik.Text, 4)

txttahun.Text = “2015”

s = Mid(txtnik.Text, 5, 1)

If s = “A” Then

txtgol.Text = “A”

txtjabatan.Text = “MANAJER”

txtgapok.Text = “4000000”

txttunjangan.Text = “1025000”

ElseIf s = “B” Then

txtgol.Text = “B”

txtjabatan.Text = “KA.SEKSI”

txtgapok.Text = “3500000”

txttunjangan.Text = “975000”

ElseIf s = “C” Then

txtgol.Text = “C”

txtjabatan.Text = “STAF”

txtgapok.Text = “3000000”

txttunjangan.Text = “925000”

End If

s = Mid(txtnik.Text, 7, 1)

If s = “S” Then

txtkode.Text = “S”

txtstatus.Text = “SINGLE”

ElseIf s = “M” Then

txtkode.Text = “M”

txtstatus.Text = “MENIKAH”

ElseIf s = “J” Then

txtkode.Text = “J”

txtstatus.Text = “JANDA”

ElseIf s = “D” Then

txtkode.Text = “D”

txtstatus.Text = “DUDA”

 

End If

s = Right(txtnik.Text, 3)

If s = “KEU” Then

txtbagian.Text = “ACOUNTING”

 

ElseIf s = “ADM” Then

txtbagian.Text = “Administrasi”

 

ElseIf s = “SDM” Then

txtbagian.Text = “General affair”

ElseIf s = “EDP” Then

txtbagian.Text = “IT UNIT”

 

ElseIf s = “SPM” Then

txtbagian.Text = “SECURITY”

 

 

End If

 

txttoga.Text = Val(txtgapok.Text) + Val(txttunjangan.Text)

 

End Sub

 

Private Sub cmdbatal_click()

txtnama.SetFocus

txtnama.Text = “”

txtnik.Text = “”

txtgol.Text = “”

txtkode.Text = “”

txtstatus.Text = “”

txttahun.Text = “”

txtbagian.Text = “”

txtjabatan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txttoga.Text = “”

End Sub

 

 

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

 

End Sub

 

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnik.SetFocus

End If

End Sub

nomor 4

nomor 4

Private Sub cmdlagi_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txtttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

 

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txtttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

 

Private Sub cmdkeluar_click()

End

End Sub

 

Private Sub Cmdproses_Click()

Dim S As String

txttahun.Text = “20” & Right(txtkb.Text, 2)

S = Mid(txtkb.Text, 3, 3)

If S = “SIM” Then

txtjb.Text = “Sistem Informasi manajemen”

txtp.Text = “Andra setiawan”

ElseIf S = “EDP” Then

txtjb.Text = “elektronik data Procesing”

txtp.Text = “Desi istiqomah”

ElseIf S = “MNJ” Then

txtjb.Text = “Manajemen”

txtp.Text = “Sandi fitrajaya”

ElseIf S = “CDR” Then

txtjb.Text = “Corel Draw”

txtp.Text = “Tri indah sari”

ElseIf S = “RPL” Then

txtjb.Text = “Rekaya Perangkat Lunak ”

txtp.Text = “Ernita sari”

End If

S = Left(txtkb.Text, 1)

If S = “A” Then

txtpenerbit.Text = “Andi offset yogyakarta”

txthg.Text = “75900”

ElseIf S = “I” Then

txtpenerbit.Text = “Indah Surabaya”

txthg.Text = “62000”

ElseIf S = “S” Then

txtpenerbit.Text = “Salemba Empat”

txthg.Text = “42000”

ElseIf S = “E” Then

txtpenerbit.Text = “Elek Media Komputindo”

txthg.Text = “53000”

ElseIf S = “M” Then

txtpenerbit.Text = “Maxicom”

txthg.Text = “83000”

End If

End Sub