Mem- password database (MS Access) dengan coding visual Basic 6.0 (4)

Form DelPassword

Biar nyambung baca dulu artikel saya sebelumnya untuk membuat Form Menu, Form New Password. dan Form edit Password. Sekarang kita membuat Form Delete Password, Tambahkan sebuah Form (Namai dengan : FrmDelPassword), tambahkan beberapa component sebagai berikut :

• 2 buah CommandButton
• sebuah TextBox
• sebuah Frame
• sebuah Label

Set properties-nya sebagai berikut :

• command1, name : Command1, caption : Create Password, enabled = false
• command2, name : Command2, caption : Cancel
• Text1, name : Text1, Text : , PasswordChar : *
  
• Label1, name : Label1, caption : Old Password
  

Susun sedemikian rupa hingga tampilannya akan nampak seperti ini :

 

Form Delete Password

Sekarang diteruskan untuk mengisi jendela coding

Private Sub Command1_Click()
On Error GoTo 1
    Dim db As Database
    Dim fs As Object

    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CopyFile FrmMenu.Text1.Text, FrmMenu.Text2.Text

    Set db = OpenDatabase(FrmMenu.Text2.Text, True, False, ";pwd=" + Text3.Text)
    db.newPassword Text1.Text, ""
    db.Close
    MsgBox "Password has been deleted!", vbInformation, ".: Password deleted success"
    Unload Me
1:
If Not Err.Number = 0 Then
    MsgBox Err.Number, vbInformation, ".: Password Changed failed"
    Exit Sub
End If
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Text1_Change()
On Error GoTo 1
    Command1.Enabled = True
    Dim db As Database
    Set db = OpenDatabase(FrmMenu.Text1.Text, True, False, ";pwd=" + Text1.Text)
   
1:
If Not Err.Number = 0 Then
    Command1.Enabled = False
End If

End Sub

NOTE  :
Aplikasi ini dirancang untuk mem-password, dengan terlebih dahulu mengcopy database asli ke path yang lain, untuk menghindari hal-hal yang tidak diinginkan.

--- Selesai  ---

Mem- password database (MS Access) dengan coding visual Basic 6.0 (3)

Form EditPassword

Biar nyambung baca dulu artikel saya sebelumnya untuk membuat Form Menu dan Form New Password. Sekarang kita membuat Form Edit Password, Tambahkan sebuah Form (Namai dengan : FrmEditPassword), tambahkan beberapa component sebagai berikut :

• 2 buah CommandButton
• 3 buah TextBox
• 1 buah Frame
• dan beberapa buah Label

Set properties-nya sebagai berikut :

• command1, name : Command1, caption : Create Password, enabled = false
• command2, name : Command2, caption : Cancel
• Frame1, name : Frame1, caption : New Password

• Text1, name : Text1, Text : , PasswordChar : *
  
• Text2, name : Text2, Text : , PasswordChar : *
• Text3, name : Text3, Text : , PasswordChar : *

• Label1, name : Label1, caption : Enter a Password
  
• Label2, name : Label2, caption : Type Password Again
  
• Label3, name : Label3, caption : Old Password
  

Susun sedemikian rupa hingga tampilannya akan nampak seperti ini :

 Form Edit Password

Sekarang diteruskan untuk mengisi jendela coding

Private Sub Command1_Click()
On Error GoTo 1
    If  Text1.Text = "" Or Text2.Text = "" Then Exit Sub
    Dim fs As Object
    Dim db As Database
   
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CopyFile FrmMenu.Text1.Text, FrmMenu.Text2.Text
   
    Set db = OpenDatabase(FrmMenu.Text2, True, False, ";pwd=" + Text3.Text)
    db.newPassword Text3.Text, Text1.Text

' text3 -- password lama

' text1 --- password baru
    db.Close
    MsgBox "Password has been changed!", vbInformation, ".: Password changed success"
   
    Unload Me
1:
If  Not Err.Number = 0 Then
    MsgBox Err.Number, vbInformation, ".: Password Changed failed"
    Exit Sub
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Text1_LostFocus()
Text2.Text = ""
End Sub

Private Sub Text2_Change()
On Error Resume Next
   
    Command1.Enabled = False
    If Not Text2.Text = "" Then
        If Text2.Text = Text1.Text Then Command1.Enabled = True
    Else
        Command1.Enabled = False
    End If

End Sub

Private Sub Text3_Change()
On Error GoTo 1
    Frame1.Enabled = True
    Dim db As Database
    Set db = OpenDatabase(FrmMenu.Text1.Text, True, False, ";pwd=" + Text3.Text)
    Text1.SetFocus
1:
If Not Err.Number = 0 Then
    Frame1.Enabled = False
End If

End Sub

NOTE  :
Aplikasi ini dirancang untuk mem-password, dengan terlebih dahulu mengcopy database asli ke path yang lain, untuk menghindari hal-hal yang tidak diinginkan.

Langkah selanjutnya membuat Form DelPassword

Mem- password database (MS Access) dengan coding visual Basic 6.0 (2)

Form NewPassword

Biar nyambung baca dulu artikel saya sebelumnya untuk membuat Form Menu nya

Sekarang kita membuat Form New Password, Tambahkan sebuah Form (Namai dengan : FrmNewPassword), tambahkan beberapa component sebagai berikut :

• 2 buah CommandButton
• 2 buah TextBox
• dan beberapa buah Label

Set properties-nya sebagai berikut :

• command1, name : Command1, caption : Create Password, enabled = false
• command2, name : Command2, caption : Cancel

• Text1, name : Text1, Text : , PasswordChar : *
• Text2, name : Text2, Text : , PasswordChar : *

