Koleksi Judul Tugas Akhir D3 Manajemen Informatika

- Pembuatan Perangkat Lunak Disposisi Surat Secara Online pada PT. Telkom Kandatel NAD - T. Agus Fridayansyah (9980110742)
- Perancangan dan Implementasi Sistem Inventory dan Penjualan pada Furqan Agency - Arief Kurniadi (9980110752)
- Perancangan dan Pembuatan Sistem Informasi Kurikulum untuk Semua Program Studi Universitas Syiah Kuala - Awaluddin (9980110775)
- Online Public Access Catalog (OPAC) Uilis Berbasis Web - T. Mulyadi (9980110763)
- Pembuatan Program Pembagian dan Perhitungan Harta Warisan dengan Menggunakan Borland C - Zulwani Usman (9980110788)
- Sistem Informasi Pembelian dan Pencarian Buku pada Toko Buku Zikra Banda Aceh - Risna Yuliana (9980110745)
- Pembuatan Website Pendaftaran dan Registrasi Mahasiswa pada Universitas Islam Tamiang (UNITA) - Frida Aprilia (9980110758)
- Desain dan Implementasi Sistem Informasi Akademik Ma'had Al-Ishlah dan Lembaga Hikmalni Tahfizh Qur'an Anak-anak (LTQA)
Ibnu Mas'ud (9980110788)
- Sistem Informasi Objek-Objek Parawisata Berbasis Web - Silvia (9980110787)
- Sistem Informasi Penjadwalan Mata Kuliah Online Pada Jurusan Matematika Fakultas Matematika dan Ilmu Pengetahuan Alam
Universitas Syiah Kuala - Meiriansyah Putra (9980110739)
- Perancangan dan Pembuatan Sistem Pengolahan Data Absensi Karyawan PT.PLN (Persero) Wilayah Nanggroe Aceh Darussalam Cabang
Banda Aceh - Hendra Yansyah 9980110764
- Perancangan dan Pembuatan Sistem Informasi Penjualan Tiket Bus pada Loket CV.Kurnia Group Banda Aceh
Mawarni Mutia (9980111023)
- Sistem Informasi PT. Radio Flamboyant Rassisonia Berbasis Web - Mira Sariati 9980110780
- Modifikasi Modul Sirkulasi Registrasi Anggota UILIS Menggunakan Visual Foxpro Sebagai Sisi Depan dan MySQL Server
Sebagai Database Server - Dian Masyithah 9980110733
- Modifikasi Modul Inventarisasi dan Klasifikasi Unsyiah Integrated Library Information Sistem (UILIS) Dengan Menggunakan Viasual Foxpro
Sebagai Sisi Depan & MySQL Server Sebagai Database server - Ainal Mardhiah (9980111024)
- Indeks Terjemahan Ayat-ayat Al-Qur'an Berbasis Web Sarmila 998011757
- Pembuatan Aplikasi HTML Editor dengan Visual Delphi Amri 9980110761
- Sistem Informasi Siswa LBB Phibeta Cabang Banda Aceh Nurul Fitri 998011746
- Perancangan dan Pembuatan Sistem Informasi Akuntansi Pada PT. Sakarindo Utama Dhienna Mutia 9980110734
- Perancangan dan Pembuatan Sistem Informasi Untuk Apotik Meurasi Marlinda 9980110786
- Perancangan dan Pembuatan Sistem Informasi Pengolahan Tagiahan Rekening Air Minum Pada PDAM Tirta Niaga Tapaktuan
Edwards Sriwarna Dewi 9980110735
- Perancangan dan Pembuatan Sistem Informasi Manajemen Pendapatan Daerah (SIMPADA) Pada Kantor Dinas Pendapatan Daerah Tingkat II
Aceh Selatan - Masrizal 9980110730
- Perancangan dan Pembuatan Aplikasi Multimedia Studio On Air Player dengan Visual Basic Kokoh Iman Nurhadi 9980110785
- Perancangan dan Pembuatan Sistem Informasi Permintaan Perbaikan (Job Order Request) Pada Perumahan PT.Asean Aceh Fertilizer
Lhokseumawe Nasrizal 0080110902
- Perancangan dan Pembuatan Sistem Informasi Permintaan Perbaikan Komputer Berbasis Web Pada PT.Asean Aceh Fertilizer
Lhokseumawe Zainal Mahyar 0080110903
- Sistem Informasi Kesehatan dan Pengobatan Pasien di Rumah Sakit Wilayah Nanggoe Aceh Darussalam
Cut Dian NuraniTheo 9980110750
- Perancangan dan Pembuatan Sistem Informasi Akuntansi Penjualan di Kuta Alam Tailor Nora Feri 9980110767
- Sistem Informasi Asuransi Pada AJB Bumi Putra 1912 Rayon Banda Aceh Timur Safria Nita 9980111025
- Desain dan Implementasi Portal Berita RRI Banda Aceh Online Elizar 9980110732
- Pembuatan Sistem Perhitungan Pajak PPh 21 Pada PT.PLN (Persero) Wilayah Nanggroe Aceh Darussalam Cabang Banda Aceh
Eka Lonia 9980110771
- Implementasi Aplikasi KRS Online Pada Situs Web Cyber Campus UPT Puksi UnsyiahMenggunakan Program PHP dan MySQL
Ahmad Syukri 0080110956
- Perancangan dan Pembuatan Sistem Informasi Penjualan Pada ET-25 Banda Aceh Maulidia Jaswita 9980110737
- Perancangan dan Pembuatan sistem Informasi Barang Pada CV.Titipan Kilat (TIKI) Cabang Banda Aceh Amalia 9980111027
- Komputerisasi Sistem Informasi Sekolah di SMU 1 Jantho Raziannur 9980110731
- Sistem Informasi Pembelian dan Penjualan Kopi pada PT. Genap Mupakat Gayo Specialty Coffee, Pondok Gajah-Takengon
Nismawarni 0080110935
- Pembuatan Perangkat Lunak Permainan Puzzle dengan Menggunakan Bahasa Pemograman C Irwansyah 9980110751
- Sistem Informasi Penjualan Pada Butik Charissa Sri Hastuti.H 9980110747
- Sistem Automasi Pendaftaran Asisten Online Menggunakan PHP Script Sebagai Front-End dan MySQL Server Sebagai Back-End
Jailani 9980110769
- Perancangan dan Pembuatan Sistem Informasi Operasional pada Lembaga Pendidikan Meridian Dinamika Computer
Fahrul Radhi 0180110019
- Perancangan dan Pembuatan Sistem Informasi Forum Diskusi Online Terhadap Mata Kuliah pada Jurusan Matematika FMIPA Unsyiah
Sri Novida 008011008
- Perancangan dan Implementasi Sistem Infoemasi Pendapatan Guru sekolah Online pada Dinas Pendidikan Propinsi NAD
Iskandar 0080110913
- Perancangan dan Implementasi Sistem Informasi Gaji Pegawai pada Dinas Pendidikan Pengajaran Kabupaten Aceh Tenggara
Muhammad Fahrial 0080110920
- Membangun Server Intranet pada Jurusan Matematika Marfikar 9980110755
- Sistem Informasi Pendidikan Mental Aritmatika Adil Sempoa Mandiri (ASMA) Cabang Banda Aceh Madina 0080110901
- Sistem Informasi Arsip Persuratan Online pada Dinas Kesehatan Kota Lhokseumawe Rizky Nanda 0080110925
- Portal Informasi Dinas Infokom Provinsi Nanggroe Aceh Darussalam Syazali 9980110756
- Perancangan dan Pembuatan Sistem Informasi Rekan Medis Pada Rumah Skit PTPN 1 Langsa - Agus Suriantoro 0080110951
- Perancangan dan Pembuatan Sistem Informasi Pengelolaan Ruang Rapat PT. AAF Lhokseumawe Nasriah MD 0080110945
- Perancangan dan Pembuatan Sistem Informasi Geografi untuk Menganalisa Pemasangan baru (PSB) Telepon pada PT. Telkom Yantel Bireuen
Yuli Fitriani 0080110909
- Pembuatan Games Simetri dengan Menggunakan Macromedia Flash Mx dan Pemograman Action Script - Reza Zuneva 0080110928
- Perancangan dan Implementasi Sistem Informasi Data KIR Angkutan Darat pada Dinas Lhokseumawe - Agus Edy S 0080110962
- Simulasi & Tutorial Mata Kuliah Struktur Data dengan Menggunakan Animasi & Action Script M. Yudistira 0080110928
- Pembuatan Sistem Informasi Pemesanan Kamar Hotel Online pada Sultan Hotel Banda Aceh Marliani 9980110781
- Perancangan Updating Lulusan Untuk Pengelolaan Diri dalam Program Studi di Jurusan Fisika FMIPA Unsyiah
Desrika Mardina 0080110922
- Desaign Dan Implementasi Sistem Informasi Geografis Untuk Warnet Dan Wartel di Banda Aceh Budi 0180110004
- Sistem Informasi Asuransi Pada PT. Taspen (Persero) Cabang Banda Aceh Mursal 0080110938
- Sistem Informasi Geografis Distribusi Penduduk Pada Hunian (Huntara) Dikabupaten Aceh Utara - Dewi Armayanti 0180110011
- Sistem Informasi Nilai Tukar Rupiah menggunakan Wireless Application Protocol (WAP) Nasrullah 0080110927
- Perancangan dan Pembuatan Aplikasi Data Base Bengkel Service Mobil Fachrurrazi 0080110911
- Perancangan dan Implementasi Sistem Informasi Pendataan Beasiswa Pada Bidang Kemahasiswaan Fakultas MIPA Universitas Syiah
Kuala Banda Aceh Herawati 0080110964
- Perancangan Dan Implementasi Sistem Informasi Calon Jamaah Haji Online Pada Departement Agama Nanggroe Aceh Darussalam
Isra Fahlefi 0080110934
- Perancangan Dan Pembuatan Silabus Jurusan Matematika FMIPA Unsyiah Kedalam Bentuk WEBSITE Desryza Rahayu 0080110010
- Visualisasi Dokumenter Jurusan Matematika FMIPA Unsyiah Menggunakan Macromedia Flash MX Dan Director
Linda Fatmi 0080110936
- Sistem Informasi Geografis Pendistribusian Sarana Air Minum di Kota Banda Aceh Pasca Tsunami Yanni Syahrienda 0180110054
- Perancangan dan Pembuatan DataBase Anak pada yayasan NTA (Nrtwork Untuk Tsunami Aceh) Ervina 0180110017
- Perancangan Dan Pembuatan Program Visualisasi Suara Azan Pada Microsoft Windows Lusiana 0180110031
- Data Base Pelayanan Rental Komputer pada Laboratorium Jurusan Matematika Riza Fadhli 0180110045
- Desai dan Implementasi Sistem Aplikasi Try Out Iwan Ganda Syah P 0180110904
- Aplikasi Transaksi Stok Barang dengan menggunakan Borland Delphi Pada CV. Intat Beurata Banda Aceh Ridwansyah 0180110907
- Sekuriti Star Up Windows 98, 2000, ME Syauqi Ridha 0180110954
- Program Pembagian Dan perhitungan Harta Warisan Online Berdasarkan Konsep Figh Mawaris Figh Faraidh Fitriani 0180110949
- Sistem Informasi Geografis Distribusi Sekolah dasar dikota Banda Aceh Nova Risnawaty 0180110038
- Sistem Informasi Geografis Tempat Pelayanan Kesehatan DiKota Banda Aceh Ida Hervianti 0180110026
- Sistem Pelayanan Terpadu Perpustakaan Mesjid Raya Baiturrahman Nanggroe Aceh Darussalam Nurmilawati 080110947
- Sistem Informasi Inventori Barang Elektronik Pada Jurusan Matematika FMIPA Unsyiah Cut Aldila D. A0080110948
- Sistem Informasi Kepustakaan Dengan Aplikasi Barcode Scanner Pada Pustaka JurusanFMIPA Unsyiah Cut Khairiannur I.S 0180110005
- Perancangan dan Pembuatan Program Registry Moduler Pada Microsoft Windows Susanti 0180110047
- Perancangan dan Pembuatan Sistem Informasi Pelelangan Online Juliansyah980110778
- Gangguan Distribusi Pelanggan Pada PT. PLN (Pwesero) Wil. II Cabang Medan Emmayanti Melyyani S.0080110945
- Perancangan Dan Pembuatan Program Untuk Mengganti Wallpaper Pada Mirosoft Windows Nurainun 0180110039
- Sistem Informasi Astrologi dan Karakter Warna Dengan Menggunakan Wireless Application Protocol (WAP) dan Wireless Mark Up
Language (WML) Rina Dwi Rahmika 0280110037
- Kajian E-Learning Gratis Untuk Pendidikan Teknologi Informasi Di Indonesia Riesna Safira 0280110036
- Analisis Tingkat Keamanan Personal Computer (PC) yang telah dikoneksikan ke jaringan Internet
Sri Mawarni 0280110044
- Sistem Informasi Perancangan dan Implementasi Pelumas dan Saringan Novi Kurnita 0280110031
- Automasi Sistem Penjualan SparePart PT. Capella Dinamika Nusantara David Saqul Munir 0080110917
- Pembuatan program Aplikasi E-Media Player dengan Visual Basic 6.0 Fajri Budianto 0180110021
- Sistem Infromasi Tiket Bus Pada CV. Laris Medan Irda Istiqamah 0180110029
- Sistem Informasi Biaya Pendidikan pada Pondok Pasantren Babun Najah Idawati 0180110027
- Perancangan & Pembuatan Sistem Infromasi Korban Gempa Bumi & Tsunami Online
di Nanggroe Aceh Darussalam Ramadhani 0180110042
- Pembuatan Program Anti Spyware pada Microsoft Windows Zulviyana 0180110056
- Perancangan Pembuatan Aplikasi Web E- Commerce Penjualan Perihal Komputer Dewi Sri Untari 0180110013
- Perancangan dan pembuatan Sistem Informasi Pendataan Pengungsi Korban Tsunami dengan Johansyah
Microsoft Visual Foxpro 6.0 0080110039
- Artifian Intelence pada Honey Moon TWK. Iqbal 0280110051
- Perancangan & Implementasi Sistem Database TPQ Plus Mesjid Raya Baiturrahman Henita R. 0080110916
- Perancangan Dan Pembuatan Sistem Informasi pada Pustaka Diklat Propinsi Nanggroe Aceh Darussalam
Edi Surahman 9980110749
- Sistem Database Kredit Sepmor Honda PT. Capella Dinamik Nusantara Hermansyah 0080110905
- Analisis Karakteristik Pencarian Daomin Atau URL pada Search Engine Google Zahratul Aini 0280110056
- Sistem Informasi Sertifikat Hak Milik Tanah pada Kantor Pertanahan Langsa Mardianty 0080110939
- Sistem Informasi Inventaris Barang pada SMUN 3 Banda Aceh Ira Nosita 0380110016
- Aplikasi Database Sistem Informasi Akademik dengan menggunakan Visual Basic pada SMUN3 Banda Aceh Elvira 0380110008
- Aplikasi Sistem Informasi Geografis (GIS) Unit BRI di wilayah Timur NAD Zulhadianayu 0280110059
- Desain Antena Dipole 1/2 dengan Elemen Direktor Berupa Kaleng Silindris untuk komunikasi Local Emilda Zahrina
Area Network 0280110006
- Aplikasi Sistem Informasi Geografis (SIG) untuk pemetaan persebaran Tempat Ibadah Wilayah Banda Aceh & Aceh Besar
Mellya Mirta 0280110022
- Persebaran Penerimaan Prothese di Kabupataen Pidie dengan Menggunakan GIS Nurlaina 0280110033
- Transformasi Data Transaksi Database Usyiah Ke Format Aplikasi DIKTI Evaluasi Program Studi T. Arfan Bawadi 0380110041
- Transformasi Data Master Database Usyiah Ke Format Aplikasi DIKTI Evaluasi Program Studi Rully 0380110038

