Cara membuat Text berjalan di Blogger

cara membuat text berjalan di blog langkah - langkahnya:
pertama= Buat blog Anda
ke dua= klik Template
ke tiga= klik HTML

ke empat= copy/salin kode di bawah ini:

<font color='white' face='Arial' size='3'> <marquee bgcolor='#ff0000' onmouseout='this.start()' onmouseover='this.stop()' scrollamount='10'> Welcome Blog Me :) </marquee></font>

ke lima= Cari kode seperti di bawah ini

</head>

dengan menekan tombol Ctrl+f , setelah selesai mencari kode </head> . lalu

yang ke lima= pastekan/tempelkan kode di bawah ini

<font color='white' face='Arial' size='3'> <marquee bgcolor='#ff0000' onmouseout='this.start()' onmouseover='this.stop()' scrollamount='10'> Welcome Blog Me :) </marquee></font>

diatas kode ini </head>

Simpan , Ubah, Hapus VB 6.0 dengan MySql part 2

Private Sub CommandSimpan_Click()

If TextNIM.Text = "" Then

    MsgBox ("ANDA BELUM MEMASUKKAN NIM")

    TextNIM.SetFocus

Else

    If TextNama.Text = "" Then

    MsgBox ("ANDA BELUM MEMASUKKAN NAMA")

    TextNama.SetFocus

Else

    If TextAlamat.Text = "" Then

    MsgBox ("ANDA BELUM MEMASUKKAN ALAMAT")

    TextAlamat.SetFocus

Else

    If Option1.Value = False And Option2.Value = False Then

    MsgBox ("ANDA BELUM MEMILIH JENIS KELAMIN")

Else

    If ComboAgama.Text = "PILIH AGAMA" Then

    MsgBox ("ANDA BELUM MEMILIH AGAMA")

    ComboAgama.SetFocus

Else

    If TextNIM.Text <> "" And TextNama.Text <> "" And TextAlamat.Text <> "" And ComboAgama.Text = "ISLAM" Or ComboAgama.Text = "KRISTEN" Or ComboAgama.Text = "KATOLIK" Or ComboAgama.Text = "HINDU" Or ComboAgama.Text = "BUDHA" Or ComboAgama.Text = "KONGHUCHU" Then

 

    Adodc1.Recordset.Find "NIM='" + TextNIM.Text + "'", , adSearchForward, 1

    If Not Adodc1.Recordset.EOF Then

    MsgBox "NIM SUDAH ADA. MASUKKAN NIM YANG LAIN"

    TextNIM.Text = ""

    TextNIM.SetFocus

    Else

    Adodc1.Recordset.AddNew

    Adodc1.Recordset.Fields("nim") = TextNIM.Text

    Adodc1.Recordset.Fields("nama") = TextNama.Text

    Adodc1.Recordset.Fields("alamat") = TextAlamat.Text

    Adodc1.Recordset.Fields("agama") = ComboAgama.Text

    If Option1.Value = True Then

        Adodc1.Recordset.Fields("jenis_kelamin") = Left(Option1.Caption, 9)

    Else

        Adodc1.Recordset.Fields("jenis_kelamin") = Left(Option2.Caption, 9)

    End If

    MsgBox ("DATA SUDAH DISIMPAN")

    Call bersih

    Adodc1.Recordset.Update

    Adodc1.Refresh

    CommandTambah.Visible = True

    CommandEdit.Visible = True

    CommandHapus.Visible = True

    CommandSimpan.Visible = False

    CommandReset.Visible = False

    CommandKeluar.Caption = "KEL&UAR"

    End If

End If

End If

End If

End If

End If

End If

End Sub

Private Sub CommandEdit_Click()

    Adodc1.Recordset.Fields("nim") = TextNIM.Text

    Adodc1.Recordset.Fields("nama") = TextNama.Text

    Adodc1.Recordset.Fields("alamat") = TextAlamat.Text

    Adodc1.Recordset.Fields("agama") = ComboAgama.Text

    Adodc1.Recordset.Fields("jenis_kelamin") = lblJK.Caption

    Adodc1.Recordset.Update

MsgBox ("DATA SUDAH DI UBAH")

    Call bersih

    Adodc1.Recordset.Update

    Adodc1.Refresh

    CommandTambah.Visible = True

    CommandEdit.Visible = True

    CommandHapus.Visible = True

    CommandSimpan.Visible = False

    CommandReset.Visible = False

    CommandKeluar.Caption = "KEL&UAR"

End Sub

Private Sub CommandHapus_Click()

