NAMA : Erika Tetriyana

JUDUL : Surat Keterangan Lahir (SKL)

1) Cara membuat data base

- Buka aplikasi XAMPP dan aktifkan yang seperti dibawah ini

- Buka http://localhost/phpmyadmin/ di browser, lalu akan muncul seperti ini

- Klik new lalu buat basis data setelah itu klik buat

- Lalu buat tabel dengan nama

(a) Bayi
(b) Bidan2

(c) Pasien

(d) Petugas

(e) Skl2
2) Cara membuat di Visual Studio beserta kodingnya
- buka visual studio lalu new project beri nama, pilih lokasi lalu klik OK

- lalu membuat modul dengan klik project lalu add module lalu klik OK

Coding
Imports MySql.Data.MySqlClient
Module Module1
Public cn As MySqlConnection
Public cmd As MySqlCommand
Public da As MySqlDataAdapter
Public dr As MySqlDataReader
Public tb As DataTable
Public Sub koneksi()
cn = New
MySqlConnection("host='localhost';username='root';password=;database='pak_yuda'")
cn.Open()
'MsgBox("Hore Berhasil!")
End Sub

End Module
- Buat form1.vb

Coding
Imports MySql.Data.MySqlClient
Imports Microsoft.Reporting.WinForms

Public Class Form1

Private Sub LogoutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles LogoutToolStripMenuItem.Click
login2.Show()
End Sub

Private Sub PendaftaranPasienToolStripMenuItem_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs)
Formpasien.Show()
End Sub

Private Sub UserToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles UserToolStripMenuItem.Click
Formuser.Show()
End Sub

Private Sub BayiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles BayiToolStripMenuItem.Click
Formbidan.Show()
End Sub
 Private Sub menu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load

End Sub

Private Sub DataPasienToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles DataPasienToolStripMenuItem.Click
Formpasien.Show()
End Sub

Private Sub OrangTuaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles OrangTuaToolStripMenuItem.Click
Formbayi.Show()
End Sub

Private Sub SKLToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles SKLToolStripMenuItem.Click
Formskl.Show()
End Sub

Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles ToolStripMenuItem2.Click
koneksi()
cmd = New MySqlCommand("select * from bidan2", cn)
cmd.ExecuteNonQuery()
da = New MySqlDataAdapter(cmd)
tb = New DataTable
Dim laporan_bidan As New ReportDataSource("DataSet1", tb)
laporanbidan.ReportViewer1.LocalReport.DataSources.Clear()
laporanbidan.ReportViewer1.LocalReport.DataSources.Add(laporan_bidan)
laporanbidan.ReportViewer1.LocalReport.ReportPath = "Report1.rdlc"
laporanbidan.Show()
End Sub

Private Sub SKLToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles SKLToolStripMenuItem1.Click
koneksi()
cmd = New MySqlCommand("select * from skl2", cn)
cmd.ExecuteNonQuery()
da = New MySqlDataAdapter(cmd)
tb = New DataTable
Dim laporan_skl As New ReportDataSource("DataSet2", tb)
laporanskl.ReportViewer1.LocalReport.DataSources.Clear()
laporanskl.ReportViewer1.LocalReport.DataSources.Add(laporan_skl)
laporanskl.ReportViewer1.LocalReport.ReportPath = "Report2.rdlc"
laporanskl.Show()
End Sub
End Class

- Membuat login2.vb
 Coding
