Satu Tahun Di Tulungagung

Tidak terasa sudah satu tahun saya bertugas di Tulungagung. Mengerjakan implementasi proyek yang tak kunjung selesai yang awalnya ditarget oleh kantor 2 bulan sudah harus beres :D. Ada beberapa hal yang membuat saya betah berada disini.

Fill Data To a Different Table Database

Sometimes we have to be able to fill the data in a different database tables. For example, the data in the table in the database that is now being used accidentally deleted, this is one of the terrible things that could happen to a programmer, to overcome it we can use the database backup to restore the data, although not all data can be restored , but a minimum of 90% or 95% of the data can be restored if we have a database backup, but otherwise it would be difficult to overcome, or even can not be at all: D. 

To fill the data in different tables database in Sql Server 2008, code is essentially as follows: 

Insert Into [database name]. [Dbo]. [Table Name] 
Select * From [database name]. [Dbo]. [ The table name] 

Example: 
Insert Into RunningDatabase.dbo.Patient 
Select * From BackupDatabase.dbo.Patient

How To Execute a Stored Procedure in Sql Server 2008

Sometimes there are moments when we have to reexecute a Stored Procedure in SQL Server, for example due to an error on the line before the Stored Procedure executed that causes the data that should be inserted through the Stored Procedure be entered. Let's say this happened in the case which led to the registration module registration fails. One way to do this is by executing back Stored Procedure that have not been executed, but of course before must be identified first Stored Procedures are not being executed. The easiest way to execute a Stored Procedure is to use strored Execute feature in SQL Server Management Studio.

1. Right-click in the Object Explorer, select Execute Stored Procedure

2. Fill in the value for each parameter.

3. Click OK, SQL Server Management stuido will immediately generate the code to execute Stored Procedures complete with pre-loaded parameter value already filled out before us and the code will be directly executed

Implementasi SIMRS di RSUD Tulungagung

Assalamualaikum

Pada postingan kali ini penulis ingin berbagi foto-foto ketika penulis melakukan implementasi SIMRS modul Pendaftaran Rawat Jalan plus Bridging BPJS di RSUD Tulungagung pada hari kedua. Berikut foto-fotonya.

SQL Server 2008 Membuat Query Update Menggunakan Query Designer

SQL Server 2008 memiliki fitur Query Designer, fitur ini digunakan untuk membuat query secara visual. Dengan menggunakan fitur ini pembuatan sebuah query akan lebih mudah dan lebih cepat. Pada tulisan kali ini penulis akan memberikan contoh bagaimana membuat sebuah query update menggunakan Query Designer. Query yang akan penulis buat adalah query untuk melakukan update pada sebuah tabel yang mana value updatenya diambil dari tabel lain. Pada contoh ini tabel yang akan diupdate adalah tabel Pasien dan value updatenya diambil dari tabel tbPasien. Field yang akan diupdate pada tabel Pasien adalah NoIdentitas dan Field sumber value dari tabel tbPasien adalah cNoKTPSIM. Berikut langkah-langkahnya.

1. Klik kanan pada query editor, pilih Query Designer.

2. Pada window Add Table, pilih tabel yang akan diupdate dan tabel yang menjadi sumber valuenya

3. Hubungkan primary key kedua tabel tersebut, kemudian klik kanan pada area yang kosong, kemudian pilih Change Type->Update

4. Pada window update table pilih tabel yang akan diupdate valuenya

5. Kemudian centang field NoIdentitas pada tabel Pasien, kemudian ketik pada kolom New Value dengan cNoKTPSIM

6. Klik OK. Setelah itu akan muncul query update di query editor

Kenapa saya sangat suka komputer?

Saya tidak begitu yakin kenapa saya sangat suka komputer. Tapi sejak kecil saya sudah tertarik dengan hal-hal yang berbau teknologi, apalagi dengan komputer. Setiap kali ada iklan mengenai komputer, setiap menonton film yang berbau teknologi terutama yanga ada hubungannya dengan komputer saya merasa sangat tertarik. Ada perasaan yang berbeda ketika saya melihat komputer. Sepertinya saya sudah jatuh cinta dengan komputer sejak kecil. Tapi saya tidak tahu alasannya kenapa saya bisa suka dengan komputer.

