Membuat Aplikasi Rekam Medis Visual Studio2012 & Database SQL Server 2012

Data Diatas Terdiri dari  label, picturebox,button,panel.
Berikut script pada aplikasi diatas tersebut

1. Public Class Home
3.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
4.         opendb()
5.        
9.     End Sub
10.     Sub tutup()
11.         rekam_medis.Close()
12.         pasien.Close()
13.         dokter.Close()
14.         Obat.Close()
15.         poliklinik.Close()
16.         Tindakan.Close()
17.         kunjungan.Close()
18.         Laboratorium.Close()
19.         TampilDataPasien.Close()
20.     End Sub
21.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
22.         tutup()
23.         Laboratorium.TopLevel = False
25.         Panel3.Controls.Add(Laboratorium)
26.         Laboratorium.Show()
27.         Laboratorium.BringToFront()
28.     End Sub
30.     Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
32.     End Sub
34.     Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
35.         Me.Hide()
36.         first.Show()
37.     End Sub
39.     Private Sub Panel2_Paint(sender As Object, e As PaintEventArgs) Handles Panel2.Paint
41.     End Sub
43.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
44.         tutup()
45.         pasien.TopLevel = False
47.         Panel3.Controls.Add(pasien)
48.         pasien.Show()
49.         pasien.BringToFront()
50.     End Sub
52.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
53.         tutup()
54.         Tindakan.TopLevel = False
55.         Panel3.Controls.Add(Tindakan)
56.         Tindakan.Show()
57.         Tindakan.BringToFront()
58.     End Sub
60.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
61.         tutup()
62.         Obat.TopLevel = False
63.         Panel3.Controls.Add(Obat)
64.         Obat.Show()
65.         Obat.BringToFront()
66.     End Sub
68.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
69.         tutup()
70.         poliklinik.TopLevel = False
71.         Panel3.Controls.Add(poliklinik)
72.         poliklinik.Show()
73.         poliklinik.BringToFront()
74.     End Sub
76.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
77.         tutup()
78.         kunjungan.TopLevel = False
79.         Panel3.Controls.Add(kunjungan)
80.         kunjungan.Show()
81.         kunjungan.BringToFront()
82.     End Sub
84.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
85.         tutup()
86.         dokter.TopLevel = False
87.         Panel3.Controls.Add(dokter)
88.         dokter.Show()
89.         dokter.BringToFront()
91.     End Sub
93.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
94.         tutup()
95.         rekam_medis.TopLevel = False
96.         Panel3.Controls.Add(rekam_medis)
97.         rekam_medis.Show()
98.         rekam_medis.BringToFront()
101.     End Sub
103.     Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
104.         tutup()
105.         Cetak.TopLevel = False
106.         Panel3.Controls.Add(Cetak)
107.         Cetak.Show()
108.         Cetak.BringToFront()
110.     End Sub
112.     Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
113.         rekam_medis.Close()
114.         TampilDataPasien.Close()
115.         pasien.Close()
116.         dokter.Close()
117.         Obat.Close()
118.         kunjungan.Close()
119.         Tindakan.Close()
120.         poliklinik.Close()
122.     End Sub
123. End Class

Form Diatas Terdiri dari, datagridview, button, label, textbox,panel,grupbox.

Berikut script pada form diatas