Mari yang belum selesai TA, ikuti jejak abang2 n kakak2 mu ini...
Good luck...

Jawaban SOAL 3 (Agus Susanto Hrp)

Kasus : Link kan Kasus nya ke Page  Kasus Winsock.

listing client
Dim ipserver As String
Dim xpakai As String
Dim xdata1() As String
Dim xdata2() As String
Dim xpesan As String
Dim xkirim As String
Dim user As String

Private Sub Command1_Click()
WS.SendData "START-" & user & "-ILHAM REZEKI"
ipserver = "127.0.0.1"
ipclient = WS.LocalIP
WS.Connect ipserver, 3000
End Sub


Private Sub Command2_Click()
WS.SendData "STOP" & user
End Sub


Private Sub Form_Load()
Me.Caption = "CLIENT IP: " & WS.LocalIP
ipserver = "192.168.11.1"
user = WS.LocalIP
WS.Connect ipserver, 3000
End Sub






Private Sub ws_connectionrequest(ByVal requestid As Long)
WS.Close
WS.Accept requestid
Me.Caption = "server - client" & WS.RemoteHostIP & "connect"
End Sub


Private Sub ws_dataarrival(ByVal bytestotal As Long)
WS.GetData xkirim, vbString, bytestotal
Call checkdata
End Sub


