Form Menu

Tampilan Form Login dan List Code-nya :

Source Code :

Private Sub mnF1_Click()
FrmMobil.Show
End Sub

Private Sub mnKeluar_Click()
If MsgBox("Anda Yakin Mau Keluar?", vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then
End
End If
End Sub

Form Login

Tampilan Form Login dan List Code-nya :

Source Code :
Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset
Private Sub commandok_Click()
If conn.State = 1 Then conn.Close
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\login.mdb"

If RS.State = 1 Then RS.Close
RS.Open "select * from login where user= '" & Username.Text & "' And pass = '" & Password.Text & "'", conn, 3, 3
If Not RS.EOF Then
MsgBox "SELAMAT DATANG...!!!" & vbCrLf & _
"Sistem Informasi Penjualan Mobil PT.ManaTauLaku" & vbCrLf & _
"" & vbCrLf & _
"(C)opy Right by Jenson Sinaga Januari 2012", vbInformation + vbOKOnly, "Login Success"
Unload Me
FrmMenu.Show
Else
MsgBox "Data Usernama atau Password Anda Salah", vbCritical, "Login Failed"
Username.Text = ""
Password.Text = ""
Username.SetFocus
End If
End Sub
Private Sub Form_Load()
Username.Text = ""
Password.Text = ""
End Sub
Private Sub password_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Password.Text = "" Then Exit Sub
CommandOK.SetFocus
End If
End Sub
Private Sub username_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Username.Text = "" Then Exit Sub
Password.SetFocus
End If
End Sub

Aktivitas Kerja

Saya bekerja di Rumah Sakit Mitra Sejati, Tugas saya dibagian RM/Receptionist. Saya Masuk bekerja dari Pukul 07.30-15.00 wib,
Saya berangkat kerja dari rumah pukul 07.15, setelah saya merapi-rapikan dahulu tugas dirumah. Saya bekerja membawa kendaraan sendiri agar perjalanan ketempat lokasi kerja tidak telat dan tidak terkena macet.
Pekerjaan saya dirumah sakit mulai hari senin sampai dengan hari minggu, kecuali hari sabtu saya libur/of. Sungguh sedikit lelah karena pulang kerja harus berangkat kekampus lagi,,, hehehehheeh
Tapi Saya Happy kok, karena saya bisa sedikit membantu meringankan beban kedua ortu saya,
                               Saya harus optimis dalam bekerja dan kuliah.
                              

Malam hari.

Saya pulang dari kampus jam 21:00 dan sampai di rumah jam 21:20. setelah sampai dirumah saya beristirahat.

Soreh hari

Setelah saya sampai dirumah saya beristirahat satu jam dan setelah istirahat saya bergegas  pergi ke kampus jam 17:00. dan setelah sampai dikampus saya masuk kekelas jam pertama mengikuti matakuliah dari dosen sampai jam ke dua.

DISIANG HARI / Sore

Saya pulang kerja jam 15:00. lalu saya bergegaspulang kerumah sampai di rumah saya istirahat dan makan siang setelah itu saya mandih dan bergegas pergi kuliah.