76 LAMPIRAN A: Listing Program

1. Form Login Imports Microsoft.VisualBasic Imports System.Data.Sql Imports System.Data.SqlClient Public Class FrmLogin Dim tblMerk As DataTable Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click tblMerk = ExecuteQuery("select * from tbluser where kode_user = '" & Me.UsernameTextBox.Text & "' AND pwd_user = '" & Me.PasswordTextBox.Text & "'") If tblMerk.Rows.Count > 0 Then Me.UsernameTextBox.Text = "" Me.PasswordTextBox.Text = "" Me.Hide() MenuUtama.Show() Else MessageBox.Show("Username & password tidak tepat.", "", MessageBoxButtons.OK, MessageBoxIcon.Warning) Me.PasswordTextBox.Text = "" End If End Sub Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click Me.Close() End Sub End Class

2. Form Pengguna Imports System.Data.SqlClient Imports System.Data Public Class FrmPengguna Dim SQL As String Dim tblMerk As DataTable Sub Data_Record() tblMerk = ExecuteQuery("Select * From tbluser") DataGridView1.DataSource = tblMerk End Sub Sub Kode_Otomatis() tblMerk = ExecuteQuery("Select * From tbluser order by kode_user desc") If tblMerk.Rows.Count = 0 Then TextBox1.Text = "PAS-001" Else With tblMerk.Rows(0) TextBox1.Text = .Item("kode_user") End With

Universitas Sumatera Utara

77 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then MsgBox("Harap Isi Data Lengkap.") Exit Sub End If If TextBox1.Text = "" Then TextBox2.Focus() SQL = "insert into tbluser Values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')" ExecuteNonQuery(SQL) Call bersih() Exit Sub End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click SQL = "delete from tbluser where kode_user = '" & TextBox1.Text & "'" ExecuteNonQuery(SQL) Call bersih() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If TextBox1.Text = "" Then TextBox2.Focus() : Exit Sub SQL = "update tbluser set nama_user='" & TextBox2.Text & "',pwd_user='" & TextBox3.Text & "' where kode_user='" & TextBox1.Text & "'" ExecuteNonQuery(SQL) Call bersih() End Sub End Class

3. Form View Penjualan Imports Microsoft.VisualBasic Imports System.Data.Sql Imports System.Data.SqlClient Public Class FormView Private Sub FormView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For Each s In sizes ComboBox2.Items.Add(s) Next tblMerk = ExecuteQuery("select year(periode) as thn from tblpenjualan where month(periode) = 1 and size = '" & sizes(0) & "' order by periode asc") For i = 0 To tblMerk.Rows.Count - 1 ComboBox1.Items.Add(tblMerk.Rows(i).Item("thn")) Next ComboBox1.SelectedIndex = 0 Data_Record() Chart1.Series.Clear()

Universitas Sumatera Utara

78 Chart1.Series.Add("Data Penjualan") Chart1.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Line Chart1.ChartAreas(0).AxisX.Interval = 1 Chart1.ChartAreas(0).AxisY.LineWidth = 3 Chart1.ChartAreas(0).AxisX.LineWidth = 3 Chart1.ChartAreas(0).AxisX2.LineWidth = 3 Chart1.ChartAreas(0).AxisX.IsStartedFromZero = True tblMerk = ExecuteQuery("Select sum(jumlah) as jumlah,periode from tblpenjualan group by periode order by periode asc") Chart1.Series(0).Points.AddXY(CDate(tblMerk.Rows(i).Item("periode")). ToString("MMMM, yyyy"), tmpjlh) Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click DatatoTable(Me.DataGridView1, "select * from tblpenjualan where year(periode) = " & ComboBox1.Text & " AND size = '" & ComboBox2.Text & "' order by periode asc") DataGridView1.Columns("periode").DefaultCellStyle.Format = "MMMM,yyyy" Chart1.Series.Clear() Chart1.Series.Add("Data Penjualan") Chart1.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Line Chart1.ChartAreas(0).AxisX.Interval = 1 Chart1.ChartAreas(0).AxisY.LineWidth = 3 Chart1.ChartAreas(0).AxisX.LineWidth = 3 Chart1.ChartAreas(0).AxisX2.LineWidth = 3 Chart1.ChartAreas(0).AxisX.IsStartedFromZero = True tblMerk = ExecuteQuery("Select sum(jumlah) as jumlah,periode from tblpenjualan where year(periode) = " & ComboBox1.Text & " AND size = '" & ComboBox2.Text & "' group by periode order by periode asc") End Class

4. Form Input Penjualan Imports Microsoft.VisualBasic Imports System.Data.Sql Imports System.Data.SqlClient Public Class FrmPenjualan Dim tblMerk As DataTable Sub Data_Record() DatatoTable(Me.DataGridView1, "select * from tblpenjualan") DataGridView1.Columns("periode").DefaultCellStyle.Format = "MMMM,yyyy" End Sub

Universitas Sumatera Utara

79