Ketika kelas 6 saya diminta ayah saya untuk kursus bahasa inggris. Saya sempat menolak karena saya inginnya kursus komputer. Tapi orangtua saya berhasil membujuk saya, kata mereka, "Komputer itu didalamnya pake bahasa inggris, kalau kamu ingin bisa komputer kamu harus bisa bahasa inggris dulu". Akhirnya saya mau untuk kursus bahasa inggris terlebih dahulu. Kebetulan di tempat kursus saya selain ada kursus bahasa inggris juga ada kursus komputer. Setiap kali istirahat saya selalu melihat di jendela menonton orang-orang yang kursus komputer, sambil membayangkan saya berada di posisi mereka, memegang benda yang sangat saya sukai, walaupun hanya menghayal tapi itu sangat menyenangkan. Setiap kali pulang kursus, saya selalu merengek minta dibelikan komputer ke Ibu saya, tapi pada waktu itu harga komputer masih mahal, dan ibu saya masih belum bisa membelikannya.

Menjelang lulus SMP saya sempat bingung apakah mau melanjutkan ke SMA atau SMK. Kalau saya inginnya masuk SMK, agar belajarnya bisa fokus pada satu kemampuan, karena SMK memang ditujukan utnuk mendidik siswanya agar punya kemampuan khusus di bidang tertentu, tidak seperti SMA, yang walaupun sudah ada pembagian seperti Jurusan IPS, IPA, Bahasa dan lain-lain, tapi itu masih "Ngambang". Akhirnya Ayah saya memasukkan saya ke SMKN 4 Bandung, saat masuk SMK ini lah saya pertama kali dibelikan komputer oleh orangtua saya, walaupun komputer bekas, tapi saya sangat bahagia. Saya masuk jurusan Rekayasa Perangkat Lunak. Saya mulai tahu bahwa dunia komputer itu sangat luas. Di SMKN 4 ini lah saya mulai belajar yang namanya bahasa pemrograman untuk membuat program komputer. 4 tahun saya sekolah di SMKN 4 Bandung, tapi saya masih bingung kenapa saya bisa sangat suka dengan komputer.

Setelah lulus dari SMKN 4 Bandung, saya tidak langsung kuliah karena tidak punya biaya untuk kuliah. Saya menganggur dulu satu tahun, setelah itu saya masuk Universitas Bale Bandung(UNIBBA) jurusan Teknik Informatika, saya kuliah 4 tahun disini dan masih tetap belum menemukan jawaban kenapa saya suka dengan komputer. Setelah lulus dari SMKN 4 bandung, saya langsung melamar kerja, setelah melamar ke beberapa tempat akhinya saya diterima di Jasamedika Saranatama sebagai Programmer VB 6.0, ketika wawancara terakhir orang yg mewawancarai saya menanyakan kepada saya kenapa saya menyukai komputer, dan lagi-lagi saya tidak bisa menjawabnya.

Pada waktu hampir satu tahun bekerja di Jasamedika, saya menemukan semacam kesenangan ketika membuat sebuah program, lebih tepatnya saat melakukan debugging, rasanya seperti menjadi detektif, mencari siapa tersangka pembunuhan dan memecahkan kasus. Hal itu benar-benar menyenangkan karena saya juga selain suka komputer sangat suka dengan teka-teki dan memecahkan misteri, teka-teki dan misteri selalu membuat saya tertantang untuk memecahkannya. Setelah menyadari itu, ketika ditanya kenapa suka dengan komputer saya akan menjawab, karena dengan komputer saya bisa membuat program komputer, dan dalam proses membuat program tersebut, banyak sekali teka-teki dan misteri yang harus dipecahkan.

VB 6.0, Split

Split digunakan untuk memisahkan string berdasarkan tanda pemisah yang telah ditentukan. String-string yang dipisahkan, masing-masing disimpan dalam suatu elemen array, banyaknya elemen array yang dihasilkan tergantung berapa banyak string yang dipisahkan. Contoh penggunaan split

Dim arrTmp() As String
Dim i As Integer

Private Sub Command1_Click()
    Label1.Caption = ""

    arrTmp = Split(Text1.Text, ";") 'Tanda titik koma digunakan sebagai tanda untuk memisahkan string

    For i = LBound(arrTmp) To UBound(arrTmp)
        Label1.Caption = Label1.Caption & "" & arrTmp(i) & vbCrLf
    Next i
    
End Sub