Sub checkdata()
xdata1 = Split(xkirim, "-")
xdata2 = Split(xdata1(1), "/")


Select Case xdata1(0)
Case "PAKAI"
pakai.Value = xdata2(0)
End Select
End Sub
listing server
listing program server
Dim ClientIndex As Byte
Dim cRequest As Integer
Dim cData As String
Dim i As Integer
Dim iGD As Integer

Sub MulaiServer()
WS(0).LocalPort = 3000
WS(0).Listen
cRequest = 1
ClientIndex = 1
End Sub

Private Sub Form_Load()
MulaiServer
GD.Rows = 41
For i = 1 To 40
GD.Col = 0
GD.Row = i
GD.Text = i
Next i
iGD = 1
End Sub
Private Sub Timer1_Timer()
For i = 1 To GD.Rows – 1
GD.Row = i
GD.Col = 4
If GD.Text = “START” Then
GD.Col = 3
GD.Text = Time
End If
Next i
End Sub

Private Sub WS_ConnectionRequest(index As Integer, ByVal requestID As Long)
Load WS(cRequest)
WS(cRequest).Close
WS(cRequest).Accept requestID
cRequest = cRequest + 1 ‘
End Sub

Private Sub WS_DataArrival(index As Integer, ByVal bytesTotal As Long)
WS(index).GetData cData, vbString, bytesTotal
Call CekData(index)
End Sub