Sub Kode_Otomatis() tblMerk = ExecuteQuery("select * from tblpenjualan order by kode_entry desc") If tblMerk.Rows.Count = 0 Then TextBox1.Text = "SLS-001" Else With tblMerk.Rows(0) TextBox1.Text = .Item("kode_entry") End With TextBox1.Text = Val(Microsoft.VisualBasic.Mid(TextBox1.Text, 5, 3)) + 1 If Len(TextBox1.Text) = 1 Then TextBox1.Text = "SLS-00" & TextBox1.Text & "" ElseIf Len(TextBox1.Text) = 2 Then TextBox1.Text = "SLS-0" & TextBox1.Text & "" ElseIf Len(TextBox1.Text) = 3 Then TextBox1.Text = "SLS-" & TextBox1.Text & "" End If End If End Sub Sub bersih() Call Data_Record() Call Kode_Otomatis() 'Button1.Enabled = True 'Button2.Enabled = False 'Button3.Enabled = False 'Button4.Enabled = True 'TextBox1.Enabled = False 'TextBox3.Text = "" 'TextBox1.Focus() End Sub Sub HitungData() TextBox4.Text = DataGridView1.RowCount End Sub Sub HitungPenjualan() 'Dim sum As Double = 0 'For i = 0 To DataGridView1.RowCount - 1 ' sum += DataGridView1.Rows(i).Cells("jumlah").Value 'Next 'TextBox5.Text = sum Dim dttb As DataTable = ExecuteQuery("select sum(jumlah) as jumlah from tblpenjualan") If dttb.Rows.Count > 0 Then TextBox5.Text = dttb.Rows(0).Item("jumlah").ToString Else TextBox5.Text = "0" End If End Sub Private Sub FrmPenjualan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For Each s In sizes ComboBox2.Items.Add(s)

Universitas Sumatera Utara

80 Next Call Call Call Call

Kode_Otomatis() Data_Record() HitungData() HitungPenjualan()

End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If MaskedTextBox1.Text = "" Then MsgBox("Harap Isi Tahun Periode Penjualan") End If If TextBox3.Text = "" Then MsgBox("Harap Isi Jumlah Penjualan") Exit Sub End If 'simpan data penjualan Dim per As String = ComboBox1.SelectedIndex + 1 & "/01/" & MaskedTextBox1.Text ExecuteNonQuery("INSERT INTO tblpenjualan VALUES('" & TextBox1.Text & "','" & per & "','" & ComboBox2.Text & "'," & TextBox3.Text & ")") Call Call Call Exit End Sub

bersih() HitungData() HitungPenjualan() Sub

Private Sub DataGridView1_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick On Error Resume Next TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells(0).Value 'ComboBox2.Text = DataGridView1.Rows(e.RowIndex).Cells(3).Value 'TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells(4).Value Button1.Enabled = False Button2.Enabled = True Button3.Enabled = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ExecuteNonQuery("DELETE FROM tblpenjualan WHERE kode_entry = '" & TextBox1.Text & "'") Call bersih() Call HitungData() Call HitungPenjualan() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If TextBox3.Text = "" Then

Universitas Sumatera Utara

81 MsgBox("Harap Isi Jumlah Penjualan") Exit Sub End If Dim per As String = ComboBox1.SelectedIndex + 1 & "/01/" & MaskedTextBox1.Text ExecuteNonQuery("UPDATE tblpenjualan set periode = '" & per & "', size = '" & ComboBox2.Text & "',jumlah = " & TextBox3.Text & " where kode_entry = '" & TextBox1.Text & "'") Call bersih() Call HitungData() Call HitungPenjualan() End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Call Data_Record() Call HitungData() Call HitungPenjualan() End Sub Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Call Data_Record() Call HitungData() Call HitungPenjualan() End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged tblMerk = ExecuteQuery("select * from tblpenjualan where kode_entry = '" & TextBox1.Text & "'") If tblMerk.Rows.Count > 0 Then With tblMerk.Rows(0) ComboBox1.SelectedIndex = CDate(.Item("periode")).Month - 1 MaskedTextBox1.Text = CDate(.Item("periode")).Year ComboBox2.Text = .Item("size") TextBox3.Text = .Item("jumlah") End With Button1.Enabled = False Button2.Enabled = True Button3.Enabled = True Else ComboBox1.SelectedIndex = 0 MaskedTextBox1.Text = "" ComboBox2.SelectedIndex = 0 TextBox3.Clear() Button1.Enabled = True Button2.Enabled = False Button3.Enabled = False End If End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Call Kode_Otomatis()

Universitas Sumatera Utara

82 End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.Close() End Sub End Class

5. Form Prediksi Imports Microsoft.VisualBasic Imports System.Data.Sql Imports System.Data.SqlClient Public Class FormPrediksi Private Sub FormPrediksi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'initial size pakaian For Each s In sizes ComboBox1.Items.Add(s) Next 'set periode dari data yang sudah ada tblMerk = ExecuteQuery("select Top 1 periode from tblpenjualan order by periode desc") If tblMerk.Rows.Count 0 Then ComboBox3.Items.Add(tblMerk.Rows(i).Item("thn")) End If Next ComboBox2.SelectedIndex = 0 ComboBox3.SelectedIndex = 0 End Sub 'Metode Multi Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Randomize() If CInt(ComboBox2.Text) >= CInt(ComboBox3.Text) Then MsgBox("Pilih tahun, minimal 2 periode !") Exit Sub End If

Universitas Sumatera Utara

83 DataGridView1.Rows.Clear() DataGridView2.Rows.Clear() TextBox4.Text = alpha TextBox5.Text = beta TextBox6.Text = gamma ukrn = ComboBox1.Text Dim tmpjlh As Integer = 0 Dim thn As Integer 'select total jumlah penjualan per ukuran & periode yang sudah di pilih tblMerk = ExecuteQuery("select sum(jumlah) as jlh from tblpenjualan where size = '" & ukrn & "' AND year(periode) >=" & ComboBox2.Text & " AND year(periode)=" & ComboBox2.Text & " AND year(periode)=" & ComboBox2.Text & " AND year(periode)