Database | Microsoft Visual Studio 6.0

on
PROJECT MANAGER & PROGRAMMER 
(Ahmad Fadhli)



Push Ctrl + T to access into Component data object.
Select Microsoft Calendar Control 9.0, Microsoft Common Dialog Control 6.0 (SP6), Microsoft Data Bound Grid 5.0 (SP3) and Microsoft Tabbed Dialog Control 6.0 (SP6).

Picture 1
PICTURE 01

After all checked on you, click Ok.
Then you must make the interface program like this one:

PICTURE 02

PICTURE 03

PICTURE 04

PICTURE 06

PICTURE 07

PICTURE 08

PICTURE 09

PICTURE 10


Syntax::
____________________________________________________________________________________________________________________________________________________________________________________

Option Explicit
Dim DBS As Database
____________________________________________________________________________________________________________________________________________________________________________________
Private Sub ComboNIS_Click()
    With Form1
        .Data1.Recordset.Index = "X_UN"
        .Data1.Recordset.Seek "=", .ComboNIS.Text
        If .ComboNIS.Text = "" Then MsgBox "SELECT PRIMARY NIS FOR THIS DATA..!", vbExclamation, ""
        If .Data1.Recordset.NoMatch Then
            MsgBox "DATA FAILED..!" & Chr(10) & "PLEASE WRITE FOR THIS..", vbCritical, ""
            Call .KALAU_GAK_ADA
            .SSTab1.Tab = 0
        Else
            MsgBox "SEARCH SUCCESS..", vbInformation, ""
            .TextNAMA.Text = .Data1.Recordset!NAMA
            .ComboKKPI.Text = .Data1.Recordset!KKPI
            .ComboVB.Text = .Data1.Recordset!VB
            .ComboALGORITMA.Text = .Data1.Recordset!ALGORITMA
            .TextRATARATA.Text = .Data1.Recordset!RATA_RATA
            .L_KET.Caption = .Data1.Recordset!KET
            .TextLINKADDRESS.Text = .Data1.Recordset!PHOTO
            .ImagePHOTO.Picture = LoadPicture(.TextLINKADDRESS.Text)
            .SSTab1.Tab = 0
        End If
    End With
End Sub
____________________________________________________________________________________________________________________________________________________________________________________
Private Sub ComBrowse_Click()
    With Form1
        .CommonDialog1.DialogTitle = "SELECT PHOTO"
        .CommonDialog1.FileName = ""
        .CommonDialog1.Filter = "JPG|*.JPG|BMP|*.BMP|ALL PICTURES|*.JPG;*.BMP"
        .CommonDialog1.Action = 1
        .TextLINKADDRESS.Text = .CommonDialog1.FileName
        .ImagePHOTO.Picture = LoadPicture(.TextLINKADDRESS.Text)
        .SSTab1.Tab = 0
    End With
End Sub
____________________________________________________________________________________________________________________________________________________________________________________
Private Sub ComCancel_Click()
    With Form1
        Call .CLEAR
    End With
End Sub
____________________________________________________________________________________________________________________________________________________________________________________
Private Sub ComDelete_Click()
    With Form1
        .Data1.Recordset.Index = "X_UN"
        .Data1.Recordset.Seek "=", .ComboNIS.Text
        If .ComboNIS.Text = "" Then MsgBox "SELECT PRIMARY NIS FOR THIS DATA..!", vbExclamation, ""
        If MsgBox("ALREADY DELETE..?", vbQuestion + vbYesNo, "") = vbYes Then
            .Data1.Recordset.Delete
            Call .CLEAR
        End If
    End With
End Sub
____________________________________________________________________________________________________________________________________________________________________________________
Private Sub ComEdit_Click()
    With Form1
        .Data1.Recordset.Index = "X_UN"
        .Data1.Recordset.Seek "=", .ComboNIS.Text
        If .ComboNIS.Text = "" Then MsgBox "SELECT PRIMARY NIS FOR THIS DATA..!", vbExclamation, ""
        If .Data1.Recordset.NoMatch Then
            MsgBox "DATA FAILED..!", vbCritical, ""
        Else
            MsgBox "EDIT SUCCESS..", vbInformation, ""
            .Data1.Recordset.Edit
            .Data1.Recordset!NIS = .ComboNIS.Text
            .Data1.Recordset!NAMA = .TextNAMA.Text
            .Data1.Recordset!KKPI = .ComboKKPI.Text
            .Data1.Recordset!VB = .ComboVB.Text
            .Data1.Recordset!ALGORITMA = .ComboALGORITMA.Text
            .Data1.Recordset!RATA_RATA = .TextRATARATA.Text
            .Data1.Recordset!KET = .L_KET.Caption
            .Data1.Recordset!PHOTO = .TextLINKADDRESS.Text
            .Data1.Recordset.Update
            Call .CLEAR
            .SSTab1.Tab = 1
        End If
    End With
End Sub
____________________________________________________________________________________________________________________________________________________________________________________
Private Sub ComExit_Click()
    If MsgBox("EXIT..?", vbQuestion + vbYesNo, "") = vbYes Then
        End
    End If
End Sub
____________________________________________________________________________________________________________________________________________________________________________________
Private Sub ComRataRata_Click()
    With Form1
        .TextRATARATA.Text = Val(.ComboKKPI - -.ComboVB - -.ComboALGORITMA) / 3
        If .TextRATARATA.Text >= 75 Then
            .L_KET.Caption = "LULUS"
        Else
            .L_KET.Caption = "GAGAL"
        End If
    End With