• Label1, name : Label1, caption : Enter a Password
• Label2, name : Label2, caption : Type Password Again

Susun sedemikian rupa hingga tampilannya akan nampak seperti ini :

 Form New Password

Sekarang diteruskan untuk mengisi jendela coding

Private Sub Command1_Click()
    If Text1.Text = "" Or Text2.Text = "" Then Exit Sub
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CopyFile FrmMenu.Text1.Text, FrmMenu.Text2.Text

    Call newPassword(FrmMenu.Text2.Text, Text1.Text)
    MsgBox "Password has been created!", vbInformation, ".: Password created success"
   
    Unload Me
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Text1_LostFocus()
Text2.Text = ""
End Sub

Private Sub Text2_Change()
On Error Resume Next
   
    Command1.Enabled = False
    If Not Text2.Text = "" Then
        If Text2.Text = Text1.Text Then Command1.Enabled = True
    Else
        Command1.Enabled = False
    End If

End Sub

Sub newPassword(dbf As String, NewPwd As String)
On Error GoTo 1

    Dim db As Database
    Set db = OpenDatabase(dbf, True)
    db.newPassword "", NewPwd
    db.Close
    Exit Sub
1:
    If Not Err.Number = 0 Then
        MsgBox Err.Description, vbInformation, ".: New Password Created failed"
        Exit Sub
    End If
End Sub

NOTE  :
Aplikasi ini dirancang untuk mem-password, dengan terlebih dahulu mengcopy database asli ke path yang lain, untuk menghindari hal-hal yang tidak diinginkan.

Langkah selanjutnya membuat Form EditPassword

Mem- password database (MS Access) dengan coding visual Basic 6.0 (1)

Tempo hari ada pengunjung menanyakan bagaimana memberi password dengan Vis-Data, saya bilangnya "..pending dulu ya!" padahal saya ga bisa, saya tanyakan di mbah google pun jawabnya malah nggak karuan, yang nyari kurang pinter kali ya.. ^_^. Mungkin ada fasilitasnya, hanya saja saya belum tahu, mungkin ada teman-teman yang tahu mohon di share ya.

Apa boleh buat, pakai coding saja ya. Yuph kita akan membuat aplikasi sendiri untuk me-manage Database kita.

Buat project baru (standart-EXE), Kemudian tambahkan references (Menu : Project-References ...)  Microsoft DAO 3.51 Object Library, dan tambahkan component (Menu : Project-components ..) Microsoft Common Dialog Control 6.0 (SP3)

Form Menu

Tambahkan sebuah Form (Namai dengan : FrmMenu), tambahkan beberapa component sebagai berikut :

• 6 buah CommandButton
• 2 buah TextBox
• 1 buah CommonDialog
• dan beberapa Label

Set properties-nya sebagai berikut :

• command1, name : Command1, caption : New Password, enabled = false
• command2, name : Command2, caption : Edit Password, enabled = false
• command3, name : Command3, caption : Delete Password, enabled = false
• command4, name : Command4, caption : Browse ...
• command5, name : Command5, caption : Browse ...
• command6, name : Command6, caption : Exit

• Text1, name : Text1, Text : , Locked = True
• Text2, name : Text2, Text : , Locked = True  

• Label1, name : Label1, caption : Password :
• Label2, name : Label2, caption : NO
• Label3, name : Label3, caption : Source File   
• Label4, name : Label4, caption : Destination File

 Susun sedemikian rupa hingga tampilannya akan nampak seperti ini :

 Form Menu

Sudah rapi ? nah sekarang kita mulai codingnya :

Private Sub Command1_Click()
FrmNewPassword.Show 1
End Sub

Private Sub Command2_Click()
FrmEditPassword.Show 1
End Sub

Private Sub Command3_Click()
    FrmDelPassword.Show 1
End Sub

Private Sub Command4_Click()
    CommonDialog1.InitDir = App.Path + "\Data\"
    CommonDialog1.Filter = "Access Database|*.mdb"
    CommonDialog1.ShowOpen
    Text1.Text = CommonDialog1.FileName
    cek CommonDialog1.FileName

End Sub

Private Sub Command5_Click()
    CommonDialog1.InitDir = App.Path + "\"
    CommonDialog1.Filter = "Access Database|*.mdb"
    CommonDialog1.ShowSave
    Text2.Text = CommonDialog1.FileName
End Sub

Sub cek(fdb As String)

Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False

On Error GoTo 1
    Dim db As DAO.Database
    Set db = OpenDatabase(fdb)
    Command1.Enabled = True
    Label2.Caption = "NO"
1:
If  Not Err.Number = o Then
    Command2.Enabled = True
    Command3.Enabled = True
    Label2.Caption = "YES"
End If
End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Form_Load()
Text2.Text = App.Path + "\" + Format(Now, "YYmmDD") + ".mdb"
End Sub

Langkah selanjutnya membuat Form NewPassword

Install OCX Crystal Report Control (2)

Beberapa waktu yang lalu ada pengunjung site ini yang bertanya mengapa OCX register-nya nggak bisa digunakan ada pesan "Class Not Registred Looking For Object with CLSID ... dst"??? Mohon maaf saya tidak bisa menjawabnya karena memang bukan ahli masalah software/windows.

Kali ini saya mencoba memberikan eksperimen saya yang kedua, fungsinya sama seperti hasil eksperimen saya yang pertama, yaitu me-register komponen/OCX crystl32.ocx agar bisa dijalankan (menampilkan report) tanpa harus menginstall Crystal Report

Versi Crystal Report yang saya gunakan adalah versi 8.5

File Setup nya dapat Anda Download disini : 

[http://www.easy-share.com/1909316191/cr85.rar], 

ukuran filenya sekitar 5 MB