1. Imports System.Data.SqlClient
2. Public Class rekam_medis
3.     Dim pasien, obat, tindakan As String
4.     Sub bersih()
5.         txtrekmedis.Text = ""
6.         cbkdtindakan.Text = ""
7.         cbkdobat.Text = ""
8.         cbkduser.Text = ""
9.         cbnopas.Text = ""
10.         txtdiagnosa.Text = ""
11.         txtkeluhan.Text = ""
12.         txtresep.Text = ""
13.         tglperiksa.Text = ""
14.         txtket.Text = ""
15.     End Sub
17.     Sub header()
18.         DataGridView1.Columns(0).HeaderText = "NoRekamMedis"
19.         DataGridView1.Columns(1).HeaderText = "Kode Tindakan"
20.         DataGridView1.Columns(2).HeaderText = "Kode Obat"
21.         DataGridView1.Columns(3).HeaderText = "Kode User"
22.         DataGridView1.Columns(4).HeaderText = "No Pasien"
23.         DataGridView1.Columns(5).HeaderText = "Diagnosa"
24.         DataGridView1.Columns(6).HeaderText = "Resep"
25.         DataGridView1.Columns(7).HeaderText = "Keluhan"
26.         DataGridView1.Columns(8).HeaderText = "Tgl Pemeriksa"
27.         DataGridView1.Columns(9).HeaderText = "Keterangan"
28.     End Sub
29.     Sub bukatabelrekammedis()
30.         cmd.Connection = cn
31.         cmd.CommandText = "SELECT * FROM rekam_medis"
32.         Dim rd As SqlDataReader = cmd.ExecuteReader
33.         Dim dt As New DataTable
34.         dt.Load(rd)
35.         DataGridView1.DataSource = dt
36.     End Sub
37.     Sub bukatabeltindakan()
38.         cmd = New SqlCommand("SELECT * FROM tindakan", cn)
39.         Dim rd As SqlDataReader = cmd.ExecuteReader
40.         While rd.Read
41.             cbkdtindakan.Items.Add(rd("kd_tindakan") & " | " & (rd("nm_tindakan")))
42.         End While
43.         rd.Close()
44.     End Sub
45.     Sub bukatabelobat()
46.         cmd = New SqlCommand("SELECT * FROM obat", cn)
47.         Dim rd As SqlDataReader = cmd.ExecuteReader
48.         While rd.Read
49.             cbkdobat.Items.Add(rd("kd_obat") & " | " & (rd("nm_obat")))
50.         End While
51.         rd.Close()
53.     End Sub
55.     Sub bukatabeluser()
56.         cmd = New SqlCommand("SELECT kd_user FROM login", cn)
57.         Dim rd As SqlDataReader = cmd.ExecuteReader
58.         While rd.Read
59.             cbkduser.Items.Add(rd("kd_user"))
60.         End While
61.         rd.Close()
63.     End Sub
64.     Sub bukanopasien()
65.         cmd = New SqlCommand("SELECT * FROM pasien", cn)
66.         Dim rd As SqlDataReader = cmd.ExecuteReader
67.         While rd.Read
68.             cbnopas.Items.Add(rd("no_pasien") & " | " & (rd("nm_pasien")))
69.         End While
70.         rd.Close()
71.     End Sub
72.     Sub kodeotomatis()
73.         cmd = New SqlCommand("SELECT no_rm FROM rekam_medis ORDER BY no_rm DESC", cn)
74.         Dim rd As SqlDataReader = cmd.ExecuteReader
75.         rd.Read()
76.         If Not rd.HasRows Then
77.             txtrekmedis.Text = "RM001"
78.         Else
79.             txtrekmedis.Text = Val(Microsoft.VisualBasic.Mid(rd.Item("no_rm").ToString, 3, 3)) + 1
80.             If Len(txtrekmedis.Text) = 1 Then
81.                 txtrekmedis.Text = "RM00" & txtrekmedis.Text & ""
82.             ElseIf Len(txtrekmedis.Text) = 2 Then
83.                 txtrekmedis.Text = "RM0" & txtrekmedis.Text & ""
84.             ElseIf Len(txtrekmedis.Text) = 3 Then
85.                 txtrekmedis.Text = "RM" & txtrekmedis.Text & ""
86.             End If
87.         End If
88.         rd.Close()
89.     End Sub
91.     Private Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
92.         cmd.Connection = cn
93.         cmd.CommandText = "INSERT INTO rekam_medis VALUES ('" & txtrekmedis.Text & "','" & tindakan & "','" & obat & "','" & cbkduser.Text & _
94.             "','" & pasien & "','" & txtdiagnosa.Text & "','" & txtresep.Text & "','" & txtkeluhan.Text & "','" & tglperiksa.Value & "','" & txtket.Text & "')"
95.         cmd.ExecuteNonQuery()
96.         MsgBox("Data Telah Di Masukan")
97.         bersih()
98.         bukatabelrekammedis()
99.         kodeotomatis()
100.     End Sub
102.     Private Sub btnubah_Click(sender As Object, e As EventArgs) Handles btnubah.Click
103.         cmd.Connection = cn
104.         cmd.CommandText = "UPDATE rekam_medis SET kd_tindakan = '" & cbkdtindakan.Text & "',kd_obat= '" & obat & "', kd_user= '" & tindakan &"', no_pasien ='" & cbnopas.Text & _
105.             "', diagnosa = '" & txtdiagnosa.Text & "', resep = '" & txtresep.Text & "', keluhan ='" & txtkeluhan.Text & "', tgl_pemeriksaan ='" & tglperiksa.Value & "',ket = '" & txtket.Text & "' WHERE no_rm ='" & txtrekmedis.Text & "'"
106.         cmd.ExecuteNonQuery()
107.         MsgBox("Data Telah Di Ubah")
108.         bersih()
109.         bukatabelrekammedis()
110.         kodeotomatis()
111.     End Sub
113.     Private Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
114.         cmd.Connection = cn
115.         cmd.CommandText = "DELETE FROM rekam_medis WHERE no_rm ='" & txtrekmedis.Text & "'"
116.         cmd.ExecuteNonQuery()
117.         MsgBox("Data Telah Di Hapus")
118.         bersih()
119.         bukatabelrekammedis()
120.         kodeotomatis()
121.     End Sub
122.     Private Sub rekam_medis_Load(sender As Object, e As EventArgs) Handles MyBase.Load
123.         bukatabelrekammedis()
124.         header()
125.         bukanopasien()
126.         bukatabelobat()
127.         bukatabeltindakan()
128.         bukatabeluser()
129.         kodeotomatis()
132.     End Sub
133.     Private Sub DataGridView1_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs)
134.         txtrekmedis.Text = DataGridView1.SelectedCells(0).Value.ToString
135.         cbkdtindakan.Text = DataGridView1.SelectedCells(1).Value.ToString
136.         cbkdobat.Text = DataGridView1.SelectedCells(2).Value.ToString
137.         cbkduser.Text = DataGridView1.SelectedCells(3).Value.ToString
138.         cbnopas.Text = DataGridView1.SelectedCells(4).Value.ToString
139.         txtdiagnosa.Text = DataGridView1.SelectedCells(5).Value.ToString
140.         txtkeluhan.Text = DataGridView1.SelectedCells(6).Value.ToString
141.         txtresep.Text = DataGridView1.SelectedCells(7).Value.ToString
142.         tglperiksa.Text = DataGridView1.SelectedCells(8).Value.ToString
143.         txtket.Text = DataGridView1.SelectedCells(9).Value.ToString
146.     End Sub
148.     Private Sub Label13_Click(sender As Object, e As EventArgs)
150.     End Sub
152.     Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
154.     End Sub
156.     Private Sub txtcari_TextChanged(sender As Object, e As EventArgs) Handles txtcari.TextChanged
157.         If txtcari.Text = "" Then
158.             bukatabelrekammedis()
159.         Else
160.             cmd.Connection = cn
161.             cmd.CommandText = "SELECT * FROM rekam_medis WHERE (no_rm like '" & txtcari.Text & "%') OR (kd_tindakan Like'" & txtcari.Text &"%')"
162.             Dim rd As SqlDataReader = cmd.ExecuteReader
163.             Dim dt As New DataTable
164.             dt.Load(rd)
165.             DataGridView1.DataSource = dt
167.         End If
168.     End Sub
170.     Private Sub Button1_Click(sender As Object, e As EventArgs)
172.     End Sub
174.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
176.     End Sub
178.     Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter
180.     End Sub
182.     Private Sub cbnopas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbnopas.SelectedIndexChanged
183.         pasien = Mid(cbnopas.Text, 1, 6)
184.     End Sub
186.     Private Sub cbkdobat_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbkdobat.SelectedIndexChanged
187.         obat = Mid(cbkdobat.Text, 1, 6)
188.     End Sub
190.     Private Sub cbkdtindakan_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbkdtindakan.SelectedIndexChanged
191.         tindakan = Mid(cbkdtindakan.Text, 1, 6)
192.     End Sub
193. End Class