If MsgBox("apakah ingin menghapusnya ?", vbQuestion + vbOKCancel, "Hapus ?") = vbOK Then

    Adodc1.Recordset.Delete

    Call bersih

End If

End Sub

Private Sub CommandReset_Click()

CommandTambah.Visible = True

CommandEdit.Visible = True

CommandHapus.Visible = True

CommandSimpan.Visible = False

CommandReset.Visible = False

CommandKeluar.Caption = "KELUAR"

Call bersih

End Sub

Private Sub DataGrid1_Click()

With DataGrid1

TextNIM.Text = DataGrid1.Columns(0)

TextNama.Text = DataGrid1.Columns(1)

TextAlamat.Text = DataGrid1.Columns(2)

lblJK.Caption = DataGrid1.Columns(4)

ComboAgama.Text = DataGrid1.Columns(3)

End With

End Sub

Private Sub MSHFlexGrid1_Click()

With MSHFlexGrid1

TextNama.Text = .TextMatrix(, 0)

End With

End Sub

Private Sub Form_Load()

ComboAgama.AddItem "ISLAM"

ComboAgama.AddItem "KRISTEN"

ComboAgama.AddItem "KATOLIK"

ComboAgama.AddItem "HINDU"

ComboAgama.AddItem "BUDHA"

ComboAgama.AddItem "KONGHUCHU"

End Sub

Private Sub bersih()

TextNama.Text = ""

TextAlamat.Text = ""

ComboAgama.Text = "PILIH AGAMA"

TextNIM.Text = ""

Option1.Value = False

Option2.Value = False

lblJK.Caption = ""

End Sub

Private Sub CommandTambah_Click()

CommandTambah.Visible = False

CommandEdit.Visible = False

CommandHapus.Visible = False

CommandSimpan.Visible = True

CommandReset.Visible = True

CommandKeluar.Caption = "BA&TAL SIMPAN"

TextNIM.SetFocus

End Sub

Private Sub Option1_Click()

lblJK.Caption = "Laki-laki"

lblJK.ForeColor = &HFF0000

End Sub

Private Sub Option2_Click()

lblJK.Caption = "Perempuan"

lblJK.ForeColor = &HFF00FF

End Sub

Kode RELASI Visual Basic 6.0 dengan mengunakan MySql komponen mshflexgrid dan adodc part 1

Kode Relasi database Visual Basic 6.0

Biasanya untuk relasi database menggunakan component “ComboBox”

Namun, ada kode yang masing-masing berbeda yaitu kode untuk form, dan kode untuk combobox.

Nah.. sekarang saya akan memberikan kodenya.

Ini kode untuk form:

Private Sub Form_Load()

On Error Resume Next

buka_database

Source.Open "select id_pembeli from transaksi", kon, adOpenKeyset, adLockOptimistic

    Do While Not Source.EOF

        cmbid_pembeli.AddItem Source!id_pembeli

        Source.MoveNext

        Loop

tutup_database

pengeluaran.Refresh

End Sub

Keterangan dalam kode ini saya akan jelaskan berikut ini :

-Tulisan yang dikelilingi warna kuning:

Perama kalo Private Sub Form_Load()kode pembuka dalam program vb 6

Kalo End Sub kode penutup/ mengakhiri proses bejalanya system program kode”” tsb.

Namun, Form_load artinya form, pada saat diklik dua kali from tersebut timbulah tulisan ini.

-tulisan yang berwarna merah tua adalah nama dari component adodc untuk menLOAD

-tulisan yang berwarna merah muda adalah nama dari component comboboxnya di propertynya. Itu karna untuk menetapkan dimana harus menampilkan database yang sudah diimput sebelumnya.

-tulisan yang berwarna hijau adalah nama field yang ada di xamppnya(dimana anda mambuat databases table-tabel). Field tersebut adalah table yang sudah diinput sebelumnya kemudian ingin memanggil database record ke form yang ingin dijadikan relasi.

-tulisan yang berwarna biru adalah nama table yang akan dipanggil untuk dijadikan relasi ( merefreshkan/menload dengan kode sourec.open )

Ini kode untuk combobox:

Private Sub cmbid_pembeli_Click()

On Error Resume Next

buka_database

    Source.Open "select * from transaksi where id_pembeli='" &cmbid_pembeli.Text & "'", kon, adOpenKeyset, adLockOptimistic

        Me.txtnm_customer = Source("nm_customer")

        Me.txtkd_customer = Source("kd_customer")

        Me.txtnm_barang = Source("nm_barang")

        Me.txtkd_barang = Source("kd_barang")

        Me.txtjmlh_barang = Source("jmlh_membeli")

        Me.txthrg_barangsatuan = Source("hrg_barangsatuan")

tutup_database

End Sub

Keterangan dalam kode ini saya akan jelaskan berikut ini :

-Tulisan yang dikelilingi warna kuning:

Perama kalo Private Sub cmbid_pembeli_Click() kode pembuka dalam program vb 6

Kalo End Sub kode penutup/ mengakhiri proses bejalanya system program kode”” tsb Namun, cmbid_pembeli artinya nama dari component “ComboBox” di propertynya.

-tulisan yang berwarna merah tua adalah,nama database yang sudah diinputkan kemudian dipanggil.

-tulisan yang dikotakin berwarna abu-abu adalah nama componentnya (ComboBox) yang ada di propertinya, dan harus sama dengan kode form loadnya cmbid_pembeli .

-tulisan yang yang dikotakin berwarna hijau adalah, nama field yang dijadikan sebagai datarecord pemanggilan relasi, contoh: field “ id_pembeli “ otomatis, field yang sudah diisi record walau Cuma satu record saja yang ada didatabase dikirim ke form divisual basicnya. Artinya, pemanggilan relasi dengan component “ ComboBox “ .

-tulisan yang berwarna oren adalah, nama field dari table lain yang ada didatabase untuk dipanggil.

-tulisan berwarna biru adalah, nama component TextBOx yang ada dipropertynya. penejelasannya antara kode tulisan berwarna oren dengan kode tulisan yang berwarna biru adalah, data field yang ada di database (XAMPP) table lain dipanggil untuk dijadikan relasi kemuadia ditetapkan/ditaruh/diletakan di field yang ada di textbox form visual basicnya. Contoh :

table taransaksi memiliki field sebanyak jumlah yang ditetapakan/dibuat namun ada field “id_pembeli” kemudian diisi record dan disimpan, lalu ada from pengeluaran dan membutuhkan field sebanyak yang dibutuhkan namun ada field yang bernama “id_pembeli” itu componentnya bernama “cmbid_pembeli” untuk menampilkan record yang telah disimpan  di table transaksi , ada lagitxtnm_customer, txtkd_customer dan seterusanya sebanyak yang dibutuhkan , itu digunakan untuk menetapkannya ditextboxnya dan menyesuaikannya (menginput isi record diantara field-field lainya lebih dari satu tanpa diketik/secara manualnamun, otomatis disebut relasi).

Kode Ubah Visual Basic 6.0 dengan mengunakan MySql komponen mshflexgrid dan adodc part 1

Kode Ubah Visual Basic 6.0 dengan mengunakan komponen mshflexgrid dan adodc

Private Sub cmdubah_Click()

On Error Resume Next

buka_database

Source.Open "select * from pembeli where id_pembeli='" & Trim(txtid_pembeli.Text) & "'", kon, adOpenDynamic, adLockOptimistic

    If Not Source.EOF Then

    Source!id_pembeli = txtid_pembeli.Text

    Source("kd_barang") = txtkd_barang.Text

    Source("nm_barang") = txtnm_barang.Text

    Source("hrg_barangsatuan") = txthrg_barangsatuan.Text

    Source("ket") = txtket.Text

    Source.Update

    End If

tutup_database

pembeli.Refresh

batal

End Sub



Keterangan dalam kode ini saya akan jelaskan berikut ini :

-Tulisan yang dikelilingi warna kuning:

Perama kalo Private Sub cmdubah_Click()kode pembuka dalam program vb 6

Kalo End Sub kode penutup/ mengakhiri proses bejalanya system program kode”” tsb

Namun, cmdubah artinya nama dari component “commandbutton” di propertynya.

-tulisan yang dikelilingi warna biru didalammya warna putih, pembeli.Refreshstok_bertambah.Refresh itu nama component adodc namun yang titik refresh itu tuk menLOAD.

-tilisan yang berwarna merah muda adalah , nama component textbox yang dijadikan sbg perwakilan diantara textbox lainnya untuk menetapkan inputan yg akan disimpannya.

-tulisan yang berwarna hijau bertebal, itu nama field yang dijadiakan sbg perwakilan dari field-field lainya untuk menetapkan apa yang harus ditetapakan dalam proses menyimpan.

-tulisan yang berwarna kuning dan digarisi, itu nama table yang ada di XAMPPnya.

-Kode yang bertulisan source artinya sumber “ dimana data itu berasal

-Tulisan yang berwarna hijau kebiruan itu field yang ada di databasesnya ( XAMPP)

-yang berwarna merah itu nama dari component textboxyang dibuat dipropertynya.

Txt,txt,txt lainya itu semuanya juga sama gx leh beda sedikitpun, karna program gx bs baca bahasa program tsb .



Kode MSHFlexGrid untuk,hapus,ubah dengan mengunakan Visual Basic 6.0 komponen adodc

Private Sub MSpembeli_Click()

With MSpembeli

txtid_pembeli.Text = .TextMatrix(.Row, 0)

txtkd_barang.Text = .TextMatrix(.Row, 1)

txtnm_barang.Text = .TextMatrix(.Row, 2)

txthrg_barangsatuan.Text = .TextMatrix(.Row, 3)

txtket.Text = .TextMatrix(.Row, 4)

End With

pembeli.Refresh

cmdsimpan.Enabled = False

cmdubah.Enabled = True

cmdhapus.Enabled = True

End Sub

Keterangan dalam kode ini saya akan jelaskan berikut ini :

-Tulisan yang dikelilingi warna kuning:

Perama kalo Private Sub MSpembeli_Click()kode pembuka dalam program vb 6

Kalo End Sub kode penutup/ mengakhiri proses bejalanya system program kode”” tsb.

Namun, MSpembeli artinya nama dari component “MSHFlexGrid” di propertynya.

-yang berwarna merah itu nama dari component textboxyang dibuat dipropertynya.

Txt,txt,txt lainya itu semuanya juga sama gx leh beda sedikitpun, karna program gx bs baca bahasa program tsb .

-tulisan kode yang seperti ini (.Row, 0) dan seterusnya adalah urutan mshflexgridnya dimana data record harus ditempatkan pada saat menyimpan.

Kode Hapus Visual Basic 6.0 dengan mengunakan MySql komponen mshflexgrid dan adodc part1

Kode Hapus Visual Basic 6.0 dengan MySql mengunakan komponen mshflexgrid dan adodc part 1

Private Sub cmdhapus_Click()

On Error Resume Next

Dim ADA As Boolean

buka_database

Source.Open "Select kd_barang From stok_bertambah Where kd_barang='" & txtkd_barang.Text & "'", kon, 1, 2

    If Source.EOF Then

        ADA = False

    Else

        ADA = True

    End If

Source.Close

tutup_database

    If MsgBox("APAKAH KAMU YAKIN INGIN MENGHAPUSNYA ?????", vbQuestion + vbOKCancel, "Hapus ?") = vbOK Then

        buka_database

            kon.Execute "Delete From stok_bertambah  Where kd_barang='" & txtkd_barang.Text & "'"

        tutup_database

        MsgBox "Data telah terhapus !", vbInformation + vbOKOnly, "Sukses"

        txtkd_barang.Text = ""

    End If

stok_bertambah.Refresh

batal

End Sub

Keterangan dalam kode ini saya akan jelaskan berikut ini :

-Tulisan yang dikelilingi warna kuning:

Perama kalo Private Sub cmdhapus_Click() kode pembuka dalam program vb 6

Kalo End Sub kode penutup/ mengakhiri proses bejalanya system program kode”” tsb.

Namun, cmdhapus artinya nama dari component “commandbutton” di propertynya.

-Kode yang bertulisan source artinya sumber “ dimana data itu berasal

-tulisan yang berwarna kuning dan digarisi, itu nama table yang ada di XAMPPnya.

-tulisan yang berwarna hijau, itu nama field yang dijadiakan sbg perwakilan dari field-field lainya untuk menetapkan apa yang harus ditetapakan dalam proses penghapusan.

-tulisan "APAKAH KAMU YAKIN INGIN MENGHAPUSNYA ?????" seperti ini kode untuk membuat kotak pesan dalam menanyakan sebelum menjalani proses.

-tilisan yang berwarna merah muda adalah , nama component textbox yang dijadikan sbg perwakilan diantara textbox lainnya untuk menetapkan inputan yg akan disimpannya.

-tulisan yang dikelilingi warna biru didalammya warna putih, stok_bertambah.Refreshstok_bertambah.Refresh itu nama component adodc namun yang titik refresh itu tuk menLOAD.



Kode MSHFlexGrid untuk,hapus,ubah dengan mengunakan Visual Basic 6.0 komponen adodc

Private Sub MSpembeli_Click()

With MSpembeli

txtid_pembeli.Text = .TextMatrix(.Row, 0)

txtkd_barang.Text = .TextMatrix(.Row, 1)

txtnm_barang.Text = .TextMatrix(.Row, 2)

txthrg_barangsatuan.Text = .TextMatrix(.Row, 3)

txtket.Text = .TextMatrix(.Row, 4)

End With

pembeli.Refresh

cmdsimpan.Enabled = False

cmdubah.Enabled = True

cmdhapus.Enabled = True

End Sub

Keterangan dalam kode ini saya akan jelaskan berikut ini :

-Tulisan yang dikelilingi warna kuning:

Perama kalo Private Sub MSpembeli_Click()kode pembuka dalam program vb 6

Kalo End Sub kode penutup/ mengakhiri proses bejalanya system program kode”” tsb.

Namun, MSpembeli artinya nama dari component “MSHFlexGrid” di propertynya.

-yang berwarna merah itu nama dari component textboxyang dibuat dipropertynya.

Txt,txt,txt lainya itu semuanya juga sama gx leh beda sedikitpun, karna program gx bs baca bahasa program tsb .

-tulisan kode yang seperti ini (.Row, 0) dan seterusnya adalah urutan mshflexgridnya dimana data record harus ditempatkan pada saat menyimpan.

Kode Simpan Visual Basic 6.0 dengan mengunakan MySql komponen mshflexgrid dan adodc part 1

Kode Simpan Visual Basic 6.0 dengan MySql mengunakan komponen mshflexgrid dan adodc part 1

Private Sub cmdsimpan1_Click()

On Error Resume Next

MSstok_bertambah.Refresh

buka_database

Source.Open "select * from stok_bertambah where kd_barang='" & Trim(txtkd_barang1.Text) & "'", kon, adOpenKeyset, adLockOptimistic

    If Source.EOF Then

    Source.AddNew

    Source!kd_barang = txtkd_barang1.Text

    Source("nm_barang") = txtnm_barang1.Text

    Source("hrg_barang") = txthrg_barang1.Text

    Source("jmlh_barang") = txtjmlh_barang1.Text

    Source("total_barang") = txttotal_barang1.Text

    Source("kd_terima") = cmbkd_terima.Text

    Source("ket") = txtket1.Text

    Source.Update

            MsgBox "Berhasil di input !", vbInformation + vbOKOnly, "Sukses"

    End If

stok_bertambah.Refresh

tutup_database

batal1

txtkd_barang1.SetFocus

End Sub

Keterangan dalam kode ini saya akan jelaskan berikut ini :

-Tulisan yang dikelilingi warna kuning:

Perama kalo Private Sub cmdsimpan1_Click() kode pembuka dalam program vb 6

Kalo End Sub kode penutup/ mengakhiri proses bejalanya system program kode”” tsb.

Namun, cmdsimpan1 artinya nama dari component “commandbutton” di propertynya.

-tulisan yang dikelilingi berwarna merah artinya MSstok_bertambah.Refresh

 nama dari component  MSHFlexGrid  di propertynya dan itu harus sama dengan kodenya tidak boleh beda sedikitpun, kalo titik refresh tuh untuk menLOAD.

-Kode yang bertulisan source artinya sumber “ dimana data itu berasal

-yang berwarna merah itu nama dari component textboxyang dibuat dipropertynya.

Txt,txt,txt lainya itu semuanya juga sama gx leh beda sedikitpun, karna program gx bs baca bahasa program tsb .

-Tulisan yang berwarna hijau kebiruan itu field yang ada di databasesnya ( XAMPP)

-tulisan yang seperti  ini (              MsgBox "Berhasil di input !", vbInformation + vbOKOnly, "Sukses"

       )

Itu kode membuat kotak pesan.

-tulisan yang dikelilingi warna biru didalammya warna putih, stok_bertambah.Refreshstok_bertambah.Refresh itu nama component adodc namun yang titik refresh itu tuk menLOAD.

-tulisan yang miring dan digarisbawahi itu nama dari component “commandbutton” dan anda wajib membuat komponen itu jika anda ingin menghapusnya secara otomatis apabila inputan yang disimpannya berhasil. contoh: nama commandbuttonnya adalah cmdbatal16 otomatis kode nya harus batal16 juga, bila cmdbatal789 kode simpannya harus batal789, cmd itu pa sich?? Nama singkat dari components dari commandbutton, klo txt itu nama components dari textbox, kalo lbl nama component dari label.

-tulisan yang berwarna kuning dan digarisi, itu nama table yang ada di XAMPPnya.

-tulisan yang berwarna hijau bertebal, itu nama field yang dijadiakan sbg perwakilan dari field-field lainya untuk menetapkan apa yang harus ditetapakan dalam proses menyimpan.

-tilisan yang berwarna merah muda adalah , nama component textbox yang dijadikan sbg perwakilan diantara textbox lainnya untuk menetapkan inputan yg akan disimpannya.