Sub CekData(index)
On Error Resume Next
Dim kata() As String
kata = Split(cData, “-”)
Select Case kata(0)
Case “START”
GD.Row = iGD
GD.Col = 1
GD.Text = kata(1) ‘WS(index).RemoteHostIP
GD.Col = 2
GD.Text = Time
GD.Col = 4
GD.Text = “START”
GD.Col = 5
GD.Text = kata(2)
iGD = iGD + 1
Case “STOP”
For i = 1 To GD.Rows – 1
GD.Row = i
GD.Col = 1
If GD.Text = kata(1) Then
GD.Col = 4
GD.Text = “STOP”
End If
Next i
End Select
End Sub
Private Sub WS_Error(index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
WS(index).Close
End Sub

Jawaban SOAL 2 (Agus Susanto Hrp)

Kasus : Link kan Kasus nya ke Page ini  Soal QuiZ

Modul.server
Public Db As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Rs2 As New ADODB.Recordset
Public SQL As String

Sub OPENDB()
If Db.State = adStateOpen Then Db.Close
Db.CursorLocation = adUseClient
Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\putra Server\db1.mdb;Persist Security Info=False"
End Sub

Sub clearFORM(f As Form)
Dim ctl As Control
For Each ctl In f
If TypeOf ctl Is TextBox Then ctl.Text = ""
If TypeOf ctl Is ComboBox Then ctl.Text = ""
Next
End Sub
Sub center(f As Form)
f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4
End Sub
Sub RubahCMD(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)
f.CmdProses(0).Enabled = L0
f.CmdProses(1).Enabled = L1
f.CmdProses(2).Enabled = L2
f.CmdProses(3).Enabled = L3
End Sub
Listing program server
Sub hapus()
Kode.Enabled = True
clearFORM Me
Call RubahCMD(Me, True, False, False, False)
CmdProses(1).Caption = "&Simpan"
End Sub
Sub ProsesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO Barang(Kode, Nama, Harga)" & _
"values('" & Kode.Text & _
"','" & Nama.Text & _
"','" & Harga.Text & "')"
Case 1
SQL = "UPDATE Barang SET Nama='" & Nama.Text & "'," & _
" Harga = '" & Harga.Text & "' " & _
"where Kode ='" & Kode.Text & "'"
Case 2
SQL = "DELETE FROM Barang WHERE Kode='" & Kode.Text & "'"
End Select
MsgBox "Pemorosesan record Database telah Berhasil...!", vbInformation, "Data Barang"
Db.BeginTrans
Db.Execute SQL, adCmdTable
Db.CommitTrans
Call hapus
Adodc1.Refresh
Kode.SetFocus
End Sub
Sub tampilBarang()
On Error Resume Next
Kode.Text = Rs!Kode
Nama.Text = Rs!Nama
Harga.Text = Rs!Harga
End Sub

Private Sub CMDproses_click(index As Integer)
Select Case index
Case 0
Call hapus
Kode.SetFocus
Case 1
If CmdProses(1).Caption = "&Simpan" Then
Call ProsesDB(0)
Else
Call ProsesDB(1)
End If
Case 2
x = MsgBox("Yakin RECORD Barang Akan Dihapus...!", vbQuestion + vbYesNo, "Barang")
If x = vbYes Then ProsesDB 2
Call hapus
Kode.SetFocus
Case 3
Call hapus
Kode.SetFocus
Case 5
Adodc1.Refresh
Case 4
Unload Me
End Select
End Sub


Private Sub Command1_Click()
Adodc1.Refresh
End Sub

Private Sub form_load()
Call OPENDB
Call hapus
MulaiServer
End Sub
Private Sub Kode_keyPress(keyAscii As Integer)
If keyAscii = 13 Then
If Kode.Text = "" Then
MsgBox "Masukkan Kode Barang!", vbInformation, "Barang"
Kode.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM Barang WHERE Kode='" & Kode.Text & "'"
If Rs.State = adStateOpen Then Rs.Close
Rs.Open SQL, Db, adOpenDynamic, adLockBatchOptimistic
If Rs.RecordCount <> 0 Then
tampilBarang
Call RubahCMD(Me, False, True, True, True)
CmdProses(1).Caption = "&Edit"
Kode.Enabled = False
Else
x = Kode.Text
Call hapus
Kode.Text = x
Call RubahCMD(Me, False, True, False, True)
CmdProses(1).Caption = "&Simpan"
End If
Nama.SetFocus
End If
End Sub


Sub MulaiServer()
WS.LocalPort = 1000
WS.Listen
End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
WS.Close
WS.Accept requestID
Me.Caption = "Server-Client" & WS.RemoteHostIP & "Connect"

End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim xKirim As String
Dim xData1() As String
Dim xData2() As String

WS.GetData xKirim, vdString, bytesTotal
xData1 = Split(xKirim, "-")

Select Case xData1(0)
Case "SEARCH"
SQL = "SELECT*FROM Barang WHERE Kode='" & xData1(1) & "'"
If Rs.State = adStateOpen Then Rs.Close
Rs.Open SQL, Db, adOpenDynamic, adLockOptimistic
If Rs.RecordCount <> 0 Then
WS.SendData "RECORD-" & Rs!Nama & "/" & Rs!Harga
Else
WS.SendData "NOTHING-xxx"
End If
Case "INSERT"
Db.BeginTrans
Db.Execute xData1(1), adCmdTable
Db.CommitTrans
WS.SendData "INSERT-xxx"
Adodc1.Refresh
Case "UPDATE"
Db.BeginTrans
Db.Execute xData1(1), adCmdTable
Db.CommitTrans
WS.SendData "EDIT-xxx"
Adodc1.Refresh
Case "DELETE"
SQL = "Delete * from Barang " & _
"where Kode='" & xData1(1) & "'"
Db.BeginTrans
Db.Execute SQL, adCmdTable
Db.CommitTrans
Adodc1.Refresh
WS.SendData "DEL-xxx"
End Select
End Sub

Modul client
Public SQL As String

Sub ClearFORM(f As Form)
Dim ctl As Control
For Each ctl In f
If TypeOf ctl Is TextBox Then ctl.Text = ""
If TypeOf ctl Is ComboBox Then ctl.Text = ""
Next
End Sub

Sub center(f As Form)
f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4
End Sub

Sub RubahCMD(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)
f.CmdProses(0).Enabled = L0
f.CmdProses(1).Enabled = L1
f.CmdProses(2).Enabled = L2
f.CmdProses(3).Enabled = L3
End Sub

Listing program client
Dim IPServer As String

Sub Hapus()
Kode.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
CmdProses(1).Caption = "&Simpan"
End Sub

Sub ProsesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO Barang(Kode,Nama,Harga)" & _
"values('" & Kode.Text & _
"','" & Nama.Text & _
"','" & Harga.Text & "')"
Case 1
SQL = "UPDATE Barang SET Nama='" & Nama.Text & "'," & _
"Harga='" & Harga.Text & "'," & _
"where Kode='" & Kode.Text & "'"
Case 2
SQL = "DELETE FROM Barang WHERE Kode='" & Kode.Text & "'"
End Select
MsgBox "Pemprosesan RECORD Database telah berhasil...!", vbInformation, "Barang"
Call Hapus
Kode.SetFocus
End Sub

Private Sub CmdProses_Click(Index As Integer)
Select Case Index
Case 0
Call Hapus
Kode.SetFocus
Case 1
If CmdProses(1).Caption = "&Simpan" Then
SQL = "INSERT INTO Barang(Kode,Nama,Harga)" & _
"values('" & Kode.Text & _
"','" & Nama.Text & _
"','" & Harga.Text & "')"
WS.SendData "INSERT-" & SQL

Else
SQL = "UPDATE barang set " & _
"nama= '" & Nama.Text & _
"',harga='" & Harga.Text & _
"' where kode='" & Kode.Text & "'"
WS.SendData "UPDATE-" & SQL

End If
Case 2
x = MsgBox("Yakin RECORD Barang Akan Dihapus...!", vbQuestion + vbYesNo, "Barang")
If x = vbYes Then
WS.SendData "DELETE-" & Kode.Text

End If
Call Hapus
Kode.SetFocus
Case 3
Call Hapus
Kode.SetFocus
Case 4
Unload Me
End Select
End Sub

Private Sub Form_Load()
Call Hapus
MulaiKoneksi
End Sub
Private Sub Kode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Kode.Text = "" Then Exit Sub
WS.SendData "SEARCH-" & Kode.Text
End If
End Sub
Sub MulaiKoneksi()
IPServer = "127.0.0.1"
IPClient = WS.LocalIP
WS.Connect IPServer, 1000
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
DoEvents
End
End Sub
Private Sub WS_Dataarrival(ByVal bytesTotal As Long)
Dim xkrim As String
Dim xData1() As String
Dim xData2() As String

WS.GetData xkirim, vbString, bytesTotal
xData1 = Split(xkirim, "-")
Select Case xData1(0)
Case "NOTHING"
x = Kode.Text
Call Hapus
Kode.Text = x
Call RubahCMD(Me, False, True, False, True)
CmdProses(1).Caption = "&Simpan"
Nama.SetFocus
Case "RECORD"
xData2 = Split(xData1(1), "/")
Nama.Text = xData2(0)
Harga.Text = xData2(1)
Call RubahCMD(Me, False, True, True, True)
CmdProses(1).Caption = "&Edit"
Kode.Enabled = False
Nama.SetFocus
Case "DEL"
MsgBox "penghapusan data berhasil !"
Call Hapus
Case "EDIT"
MsgBox "pengeditan record berhasil !"
Call Hapus
End Select
End Sub

Listing Program Server Dosen

Sub hapus()
NIDN.Enabled = True
clearFORM Me
Call RubahCMD(Me, True, False, False, False)
CmdProses(1).Caption = "&Simpan"
End Sub
Sub ProsesDB(Log As Byte)

al,Pendidikan,Bagian,Status)" & _
"values('" & NIDN.Text & _
"','" & NAMA.Text & _
"','" & TEMPAT.Text & _
"','" & TANGGAL.Text & _
"','" & PENDIDIKAN.Text & _
"','" & BAGIAN.Text & _
"','" & STATUS.Text & "')"
Case 1
SQL = "UPDATE Dosen SET Nama='" & NAMA.Text & "'," & _
" Tempat = '" & TEMPAT.Text & "' " & _
" Tanggal = '" & TANGGAL.Text & "' " & _
" Pendidikan = '" & PENDIDIKAN.Text & "' " & _
" Bagian = '" & BAGIAN.Text & "' " & _
" Status = '" & STATUS.Text & "' " & _
"where NIDN ='" & NIDN.Text & "'"
Case 2
SQL = "DELETE FROM Dosen WHERE NIDN='" & NIDN.Text & "'"
End Select
MsgBox "Pemorosesan record Database telah Berhasil...!", vbInformation, "Data Dosen"
Db.BeginTrans
Db.Execute SQL, adCmdTable
Db.CommitTrans
Call hapus
Adodc1.Refresh
NIDN.SetFocus
End Sub
Sub tampilDosen()
On Error Resume Next
NIDN.Text = Rs!NIDN
NAMA.Text = Rs!NAMA
TEMPAT.Text = Rs!TEMPAT
TANGGAL.Text = Rs!TANGGAL
PENDIDIKAN.Text = Rs!PENDIDIKAN
BAGIAN.Text = Rs!BAGIAN
STATUS.Text = Rs!STATUS
End Sub