Form diatas Terdiri dari label,button,textbox,panel,datagridview,grupbox

Berikut script pada form pasien

diatas

1. Imports System.Data.SqlClient
2. Public Class pasien
3.     Dim jen_kel As String
5.     Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles txtalamat.TextChanged
7.     End Sub
9.     Sub tampildatapasien()
10.         cmd.Connection = cn
11.         cmd.CommandText = "SELECT * FROM pasien"
12.         Dim rd As SqlDataReader = cmd.ExecuteReader
13.         Dim dt As New DataTable
14.         dt.Load(rd)
15.         DataGridView1.DataSource = dt
16.     End Sub
18.     Private Sub pasien_Load(sender As Object, e As EventArgs) Handles MyBase.Load
19.         kodeotomatis()
20.         cari()
21.         kategori()
22.         tampildatapasien()
23.     End Sub
24.     Sub bersih()
25.         txtnopasien.Text = ""
26.         txtnmpasien.Text = ""
27.         txtagama.Text = ""
28.         txtalamat.Text = ""
29.         tgllahir.Text = ""
30.         txtusia.Text = ""
31.         txtnotelp.Text = ""
32.         txtnokk.Text = ""
33.         txthubkel.Text = ""
34.         txtcari.Text = ""
35.     End Sub
36.     Sub kodeotomatis()
37.         cmd = New SqlCommand("SELECT no_pasien FROM pasien ORDER BY no_pasien DESC", cn)
38.         Dim rd As SqlDataReader = cmd.ExecuteReader
39.         rd.Read()
40.         If Not rd.HasRows Then
41.             txtnopasien.Text = "NP001"
42.         Else
43.             txtnopasien.Text = Val(Microsoft.VisualBasic.Mid(rd.Item("no_pasien").ToString, 3, 3)) + 1
44.             If Len(txtnopasien.Text) = 1 Then
45.                 txtnopasien.Text = "NP00" & txtnopasien.Text & ""
46.             ElseIf Len(txtnopasien.Text) = 2 Then
47.                 txtnopasien.Text = "NP0" & txtnopasien.Text & ""
48.             ElseIf Len(txtnopasien.Text) = 3 Then
49.                 txtnopasien.Text = "NP" & txtnopasien.Text & ""
50.             End If
51.         End If
52.         rd.Close()
53.     End Sub
54.     Sub kategori()
55.         cbcari.Items.Add("Nomor Pasien")
56.         cbcari.Items.Add("Nama Pasien")
57.     End Sub
58.     Sub cari()
59.         If cbcari.Text = "Nomor Pasien" Then
60.             cmd.Connection = cn
61.             cmd.CommandText = "SELECT * FROM pasien WHERE no_pasien like '%" & txtcari.Text & "%'"
62.             Dim rd As SqlDataReader = cmd.ExecuteReader
63.             Dim dt As New DataTable
64.             dt.Load(rd)
65.             DataGridView1.DataSource = dt
66.         ElseIf cbcari.Text = "Nama Pasien" Then
67.             cmd.Connection = cn
68.             cmd.CommandText = "SELECT * FROM pasien WHERE nm_pasien like '%" & txtcari.Text & "%'"
69.             Dim rd As SqlDataReader = cmd.ExecuteReader
70.             Dim dt As New DataTable
71.             dt.Load(rd)
72.             DataGridView1.DataSource = dt
73.         End If
74.     End Sub
75.     Sub jenkel()
76.         If rblaki.Checked Then
77.             jen_kel = "Laki - Laki"
78.         ElseIf rbprmpuan.Checked Then
79.             jen_kel = "Perempuan"
80.         End If
81.     End Sub
82.     Private Sub btntambah_Click(sender As Object, e As EventArgs)
83.         jenkel()
84.         cmd.Connection = cn
85.         cmd.CommandText = ("INSERT INTO pasien VALUES ('" & txtnopasien.Text & "','" & txtnmpasien.Text & "','" & jen_kel & "','" & txtagama.Text & "','" & txtalamat.Text & "','" & tgllahir.Value & "','" & txtusia.Text & "','" & txtnotelp.Text & "','" & txtnokk.Text &"','" & txthubkel.Text & "')")
86.         cmd.ExecuteNonQuery()
87.         MsgBox("Data Berhasil Dimasukan")
88.         bersih()
89.         tampildatapasien()
90.     End Sub
92.     Private Sub btnubah_Click(sender As Object, e As EventArgs)
93.         jenkel()
94.         cmd.Connection = cn
95.         cmd.CommandText = "UPDATE pasien SET nm_pasien='" & txtnmpasien.Text & "',j_kel='" & jen_kel & "',agama='" & txtagama.Text &"',alamat='" & txtalamat.Text & "',tgl_lhr='" & tgllahir.Value & "',usia='" & txtusia.Text & "',no_tlp='" & txtnotelp.Text & "',nm_kk='" & txtnokk.Text & "', hub_kel='" & txthubkel.Text & "' WHERE no_pasien='" & txtnopasien.Text & "'"
96.         cmd.ExecuteNonQuery()
97.         MsgBox("Data Telah Di Ubah")
98.         bersih()
99.         tampildatapasien()
100.     End Sub
103.     Private Sub DataGridView1_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDoubleClick
104.         txtnopasien.Text = DataGridView1.SelectedCells(0).Value
105.         txtnmpasien.Text = DataGridView1.SelectedCells(1).Value
106.         If DataGridView1.SelectedCells(2).Value = "Laki - Laki" Then
107.             rblaki.Checked = True
108.         ElseIf DataGridView1.SelectedCells(2).Value = "perempuan" Then
109.             rbprmpuan.Checked = True
110.         End If
111.         txtagama.Text = DataGridView1.SelectedCells(3).Value
112.         txtalamat.Text = DataGridView1.SelectedCells(4).Value
113.         tgllahir.Text = DataGridView1.SelectedCells(5).Value
114.         txtusia.Text = DataGridView1.SelectedCells(6).Value
115.         txtnotelp.Text = DataGridView1.SelectedCells(7).Value
116.         txtnokk.Text = DataGridView1.SelectedCells(8).Value
117.         txthubkel.Text = DataGridView1.SelectedCells(9).Value
118.     End Sub
120.     Private Sub btnhapus_Click(sender As Object, e As EventArgs)
121.         cmd.Connection = cn
122.         cmd.CommandText = "DELETE FROM pasien WHERE no_pasien='" & txtnopasien.Text & "'"
123.         cmd.ExecuteNonQuery()
124.         MsgBox("Data Telah Di Hapus")
125.         bersih()
126.         tampildatapasien()
127.     End Sub
129.     Private Sub txtcari_TextChanged(sender As Object, e As EventArgs) Handles txtcari.TextChanged
130.         cari()
131.     End Sub
133.     Private Sub txtnopasien_TextChanged(sender As Object, e As EventArgs) Handles txtnopasien.TextChanged
135.     End Sub
137.     Private Sub txtagama_TextChanged(sender As Object, e As EventArgs) Handles txtagama.TextChanged
139.     End Sub
142.     Private Sub btntambah_Click_1(sender As Object, e As EventArgs) Handles btntambah.Click
143.         jenkel()
144.         cmd.Connection = cn
145.         cmd.CommandText = ("INSERT INTO pasien VALUES ('" & txtnopasien.Text & "','" & txtnmpasien.Text & "','" & jen_kel & "','" & txtagama.Text & "','" & txtalamat.Text & "','" & tgllahir.Value & "','" & txtusia.Text & "','" & txtnotelp.Text & "','" & txtnokk.Text &"','" & txthubkel.Text & "')")
146.         cmd.ExecuteNonQuery()
147.         MsgBox("Data Berhasil Dimasukan")
148.         bersih()
149.         tampildatapasien()
150.         kodeotomatis()
151.     End Sub
153.     Private Sub btnubah_Click_1(sender As Object, e As EventArgs) Handles btnubah.Click
154.         jenkel()
155.         cmd.Connection = cn
156.         cmd.CommandText = "UPDATE pasien SET nm_pasien='" & txtnmpasien.Text & "',j_kel='" & jen_kel & "',agama='" & txtagama.Text &"',alamat='" & txtalamat.Text & "',tgl_lhr='" & tgllahir.Value & "',usia='" & txtusia.Text & "',no_tlp='" & txtnotelp.Text & "',nm_kk='" & txtnokk.Text & "', hub_kel='" & txthubkel.Text & "' WHERE no_pasien='" & txtnopasien.Text & "'"
157.         cmd.ExecuteNonQuery()
158.         MsgBox("Data Telah Di Ubah")
159.         bersih()
160.         tampildatapasien()
161.         kodeotomatis()
162.     End Sub
164.     Private Sub btnhapus_Click_1(sender As Object, e As EventArgs) Handles btnhapus.Click
165.         cmd.Connection = cn
166.         cmd.CommandText = "DELETE FROM pasien WHERE no_pasien='" & txtnopasien.Text & "'"
167.         cmd.ExecuteNonQuery()
168.         MsgBox("Data Telah Di Hapus")
169.         bersih()
170.         tampildatapasien()
171.         kodeotomatis()
172.     End Sub
173. End Class

