Scribd
Upload
2 views16 pages

Listing Program

The document outlines a software listing program consisting of multiple forms for user login, main menu, and various functionalities such as managing types, periods, and scores. It includes event handlers for user interactions, data retrieval from a database, and updates to the user interface based on user roles and actions. The program is structured in a way that allows for easy navigation and management of educational data.

Uploaded by

Andi Zarx
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
2 views16 pages

Listing Program

The document outlines a software listing program consisting of multiple forms for user login, main menu, and various functionalities such as managing types, periods, and scores. It includes event handlers for user interactions, data retrieval from a database, and updates to the user interface based on user roles and actions. The program is structured in a way that allows for easy navigation and management of educational data.

Uploaded by

Andi Zarx
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd

LISTING PROGRAM

1. Login

Public Class FrmLogin

Private Sub btnLogin_Click(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
dr = openDR("SELECT * FROM tb_user WHERE user='" &
[Link] & "' AND pass='" & [Link] & "'")
If [Link] Then
User = Dr("user")
Level = Dr("level")
[Link]()
[Link]()
Else
msgError("Salah kombinasi username dan password")
[Link]()
End If
End Sub

Private Sub txtUsername_KeyPress(ByVal sender As [Link],


ByVal e As [Link]) Handles
[Link]
If [Link] = Chr(13) Then
[Link]()
End If
End Sub

Private Sub txtPassword_KeyPress(ByVal sender As [Link],


ByVal e As [Link]) Handles
[Link]
If [Link] = Chr(13) Then
btnLogin_Click(Nothing, Nothing)
End If
End Sub

Private Sub btnKeluar_Click(ByVal sender As [Link], ByVal e


As [Link]) Handles [Link]
[Link]()
End Sub

Private Sub FrmLogin_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]

End Sub
End Class
2. Menu Utama
Public Class FrmUtama

Private Sub FrmUtama_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
[Link] = "User: " & user
[Link] = Format([Link], "dd MMMM yyyy HH:mm:ss")
End Sub

Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
[Link] = Format([Link], "dd MMMM yyyy HH:mm:ss")
End Sub

Private Sub BtnHitung_Click(ByVal sender As [Link], ByVal e


As [Link]) Handles [Link]
Dim f As New FrmSES
[Link](Me)
End Sub

Private Sub MnPassword_Click(ByVal sender As [Link], ByVal e


As [Link])
[Link]()
End Sub

Private Sub BtnLapRangking_Click(ByVal sender As [Link],


ByVal e As [Link])
[Link](Me)
End Sub

Private Sub BtnLogout_Click(ByVal sender As [Link], ByVal e


As [Link]) Handles [Link]
[Link]()
[Link]()
End Sub

Private Sub BtnPassword_Click(ByVal sender As [Link], ByVal e


As [Link]) Handles [Link]
Dim f As New FrmPassword
[Link]()
End Sub

Private Sub BtnNilai_Click(sender As Object, e As EventArgs) Handles


[Link]
Dim f As New FrmNilai
[Link](Me)
End Sub

Private Sub BtnPeriode_Click(sender As Object, e As EventArgs)


Handles [Link]
Dim f As New FrmPeriode
[Link](Me)
End Sub
Private Sub BtnJenis_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim f As New FrmJenis
[Link](Me)
End Sub

Private Sub BtnSMA_Click(sender As [Link], e As


[Link]) Handles [Link]
Dim f As New FrmSMA
[Link](Me)
End Sub

Private Sub FrmUtama_Activated(sender As [Link], e As


[Link]) Handles [Link]
If Level <> "admin" Then
[Link] = False
[Link] = False
[Link] = False
Else
[Link] = True
[Link] = True
[Link] = True
End If
End Sub

Private Sub BtnHasil_Click(sender As [Link], e As


[Link]) Handles [Link]
Dim f As New FrmHasil
[Link](Me)
End Sub

Private Sub ToolStrip1_ItemClicked(ByVal sender As [Link],


ByVal e As [Link]) Handles
[Link]