Private Sub CMDproses_click(index As Integer)
Select Case index
Case 0
Call hapus
NIDN.SetFocus
Case 1
If CmdProses(1).Caption = "&Simpan" Then
Call ProsesDB(0)
Else
Call ProsesDB(1)
End If
Case 2
x = MsgBox("Yakin RECORD Dosen Akan Dihapus...!", vbQuestion + vbYesNo, "Dosen")
If x = vbYes Then ProsesDB 2
Call hapus
NIDN.SetFocus
Case 3
Call hapus
NIDN.SetFocus
Case 5
Adodc1.Refresh
Case 4
Unload Me
End Select
End Sub


Private Sub Command1_Click()
Adodc1.Refresh
End Sub

Private Sub form_load()
Call OPENDB
Call hapus
MulaiServer
BAGIAN.AddItem "HRD"
BAGIAN.AddItem "Humas"
BAGIAN.AddItem "Keuangan"

PENDIDIKAN.AddItem "Diploma III"
PENDIDIKAN.AddItem "Strata I"
PENDIDIKAN.AddItem "Strata II"

STATUS.AddItem "Menikah"
STATUS.AddItem "Belum MENIKAH"
End Sub
Private Sub NIDN_keyPress(keyAscii As Integer)
If keyAscii = 13 Then
If NIDN.Text = "" Then
MsgBox "Masukkan NIDN Dosen!", vbInformation, "Dosen"
NIDN.SetFocus
If NIDN.Text = "" Then
MsgBox "NIDN Harus 6 Digit!", vbInformation, "Dosen"
NIDN.SetFocus
End If