Imports MySql.Data.MySqlClient
Public Class login2
Sub lihat_petugas()
cmd = New MySqlCommand("select*from petugas", cn)
cmd.ExecuteNonQuery()
da = New MySqlDataAdapter(cmd)
tb = New DataTable
da.Fill(tb)
'DataGridView1.DataSource = tb
End Sub
Private Sub btnmasuk_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnmasuk.Click
If txtnama.Text = "" Or txtpass.Text = "" Then
MsgBox("Username atau Password anda masih kosong, Silahkan lengkapi Kemudian
Login Kembali !!")
Exit Sub
Else
Call koneksi()
cmd = New MySqlCommand("Select * from [petugas] where [username]='" &
txtnama.Text & "' and [password]='" & txtpass.Text & "';", cn)
txtnama.Text = ""
txtpass.Text = ""
txtnama.Focus()
Form1.Show()
Me.Visible = False
MsgBox("BERHASIL..!!")
End If
End Sub

Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnbatal.Click
Close()
End Sub

Private Sub txtnama_KeyPress(ByVal sender As Object, ByVal e As

System.Windows.Forms.KeyPressEventArgs) Handles txtnama.KeyPress
If e.KeyChar = Chr(13) Then
txtpass.Focus()
End If
End Sub

Private Sub txtpass_KeyPress(ByVal sender As Object, ByVal e As

System.Windows.Forms.KeyPressEventArgs) Handles txtpass.KeyPress
If e.KeyChar = Chr(13) Then
btnmasuk.Focus()
 End If
End Sub

Private Sub txtpass_TextChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles txtpass.TextChanged

End Sub
End Class

- Membuat formuser.vb

Coding
Imports MySql.Data.MySqlClient
Public Class Formuser
Sub lihat_petugas()
cmd = New MySqlCommand("select*from petugas", cn)
cmd.ExecuteNonQuery()
da = New MySqlDataAdapter(cmd)
tb = New DataTable
da.Fill(tb)
DataGridView1.DataSource = tb
End Sub
Sub aktif()
txtnama.Enabled = True
dttgl.Enabled = True
txtumur.Enabled = True
txtusername.Enabled = True
txtpass.Enabled = True
txtjab.Enabled = True

txtnama.Clear()
dttgl.Text = Now
txtumur.Clear()
txtusername.Clear()
txtpass.Clear()
txtjab.Clear()

End Sub
 Sub nonaktif()
txtnama.Enabled = False
dttgl.Enabled = False
txtumur.Enabled = False
txtusername.Enabled = False
txtpass.Enabled = False
txtjab.Enabled = False

txtnama.Clear()
dttgl.Text = Now
txtumur.Clear()
txtusername.Clear()
txtpass.Clear()
txtjab.Clear()

End Sub
Private Sub dttgl_ValueChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles dttgl.ValueChanged
'menentukan umur pasien
txtumur.Text = Format(Now, "yyyy") - Val(Format(dttgl.Value, "yyyy"))
End Sub

Private Sub btnnew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles btnnew.Click
aktif()
End Sub

Private Sub Formuser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles MyBase.Load
koneksi()
lihat_petugas()
nonaktif()
End Sub

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles btnsave.Click
cmd = New MySqlCommand("insert into petugas values(@nama, @tanggal_lahir, @umur,
@username, @password, @jabatan)", cn)
cmd.Parameters.AddWithValue("@nama", txtnama.Text)
cmd.Parameters.AddWithValue("@tanggal_lahir", Format(dttgl.Value, "yyy-MM-dd"))
cmd.Parameters.AddWithValue("@umur", txtumur.Text)
cmd.Parameters.AddWithValue("@username", txtusername.Text)
cmd.Parameters.AddWithValue("@password", txtpass.Text)
cmd.Parameters.AddWithValue("@jabatan", txtjab.Text)
cmd.ExecuteNonQuery()
lihat_petugas()
nonaktif()
End Sub

Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnclose.Click
Close()
End Sub

Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnupdate.Click
cmd = New MySqlCommand("update petugas set username=@a, password=@b, jabatan=@c
where nama=@d", cn)
 cmd.Parameters.AddWithValue("@a", txtusername.Text)
cmd.Parameters.AddWithValue("@b", txtpass.Text)
cmd.Parameters.AddWithValue("@c", txtjab.Text)
cmd.Parameters.AddWithValue("@d", txtnama.Text)
cmd.ExecuteNonQuery()
nonaktif()
btnsave.Enabled = True
MsgBox("DATA PASIEN BERHASIL USER")
lihat_petugas()
nonaktif()
End Sub

Private Sub txtcari_TextChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles txtcari.TextChanged
If txtcari.Text = "" Then
lihat_petugas()
Else
cmd = New MySqlCommand("select*from pETUGAS where nama like @cari", cn)
cmd.Parameters.AddWithValue("@cari", "%" & txtcari.Text & "%")
cmd.ExecuteNonQuery()
da = New MySqlDataAdapter(cmd)
tb = New DataTable
da.Fill(tb)
DataGridView1.DataSource = tb
End If
End Sub

Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btndelete.Click
If MsgBox("Apakah Akan Dihapus ?", vbYesNo, "Konfirmasi") = vbYes Then
cmd = New MySqlCommand("delete from petugas where nama = @nama", cn)
cmd.Parameters.AddWithValue("@nama", txtnama.Text)
cmd.ExecuteNonQuery()
lihat_petugas()
txtnama.Clear()
dttgl.Text = Now
txtumur.Clear()
txtusername.Clear()
txtpass.Clear()
txtjab.Clear()
End If
End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

End Sub

Private Sub DataGridView1_CellDoubleClick(ByVal sender As Object, ByVal e As

System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
aktif()
txtnama.Text = DataGridView1.CurrentRow.Cells(0).Value.ToString
dttgl.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString
txtumur.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString
txtusername.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString
txtpass.Text = DataGridView1.CurrentRow.Cells(4).Value.ToString
txtjab.Text = DataGridView1.CurrentRow.Cells(5).Value.ToString
txtnama.Enabled = False
 txtusername.Focus()
btnsave.Enabled = False
End Sub
End Class

- Membuat formbidan.vb

Coding
Imports MySql.Data.MySqlClient
Imports Microsoft.Reporting.WinForms
Public Class Formbidan
Sub lihat_bidan()
cmd = New MySqlCommand("select*from bidan2", cn)
cmd.ExecuteNonQuery()
da = New MySqlDataAdapter(cmd)
tb = New DataTable
da.Fill(tb)
DataGridView1.DataSource = tb
End Sub
Sub aktif()
txtidbidan.Enabled = True
txtnamabidan.Enabled = True
dttgl.Enabled = True
txtumur.Enabled = True
cmbklamin.Enabled = True
txtalamat.Enabled = True
cmbagama.Enabled = True
txthp.Enabled = True

txtidbidan.Clear()
txtnamabidan.Clear()
dttgl.Text = Now
txtumur.Clear()
cmbklamin.Text = "--pilih--"
txtalamat.Clear()
cmbagama.Text = "--pilih--"
 txthp.Clear()
End Sub
Sub nonaktif()
txtidbidan.Enabled = False
txtnamabidan.Enabled = False
dttgl.Enabled = False
txtumur.Enabled = False
cmbklamin.Enabled = False
txtalamat.Enabled = False
cmbagama.Enabled = False
txthp.Enabled = False

txtidbidan.Clear()
txtnamabidan.Clear()
dttgl.Text = Now
txtumur.Clear()
cmbklamin.Text = "--pilih--"
txtalamat.Clear()
cmbagama.Text = "--pilih--"
txthp.Clear()
End Sub
Private Sub btnnew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnnew.Click
aktif()
txtidbidan.Focus()
lihat_bidan()
End Sub

Private Sub Formbidan_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load
koneksi()
lihat_bidan()
nonaktif()
End Sub

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles btnsave.Click
cmd = New MySqlCommand("insert into bidan2
values(@id_bidan,@nama,@tanggal_lahir,@umur,@jenis_kelamin,@alamat,@agama,@no_hp)", cn)
cmd.Parameters.AddWithValue("@id_bidan", txtidbidan.Text)
cmd.Parameters.AddWithValue("@nama", txtnamabidan.Text)
cmd.Parameters.AddWithValue("@tanggal_lahir", Format(dttgl.Value, "yyy-MM-dd"))
cmd.Parameters.AddWithValue("@umur", txtumur.Text)
cmd.Parameters.AddWithValue("@jenis_kelamin", cmbklamin.SelectedItem)
cmd.Parameters.AddWithValue("@alamat", txtalamat.Text)
cmd.Parameters.AddWithValue("@agama", cmbagama.SelectedItem)
cmd.Parameters.AddWithValue("@no_hp", txthp.Text)
cmd.ExecuteNonQuery()
lihat_bidan()
nonaktif()
End Sub

Private Sub dttgl_ValueChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles dttgl.ValueChanged
'menentukan umur pasien
txtumur.Text = Format(Now, "yyyy") - Val(Format(dttgl.Value, "yyyy"))
End Sub
 Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnclose.Click
Close()
End Sub

Private Sub txtcari_TextChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles txtcari.TextChanged
If txtcari.Text = "" Then
lihat_bidan()
Else
cmd = New MySqlCommand("select*from bidan2 where nama like @cari", cn)
cmd.Parameters.AddWithValue("@cari", "%" & txtcari.Text & "%")
cmd.ExecuteNonQuery()
da = New MySqlDataAdapter(cmd)
tb = New DataTable
da.Fill(tb)
DataGridView1.DataSource = tb
End If
End Sub

Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnupdate.Click
cmd = New MySqlCommand("update bidan2 set alamat=@a, no_hp=@b, nama=@c where
id_bidan=@d", cn)
cmd.Parameters.AddWithValue("@a", txtalamat.Text)
cmd.Parameters.AddWithValue("@b", txthp.Text)
cmd.Parameters.AddWithValue("@c", txtnamabidan.Text)
cmd.Parameters.AddWithValue("@d", txtidbidan.Text)
cmd.ExecuteNonQuery()
nonaktif()
btnsave.Enabled = True
MsgBox("DATA PASIEN BERHASIL DIUPDATE!")
lihat_bidan()
nonaktif()
End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

End Sub

Private Sub DataGridView1_CellDoubleClick(ByVal sender As Object, ByVal e As

System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
aktif()
txtidbidan.Text = DataGridView1.CurrentRow.Cells(0).Value.ToString
txtnamabidan.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString
dttgl.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString
txtumur.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString
cmbklamin.Text = DataGridView1.CurrentRow.Cells(4).Value.ToString
txtalamat.Text = DataGridView1.CurrentRow.Cells(5).Value.ToString
cmbagama.Text = DataGridView1.CurrentRow.Cells(6).Value.ToString
txthp.Text = DataGridView1.CurrentRow.Cells(7).Value.ToString
txtidbidan.Enabled = False
txtnamabidan.Focus()
btnsave.Enabled = False
End Sub
 Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btndelete.Click
If MsgBox("Apakah Akan Dihapus ?", vbYesNo, "Konfirmasi") = vbYes Then
cmd = New MySqlCommand("delete from bidan2 where id_bidan = @id_bidan", cn)
cmd.Parameters.AddWithValue("@id_bidan", txtidbidan.Text)
cmd.ExecuteNonQuery()
lihat_bidan()
txtidbidan.Clear()
txtnamabidan.Clear()
dttgl.Text = Now
txtumur.Clear()
cmbklamin.Text = "--pilih--"
txtalamat.Clear()
cmbagama.Text = "--pilih--"
txthp.Clear()
End If
End Sub
End Class

- Membuat formpasien.vb

Coding

Imports MySql.Data.MySqlClient
Public Class Formpasien
Sub lihat_pasien()
cmd = New MySqlCommand("select*from pasien", cn)
cmd.ExecuteNonQuery()
da = New MySqlDataAdapter(cmd)
tb = New DataTable
da.Fill(tb)
DataGridView1.DataSource = tb
End Sub
Sub aktif()
txtnorm.Enabled = True
txtnamapasien.Enabled = True
cmbjk.Enabled = True
txttempatlahir.Enabled = True
 dtplahir.Enabled = True
txtumur.Enabled = True
txtalamat.Enabled = True
cmbagama.Enabled = True
cmbstatus.Enabled = True
cmbpekerjaan.Enabled = True
cmbpend.Enabled = True
txthp.Enabled = True
txtnamapenanggung.Enabled = True
txthubunganpenanggung.Enabled = True
txtnohppenanggung.Enabled = True

txtnorm.Clear()
txtnamapasien.Clear()
cmbjk.Text = "pilih"
txttempatlahir.Clear()
dtplahir.Text = Now
txtumur.Clear()
txtalamat.Clear()
cmbagama.Text = "pilih"
cmbstatus.Text = "pilih"
cmbpekerjaan.Text = "pilih"
cmbpend.Text = "pilih"
txthp.Clear()
txtnamapenanggung.Clear()
txthubunganpenanggung.Clear()
txtnohppenanggung.Clear()
End Sub
Sub nonaktif()
txtnorm.Enabled = False
txtnamapasien.Enabled = False
cmbjk.Enabled = False
txttempatlahir.Enabled = False
dtplahir.Enabled = False
txtumur.Enabled = False
txtalamat.Enabled = False
cmbagama.Enabled = False
cmbstatus.Enabled = False
cmbpekerjaan.Enabled = False
cmbpend.Enabled = False
txthp.Enabled = False
txtnamapenanggung.Enabled = False
txthubunganpenanggung.Enabled = False
txtnohppenanggung.Enabled = False

txtnorm.Clear()
txtnamapasien.Clear()
cmbjk.Text = "pilih"
txttempatlahir.Clear()
dtplahir.Text = Now
txtumur.Clear()
txtalamat.Clear()
cmbagama.Text = "pilih"
cmbstatus.Text = "pilih"
cmbpekerjaan.Text = "pilih"
cmbpend.Text = "pilih"
txthp.Clear()
txtnamapenanggung.Clear()
 txthubunganpenanggung.Clear()
txtnohppenanggung.Clear()
End Sub
Private Sub Formpasien_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
koneksi()
lihat_pasien()
nonaktif()
End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

End Sub

Private Sub DataGridView1_CellDoubleClick(ByVal sender As Object, ByVal e As

System.Windows.Forms.DataGridViewCellEventArgs) Handles
DataGridView1.CellContentDoubleClick
aktif()
txtnorm.Text = DataGridView1.CurrentRow.Cells(0).Value.ToString
txtnamapasien.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString
cmbjk.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString
txttempatlahir.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString
dtplahir.Text = DataGridView1.CurrentRow.Cells(4).Value.ToString
txtumur.Text = DataGridView1.CurrentRow.Cells(5).Value.ToString
txtalamat.Text = DataGridView1.CurrentRow.Cells(6).Value.ToString
cmbagama.Text = DataGridView1.CurrentRow.Cells(7).Value.ToString
cmbstatus.Text = DataGridView1.CurrentRow.Cells(8).Value.ToString
cmbpekerjaan.Text = DataGridView1.CurrentRow.Cells(9).Value.ToString
cmbpend.Text = DataGridView1.CurrentRow.Cells(10).Value.ToString
txthp.Text = DataGridView1.CurrentRow.Cells(11).Value.ToString
txtnamapenanggung.Text = DataGridView1.CurrentRow.Cells(12).Value.ToString
txthubunganpenanggung.Text = DataGridView1.CurrentRow.Cells(13).Value.ToString
txtnohppenanggung.Text = DataGridView1.CurrentRow.Cells(14).Value.ToString
txtnorm.Enabled = False
txtnamapasien.Focus()
btnsave.Enabled = False

End Sub

Private Sub txtnorm_TextChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles txtnorm.TextChanged

End Sub

Private Sub btnnew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles btnnew.Click
aktif()
cmd = New MySqlCommand("select max(no_rm) as no_rm from pasien", cn)
dr = cmd.ExecuteReader
dr.Read()
Dim tampung As Integer
tampung = Val(dr.Item(0)) + 1
txtnorm.Text = "000000" & tampung
dr.Close()

End Sub
 Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnsave.Click
cmd = New MySqlCommand("insert into pasien
values(@no_rm,@nama_pasien,@jk,@tempat_lahir,@tanggal_lahir,@umur,@alamat,@agama,@status,
@pekerjaan,@pendidikan,@no_hp,@nama_penanggung,@hubungan,@nohp)", cn)
cmd.Parameters.AddWithValue("@no_rm", txtnorm.Text)
cmd.Parameters.AddWithValue("@nama_pasien", txtnamapasien.Text)
cmd.Parameters.AddWithValue("@jk", cmbjk.SelectedItem)
cmd.Parameters.AddWithValue("@tempat_lahir", txttempatlahir.Text)
cmd.Parameters.AddWithValue("@tanggal_lahir", Format(dtplahir.Value, "yyy-MM-
dd"))
cmd.Parameters.AddWithValue("@umur", txtumur.Text)
cmd.Parameters.AddWithValue("@alamat", txtalamat.Text)
cmd.Parameters.AddWithValue("@agama", cmbagama.SelectedItem)
cmd.Parameters.AddWithValue("@status", cmbstatus.SelectedItem)
cmd.Parameters.AddWithValue("@pekerjaan", cmbpekerjaan.SelectedItem)
cmd.Parameters.AddWithValue("@pendidikan", cmbpend.SelectedItem)
cmd.Parameters.AddWithValue("@no_hp", txthp.Text)
cmd.Parameters.AddWithValue("@nama_penanggung", txtnamapenanggung.Text)
cmd.Parameters.AddWithValue("@hubungan", txthubunganpenanggung.Text)
cmd.Parameters.AddWithValue("@nohp", txtnohppenanggung.Text)
cmd.ExecuteNonQuery()
lihat_pasien()
nonaktif()
End Sub

Private Sub dtplahir_ValueChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles dtplahir.ValueChanged
'menentukan umur pasien
txtumur.Text = Format(Now, "yyyy") - Val(Format(dtplahir.Value, "yyyy"))
End Sub

Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnupdate.Click
cmd = New MySqlCommand("update pasien set agama=@a, alamat=@b, no_hp=@c, nama=@d
where no_rm=@e", cn)
cmd.Parameters.AddWithValue("@a", cmbagama.SelectedItem)
cmd.Parameters.AddWithValue("@b", txtalamat.Text)
cmd.Parameters.AddWithValue("@c", txthp.Text)
cmd.Parameters.AddWithValue("@d", txtnamapasien.Text)
cmd.Parameters.AddWithValue("@e", txtnorm.Text)
cmd.ExecuteNonQuery()
nonaktif()
btnsave.Enabled = True
MsgBox("DATA PASIEN BERHASIL DIUPDATE!")
lihat_pasien()
nonaktif()
End Sub

Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnclose.Click
Close()
End Sub

Private Sub txtcari_TextChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles txtcari.TextChanged
If txtcari.Text = "" Then
lihat_pasien()
 Else
cmd = New MySqlCommand("select*from pasien where nama_pasien like @cari", cn)
cmd.Parameters.AddWithValue("@cari", "%" & txtcari.Text & "%")
cmd.ExecuteNonQuery()
da = New MySqlDataAdapter(cmd)
tb = New DataTable
da.Fill(tb)
DataGridView1.DataSource = tb
End If
End Sub

Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btndelete.Click
If MsgBox("Apakah Akan Dihapus ?", vbYesNo, "Konfirmasi") = vbYes Then
cmd = New MySqlCommand("delete from pasien where no_rm = @no_rm", cn)
cmd.Parameters.AddWithValue("@no_rm", txtnorm.Text)
cmd.ExecuteNonQuery()
lihat_pasien()
txtnorm.Clear()
txtnamapasien.Clear()
cmbjk.Text = "pilih"
txttempatlahir.Clear()
dtplahir.Text = Now
txtumur.Clear()
txtalamat.Clear()
cmbagama.Text = "pilih"
cmbstatus.Text = "pilih"
cmbpekerjaan.Text = "pilih"
cmbpend.Text = "pilih"
txthp.Clear()
txtnamapenanggung.Clear()
txthubunganpenanggung.Clear()
txtnohppenanggung.Clear()
End If
End Sub
End Class

- Mmembuat formbayi.vb
 Coding
Imports MySql.Data.MySqlClient
Public Class Formbayi
Sub lihat_bayi()
cmd = New MySqlCommand("select*from bayi", cn)
cmd.ExecuteNonQuery()
da = New MySqlDataAdapter(cmd)
tb = New DataTable
da.Fill(tb)
DataGridView1.DataSource = tb
End Sub
Sub aktif()
txtnorm.Enabled = True
txtnama.Enabled = True
cmbjenis.Enabled = True
txttempat.Enabled = True
dtplahir.Enabled = True
txtjam.Enabled = True
txtberat.Enabled = True
txtpanjang.Enabled = True
txtukuran.Enabled = True
cmbgoldarah.Enabled = True
cmbcara.Enabled = True
txtidbidan.Enabled = True
txtnamabidan.Enabled = True

txtnorm.Clear()
txtnama.Clear()
cmbjenis.Text = "--pilih--"
txttempat.Clear()
dtplahir.Text = Now
txtjam.Clear()
txtberat.Clear()
txtpanjang.Clear()
txtukuran.Clear()
cmbgoldarah.Text = "--pilih--"
cmbcara.Text = "--pilih--"
 txtidbidan.Clear()
txtnamabidan.Clear()

End Sub
Sub nonaktif()
txtnorm.Enabled = False
txtnama.Enabled = False
cmbjenis.Enabled = False
txttempat.Enabled = False
dtplahir.Enabled = False
txtjam.Enabled = False
txtberat.Enabled = False
txtpanjang.Enabled = False
txtukuran.Enabled = False
cmbgoldarah.Enabled = False
cmbcara.Enabled = False
txtidbidan.Enabled = False
txtnamabidan.Enabled = False

txtnorm.Clear()
txtnama.Clear()
cmbjenis.Text = "--pilih--"
txttempat.Clear()
dtplahir.Text = Now
txtjam.Clear()
txtberat.Clear()
txtpanjang.Clear()
txtukuran.Clear()
cmbgoldarah.Text = "--pilih--"
cmbcara.Text = "--pilih--"
txtidbidan.Clear()
txtnamabidan.Clear()
End Sub
Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Label12.Click

End Sub

Private Sub btnnew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles btnnew.Click
aktif()
cmd = New MySqlCommand("select max(no_rm) as no_rm from bayi", cn)
dr = cmd.ExecuteReader
dr.Read()
Dim tampung As Integer
tampung = Val(dr.Item(0)) + 1
txtnorm.Text = "00000" & tampung
dr.Close()

End Sub

Private Sub Formbayi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles MyBase.Load
koneksi()
lihat_bayi()
nonaktif()
End Sub
 Private Sub dtplahir_ValueChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles dtplahir.ValueChanged

End Sub

Private Sub txtcari_TextChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles txtcari.TextChanged
If txtcari.Text = "" Then
lihat_bayi()
Else
cmd = New MySqlCommand("select*from bayi where nama like @cari", cn)
cmd.Parameters.AddWithValue("@cari", "%" & txtcari.Text & "%")
cmd.ExecuteNonQuery()
da = New MySqlDataAdapter(cmd)
tb = New DataTable
da.Fill(tb)
DataGridView1.DataSource = tb
End If
End Sub

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles btnsave.Click
cmd = New MySqlCommand("insert into bayi
values(@no_rm,@nama,@jenis_kelamin,@tempat,@tanggal,@jam_lahir,@berat,@panjang,@ukuran_ke
pala,@gol_darah,@cara_lahir,@id_bidan,@nama_bidan)", cn)
cmd.Parameters.AddWithValue("@no_rm", txtnorm.Text)
cmd.Parameters.AddWithValue("@nama", txtnama.Text)
cmd.Parameters.AddWithValue("@jenis_kelamin", cmbjenis.SelectedItem)
cmd.Parameters.AddWithValue("@tempat", txttempat.Text)
cmd.Parameters.AddWithValue("@tanggal", Format(dtplahir.Value, "yyy-MM-dd"))
cmd.Parameters.AddWithValue("@jam_lahir", txtjam.Text)
cmd.Parameters.AddWithValue("@berat", txtberat.Text)
cmd.Parameters.AddWithValue("@panjang", txtpanjang.Text)
cmd.Parameters.AddWithValue("@ukuran_kepala", txtukuran.Text)
cmd.Parameters.AddWithValue("@gol_darah", cmbgoldarah.SelectedItem)
cmd.Parameters.AddWithValue("@cara_lahir", cmbcara.SelectedItem)
cmd.Parameters.AddWithValue("@id_bidan", txtidbidan.Text)
cmd.Parameters.AddWithValue("@nama_bidan", txtnamabidan.Text)
cmd.ExecuteNonQuery()
lihat_bayi()
nonaktif()
txtnorm.Clear()
txtnama.Clear()
cmbjenis.Text = "--pilih--"
txttempat.Clear()
dtplahir.Text = Now
txtjam.Clear()
txtberat.Clear()
txtpanjang.Clear()
txtukuran.Clear()
cmbgoldarah.Text = "--pilih--"
cmbcara.Text = "--pilih--"
txtidbidan.Clear()
txtnamabidan.Clear()
End Sub

Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnclose.Click
 Close()
End Sub

Private Sub DataGridView2_CellContentClick(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellContentClick

End Sub

Private Sub txtbidan_KeyPress(ByVal sender As Object, ByVal e As

System.Windows.Forms.KeyPressEventArgs) Handles txtnamabidan.KeyPress
If Asc(e.KeyChar) = 13 Then
If DataGridView2.Visible = True Then
DataGridView2.Focus()
Else
txtnamabidan.Focus()
MsgBox("MASUKAN NAMA BIDAN!")
End If
End If
End Sub

Private Sub txtbidan_TextChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles txtnamabidan.TextChanged
If txtnamabidan.Text = "" Then
DataGridView2.Visible = False
Else
cmd = New MySqlCommand("SELECT * FROM bidan2 Where nama like @a or id_bidan
like @b", cn)
cmd.Parameters.AddWithValue("@a", "%" & txtcari.Text & "%")
cmd.Parameters.AddWithValue("@b", "%" & txtcari.Text & "%")
cmd.ExecuteNonQuery()
da = New MySqlDataAdapter(cmd)
tb = New DataTable
da.Fill(tb)
DataGridView2.DataSource = tb
DataGridView2.Visible = True
End If
End Sub

Private Sub DataGridView2_CellDoubleClick(ByVal sender As Object, ByVal e As

System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellDoubleClick
txtidbidan.Text = DataGridView2.CurrentRow.Cells(0).Value.ToString
txtnamabidan.Text = DataGridView2.CurrentRow.Cells(1).Value.ToString
txtcari.Text = ""
DataGridView2.Visible = False
End Sub

Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnupdate.Click
cmd = New MySqlCommand("update bayi set gol_darah=@a, berat=@b, panjang=@c,
ukuran_kepala=@d, nama=@e, id_bidan=@f, nama_bidan=@g where no_rm=@h", cn)
cmd.Parameters.AddWithValue("@a", cmbgoldarah.SelectedItem)
cmd.Parameters.AddWithValue("@b", txtberat.Text)
cmd.Parameters.AddWithValue("@c", txtpanjang.Text)
cmd.Parameters.AddWithValue("@d", txtukuran.Text)
cmd.Parameters.AddWithValue("@e", txtnama.Text)
cmd.Parameters.AddWithValue("@f", txtidbidan.Text)
cmd.Parameters.AddWithValue("@g", txtnamabidan.Text)
cmd.Parameters.AddWithValue("@h", txtnorm.Text)
 cmd.ExecuteNonQuery()
nonaktif()
btnsave.Enabled = True
MsgBox("DATA BAYI BERHASIL DIUPDATE!")
lihat_bayi()
nonaktif()
End Sub

Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btndelete.Click
If MsgBox("Apakah Akan Dihapus ?", vbYesNo, "Konfirmasi") = vbYes Then
End If
cmd = New MySqlCommand("delete from bayi where no_rm = @no_rm", cn)
cmd.Parameters.AddWithValue("@no_rm", txtnorm.Text)
cmd.ExecuteNonQuery()
lihat_bayi()
txtnorm.Clear()
txtnama.Clear()
cmbjenis.Text = "--pilih--"
txttempat.Clear()
dtplahir.Text = Now
txtjam.Clear()
txtberat.Clear()
txtpanjang.Clear()
txtukuran.Clear()
cmbgoldarah.Text = "--pilih--"
cmbcara.Text = "--pilih--"
txtidbidan.Clear()
txtnamabidan.Clear()
End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

End Sub

Private Sub DataGridView1_CellDoubleClick(ByVal sender As Object, ByVal e As

System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
aktif()
txtnorm.Text = DataGridView1.CurrentRow.Cells(0).Value.ToString
txtnama.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString
cmbjenis.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString
txttempat.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString
dtplahir.Text = DataGridView1.CurrentRow.Cells(4).Value.ToString
txtjam.Text = DataGridView1.CurrentRow.Cells(5).Value.ToString
txtberat.Text = DataGridView1.CurrentRow.Cells(6).Value.ToString
txtpanjang.Text = DataGridView1.CurrentRow.Cells(7).Value.ToString
txtukuran.Text = DataGridView1.CurrentRow.Cells(8).Value.ToString
cmbgoldarah.Text = DataGridView1.CurrentRow.Cells(9).Value.ToString
cmbcara.Text = DataGridView1.CurrentRow.Cells(10).Value.ToString
txtidbidan.Text = DataGridView1.CurrentRow.Cells(11).Value.ToString
txtnamabidan.Text = DataGridView1.CurrentRow.Cells(12).Value.ToString
txtnorm.Enabled = False
txtnama.Focus()
btnsave.Enabled = False

End Sub
End Class
 - Membuat formskl.vb

Coding
Imports MySql.Data.MySqlClient
Public Class Formskl
Sub lihat_skl()
cmd = New MySqlCommand("select*from skl2", cn)
cmd.ExecuteNonQuery()
da = New MySqlDataAdapter(cmd)
tb = New DataTable
da.Fill(tb)
DataGridView1.DataSource = tb
End Sub
Sub aktif()
txtregis.Enabled = True
txtrmibu.Enabled = True
txtnamaibu.Enabled = True
txtpekerjaanibu.Enabled = True
txtnamaayah.Enabled = True
Cmbpekerjaan.Enabled = True
txtalamat.Enabled = True
txtrmbayi.Enabled = True
txtnamabayi.Enabled = True
dtplahir.Enabled = True
txtjeniskelamin.Enabled = True
txtanakke.Enabled = True
txtberat.Enabled = True
txtpanjang.Enabled = True
txtukuran.Enabled = True
txtgol.Enabled = True
txtpersalinan.Enabled = True
txtnamabidan.Enabled = True

txtregis.Clear()
txtrmibu.Clear()
txtnamaibu.Clear()
txtpekerjaanibu.Clear()
txtnamaayah.Clear()
Cmbpekerjaan.Text = "--pilih--"
txtalamat.Clear()
txtrmbayi.Clear()
txtnamabayi.Clear()
dtplahir.Text = Now
txtjeniskelamin.Clear()
txtanakke.Clear()
txtberat.Clear()
txtpanjang.Clear()
txtukuran.Clear()
txtgol.Clear()
txtpersalinan.Clear()
txtnamabidan.Clear()
End Sub
Sub nonaktif()
txtregis.Enabled = False
txtrmibu.Enabled = False
txtnamaibu.Enabled = False
txtpekerjaanibu.Enabled = False
txtnamaayah.Enabled = False
Cmbpekerjaan.Enabled = False
txtalamat.Enabled = False
txtrmbayi.Enabled = False
txtnamabayi.Enabled = False
 dtplahir.Enabled = False
txtjeniskelamin.Enabled = False
txtanakke.Enabled = False
txtberat.Enabled = False
txtpanjang.Enabled = False
txtukuran.Enabled = False
txtgol.Enabled = False
txtpersalinan.Enabled = False
txtnamabidan.Enabled = False

txtregis.Clear()
txtrmibu.Clear()
txtnamaibu.Clear()
txtpekerjaanibu.Clear()
txtnamaayah.Clear()
Cmbpekerjaan.Text = "--pilih--"
txtalamat.Clear()
txtrmbayi.Clear()
txtnamabayi.Clear()
dtplahir.Text = Now
txtjeniskelamin.Clear()
txtanakke.Clear()
txtberat.Clear()
txtpanjang.Clear()
txtukuran.Clear()
txtgol.Clear()
txtpersalinan.Clear()
txtnamabidan.Clear()
End Sub

Private Sub Formskl_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load
koneksi()
lihat_skl()
nonaktif()
End Sub

Sub bersih()

txtregis.Clear()
txtrmibu.Clear()
txtnamaibu.Clear()
txtpekerjaanibu.Clear()
txtnamaayah.Clear()
Cmbpekerjaan.Text = "--pilih--"
txtalamat.Clear()
txtrmbayi.Clear()
txtnamabayi.Clear()
dtplahir.Text = Now
txtjeniskelamin.Clear()
txtanakke.Clear()
txtberat.Clear()
txtpanjang.Clear()
txtukuran.Clear()
txtgol.Clear()
txtpersalinan.Clear()
txtnamabidan.Clear()
End Sub
 Private Sub txtregis_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles txtregis.TextChanged

End Sub

Private Sub txtcari_TextChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles txtcari.TextChanged
If txtcari.Text = "" Then
lihat_skl()
Else
cmd = New MySqlCommand("select * from skl2 where nama_ibu like @cari", cn)
cmd.Parameters.AddWithValue("@cari", "%" & txtcari.Text & "%")
cmd.ExecuteNonQuery()
da = New MySqlDataAdapter(cmd)
tb = New DataTable
da.Fill(tb)
DataGridView1.DataSource = tb
End If
End Sub

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles btnsave.Click

cmd = New MySqlCommand("insert into skl2

values(@no_regis,@no_rmibu,@nama_ibu,@pekerjaan_ibu,@nama_ayah,@pekerjaan,@alamat,@no_rmb
ayi,@nama_bayi,@tanggal,@jenis_kelamin,@anak_ke,@berat,@panjang,@lingkar_kepala,@gol_dara
h,@persalinan,@nama_bidan)", cn)
cmd.Parameters.AddWithValue("@no_regis", txtregis.Text)
cmd.Parameters.AddWithValue("@no_rmibu", txtrmibu.Text)
cmd.Parameters.AddWithValue("@nama_ibu", txtnamaibu.Text)
cmd.Parameters.AddWithValue("@pekerjaan_ibu", txtpekerjaanibu.Text)
cmd.Parameters.AddWithValue("@nama_ayah", txtnamaayah.Text)
cmd.Parameters.AddWithValue("@pekerjaan", Cmbpekerjaan.SelectedItem)
cmd.Parameters.AddWithValue("@alamat", txtalamat.Text)
cmd.Parameters.AddWithValue("@no_rmbayi", txtrmbayi.Text)
cmd.Parameters.AddWithValue("@nama_bayi", txtnamabayi.Text)
cmd.Parameters.AddWithValue("@tanggal", Format(dtplahir.Value, "yyy-MM-dd"))
cmd.Parameters.AddWithValue("@jenis_kelamin", txtjeniskelamin.Text)
cmd.Parameters.AddWithValue("@anak_ke", txtanakke.Text)
cmd.Parameters.AddWithValue("@berat", txtberat.Text)
cmd.Parameters.AddWithValue("@panjang", txtpanjang.Text)
cmd.Parameters.AddWithValue("@lingkar_kepala", txtukuran.Text)
cmd.Parameters.AddWithValue("@gol_darah", txtgol.Text)
cmd.Parameters.AddWithValue("@persalinan", txtpersalinan.Text)
cmd.Parameters.AddWithValue("@nama_bidan", txtnamabidan.Text)
cmd.ExecuteNonQuery()
lihat_skl()
nonaktif()
bersih()
End Sub

Private Sub btnnew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles btnnew.Click
aktif()

End Sub
 Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnupdate.Click
cmd = New MySqlCommand("update skl2 set nama_ayah=@a, pekerjaan_ayah=@b,
alamat=@c where no_regis=@d", cn)
cmd.Parameters.AddWithValue("@a", txtnamaayah.Text)
cmd.Parameters.AddWithValue("@b", Cmbpekerjaan.SelectedItem)
cmd.Parameters.AddWithValue("@c", txtalamat.Text)
cmd.Parameters.AddWithValue("@d", txtregis.Text)
cmd.ExecuteNonQuery()
nonaktif()
btnsave.Enabled = True
MsgBox("DATA SKL BERHASIL DIUPDATE!")
lihat_skl()
nonaktif()
DataGridView2.Visible = False
DataGridView3.Visible = False

End Sub

Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btndelete.Click
If MsgBox("Apakah Akan Dihapus ?", vbYesNo, "Konfirmasi") = vbYes Then
End If
cmd = New MySqlCommand("delete from skl2 where no_regis = @no_regis", cn)
cmd.Parameters.AddWithValue("@no_regis", txtregis.Text)
cmd.ExecuteNonQuery()
lihat_skl()
txtregis.Clear()
txtrmibu.Clear()
txtnamaibu.Clear()
txtpekerjaanibu.Clear()
txtnamaayah.Clear()
Cmbpekerjaan.Text = "--pilih--"
txtalamat.Clear()
txtrmbayi.Clear()
txtnamabayi.Clear()
dtplahir.Text = Now
txtjeniskelamin.Clear()
txtanakke.Clear()
txtberat.Clear()
txtpanjang.Clear()
txtukuran.Clear()
txtgol.Clear()
txtpersalinan.Clear()
txtnamabidan.Clear()
End Sub

Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnclose.Click
Close()
End Sub

Private Sub txtnamaibu_KeyPress(ByVal sender As Object, ByVal e As

System.Windows.Forms.KeyPressEventArgs) Handles txtnamaibu.KeyPress
If Asc(e.KeyChar) = 13 Then
If DataGridView2.Visible = True Then
DataGridView2.Focus()
 Else
cmd = New MySqlCommand("SELECT * FROM pasien Where nama or no_rm", cn)
txtnamaibu.Focus()
MsgBox("MASUKAN NAMA IBU!")
End If
End If
End Sub

Private Sub txtnamaibu_TextChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles txtnamaibu.TextChanged
If txtnamaibu.Text = "" Then
DataGridView2.Visible = False
Else
cmd = New MySqlCommand("SELECT * FROM pasien Where nama like @a or no_rm like
@b", cn)
cmd.Parameters.AddWithValue("@a", "%" & txtnamaibu.Text & "%")
cmd.Parameters.AddWithValue("@b", "%" & txtrmibu.Text & "%")
cmd.ExecuteNonQuery()
da = New MySqlDataAdapter(cmd)
tb = New DataTable
da.Fill(tb)
DataGridView2.DataSource = tb
DataGridView2.Visible = True
End If
End Sub

Private Sub txtnamabayi_KeyDown(ByVal sender As Object, ByVal e As

System.Windows.Forms.KeyEventArgs) Handles txtnamabayi.KeyDown
'If e.KeyCode = 13 Then
' If DataGridView3.Visible = True Then
' DataGridView3.Focus()
' Else
' txtnamabayi.Focus()
' MsgBox("MASUKAN NAMA BAYI!")
' End If
'End If
End Sub

Private Sub txtnamabayi_KeyPress(ByVal sender As Object, ByVal e As

System.Windows.Forms.KeyPressEventArgs) Handles txtnamabayi.KeyPress
If Asc(e.KeyChar) = 13 Then
If DataGridView3.Visible = True Then
DataGridView3.Focus()
Else
txtnamabayi.Focus()
MsgBox("MASUKAN NAMA BAYI!")
End If
End If
End Sub

Private Sub txtnamabayi_TextChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles txtnamabayi.TextChanged
If txtnamabayi.Text = "" Then
DataGridView3.Visible = False
Else
cmd = New MySqlCommand("SELECT * FROM bayi Where nama like @a or no_rm like
@b", cn)
cmd.Parameters.AddWithValue("@a", "%" & txtnamabayi.Text & "%")
 cmd.Parameters.AddWithValue("@b", "%" & txtrmbayi.Text & "%")
cmd.ExecuteNonQuery()
da = New MySqlDataAdapter(cmd)
tb = New DataTable
da.Fill(tb)
DataGridView3.DataSource = tb
DataGridView3.Visible = True
End If
End Sub

Private Sub DataGridView2_CellDoubleClick(ByVal sender As Object, ByVal e As

System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellDoubleClick
txtrmibu.Text = DataGridView2.CurrentRow.Cells(0).Value.ToString()
txtnamaibu.Text = DataGridView2.CurrentRow.Cells(1).Value.ToString()
txtpekerjaanibu.Text = DataGridView2.CurrentRow.Cells(9).Value.ToString()
txtalamat.Text = DataGridView2.CurrentRow.Cells(6).Value.ToString()
txtnamaibu.Focus()
txtnamaayah.Text = ""
Cmbpekerjaan.SelectedItem = "--pilih--"
DataGridView2.Visible = False
End Sub

Private Sub DataGridView3_CellDoubleClick(ByVal sender As Object, ByVal e As

System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView3.CellDoubleClick
txtrmbayi.Text = DataGridView3.CurrentRow.Cells("no_rm").Value.ToString
txtnamabayi.Text = DataGridView3.CurrentRow.Cells("nama").Value.ToString
dtplahir.Text = DataGridView3.CurrentRow.Cells("tanggal").Value
txtjeniskelamin.Text =
DataGridView3.CurrentRow.Cells("jenis_kelamin").Value.ToString
txtberat.Text = DataGridView3.CurrentRow.Cells("berat").Value.ToString
txtpanjang.Text = DataGridView3.CurrentRow.Cells("panjang").Value.ToString
txtukuran.Text = DataGridView3.CurrentRow.Cells("ukuran_kepala").Value.ToString
txtgol.Text = DataGridView3.CurrentRow.Cells("gol_darah").Value.ToString
txtpersalinan.Text = DataGridView3.CurrentRow.Cells("cara_lahir").Value.ToString
txtnamabidan.Text = DataGridView3.CurrentRow.Cells("nama_bidan").Value.ToString
txtnamabayi.Focus()
txtanakke.Text = ""
txtjeniskelamin.Text = ""
DataGridView3.Visible = False
End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

End Sub

Private Sub DataGridView1_CellDoubleClick(ByVal sender As Object, ByVal e As

System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
aktif()
txtregis.Text = DataGridView1.CurrentRow.Cells(0).Value.ToString
txtrmibu.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString
txtnamaibu.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString
txtpekerjaanibu.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString
txtnamaayah.Text = DataGridView1.CurrentRow.Cells(4).Value.ToString
Cmbpekerjaan.Text = DataGridView1.CurrentRow.Cells(5).Value.ToString
txtalamat.Text = DataGridView1.CurrentRow.Cells(6).Value.ToString
 txtrmbayi.Text = DataGridView1.CurrentRow.Cells(7).Value.ToString
txtnamabayi.Text = DataGridView1.CurrentRow.Cells(8).Value.ToString
dtplahir.Text = DataGridView1.CurrentRow.Cells(9).Value.ToString
txtjeniskelamin.Text = DataGridView1.CurrentRow.Cells(10).Value.ToString
txtanakke.Text = DataGridView1.CurrentRow.Cells(11).Value.ToString
txtberat.Text = DataGridView1.CurrentRow.Cells(12).Value.ToString
txtpanjang.Text = DataGridView1.CurrentRow.Cells(13).Value.ToString
txtukuran.Text = DataGridView1.CurrentRow.Cells(14).Value.ToString
txtgol.Text = DataGridView1.CurrentRow.Cells(15).Value.ToString
txtpersalinan.Text = DataGridView1.CurrentRow.Cells(16).Value.ToString
txtnamabidan.Text = DataGridView1.CurrentRow.Cells(17).Value.ToString
txtregis.Enabled = False
txtnamaibu.Focus()
txtnamabayi.Focus()
txtnamabidan.Focus()
btnsave.Enabled = False
End Sub

Private Sub dtplahir_ValueChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs)

End Sub

Private Sub DataGridView3_CellContentClick(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView3.CellContentClick

End Sub

Private Sub txtrmibu_TextChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles txtrmibu.TextChanged

End Sub
End Class

- Laporan
(a) Bidan

(b) Surat Keterangan Lahir