Form diatas Terdiri dari label,button,textbox,panel,datagridview,grupbox

Berikut script pada form dokter diatas

1. Imports System.Data.SqlClient
2. Public Class dokter
3.     Dim poliklinik As String
4.     Sub bersih()
5.         txtkddokter.Text = ""
6.         cbkdpoliklinik.Text = ""
7.         cbkduser.Text = ""
8.         txtnmdokter.Text = ""
9.         txtsip.Text = ""
10.         txtlahir.Text = ""
11.         txtnotelp.Text = ""
12.         txtalamat.Text = ""
14.     End Sub
15.     Sub kategori()
16.         cbcari.Items.Add("Kode Dokter")
17.         cbcari.Items.Add("Nama Dokter")
18.     End Sub
19.     Sub cari()
20.         If cbcari.Text = "Kode Dokter" Then
21.             cmd.Connection = cn
22.             cmd.CommandText = "SELECT * FROM dokter WHERE kd_dokter like '%" & txtcari.Text & "%'"
23.             Dim rd As SqlDataReader = cmd.ExecuteReader
24.             Dim dt As New DataTable
25.             dt.Load(rd)
26.             DataGridView1.DataSource = dt
27.         ElseIf cbcari.Text = "Nama Dokter" Then
28.             cmd.Connection = cn
29.             cmd.CommandText = "SELECT * FROM dokter WHERE nm_dokter like '%" & txtcari.Text & "%'"
30.             Dim rd As SqlDataReader = cmd.ExecuteReader
31.             Dim dt As New DataTable
32.             dt.Load(rd)
33.             DataGridView1.DataSource = dt
34.         End If
36.     End Sub
37.     Sub tampildata()
38.         cmd.Connection = cn
39.         cmd.CommandText = "SELECT * FROM dokter"
40.         Dim rd As SqlDataReader = cmd.ExecuteReader
41.         Dim dt As New DataTable
42.         dt.Load(rd)
43.         DataGridView1.DataSource = dt
44.     End Sub
45.     Sub kodeotomatis()
46.         cmd = New SqlCommand("SELECT kd_dokter FROM dokter ORDER BY kd_dokter DESC", cn)
47.         Dim rd As SqlDataReader = cmd.ExecuteReader
48.         rd.Read()
49.         If Not rd.HasRows Then
50.             txtkddokter.Text = "KD001"
51.         Else
52.             txtkddokter.Text = Val(Microsoft.VisualBasic.Mid(rd.Item("kd_dokter").ToString, 3, 3)) + 1
53.             If Len(txtkddokter.Text) = 1 Then
54.                 txtkddokter.Text = "KD00" & txtkddokter.Text & ""
55.             ElseIf Len(txtkddokter.Text) = 2 Then
56.                 txtkddokter.Text = "KD0" & txtkddokter.Text & ""
57.             ElseIf Len(txtkddokter.Text) = 3 Then
58.                 txtkddokter.Text = "KD" & txtkddokter.Text & ""
59.             End If
60.         End If
61.         rd.Close()
62.     End Sub
63.     Sub header()
64.         DataGridView1.Columns(0).HeaderText = "Kode Dokter"
65.         DataGridView1.Columns(1).HeaderText = "Kode Poliklinik"
66.         DataGridView1.Columns(2).HeaderText = "Kode User"
67.         DataGridView1.Columns(3).HeaderText = "Nama Dokter"
68.         DataGridView1.Columns(4).HeaderText = "SIP"
69.         DataGridView1.Columns(5).HeaderText = "Tempat Lahir"
70.         DataGridView1.Columns(6).HeaderText = "No Telpone"
71.         DataGridView1.Columns(7).HeaderText = "Alamat"
73.     End Sub
74.     Private Sub dokter_Load(sender As Object, e As EventArgs) Handles MyBase.Load
75.         tampildata()
76.         header()
77.         kodeotomatis()
78.         bukatabelpoliklinik()
79.         bukatabeluser()
80.         kategori()
82.     End Sub
83.     Sub bukatabelpoliklinik()
84.         cmd = New SqlCommand("SELECT * FROM poliklinik", cn)
85.         Dim rd As SqlDataReader = cmd.ExecuteReader
86.         While rd.Read
87.             cbkdpoliklinik.Items.Add(rd("kd_poli") & " | " & (rd("nm_poli")))
88.         End While
89.         rd.Close()
90.     End Sub
91.     Sub bukatabeluser()
92.         cmd = New SqlCommand("SELECT kd_user FROM login", cn)
93.         Dim rd As SqlDataReader = cmd.ExecuteReader
94.         While rd.Read
95.             cbkduser.Items.Add(rd("kd_user"))
96.         End While
97.         rd.Close()
98.     End Sub
100.     Private Sub btntambah_Click(sender As Object, e As EventArgs)
101.         cmd.Connection = cn
102.         cmd.CommandText = "INSERT INTO dokter VALUES ('" & txtkddokter.Text & "','" & cbkdpoliklinik.Text & "','" & cbkduser.Text & "','" & txtnmdokter.Text & "','" & txtsip.Text & "','" & txtlahir.Text & "','" & txtnotelp.Text & "','" & txtalamat.Text & "')"
103.         cmd.ExecuteNonQuery()
104.         MsgBox("Data Sukses Di Masukan")
105.         tampildata()
106.         bersih()
107.         kodeotomatis()
108.     End Sub
110.     Private Sub btnubah_Click(sender As Object, e As EventArgs)
111.         cmd.Connection = cn
112.         cmd.CommandText = "UPDATE dokter SET kd_poli = '" & cbkdpoliklinik.Text & "', kd_user = '" & cbkduser.Text & "', nm_dokter = '" & txtnmdokter.Text & "', sip = '" & txtsip.Text & "', tmpt_lhr = '" & txtlahir.Text & "', no_telp = '" & txtnotelp.Text & "', alamat = '" & txtalamat.Text & "' WHERE kd_dokter = '" & txtkddokter.Text & "'"
113.         cmd.ExecuteNonQuery()
114.         MsgBox(" Data Sukses Di Ubah ")
115.         bersih()
116.         tampildata()
117.         kodeotomatis()
118.     End Sub
120.     Private Sub btnhapus_Click(sender As Object, e As EventArgs)
121.         cmd.Connection = cn
122.         cmd.CommandText = "DELETE FROM dokter WHERE kd_dokter='" & txtkddokter.Text & "'"
123.         cmd.ExecuteNonQuery()
124.         MsgBox("Data Sukses Di Hapus")
125.         bersih()
126.         tampildata()
127.         kodeotomatis()
128.     End Sub
130.     Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
132.     End Sub
134.     Private Sub DataGridView1_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDoubleClick
135.         txtkddokter.Text = DataGridView1.SelectedCells(0).Value.ToString
136.         cbkdpoliklinik.Text = DataGridView1.SelectedCells(1).Value.ToString
137.         cbkduser.Text = DataGridView1.SelectedCells(2).Value.ToString
138.         txtnmdokter.Text = DataGridView1.SelectedCells(3).Value.ToString
139.         txtsip.Text = DataGridView1.SelectedCells(4).Value.ToString
140.         txtlahir.Text = DataGridView1.SelectedCells(5).Value.ToString
141.         txtnotelp.Text = DataGridView1.SelectedCells(6).Value.ToString
142.         txtalamat.Text = DataGridView1.SelectedCells(7).Value.ToString
143.     End Sub
145.     Private Sub txtcari_TextChanged(sender As Object, e As EventArgs) Handles txtcari.TextChanged
146.         cari()
147.     End Sub
149.     Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter
151.     End Sub
153.     Private Sub btntambah_Click_1(sender As Object, e As EventArgs) Handles btntambah.Click
154.         cmd.Connection = cn
155.         cmd.CommandText = "INSERT INTO dokter VALUES ('" & txtkddokter.Text & "','" & poliklinik & "','" & cbkduser.Text & "','" & txtnmdokter.Text & "','" & txtsip.Text & "','" & txtlahir.Text & "','" & txtnotelp.Text & "','" & txtalamat.Text & "')"
156.         cmd.ExecuteNonQuery()
157.         MsgBox("Data Sukses Di Masukan")
158.         tampildata()
159.         bersih()
160.         kodeotomatis()
161.     End Sub
163.     Private Sub btnubah_Click_1(sender As Object, e As EventArgs) Handles btnubah.Click
164.         cmd.Connection = cn
165.         cmd.CommandText = "UPDATE dokter SET kd_poli = '" & poliklinik & "', kd_user = '" & cbkduser.Text & "', nm_dokter = '" & txtnmdokter.Text & "', sip = '" & txtsip.Text & "', tmpt_lhr = '" & txtlahir.Text & "', no_tep = '" & txtnotelp.Text & "', alamat = '" & txtalamat.Text & "' WHERE kd_dokter = '" & txtkddokter.Text & "'"
166.         cmd.ExecuteNonQuery()
167.         MsgBox(" Data Sukses Di Ubah ")
168.         bersih()
169.         tampildata()
170.         kodeotomatis()
171.     End Sub
173.     Private Sub btnhapus_Click_1(sender As Object, e As EventArgs) Handles btnhapus.Click
174.         cmd.Connection = cn
175.         cmd.CommandText = "DELETE FROM dokter WHERE kd_dokter='" & txtkddokter.Text & "'"
176.         cmd.ExecuteNonQuery()
177.         MsgBox("Data Sukses Di Hapus")
178.         bersih()
179.         tampildata()
180.         kodeotomatis()
181.     End Sub
183.     Private Sub cbkdpoliklinik_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbkdpoliklinik.SelectedIndexChanged
184.         poliklinik = Mid(cbkdpoliklinik.Text, 1, 6)
185.     End Sub
186. End Class