End Sub
End Class

3. Form Jenis
Public Class FrmJenis

Private Sub BtnRefresh_Click(sender As Object, e As EventArgs)


Handles [Link]
[Link] = OpenDT("SELECT Kode_jenis, Nama_jenis FROM
tb_jenis WHERE kode_jenis LIKE @0 OR nama_jenis LIKE @0 ORDER BY
kode_jenis", "%" & [Link] & "%")
End Sub

Private Sub FrmJenis_Load(sender As Object, e As EventArgs) Handles


[Link]
[Link]()
BtnRefresh_Click(sender, e)
End Sub

Private Sub FrmJenis_KeyDown(sender As Object, e As KeyEventArgs)


Handles [Link]
If isRefresh(e) Then BtnRefresh_Click(sender, e)
If isClose(e) Then BtnKeluar_Click(sender, e)
End Sub

Private Sub TxtCari_KeyPress(sender As Object, e As


KeyPressEventArgs) Handles [Link]
If isEnter(e) Then BtnRefresh_Click(sender, e)
End Sub

Private Sub BtnKeluar_Click(sender As Object, e As EventArgs)


Handles [Link]
[Link]()
End Sub

Private Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles


[Link]
If Not [Link] Is Nothing Then
If msgAsk("Hapus data?") = vbYes Then
Delete("tb_jenis", "kode_jenis=@0",
[Link]("kode_jenis"))
Delete("tb_nilai", "kode_jenis=@0",
[Link]("kode_jenis"))
msgInfo("Data terhapus!")
BtnRefresh_Click(sender, e)
End If
End If
End Sub

Private Sub BtnTambah_Click(sender As Object, e As EventArgs)


Handles [Link]
Dim f As New FrmJenisTambah
[Link] = False
If [Link] = [Link] Then
BtnRefresh_Click(sender, e)
End If
End Sub

Private Sub BtnUbah_Click(sender As Object, e As EventArgs) Handles


[Link]
If Not [Link] Is Nothing Then
Dim f As New FrmJenisTambah
[Link] = True
[Link] = [Link]("kode_jenis")
If [Link] = [Link] Then
BtnRefresh_Click(sender, e)
End If
End If
End Sub
End Class
4. Form Periode

Public Class FrmPeriode

Private Sub BtnRefresh_Click(sender As Object, e As EventArgs)


Handles [Link]
[Link] = OpenDT("SELECT Kode_periode, Nama_periode FROM
tb_periode WHERE kode_periode LIKE @0 OR nama_periode LIKE @0 ORDER BY
kode_periode", "%" & [Link] & "%")
[Link]("nama_periode").[Link] = "MMM-yyyy"
End Sub

Private Sub FrmPeriode_Load(sender As Object, e As EventArgs)


Handles [Link]
[Link]()
BtnRefresh_Click(sender, e)
End Sub

Private Sub FrmPeriode_KeyDown(sender As Object, e As KeyEventArgs)


Handles [Link]
If isRefresh(e) Then BtnRefresh_Click(sender, e)
If isClose(e) Then BtnKeluar_Click(sender, e)
End Sub

Private Sub TxtCari_KeyPress(sender As Object, e As


KeyPressEventArgs) Handles [Link]
If isEnter(e) Then BtnRefresh_Click(sender, e)
End Sub

Private Sub BtnKeluar_Click(sender As Object, e As EventArgs)


Handles [Link]
[Link]()
End Sub

Private Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles


[Link]
If Not [Link] Is Nothing Then
If msgAsk("Hapus data?") = vbYes Then
Delete("tb_periode", "kode_periode=@0",
[Link]("kode_periode"))
Delete("tb_nilai", "kode_periode=@0",
[Link]("kode_periode"))
msgInfo("Data terhapus!")
BtnRefresh_Click(sender, e)
End If
End If
End Sub

Private Sub BtnTambah_Click(sender As Object, e As EventArgs)


Handles [Link]
Dim f As New FrmPeriodeTambah
[Link] = False
If [Link] = [Link] Then
BtnRefresh_Click(sender, e)
End If
End Sub

Private Sub BtnUbah_Click(sender As Object, e As EventArgs) Handles


[Link]
If Not [Link] Is Nothing Then
Dim f As New FrmPeriodeTambah
[Link] = True
[Link] = [Link]("kode_periode")
If [Link] = [Link] Then
BtnRefresh_Click(sender, e)
End If
End If
End Sub
End Class

5. Form Nilai

Public Class FrmNilai


Public DtNilai As New DataTable

Private NilaiAwal As Integer = 0

Private Sub FrmNilai_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
[Link] = False
[Link] =
[Link]
isiGrid1()
End Sub

Sub isiGrid1()
[Link]()

[Link]("kode_periode", "Kode")
[Link]("kode_periode").ReadOnly = True
[Link]("nama_periode", "Nama")
[Link]("nama_periode").ReadOnly = True

Dr = OpenDR("SELECT * FROM tb_periode WHERE kode_periode LIKE @0


OR nama_periode LIKE @0 ORDER BY kode_periode", "%" & [Link] &
"%")
While [Link]()
[Link](Dr("kode_periode"), Dr("nama_periode"))
End While
[Link]("nama_periode").[Link] = "MMM-yyyy"

Dr = OpenDR("SELECT kode_jenis, nama_jenis FROM tb_jenis ORDER


BY kode_jenis")
While [Link]()
[Link](dr(0), dr(1))
End While

For Each row As DataGridViewRow In [Link]


Dr = OpenDR("SELECT * FROM tb_nilai WHERE kode_periode=@0
ORDER BY kode_jenis", [Link]([Link], "kode_periode"))
While [Link]()
Dgv(Dr("kode_jenis").ToString(), [Link]).Value =
Dr("nilai")
End While
Next
End Sub

Private Sub BtnRefresh_Click(ByVal sender As [Link], ByVal e


As [Link]) Handles [Link]
isiGrid1()
End Sub

Private Sub TxtCari_KeyPress(sender As Object, e As


KeyPressEventArgs) Handles [Link]
If [Link] Then isiGrid1()
End Sub

Private Sub BtnKeluar_Click(sender As Object, e As EventArgs)


Handles [Link]
[Link]()
End Sub

Private Sub Dgv_CellFormatting(sender As Object, e As


DataGridViewCellFormattingEventArgs) Handles [Link]
If Not IsNothing([Link]) Then
If [Link] >= 2 Then
[Link] = [Link]
End If
End If
End Sub

Private Sub Dgv_CellEndEdit(sender As Object, e As


DataGridViewCellEventArgs) Handles [Link]
Dim nilai As Double = Val(Dgv([Link], [Link]).Value)
Execute("UPDATE tb_nilai SET nilai=@0 WHERE kode_periode=@1 AND
kode_jenis=@2", nilai, Dgv(0, [Link]).Value,
[Link]([Link]).Name)
[Link] = "Data tersimpan!"
End Sub
End Class

6. Form Metode SES

Public Class FrmSES


Dim DtPeriode As DataTable
Dim DtJenis As DataTable
Dim DtNilai As DataTable
Dim a As Integer

Dim MaxPeriode As Date

Dim AC As ClassSES

Private Sub FrmSES_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
[Link]()
[Link]()

MaxPeriode = GetVar("SELECT MAX(nama_periode) FROM tb_periode")


[Link] = 3
[Link](OpenDT("SELECT kode_jenis, nama_jenis FROM
tb_jenis ORDER BY kode_jenis"))

Dim dt As DataTable = OpenDT("SELECT * FROM tb_nilai WHERE nilai


< 0")
[Link]()
awal()
[Link] = 0.1

'BtnHitung_Click(sender, e)
End Sub

Sub awal()
DtNilai = OpenDT("SELECT p.nama_periode, [Link] FROM tb_nilai n
INNER JOIN tb_jenis j ON j.kode_jenis=n.kode_jenis INNER JOIN tb_periode
p ON p.kode_periode=n.kode_periode WHERE j.kode_jenis=@0 ORDER BY
p.nama_periode ", [Link]())

AC = New ClassSES(DtNilai)
With Dgv1
.[Link]()
.[Link]("periode", "Periode")
.[Link]("nilai", [Link])
.Columns("periode").[Link] = "MMM-yyyy"
For Each Row As KeyValuePair(Of Date, NilaiSES) In [Link]
[Link]([Link], [Link])
Next
End With
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = False
End Sub

Private Sub btnKeluar_Click(ByVal sender As [Link], ByVal e


As [Link]) Handles [Link]
[Link]()
End Sub

Private Sub BtnHitung_Click(ByVal sender As [Link], ByVal e


As [Link]) Handles [Link]
If Val([Link]) < 1 Then
MsgInfo("Masukkan next periode minimal 1")
Exit Sub
ElseIf Val([Link]) <= 0 Or Val([Link]) >= 1 Then
MsgInfo("Masukkan nilai alpha antara 0 dan 1")
Exit Sub
End If

[Link](MaxPeriode, Val([Link]),
Val([Link]))
With Dgv1
.[Link]()
.[Link]("periode", "Periode")
.Columns("periode").[Link] = "MMM-yyyy"
.[Link]("alpha", "Alpha")
.[Link]("yt", "Yt")
.[Link]("ayt", "a*Yt")
.[Link]("mina", "1-a")
.[Link]("ft", "Ft")
.[Link]("err", "Ft-Yt")
.[Link]("errAbs", "|Ft-Yt|")
.[Link]("errSquare", "(Ft-Yt)^2")
.[Link]("errPerY", "|Ft-Yt|/Yt")

For Each Row As KeyValuePair(Of Date, NilaiSES) In [Link]


.[Link]([Link],
[Link],
[Link]([Link], 2),
[Link]([Link], 2),
[Link],
[Link]([Link], 2),
[Link]([Link], 2),
[Link]([Link], 2),
[Link]([Link], 2),
[Link]([Link], 2))
If [Link] > MaxPeriode Then
Dim tanggal As Date = [Link]
.Rows(.[Link] - 1).[Link] =
[Link]

If GetVar("SELECT * FROM tb_hasil WHERE


kode_jenis=@0 AND MONTH(tanggal)=@1 AND YEAR(tanggal)=@2",
[Link], [Link], [Link]) Then
Execute("UPDATE tb_hasil SET ses=@0,
ses_mape=@1, ses_alpha=@2 WHERE kode_jenis=@3 AND MONTH(tanggal)=@4 AND
YEAR(tanggal)=@5", [Link], [Link], Val([Link]),
[Link], [Link], [Link])
Else
Execute("INSERT INTO tb_hasil (kode_jenis,
tanggal, ses, ses_mape, ses_alpha, sma, sma_mape) VALUES (@0, @1, @2,
@3, @4, @5, @6)", [Link], tanggal, [Link],
[Link], Val([Link]), Nothing, Nothing)
End If
Else

End If
Next
End With
[Link] = [Link]([Link], 2)
[Link] = [Link]([Link], 2)
[Link] = [Link]([Link], 2)
[Link] = [Link]([Link] * 100, 2) & "%"
[Link] = True
End Sub

Private Sub TxtJenis_SelectedIndexChanged(sender As [Link], e


As [Link]) Handles [Link]
awal()
End Sub

Private Sub BtnCetak_Click(sender As [Link], e As


[Link]) Handles [Link]
Dim l As New LapSES
Dim Rpt As New RptSES

Dim Dt As DataTable = OpenDT("SELECT '' AS jenis, '' AS periode,


0.0 AS yt, 0.0 AS ft, 0.0 AS err, 0.0 AS errSquare, 0.0 AS errAbs, 0.0
AS errPerY, '' AS MAD, '' AS MAPE, '' AS MSE, '' AS RMSE")
Dim DtGrafik As DataTable = OpenDT("SELECT '' AS periode, 0.0 AS
nilai, 0.0 AS weight, 0.0 AS fx, 0.0 AS Err, 0.0 AS AbsErr, 0.0 AS
ErrKuadrat, 0.0 AS ErrDt")
[Link]()
For Each row As DataGridViewRow In [Link]
Dim tanggal As Date = [Link]("periode").Value
[Link]([Link](), [Link]("MMM-
yyyy"), [Link]("yt").Value, [Link]("ft").Value,
[Link]("err").Value, [Link]("errSquare").Value,
[Link]("errAbs").Value, [Link]("errPerY").Value, [Link],
[Link], [Link], [Link])

Dim p As String = [Link](0).Value


If (IsDate([Link](0).Value)) Then
Dim d As Date = [Link](0).Value
p = [Link]("yyyy-MM")
End If

If [Link] < [Link] - 3 Then


[Link](p, [Link]("yt").Value, 0,
[Link]("ft").Value, [Link]("err").Value,
[Link]("errAbs").Value, [Link]("errSquare").Value,
[Link]("errPerY").Value)
End If
Next

[Link](Dt)
[Link](0).SetDataSource(DtGrafik)
[Link]()
[Link] = Rpt
[Link]()
[Link]([Link])
End Sub
End Class

7. Form Metode SMA

Public Class FrmSMA


Dim DtPeriode As DataTable
Dim DtJenis As DataTable
Dim DtNilai As DataTable
Dim a As Integer

Dim MaxPeriode = 0

Dim AC As ClassFSMA

Private Sub FrmHitung_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
MaxPeriode = GetVar("SELECT MAX(nama_periode) FROM tb_periode")
[Link] = 3
[Link](OpenDT("SELECT kode_jenis, nama_jenis FROM
tb_jenis ORDER BY kode_jenis"))

Dim dt As DataTable = OpenDT("SELECT * FROM tb_nilai WHERE nilai


< 0")
[Link]()
awal()
[Link] = 3
End Sub

Sub awal()
DtNilai = OpenDT("SELECT MIN(p.nama_periode) AS nama_periode,
SUM([Link]) AS nilai FROM (tb_nilai AS n INNER JOIN tb_jenis AS j ON
j.kode_jenis=n.kode_jenis) INNER JOIN tb_periode AS p ON
p.kode_periode=n.kode_periode WHERE j.kode_jenis=@0 GROUP BY
YEAR(nama_periode), MONTH(nama_periode) ORDER BY p.nama_periode",
[Link]())

AC = New ClassFSMA(DtNilai)
With Dgv1
.[Link]()
.[Link]("periode", "Periode")
.[Link]("nilai", [Link])
.Columns("nilai").formatNumber()
.Columns("periode").[Link] = "MMM yyyy"

For Each Row As KeyValuePair(Of Date, Nilai) In [Link]


[Link]([Link], [Link])
Next
End With
[Link] = False
End Sub
Private Sub btnKeluar_Click(ByVal sender As [Link], ByVal e
As [Link]) Handles [Link]
[Link]()
End Sub

Private Sub BtnHitung_Click(ByVal sender As [Link], ByVal e


As [Link]) Handles [Link]
If Val([Link]) < 1 Then
msgInfo("Masukkan next periode minimal " & 1)
Exit Sub
ElseIf Val([Link]) < 2 Or Val([Link]) >
[Link] - 1 Then
msgInfo("Masukkan moving agv dari " & 2 & " sampai " &
([Link] - 1))
Exit Sub
End If

[Link](MaxPeriode, Val([Link]),
Val([Link]))
With Dgv1
.[Link]()
.[Link]("periode", "Periode")
.Columns("periode").[Link] = "MMM yyyy"
.[Link]("nilai", [Link])
.Columns("nilai").formatNumber()
.[Link]("ft", "Ft")
.Columns("ft").formatNumber(2)
.[Link]("Err", "Err")
.Columns("Err").formatNumber()
.[Link]("AbsErr", "AbsErr")
.Columns("AbsErr").formatNumber()
.[Link]("Err^2", "Err^2")
.Columns("Err^2").formatNumber()
.[Link]("Err/Dt", "Err/Dt")
.Columns("Err/Dt").formatNumber(3)

a = 1
Dim w As New List(Of Double)
For Each Row As KeyValuePair(Of Date, Nilai) In [Link]
.[Link]([Link], [Link], [Link],
[Link], [Link], [Link], [Link])
Next

For Each Row As KeyValuePair(Of Date, Nilai) In [Link]


.[Link]([Link], Nothing,
[Link]([Link], 2))
.Rows(.[Link] - 1).[Link] =
[Link]

Dim tanggal As DateTime = [Link]

If GetVar("SELECT * FROM tb_hasil WHERE kode_jenis=@0


AND MONTH(tanggal)=@1 AND YEAR(tanggal)=@2", [Link],
[Link], [Link]) Then
Execute("UPDATE tb_hasil SET SMA=@0, sma_mape=@1
WHERE kode_jenis=@2 AND MONTH(tanggal)=@3 AND YEAR(tanggal)=@4",
[Link], [Link], [Link], [Link],
[Link])
Else
Execute("INSERT INTO tb_hasil (kode_jenis, tanggal,
ses, ses_mape, ses_alpha, sma, sma_mape) VALUES (@0, @1, @2, @3, @4, @5,
@6)", [Link], tanggal, Nothing, Nothing, Nothing,
[Link], [Link])
End If
Next
.[Link]("MAD", Nothing, [Link])
.Rows(.[Link] - 1).[Link] =
[Link]
.[Link]("MSE", Nothing, [Link])
.Rows(.[Link] - 1).[Link] =
[Link]
.[Link]("MAPE", Nothing, [Link] * 100)
.Rows(.[Link] - 1).[Link] =
[Link]
End With
[Link] = True
End Sub

Private Sub TxtJenis_SelectedIndexChanged(sender As [Link], e


As [Link]) Handles [Link]
awal()
End Sub

Private Sub BtnCetak_Click(sender As [Link], e As


[Link]) Handles [Link]
Dim l As New LapSMA
Dim Rpt As New RptSMA

Dim Dt As DataTable = OpenDT("SELECT '' AS periode, 0.0 AS


nilai, 0.0 AS fx, 0.0 AS Err, 0.0 AS AbsErr, 0.0 AS ErrKuadrat, 0.0 AS
ErrDt")
Dim DtGrafik As DataTable = OpenDT("SELECT '' AS periode, 0.0 AS
nilai, 0.0 AS fx, 0.0 AS Err, 0.0 AS AbsErr, 0.0 AS ErrKuadrat, 0.0 AS
ErrDt")

[Link]()
[Link]()
For Each row As DataGridViewRow In [Link]
Dim p As String = [Link](0).Value
If (IsDate([Link](0).Value)) Then
Dim d As Date = [Link](0).Value
p = [Link]("yyyy-MM")
End If

[Link](p, [Link](1).Value, [Link](2).Value,


[Link](3).Value, [Link](4).Value, [Link](5).Value,
[Link](6).Value)

If [Link] < [Link] - 3 Then


[Link](p, [Link](1).Value,
[Link](2).Value, [Link](3).Value, [Link](4).Value,
[Link](5).Value, [Link](6).Value)
End If
Next

[Link](Dt)
[Link](0).SetDataSource(DtGrafik)
[Link]()
[Link] = Rpt
[Link]()
[Link]([Link])
End Sub
End Class
8. Form Hasil

Public Class FrmHasil

Private Sub BtnRefresh_Click(sender As Object, e As EventArgs)


Handles [Link]

Dim Dt As DataTable = OpenDT("SELECT AVG(ses_mape) AS ses_mape,


AVG(sma_mape) AS sma_mape FROM tb_hasil")

Dim hasil As String = ""

If [Link] > 0 Then


If Not IsDBNull(Dt(0)(0)) And Not IsDBNull(Dt(0)(1)) Then
If Dt(0)(0).ToString() < Dt(0)(1).ToString() Then
hasil = "Nilai MAPE terkecil adalah metode SES
dengan rata-rata MAPE : " & [Link](Dt(0)(0).ToString() * 100, 2)
Else
hasil = "Nilai MAPE terkecil adalah metode SMA
dengan rata-rata MAPE : " & [Link](Dt(0)(1).ToString() * 100, 2)
End If
End If

End If

[Link] = OpenDT("SELECT @0 AS hasil, id_hasil,


Nama_jenis, Tanggal, ROUND(SES, 2) AS SES, ROUND(ses_mape * 100, 2) AS
SES_MAPE, SES_Alpha, ROUND(SMA, 2) AS SMA, ROUND(sma_mape * 100, 2) AS
SMA_MAPE FROM tb_hasil h INNER JOIN tb_jenis j ON
j.kode_jenis=h.kode_jenis WHERE h.kode_jenis LIKE @0 OR nama_jenis LIKE
@1 ORDER BY h.kode_jenis, tanggal", hasil, "%" & [Link] & "%")
[Link]("Tanggal").[Link] = "MMM-yyy"
[Link]("id_hasil").Visible = False
[Link]("hasil").Visible = False

[Link] = [Link] > 0

End Sub

Private Sub FrmHasil_Load(sender As Object, e As EventArgs) Handles


[Link]
[Link]()
BtnRefresh_Click(sender, e)
End Sub

Private Sub FrmHasil_KeyDown(sender As Object, e As KeyEventArgs)


Handles [Link]
If isRefresh(e) Then BtnRefresh_Click(sender, e)
If isClose(e) Then BtnKeluar_Click(sender, e)
End Sub

Private Sub TxtCari_KeyPress(sender As Object, e As


KeyPressEventArgs) Handles [Link]
If isEnter(e) Then BtnRefresh_Click(sender, e)
End Sub

Private Sub BtnKeluar_Click(sender As Object, e As EventArgs)


Handles [Link]
[Link]()
End Sub

Private Sub Label5_Click(sender As [Link], e As


[Link])

End Sub

Private Sub BtnCetak_Click(sender As [Link], e As


[Link]) Handles [Link]
Dim Rpt As New RptHasil
Dim L As New LapHasil
[Link]([Link])
[Link]()
[Link] = Rpt
[Link]([Link])
End Sub

Private Sub BtnHapus_Click(sender As [Link], e As


[Link]) Handles [Link]
If Not [Link] Is Nothing Then
If MsgAsk("Hapus data?") = vbYes Then
Execute("DELETE FROM tb_hasil WHERE id_hasil=@0",
[Link]("id_hasil"))
MsgInfo("Data terhapus!")
BtnRefresh_Click(sender, e)
End If
End If
End Sub

Private Sub Button1_Click(sender As [Link], e As


[Link]) Handles [Link]
If MsgAsk("Kosongkan semua data?") = vbYes Then
Execute("TRUNCATE tb_hasil")
MsgInfo("Data terhapus!")
BtnRefresh_Click(sender, e)
End If
End Sub
End Class
9. Form Password

Public Class FrmPassword

Private Sub btnKeluar_Click(ByVal sender As [Link], ByVal e


As [Link]) Handles [Link]
[Link]()
End Sub

Private Sub BtnUbah_Click(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
dr = openDR("SELECT * FROM tb_user WHERE user='" & user & "' AND
pass='" & [Link] & "'")
If Not [Link] Then
msgError("Password lama salah!")
ElseIf [Link] <> [Link] Then
msgError("Password baru dan konfirmasi passwrod baru tidak
sama")
ElseIf [Link] < 4 Then
msgError("Password minimal 4 karakter")
Else
Execute("UPDATE tb_user SET pass='" & [Link] & "'
WHERE user='" & user & "'")
msgInfo("Password berhasil diubah!")
[Link]()
End If
End Sub

Private Sub FrmPassword_Load(ByVal sender As [Link], ByVal e


As [Link]) Handles [Link]

End Sub
End Class

You might also like