Exit Sub
End If
SQL = "SELECT * FROM Dosen WHERE NIDN='" & NIDN.Text & "'"
If Rs.State = adStateOpen Then Rs.Close
Rs.Open SQL, Db, adOpenDynamic, adLockBatchOptimistic
If Rs.RecordCount <> 0 Then
tampilDosen
Call RubahCMD(Me, False, True, True, True)
CmdProses(1).Caption = "&Edit"
NIDN.Enabled = False
Else
x = NIDN.Text
Call hapus
NIDN.Text = x
Call RubahCMD(Me, False, True, False, True)
CmdProses(1).Caption = "&Simpan"
End If
NAMA.SetFocus
End If

End Sub
Sub MulaiServer()
WS.LocalPort = 1000
End Sub



Private Sub WS_ConnectionRequest(ByVal requestID As Long)
WS.Close
WS.Accept requestID
Me.Caption = "Server-Client" & WS.RemoteHostIP & "Connect"

End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim xKirim As String
Dim xData1() As String
Dim xData2() As String

WS.GetData xKirim, vdString, bytesTotal
xData1 = Split(xKirim, "-")

Select Case xData1(0)
Case "SEARCH"
SQL = "SELECT*FROM Dosen WHERE NIDN='" & xData1(1) & "'"
If Rs.State = adStateOpen Then Rs.Close
Rs.Open SQL, Db, adOpenDynamic, adLockOptimistic
If Rs.RecordCount <> 0 Then
WS.SendData "RECORD-" & Rs!NAMA & "/" & Rs!TEMPAT & "/" & Rs!TANGGAL
Else
WS.SendData "NOTHING-xxx"
End If
Case "INSERT"
Db.BeginTrans
Db.Execute xData1(1), adCmdTable
Db.CommitTrans
WS.SendData "INSERT-xxx"
Adodc1.Refresh
Case "UPDATE"
Db.BeginTrans
Db.Execute xData1(1), adCmdTable
Db.CommitTrans
WS.SendData "EDIT-xxx"
Adodc1.Refresh
Case "DELETE"
SQL = "Delete * from DOSEN " & _
"where NIDN='" & xData1(1) & "'"
Db.BeginTrans
Db.Execute SQL, adCmdTable
Db.CommitTrans
Adodc1.Refresh
WS.SendData "DEL-xxx"
End Select
End Sub