Form diatas Terdiri dari label,button,textbox.

Berikut script pada form login diatas

1. Imports System.Data.SqlClient
2. Public Class first
4.     Private Sub Button1_Click(sender As Object, e As EventArgs)
5.         login()
7.     End Sub
9.     Private Sub first_Load(sender As Object, e As EventArgs) Handles MyBase.Load
10.         login()
11.     End Sub
13.     Private Sub Button2_Click(sender As Object, e As EventArgs)
14.         Application.Exit()
15.     End Sub
16.     Sub login()
17.         cmd.Connection = cn
18.         cmd.CommandText = "SELECT PASSWORD FROM login WHERE password = '" & TextBox1.Text & "' AND PASSWORD ='" & TextBox2.Text & "'"
19.         Dim rd As SqlDataReader = cmd.ExecuteReader
20.         rd.Read()
22.         If rd.HasRows Then
23.             Me.Hide()
24.             Home.Show()
25.             TextBox1.Clear()
26.             TextBox2.Clear()
27.         Else
28.             MessageBox.Show("Data Salah")
29.         End If
30.         rd.Close()
32.     End Sub
33.     Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs)
34.         If e.KeyChar = Chr(13) Then
36.             MsgBox("Kayaknya Bisa")
37.         End If
38.     End Sub
40.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
41.         Me.Close()
42.     End Sub
43. End Class

