Cara Membuat Form Edit Password tanpa Database di VB6
Pada artikel kali ini saya akan melanjutkan artikel yang sebelumnya yang berjudul cara membuat form login tanpa Database.Dalam Project ini kita perlu membuat 3 Form dalam satu project yaitu Form Login, Form Lupa Password dan Form Edit Password.Pada artikel sebelumnya kita sudah menyelsesaikan 2 Form yaitu Form Login dan Form Lupa Password.
Pada kesempatan kali ini kita akan melanjutkan Form yang ke 3 yaitu cara membuat form Edit Password.
Karena untuk mengedit sebuah Password maka kita harus terlebih dahulu berhasil untuk Login. Berikut adalah dibawah ini gambar Form login yang sudah kita buat pada Form 1.
 |
| Form Login |
Bagi anda yang belum mempunyai kesempatan untuk menyelsesaikan Form1 dan Form 2 silahkan klik link tersebut karena artikel ini saling terkait .
Berikut adalah langkah-langkah cara membuat Form Edit Password tanpa Database di VB 6 :
Cara Membuat Form Edit Password tanpa Database di VB6
1. Buka Program VB6 Anda pilih Standar EXE, pastikan anda sudah mengerjakan Form1 dan Form2 jika belum klik link tersebut.Jika sudah mari lanjut ke langkah nomor 2
2. Pilih Open Project >> Pilih nama file yang sudah kita buat kemaren untuk membuat Form Login dan Form Lupa Password.
3. Setelah Form terbuka tambahkan Form baru yaitu Form ke 3 (Form Edit Password)
4. Tambahkan 2 Label, 2 Textbox dan 1 Commandbutton
5. Desainlah Form seperti Gambar dibawah ini :
 |
| Form Desain |
6. Setelah Anda mendesain form seperti gambar diatas lalu ketik kode dibawah ini :
Private Sub Command1_Click()
If Command1.Caption = "Edit" Then
Text1.Enabled = True
Text2.Enabled = True
Command1.Caption = "Save"
Else
Open App.Path & "\pass.txt" For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Close #1
MsgBox "User Name dan Password berhasil disimpan!!!", vbOKOnly, "Berhasil disimpan"
Text1.Enabled = False
Text2.Enabled = False
Command1.Caption = "Edit"
End If
End Sub
Private Sub Form_Load()
'Non aktifkan Textbox
Text1.Enabled = False
Text2.Enabled = False
'kosongkan textbox
Text1.Text = ""
Text2.Text = ""
'ambil data file .TXT
Open App.Path & "\pass.txt" For Input As #1
Input #1, strName
Input #1, strPass
Close #1
'tampilkan datanya ke Textbox VB6
Text1.Text = strName
Text2.Text = strPass
'membuat form slalu tampil ditengan
Dim Atas As Long
Dim Kiri As Long
Atas = (Screen.Height - Me.Height) / 2
Kiri = (Screen.Width - Me.Width) / 2
Me.Move Kiri, Atas
End Sub
7. Setelah itu jalankan program Anda dengan menekan tombol F5 atau Run, jika program anda berhasil maka User Name dan Password yang Anda sudah dibuat pada Form1 akan muncul dan dapat dilihat serta dapat di Edit.
 |
| Form Edit Password |
8. Setelah itu langkah selanjutnya yang tidak kalah pentingnya yaitu beralih ke Form 1 , buka kodenya atau double klik Command1 atau tombol Login lalu tempatkan kode berikut dbawah ini :
Form3.Show
untuk posisinya penepatan Form3 perhatikan pada gambar dibawah ini :
 |
| Kode Login Form1 |
Sekarang jalankan dari Form1.Untuk mengatur form mana yang akan di jalankan Pilih Project >> Project Properties >> pada StarUp Object pilih Form1 dan OK. Jalankan Form1 maka form login akan muncul
No comments:
Post a Comment