Membuat PHP MySQL Script creator menggunakan visual basic 2008 / vb.net bagian pertama

Pada awalnya ide untuk Membuat PHP MySQL Script creator menggunakan visual basic 2008 / vb.net datang karena saya sedang mengajar kursus pembuatan website berbasis PHP, namun ketika saya ajarkan kepada para murid, mereka sangat kesusahan dalam pembelajaran membuat CMS sendiri, akhirnya saya punya inisiatif untuk membuat sebuah aplikasi atau program menggunakan visual basic 2008 untuk mempermudah pembuatan cms bagi peserta kursus.

Dan kali ini saya akan berbagi cara Membuat PHP MySQL Script creator menggunakan visual basic 2008 / vb.net , proses pertama buatlah satu form dengan komponen sebagai berikut:

• 2 Richtexbox
• 3 Groupbox
• 6 label
• 6 textbox untuk textbox4 sampai textbox6 jadikan visible menjadi false semua dan jadikan textbox4 hingga textbox6 saling tumpang
• 6 button untuk button3 hingga buttin6 jadikan visible menjadi false semua dan jadikan button3 sampai button5 saling tumpang lihat gambar dibawah:

 

Langkah selanjutnya klik 2 kali form tersebut hapus semua kode dan masukkan kode dibawah ini:

Public Class Form1

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        If RichTextBox1.Text = "" Then
            RichTextBox1.Text = "<?php" & vbNewLine
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = RichTextBox1.Text & vbNewLine & "$konak=mysql_connect('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "');" & vbNewLine
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        RichTextBox1.Text = RichTextBox1.Text & "mysql_select_db('" & TextBox4.Text & "',$konak);" & vbNewLine
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = RichTextBox1.Text & "if isset($POST['Submit'])){" & vbNewLine & "mysql_query(" & """insert into "
            TextBox5.Visible = True
            Button3.Visible = True
        End If
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        RichTextBox1.Text = RichTextBox1.Text & TextBox5.Text & "("
        Button3.Visible = False
        Label6.Text = "Kolom"
        Button4.Visible = True
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Label6.Text = "Kolom" Then
            RichTextBox1.Text = RichTextBox1.Text & TextBox5.Text
            TextBox5.Visible = False
            TextBox6.Visible = True
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        Else
            RichTextBox1.Text = RichTextBox1.Text & "'$_POST[" & TextBox5.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & "<form action='' method='POST'>" & vbNewLine & "<input name='" & TextBox5.Text & "'>"
            TextBox5.Visible = False
            TextBox6.Visible = True
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Label6.Text = "Kolom" Then
            RichTextBox1.Text = RichTextBox1.Text & "," & TextBox6.Text
        Else
            RichTextBox1.Text = RichTextBox1.Text & ",'$_POST[" & TextBox6.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='" & TextBox6.Text & "'>"
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Label6.Text = "Kolom" Then
            RichTextBox1.Text = RichTextBox1.Text & ") values ("
            Label6.Text = "Values"
            TextBox6.Visible = False
            Button5.Visible = False
            TextBox5.Visible = True
            Button4.Visible = True
        Else
            RichTextBox1.Text = RichTextBox1.Text & ")" & """);" & vbNewLine & "echo 'Sukses';" & vbNewLine & "}" & vbNewLine & "?>" & vbNewLine
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='Submit' value='Masuk' type='submit'>"
            RichTextBox1.Text = RichTextBox1.Text & RichTextBox2.Text
            RichTextBox2.Clear()
        End If
    End Sub
End Class

Maka ketika di run akan menghasilkan seperti gambar dibawah:

 

Gambar Pada saat proses pembuatan script mysql insert langsung terditeski kode HTMLnya.

Gambar setelah selesai proses pembuatan script PHP MySQL insert data.