SURAT KETERANGAN Hasil Uji Program Tugas Akhir

Yang bertanda tangan dibawah ini, menerangkan bahwa Mahasiswa Tugas Akhir Program D3 Teknik Informatika :

Nama

: MUHAIYATUN

NIM

: 112406160

Prog. Studi

: D3 Teknik Informatika

Judul TA

: SISTEM APLIKASI ADMINISTRASI DAN PENDATAAN PASIEN PADA KLINIK BERSALIN BUNDA

Telah melaksanakan tes program Tugas Akhir Mahasiswa tersebut di atas pada tanggal……………………….

Dengan Hasil :

Sukses / Gagal

Demikian diterangkan untuk digunakan melengkapi syarat pendaftaran Ujian Meja Hijau Tugas Akhir Mahasiswa bersangkutan di Departemen Matematika FMIPA USU Medan.

Medan,

Juni 2014

Dosen Pembimbing

Dr. Syahril Efendi, S.Si., M.I.T NIP : 19671110199602100

Universitas Sumatera Utara

KEMENTERIAN PENDIDIKAN NASIONAL

UNIVERSITAS SUMATERA UTARA FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM Jl. Bioteknologi No. 1 Kampus USU Telp. (061) 8214290, 8211212, 8211414 Fax. (061) 8214290 Medan 20155

Kartu Bimbingan Tugas Akhir Mahasiswa Nama

: MUHAIYATUN

Nomor Induk Mahasiswa

: 112406160

Judul Tugas Akhir

: SISTEM APLIKASI ADMINISTRASI DAN PENDATAAN PASIEN PADA KLINIK BERSALIN BUNDA

Dosen Pembimbing

: Dr. Syahril Efendi, S.Si., M.I.T

Tanggal Mulai Bimbingan

: ................................

Tanggal Selesai Bimbingan : ................................. No

Tanggal Asistensi Bimbingan

Pembahasan Pada Asistensi Mengenai, Pada Bab :

Paraf Dosen Pembimbing

Keterangan

*Kartu ini harap dikembalikan ke Departemen Matematika bila bimbingan mahasiswa telah selesai

Diketahui, Ketua Jurusan D-3 Teknik Informatika

Disetujui, Pembimbing Utama/ Penanggung Jawab

Prof. Dr. Tulus. Vordipl. Math., M.Si., Ph.D

Dr. Syahril Efendi, S.Si., M.I.T

NIP. 19620901 198803 1 002

NIP. Universitas 196711101996021001 Sumatera Utara

L A M P I R A N Universitas Sumatera Utara

LISTING PROGRAM Form login Option Explicit Dim MaxLogin As Integer Public LoginSucceeded As Boolean Public sql As String Private Sub Masuk() FormUtama.BackColor = &H8000000D FormUtama.mnutransaksi = True FormUtama.mnudatapas = True FormUtama.mnuklinik = True FormUtama.mnudataadmin = True FormUtama.mnulaporan = True FormUtama.mnulogin = False FormUtama.mnulogout = True Unload Me End Sub

Private Sub CmdCancel_Click() Unload Me FormUtama.Cmdmasuk.Caption = "Sign in" End Sub 'set the global var to false 'to denote a failed login 'LoginSucceeded = False 'Me.Hide 'End 'End Sub Private Sub cmdOK_Click() If TxtNama.Text = "" Then MsgBox "USER ID MASIH KOSONG !", vbCritical vbOKOnly, "Error" TxtNama.SetFocus ElseIf TxtSandi.Text = "" Then MsgBox "PASSWORD MASIH KOSONG !", vbCritical vbOKOnly, "Error" TxtSandi.SetFocus Else sql = "" sql = "SELECT * FROM login WHERE User='" TxtNama.Text _ & "' AND Password='" & TxtSandi.Text & "'" Set Rs = DataAnsi.Execute(sql)

Universitas Sumatera Utara

+

+

&

