[belajar-access] Re: tanya rollback dan log activity

----- Original Message -----
From: "di2_shadow" <di2_shadow@yahoo.com>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, November 26, 2009 10:58 AM
Subject: [belajar-access] Re: tanya rollback dan log activity

> mas ini coding untuk login aplikasi...bagaimana untuk memasukan log
activity nya ya?? apakah harus membuat table baru didatabase?bagaimana
caranya??
>
> Private Sub TbLogin_Click()
> Dim vActivityLog As Single
> Dim vInsertLog As Single
>
> If txtUser.Text = "" Then
> MsgBox "USER ID MASIH KOSONG !", vbCritical + vbOKOnly, "Error"
> txtUser.SetFocus
> ElseIf txtPwd.Text = "" Then
> MsgBox "PASSWORD MASIH KOSONG !", vbCritical + vbOKOnly, "Error"
> txtPwd.SetFocus
> Else
> SQL = ""
> SQL = "SELECT * FROM Pengguna " _
> & "WHERE UserID='" & txtUser.Text & "' " _
> & " AND PassID='" & txtPwd.Text & "'" _
> & " AND Level='" & cmbLevel.Text & "'"
> Set rsPeriksa = KonekDb.Execute(SQL)
>
>
>
> If Not rsPeriksa.BOF Then
> If rsPeriksa!Level = "ADMIN" Then
> Unload Me
> With FrmUtama
> .Enabled = True
> .Show
> .MuFile.Enabled = True
> .mnuLogin.Enabled = False
> .mnuLogout.Enabled = True
> .mnuKeluar.Enabled = True
> .MuData.Enabled = True
> .MuTransaksi.Enabled = True
> .mnuPembelian.Enabled = True
> .mnuPenjualan.Enabled = True
>
> .MuLaporan.Enabled = True
>
> .mnuLapJualNota.Enabled = True
>
> .mnuLapBeliNota.Enabled = True
>
> .MuSetting.Enabled = True
> .mnuPengguna.Enabled = True
>
> End With
> Else
> Unload Me
> With FrmUtama
> .Enabled = True
> .Show
> .MuFile.Enabled = True
> .mnuLogin.Enabled = False
> .mnuLogout.Enabled = True
> .mnuKeluar.Enabled = True
> .MuData.Enabled = False
> .MuTransaksi.Enabled = True
> .mnuPembelian.Enabled = False
> .mnuPenjualan.Enabled = True
>
> .MuLaporan.Enabled = True
>
> .mnuLapJualNota.Enabled = True
>
>
> .mnuLapBeliNota.Enabled = False
>
> .MuSetting.Enabled = False
> .mnuPengguna.Enabled = False
>
> End With
> End If
>
>
> UserId = rsPeriksa!UserId
> NamaId = rsPeriksa!Nama
>
>
> With FrmUtama
> .StatusBar1.Panels(1).Text = rsPeriksa!Nama
> .StatusBar1.Panels(2).Text = "[" & rsPeriksa!Level & "]"
> .mnuLogout.Enabled = True
> End With
>
> Unload Me
> Else
> ' Periksa, login hanya 3 kali
> ' 3x gagal pesan error ditampilkan
> If MaxLogin < 3 Then
> MsgBox "PASSWORD MASIH SALAH, SILAHKAN ULANGI LAGI!",
vbCritical + vbOKOnly, "Error"
> txtPwd.Text = ""
> txtPwd.SetFocus
> MaxLogin = MaxLogin + 1
> Else
> MsgBox "ANDA BUKAN USER YANG BERHAK!", vbCritical +
vbOKOnly, "Error"
> End
> End If
> End If
> End If
> End Sub
>
>
> --- In belajar-access@yahoogroups.com, Aksan Kurdin <aksan.kurdin@...>
wrote:
> >
> > coba mana kode yang sudah ardy buat, mungkin bisa saya selipkan kode
> > untuk log activity-nya ....
> >
> > aksan kurdin
> >
> >
> > ardy bayang wrote:
> > >
> > >
> > > mas aksan,untuk membuat log activity nya gimana ya??mohon
> > > penyerahaannya.thx