End Sub
____________________________________________________________________________________________________________________________________________________________________________________
Private Sub ComRefresh_Click()
    With Form1
        .Data1.Refresh
        .DBGrid1.Refresh
    End With
End Sub
____________________________________________________________________________________________________________________________________________________________________________________
Private Sub ComSave_Click()
    With Form1
        .Data1.Recordset.Index = "X_UN"
        .Data1.Recordset.Seek "=", .ComboNIS.Text
        If .ComboNIS.Text = "" Then MsgBox "SELECT PRIMARY NIS FOR THIS DATA..!", vbExclamation, ""
        If Not .Data1.Recordset.NoMatch Then
            MsgBox "DATA FAILED..!", vbCritical, ""
        Else
            MsgBox "SAVE SUCCESS..", vbInformation, ""
            .Data1.Recordset.AddNew
            .Data1.Recordset!NIS = .ComboNIS.Text
            .Data1.Recordset!NAMA = .TextNAMA.Text
            .Data1.Recordset!KKPI = .ComboKKPI.Text
            .Data1.Recordset!VB = .ComboVB.Text
            .Data1.Recordset!ALGORITMA = .ComboALGORITMA.Text
            .Data1.Recordset!PHOTO = .TextLINKADDRESS.Text
            .Data1.Recordset!RATA_RATA = .TextRATARATA.Text
            .Data1.Recordset!KET = .L_KET.Caption
            .Data1.Recordset.Update
            Call .CLEAR
            .SSTab1.Tab = 1
        End If
    End With
End Sub
____________________________________________________________________________________________________________________________________________________________________________________
Public Sub CLEAR()
    With Form1
        .ComboNIS.Text = ""
        .TextNAMA.Text = ""
        .ComboKKPI.Text = ""
        .ComboVB.Text = ""
        .ComboALGORITMA.Text = ""
        .TextRATARATA.Text = ""
        .L_KET.Caption = ""
        .TextLINKADDRESS.Text = ""
        .ImagePHOTO.Picture = LoadPicture()
    End With
End Sub
____________________________________________________________________________________________________________________________________________________________________________________
Public Sub HAHA_NIS()
    With Form1
        Dim NIS
        For NIS = 1 To 10000
            .ComboNIS.AddItem (NIS)
        Next NIS
    End With
End Sub
____________________________________________________________________________________________________________________________________________________________________________________
Public Sub HAHA_NILAI()
    With Form1
        Dim NILAI
        For NILAI = 0 To 100
            .ComboKKPI.AddItem (NILAI)
            .ComboVB.AddItem (NILAI)
            .ComboALGORITMA.AddItem (NILAI)
        Next NILAI
    End With
End Sub
____________________________________________________________________________________________________________________________________________________________________________________
Private Sub ComSearch_Click()
    With Form1
        .Data1.Recordset.Index = "X_UN"
        .Data1.Recordset.Seek "=", .ComboNIS.Text
        If .ComboNIS.Text = "" Then MsgBox "SELECT PRIMARY NIS FOR THIS DATA..!", vbExclamation, ""
        If .Data1.Recordset.NoMatch Then
            MsgBox "DATA FAILED..!", vbCritical, ""
            Call .CLEAR
        Else
            MsgBox "SEARCH SUCCESS..", vbInformation, ""
            .ComboNIS.Text = .Data1.Recordset!NIS
            .TextNAMA.Text = .Data1.Recordset!NAMA
            .ComboKKPI.Text = .Data1.Recordset!KKPI
            .ComboVB.Text = .Data1.Recordset!VB
            .ComboALGORITMA.Text = .Data1.Recordset!ALGORITMA
            .TextRATARATA.Text = .Data1.Recordset!RATA_RATA
            .L_KET.Caption = .Data1.Recordset!KET
            .TextLINKADDRESS.Text = .Data1.Recordset!PHOTO
            .ImagePHOTO.Picture = LoadPicture(.TextLINKADDRESS.Text)
            .SSTab1.Tab = 0
        End If
    End With
End Sub
____________________________________________________________________________________________________________________________________________________________________________________
Private Sub Form_Load()
    With Form1
        .Caption = "DATABASE  |  MICROSOFT VISUAL BASIC 6.0"
        Call .HAHA_NIS
        Call .HAHA_NILAI
        Set DBS = OpenDatabase(App.Path & "/SUSU.mdb")
        Set .Data1.Recordset = DBS.OpenRecordset("UN", dbOpenTable)
    End With
End Sub
____________________________________________________________________________________________________________________________________________________________________________________
Private Sub Text_Shortname_Change()
    With Form1
            Set .Data1.Recordset = DBS.OpenRecordset("Select * From UN Where NAMA Like '*" & .Text_Shortname.Text & "*' ")
    End With
End Sub
____________________________________________________________________________________________________________________________________________________________________________________
Public Sub KALAU_GAK_ADA()
    With Form1
        .TextNAMA.Text = ""
        .ComboKKPI.Text = ""
        .ComboVB.Text = ""
        .ComboALGORITMA.Text = ""
        .TextRATARATA.Text = ""
        .L_KET.Caption = ""
        .TextLINKADDRESS.Text = ""
        .ImagePHOTO.Picture = LoadPicture()
    End With
End Sub

Comments

Post a Comment