If Not Rs.BOF Then Masuk Unload Me Rs.Close Else MsgBox ("Periksa user vbInformation, "Oopzz......"

dan

password

anda"),

TxtNama.Text = "" TxtSandi.Text = "" TxtNama.SetFocus 'Periksa, login hanya 3 kali '3x gagal pesan error ditampilkan If MaxLogin < 3 Then MsgBox "Maaf, Kombinasi Username dan Password Salah", vbCritical + vbOKOnly, "Error" TxtSandi.Text = "" TxtSandi.SetFocus MaxLogin = MaxLogin + 1 If MaxLogin >= 3 Then MsgBox "Anda bukan pengguna yang berhak!", vbCritical + vbOKOnly, "Error" Unload Me End If End If End If End If FormUtama.Cmdmasuk.Caption = "Sign Out" End Sub Private Sub Form_Load() Me.Height = 5520 Me.Left = 4740 Me.Top = 1000 Me.Width = 5400 Call BukaData End Sub Private Sub TxtNama_KeyDown(KeyCode As Integer, Shift Integer) If KeyCode = vbKeyReturn Then TxtSandi.SetFocus End Sub

As

Private Sub TxtSandi_Click() TxtSandi.Text = "" End Sub Private Sub TxtSandi_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then CmdOK.SetFocus End Sub Data Pasien Bersalin Universitas Sumatera Utara

Option Explicit Dim sehat As Boolean Private Sub CmdBatal_Click() Awal CmdSimpan.Caption = "&Tambah" CmdEdit.Caption = "&Edit" End Sub Private Sub CmdBayar_Click() FrmBayar.Show FrmBayar.TxtNama.Text = FrmPendaftaranBersalin.TxtNama.Text FrmBayar.DTP1.Value = FrmPendaftaranBersalin.DTP1.Value End Sub Private Sub CmdEdit_Click() Dim Kata As String If CmdEdit.Caption = "&Edit" Then TxtNopasien.Enabled = True TxtNama.Enabled = True TxtUmur.Enabled = True TxtAlamat.Enabled = True DTP1.Enabled = True Txtlamainap.Enabled = True TxtNopasien.SetFocus Call WarnaText CmdEdit.Caption = "&Simpan" Else: If CmdEdit.Caption = "&Simpan" Then _ Me.MousePointer = 11 Kata = "UPDATE daftarPasienBersalin SET Nama='" Trim(TxtNama.Text) & "' ,Umur='" & Trim(TxtUmur.Text) & "' Alamat='" & _ Trim(TxtAlamat.Text) & "' , Tanggal='" Trim(DTP1.Value) & "' ,Lama_Menginap='" Trim(Txtlamainap.Text) & "' WHERE No_Pasien= '" Trim(TxtNopasien.Text) & "'" DataAnsi.Execute Kata Me.MousePointer = 1 Awal LVBersalin.Refresh CmdEdit.Caption = "&Edit" End If End Sub

& , & & &

Private Sub CmdHapus_Click() Dim Kata As String Dim Tanya As String Tanya = MsgBox("Yakin data Pasien" & "Ingin Dihapus ? ", vbQuestion + vbYesNo, "Penghapusan Data ") If Tanya = vbYes Then Me.MousePointer = 11 Universitas Sumatera Utara

Kata = " DELETE FROM daftarPasienBersalin No_Pasien='" & Trim(TxtNopasien.Text) & "'" DataAnsi.Execute Kata Me.MousePointer = 1 Awal Else Awal End If LVBersalin.Refresh End Sub

WHERE

Private Sub CmdSelesai_Click() Unload Me End Sub Private Sub CmdSimpan_Click() Dim Kata As String If CmdSimpan.Caption = "&Tambah" Then Call WarnaText TxtNopasien.Enabled = True TxtNama.Enabled = True TxtUmur.Enabled = True TxtAlamat.Enabled = True DTP1.Enabled = True Txtlamainap.Enabled = True TxtNopasien.SetFocus CmdBatal.Enabled = True CmdSimpan.Caption = "&Simpan" Else: If CmdSimpan.Caption = "&Simpan" Then _ Me.MousePointer = 11 Kata = " INSERT INTO daftarPasienBersalin VALUES ('" & Trim(TxtNopasien.Text) & "','" & Trim(TxtNama.Text) & "','" & _ Trim(TxtUmur.Text) & "','" & Trim(TxtAlamat.Text) & "','" & _ Trim(DTP1.Value) & "','" & Trim(Txtlamainap.Text) & "' )" DataAnsi.Execute Kata Me.MousePointer = 1 Awal LVBersalin.Refresh CmdSimpan.Caption = "&Tambah" End If End Sub Private Sub DTP1_KeyDown(KeyCode As Integer, Shift Integer) If KeyCode = vbKeyReturn Then Txtlamainap.SetFocus End Sub Private Sub Form_Load() Me.Height = 8530

Universitas Sumatera Utara

As

Me.Left = 3540 Me.Top = 600 Me.Width = 12997 BukaData End Sub Private Sub Form_Activate() Awal End Sub Public Sub WarnaText() TxtNopasien.BackColor = &HFFFFFF TxtNama.BackColor = &HFFFFFF TxtUmur.BackColor = &HFFFFFF TxtAlamat.BackColor = &HFFFFFF Txtlamainap.BackColor = &HFFFFFF End Sub

Private Sub Awal() sehat = False TxtNopasien.Text = "" TxtNama.Text = "" TxtUmur.Text = "" TxtAlamat.Text = "" Txtlamainap.Text = "" TxtNopasien.Enabled = False TxtNama.Enabled = False TxtUmur.Enabled = False TxtAlamat.Enabled = False Txtlamainap.Enabled = False DTP1.Enabled = False CmdSimpan.Enabled = True CmdEdit.Enabled = False CmdBayar.Enabled = False CmdHapus.Enabled = False CmdBatal.Enabled = False CmdSelesai.Enabled = True TxtNopasien.BackColor = &HC0E0FF TxtNama.BackColor = &HC0E0FF TxtUmur.BackColor = &HC0E0FF TxtAlamat.BackColor = &HC0E0FF Txtlamainap.BackColor = &HC0E0FF TampilLVBersalin End Sub Private Sub TampilLVBersalin() Dim Tklinik As ADODB.Recordset Dim Kata As String Dim i As Byte

Universitas Sumatera Utara

Dim vButir As ListItem Me.MousePointer = 11 Kata = "SELECT * FROM daftarPasienBersalin Order BY No_Pasien" Set Tklinik = New ADODB.Recordset Tklinik.Open Kata, DataAnsi, adOpenStatic LVBersalin.ListItems.Clear If Not Tklinik.EOF Then Tklinik.MoveFirst i = 1 While Not Tklinik.EOF Set vButir = LVBersalin.ListItems.Add(, , i & ".") vButir.SubItems(1) = Tklinik![No_Pasien] vButir.SubItems(2) = Tklinik![Nama] vButir.SubItems(3) = Tklinik![Umur] vButir.SubItems(4) = Tklinik![Alamat] vButir.SubItems(5) = Tklinik![Tanggal] vButir.SubItems(6) = Tklinik![Lama_Menginap] Tklinik.MoveNext i = i + 1 Wend End If Tklinik.Close Set Tklinik = Nothing Me.MousePointer = 1 End Sub Private Sub LVBersalin_BeforeLabelEdit(Cancel As Integer) TxtNopasien.Text = LVBersalin.SelectedItem.SubItems(1) TxtNama.Text = LVBersalin.SelectedItem.SubItems(2) TxtUmur.Text = LVBersalin.SelectedItem.SubItems(3) TxtAlamat.Text = LVBersalin.SelectedItem.SubItems(4) DTP1.Value = LVBersalin.SelectedItem.SubItems(5) Txtlamainap.Text = LVBersalin.SelectedItem.SubItems(6) End Sub Private Sub LVBersalin_ItemClick(ByVal MSComctlLib.ListItem)

Item

TxtNopasien.Text = LVBersalin.SelectedItem.SubItems(1) TxtNama.Text = LVBersalin.SelectedItem.SubItems(2) TxtUmur.Text = LVBersalin.SelectedItem.SubItems(3) TxtAlamat.Text = LVBersalin.SelectedItem.SubItems(4) DTP1.Value = LVBersalin.SelectedItem.SubItems(5) Txtlamainap.Text = LVBersalin.SelectedItem.SubItems(6) CmdSimpan.Enabled = False CmdEdit.Enabled = True CmdBayar.Enabled = True CmdHapus.Enabled = True CmdBatal.Enabled = True End Sub Universitas Sumatera Utara

As

Private Sub TxtAlamat_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then DTP1.SetFocus End Sub Private Sub Txtlamainap_KeyDown(KeyCode As Integer, Shift As Integer) If CmdSimpan.Caption = "&Simpan" Then If KeyCode = vbKeyReturn Then CmdSimpan.SetFocus End If If CmdEdit.Caption = "&Simpan" Then If KeyCode = vbKeyReturn Then CmdEdit.SetFocus End If End Sub Private Sub TxtNama_KeyDown(KeyCode As Integer, Integer) If KeyCode = vbKeyReturn Then TxtUmur.SetFocus End Sub

Shift

As

Private Sub TxtNopasien_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then TxtNama.SetFocus End Sub

Private Sub TxtUmur_KeyDown(KeyCode As Integer, Shift Integer) If KeyCode = vbKeyReturn Then TxtAlamat.SetFocus End Sub Private Sub TxtUmur_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("0") And KeyAscii