Listing Program Client

Dim IPServer As String

Sub hapus()
NIDN.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
CmdProses(1).Caption = "&Simpan"
End Sub
Sub ProsesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO Dosen(NIDN, Nama, Tempat,Tanggal,Pendidikan,Bagian,Status)" & _
"values('" & NIDN.Text & _
"','" & NAMA.Text & _
"','" & TEMPAT.Text & _
"','" & TANGGAL.Text & _
"','" & PENDIDIKAN.Text & _
"','" & BAGIAN.Text & _
"','" & STATUS.Text & "')"
Case 1
SQL = "UPDATE Dosen SET Nama='" & NAMA.Text & "'," & _
" Tempat = '" & TEMPAT.Text & "' " & _
" Tanggal = '" & TANGGAL.Text & "' " & _
" Pendidikan = '" & PENDIDIKAN.Text & "' " & _
" Bagian = '" & BAGIAN.Text & "' " & _
" Status = '" & STATUS.Text & "' " & _
"where NIDN ='" & NIDN.Text & "'"
Case 2
x = MsgBox("Yakin RECORD Barang Akan Dihapus...!", vbQuestion + vbYesNo, "Barang")
If x = vbYes Then
WS.SendData "DELETE-" & Kode.Text

End If
Call hapus
Kode.SetFocus
Case 3
Call hapus
Kode.SetFocus
Case 4
Unload Me
End Select
End Sub
Sub tampilDosen()
On Error Resume Next
NIDN.Text = Rs!NIDN
NAMA.Text = Rs!NAMA
TEMPAT.Text = Rs!TEMPAT
TANGGAL.Text = Rs!TANGGAL
PENDIDIKAN.Text = Rs!PENDIDIKAN
BAGIAN.Text = Rs!BAGIAN
STATUS.Text = Rs!STATUS
End Sub

