Tugas 6 Program Dan Aplikasi Komputer
Tugas 6 Program Dan Aplikasi Komputer
Tugas 6 Program Dan Aplikasi Komputer
Oleh
UNIVERSITAS SRIWIJAYA
FAKULTAS TEKNIK
JURUSAN TEKNIK PERTAMBANGAN
2017
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Public koneksi As String
Public sql1, sql2 As String
Public conn As SqlClient.SqlConnection = Nothing
Public cmd As SqlClient.SqlCommand = Nothing
Public dtadapter As New SqlClient.SqlDataAdapter
Public dttable As New DataTable
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim h As Integer
Dim i As Integer
Dim j As Integer
Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
'PERINTAH KONEKSI DATABASE DISIMPAN 1 BARIS
koneksi = "Data Source=WINDOWS8\SQLEXPRESS;Initial Catalog=Yustika;Integrated
Security=True"
conn = New SqlClient.SqlConnection(koneksi)
conn.Open()
End Sub
Sub simpan()
'PERINTAH sql1 DISIMPAN 1 BARIS
sql1 = "Insert into Table_1 values('" &
Me.TextBox2.Text & "','" & Me.TextBox4.Text & "','" &
Me.TextBox6.Text & "','" & Me.TextBox8.Text & "','" &
Me.RadioButton1.Text & "','" &
Me.ComboBox1.Text & "')"
cmd = New SqlClient.SqlCommand(sql1)
cmd.Connection = conn
cmd.ExecuteNonQuery()
End Sub
Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As
System.EventArgs) Handles RadioButton1.CheckedChanged
Me.ComboBox1.Items.Remove("suprax")
Me.ComboBox1.Items.Remove("suprafit")
Me.ComboBox1.Items.Add("megapro")
Me.ComboBox1.Items.Add("tiger")
End Sub
End Sub
Private Sub textbox14_click(sender As System.Object, e As System.EventArgs) Handles
TextBox14.Click
TextBox14.Text = h
h = TextBox12.Text * 5 / 100
End Sub
End Class
Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.
Alternative Proxies: