source code program penggajian vb net mysql

Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal. 'MsgBox('Data tidak ditemukan!', MsgBoxStyle.Information, 'Informasi') TabelMhs.Columns(3).HeaderText = 'TEMPAT' Sqlstr = 'SELECT * FROM mahasiswa WHERE nim or nama LIKE '%' & txtCari.Text & '%'' Sqlstr = 'SELECT * FROM mahasiswa WHERE nama LIKE '%' & txtCari.Text & '%'' Sqlstr = 'SELECT * FROM mahasiswa WHERE nim LIKE '%' & txtCari.Text & '%'' Private Sub txtCari_KeyPress(ByVal sender As Object, ByVal e As ) Handles txtCari.KeyPress Private Sub tabelMhs_CellClick(ByVal sender As Object, ByVal e As ) Handles tabelMhs.CellClick Perintah.CommandText = 'DELETE FROM mahasiswa WHERE nim = '' & txtNim.Text & ''' Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Clickĭim hasil As MsgBoxResult = MessageBox.Show('Apakah data ingin dihapus?', 'Pesan', MessageBoxButtons.OKCancel, MessageBoxIcon.Warning)

MsgBox('Data gagal diubah' + ex.Message, MsgBoxStyle.Critical) MsgBox('Data berhasil diubah', MsgBoxStyle.Information, 'Informasi') Perintah.CommandText = 'UPDATE mahasiswa SET nama = '' & txtNama.Text & '', jekel = '' & cbJk.Text & '', tempat = '' & txtTempat.Text & '', tgl_lahir = '' & dtpTgl.Text & '', alamat = '' & txtAlamat.Text & '' WHERE nim = '' & txtNim.Text & ''' Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Clickĭim perintah As New Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click Konek('localhost', 'root', '', 'perkuliahandb')ĭtpTgl.Format = DateTimePickerFormat.Custom Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MsgBox('Data gagal disimpan' + ex.Message, MsgBoxStyle.Critical) MsgBox('Data berhasil disimpan', MsgBoxStyle.Information, 'Informasi') Perintah.CommandText = 'INSERT INTO mahasiswa (nim, nama, jekel, tempat, tgl_lahir, alamat) VALUES ('' & txtNim.Text & '', '' & txtNama.Text & '', '' & cbJk.Text & '', '' & txtTempat.Text & '', '' & dtpTgl.Text & '', '' & txtAlamat.Text & '')' Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

TabelMhs.Columns(5).HeaderText = 'ALAMAT' TabelMhs.Columns(4).HeaderText = 'JENIS KELAMIN' TabelMhs.Columns(3).HeaderText = 'TGL LAHIR' TabelMhs.Columns(2).HeaderText = 'TEMPAT' TabelMhs.AutoSizeColumnsMode = DataGridViewAutoSizeColumnMode.Fill Dim conn As New MySqlConnection('Server=localhost user=root database=perkuliahandb')Īdapter = New MySqlDataAdapter(sqlstr, conn)

Source code program penggajian vb net mysql