Pembuata Data Base dan Form Gaji

Dalam materi Visual Basic Lanjutan kita harus memiliki software :

1.       Visual Basic

2.       mysql-connector-odbc-3.51.12-win32

3.       Apache

4.       Crystal report

Setelah kita melakukan penginstalan 3 aplikasi pendukung tersebut, maka marilah kita membuat terlebih dahulu database di dalam apache. Buatlah database sebagai berikut :

Buatlah form sbb :

membuat ADODC :

klik kanan pada toolbars

pilih component

ceklist : Microsoft ADO Data Control 6.0 (OLEDB)

untuk mengkoneksikan ADODC dengan form :

START

CONTROL PANEL

ADMINISTRATIVE TOOLS

PILIH DATA SOURCE ODBC

ADD

MYSQL ODBC 3.51 DRIVER

masukkan:

Data Source = nama tabel yang dibuat di myadmin

user = root

password = password

database name = pilih database anda yang dibuat

melakukan pengecekan koneksi :

buka form login

pilih ADODC1

klik kanan pilih adodc properties

use connection string = build

use data source = login

Buat Modul =

project

add modul

buat listing :

'MENDEFINISIKAN OBJEK

Public KON As New ADODB.Connection

Public rsbrg As ADODB.Recordset

Public rsuser As ADODB.Recordset

Public rsdetail As ADODB.Recordset

Public rstrans As ADODB.Recordset

Public rstemp As ADODB.Recordset

Sub koneksi()

'MEMBUKA OBJEK

Set KON = New ADODB.Connection

Set rsbrg = New ADODB.Recordset

Set rsuser = New ADODB.Recordset

Set rsdetail = New ADODB.Recordset

Set rstrans = New ADODB.Recordset

Set rstemp = New ADODB.Recordset

KON.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=login"

KON.Open

End Sub

Masukkan listing untuk form sbb :

Private Sub CMDLOGIN_Click()

Call koneksi

sql = "select * from login where kodeuser  ='" & TXTUSER.Text  & "' and password='" & TXTPASS.Text & "'"

Set rsuser = KON.Execute(sql)

If Not rsuser.EOF Then

TXTUSER.Enabled = False

TXTPASS.SetFocus

    If TXTPASS.Text = "" Then

    MsgBox "password belum diisi", vbOKOnly, "informasi"

    TXTPASS.SetFocus

        ElseIf TXTPASS.Text = rsuser!Password Then

        TXTUSER.Text = rsuser!Kodeuser

        MsgBox "selamat anda berhasil", 64, "info"

        MNUUTAMA.Show

        MNUUTAMA.Enabled = True

        Unload Me

    End If

Else

MsgBox "PASSWORD tdk ada", vbInformation, "info"

TXTUSER.Enabled = True

TXTUSER.SetFocus

TXTPASS.Text = ""

End If

'End If

End Sub

Private Sub Form_Activate()

TXTUSER.Enabled = True

TXTPASS.Enabled = False

TXTUSER.SetFocus

TXTUSER.MaxLength = 5

TXTPASS.PasswordChar = ""

TXTLEVEL.Visible = False

End Sub

Private Sub TXTUSER_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

If KeyAscii = 13 Then

Call koneksi

sql = "select * from login where kodeuser ='" & TXTUSER.Text & "'"

Set rsuser = KON.Execute(sql)

If TXTUSER.Text = "" Then

MsgBox "ketikkan kode user ", vbInformation, "informasi"

ElseIf rsuser.EOF Then

lg = lg + 1

If lg = 3 Then

MsgBox "kesempatan login sudah habis",

        vbExclamation, "login gagal"

Unload Me

Unload MNUUTAMA

lg = 0

Else

MsgBox "kodeuser tdk ada", vbExclamation, "informasi"

TXTUSER.Text = ""

TXTUSER.SetFocus

End If

Else

TXTUSER.Enabled = False

TXTPASS.Enabled = True

TXTPASS.SetFocus

End If

End If

End Sub