1. Imports System.Data.SqlClient
2. Public Class kunjungan
4.     Sub tampildatakunjungan()
5.         cmd.Connection = cn
6.         cmd.CommandText = "SELECT * FROM kunjungan"
7.         Dim rd As SqlDataReader = cmd.ExecuteReader
8.         Dim dt As New DataTable
9.         dt.Load(rd)
10.         DataGridView1.DataSource = dt
11.     End Sub
12.     Sub kategori()
13.         cbcari.Items.Add("Nomor Pasien")
14.     End Sub
15.     Sub cari()
16.         cbcari.Text = "Nomor Pasien"
17.         cmd.Connection = cn
18.         cmd.CommandText = "SELECT * FROM pasien WHERE no_pasien like '%" & txtcari.Text & "%'"
19.         Dim rd As SqlDataReader = cmd.ExecuteReader
20.         Dim dt As New DataTable
21.         dt.Load(rd)
22.         DataGridView1.DataSource = dt
24.     End Sub
26.     Sub bukatabelpoliklinik()
27.         cmd = New SqlCommand("SELECT kd_poli FROM poliklinik", cn)
28.         Dim rd As SqlDataReader = cmd.ExecuteReader
29.         While rd.Read
30.             cbkdpol.Items.Add(rd("kd_poli"))
31.         End While
32.         rd.Close()
33.     End Sub
36.     Private Sub kunjungan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
37.         tampildatakunjungan()
38.         bukatabelpoliklinik()
39.         bukatabelpasien()
40.         bukatabeldokter()
41.         kategori()
42.     End Sub
43.     Sub bukatabelpasien()
44.         cmd = New SqlCommand("SELECT no_pasien FROM pasien", cn)
45.         Dim rd As SqlDataReader = cmd.ExecuteReader
46.         While rd.Read
47.             cbnopas.Items.Add(rd("no_pasien"))
49.         End While
50.         rd.Close()
51.     End Sub
52.     Sub bukatabeldokter()
53.         cmd = New SqlCommand("SELECT kd_dokter FROM dokter", cn)
54.         Dim rd As SqlDataReader = cmd.ExecuteReader
55.         While rd.Read
56.             cbkddok.Items.Add(rd("kd_dokter"))
59.         End While
60.         rd.Close()
61.     End Sub
62.     Sub bersih()
63.         tglkunjungan.Text = ""
64.         cbnopas.Text = ""
65.         cbkddok.Text = ""
66.         cbkdpol.Text = ""
67.         jam.Text = ""
68.     End Sub
70.     Private Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
71.         cmd.Connection = cn
72.         cmd.CommandText = ("INSERT INTO kunjungan VALUES ('" & tglkunjungan.Value & "','" & cbkddok.Text & "','" & cbnopas.Text & "','" &cbkdpol.Text & "','" & jam.Value & "')")
73.         cmd.ExecuteNonQuery()
74.         MsgBox("Data Telah Di Masukan")
75.         bersih()
76.         tampildatakunjungan()
77.     End Sub
81.     Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
83.     End Sub
85.     Private Sub DataGridView1_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) HandlesDataGridView1.CellMouseDoubleClick
86.         tglkunjungan.Value = DataGridView1.SelectedCells(0).Value
87.         cbnopas.Text = DataGridView1.SelectedCells(1).Value
88.         cbkddok.Text = DataGridView1.SelectedCells(2).Value
89.         cbkdpol.Text = DataGridView1.SelectedCells(3).Value
90.         jam.Text = DataGridView1.SelectedCells(4).FormattedValue
91.     End Sub
93.     Private Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
94.         cmd.Connection = cn
95.         cmd.CommandText = "DELETE FROM kunjungan WHERE tgl_kunjungan='" & tglkunjungan.Value & "' and no_pasien='" & cbnopas.Text & "'"
97.         cmd.ExecuteNonQuery()
98.         MsgBox("Data Telah Di Hapus")
99.         bersih()
100.         tampildatakunjungan()
101.     End Sub
103.     Private Sub txtcari_TextChanged(sender As Object, e As EventArgs) Handles txtcari.TextChanged
104.         cari()
105.     End Sub
106. End Class