Private Sub CMDproses_click(index As Integer)
Select Case index
Case 0
Call hapus
NIDN.SetFocus
Case 1
If CmdProses(1).Caption = "&Simpan" Then
Call ProsesDB(0)
Else
Call ProsesDB(1)
End If
Case 2
x = MsgBox("Yakin RECORD Dosen Akan Dihapus...!", vbQuestion + vbYesNo, "Dosen")
If x = vbYes Then ProsesDB 2
Call hapus
NIDN.SetFocus
Case 3
Call hapus
NIDN.SetFocus
Case 5
Adodc1.Refresh
Case 4
Unload Me
End Select
End Sub

Private Sub form_load()
Call hapus
MulaiKoneksi
BAGIAN.AddItem "HRD"
BAGIAN.AddItem "Humas"
BAGIAN.AddItem "Keuangan"

PENDIDIKAN.AddItem "Diploma III"
PENDIDIKAN.AddItem "Strata I"
PENDIDIKAN.AddItem "Strata II"

STATUS.AddItem "Menikah"
STATUS.AddItem "Belum MENIKAH"
End Sub
Private Sub NIDN_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If NIDN.Text = "" Then Exit Sub
WS.SendData "SEARCH-" & NIDN.Text
End If
End Sub
Sub MulaiKoneksi()
IPServer = "192.168.10.1"
IPClient = WS.LocalIP
WS.Connect IPServer, 1000
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
DoEvents
End
End Sub
Private Sub WS_Dataarrival(ByVal bytesTotal As Long)
Dim xkrim As String
Dim xData1() As String
Dim xData2() As String

WS.GetData xKirim, vbString, bytesTotal
xData1 = Split(xKirim, "-")
Select Case xData1(0)
Case "NOTHING"
x = NIDN.Text
Call hapus
NIDN.Text = x
Call RubahCMD(Me, False, True, False, True)
CmdProses(1).Caption = "&Simpan"
NAMA.SetFocus
Case "RECORD"
xData2 = Split(xData1(1), "/")
NAMA.Text = xData2(0)
TEMPAT.Text = xData2(1)
TANGGAL.Text = xData2(2)
PENDIDIKAN.Text = xData2(3)
BAGIAN.Text = xData2(4)
STATUS.Text = xData2(5)
Call RubahCMD(Me, False, True, True, True)
CmdProses(1).Caption = "&Edit"
NIDN.Enabled = False
NAMA.SetFocus
Case "DEL"
MsgBox "penghapusan data berhasil !"
Call hapus
Case "EDIT"
MsgBox "pengeditan record berhasil !"
Call hapus
End Select
End Sub