Skript Membuat Aplikasi Surat Keluar Menggunakan VB 6

Selamat malam sahabat gudang coding, gimana nih kabarnya? semoga sehat selalu ya. kali ini gudang coding kembali akan membagikan sebuah informasi mengenai cara membuat aplikasi berbasis desktop dengan menggunakan bahas pemrograman visual basic. Lebih tepatnya Membuat Aplikasi Surat Masuk Menggunakan VB 6

Surat merupakan hal yang sering kita jumpai di kehidupan sehari-hari baik di sekolah, kampus maupun tempat kerja, biasanya surat sering di edarkan dan bagi instansi atau kantor sering mendapatkan surat masuk dari bagian dalam satu instansi maupun diluar instansi. maka dari itu surat yang masuk kedalam instansi perlu dilakukan pengarsipan untuk mencatat data surat masuk dari instansi lain. dan biasanya masih menggunakan buku register dan masih manual. untuk itu pada kesempatan kali ini gudang coding ingin memberikan sebuah sript pemrograman untuk membuat aplikasi surat masuk menggunakan visual basic.Aplikasi surat ini Menggunakan Visual Basic 6 dan menggunakan database acces, tapi sahabat bisa menggantinya dengan menggunakan mysql atau yang lainnya.

Bagi sahabat gudang coding yang tertarik dengan aplikasi ini bisa sahabat download di link yang sudah disediakan, aplikasi ini juga dapat menjadi bahan untuk belajar bagi sahabat gudang coding yang ingin mendalami pemrograman berbasis android khususnya pemroraman android. untuk tampilannya bisa sahabat lihat pada gambar dibawah ini :

Untuk Sriptnya bisa sahabat gudang coding lihat di bawah ini

CODING : Private Sub CmdCari_Click() Adodc1.Recordset.Find "No_Urut ='" + TxtCari.Text + "'", , adSearchForward, 1 If Not Adodc1.Recordset.EOF Then TxtNoUrut.Text = Adodc1.Recordset!No_Urut TxtNoSurat.Text = Adodc1.Recordset!No_Surat DTPicker1.Value = Adodc1.Recordset!Tanggal_Surat TxtAlamatTujuan.Text = Adodc1.Recordset!Alamat_Tujuan TxtPerihal.Text = Adodc1.Recordset!Perihal TxtKet.Text = Adodc1.Recordset!Keterangan Adodc1.Refresh Else MsgBox "Maaf, Data Tidak Ditemukan!" End If End Sub Private Function TidakSiapIsi() TxtNoUrut.Text = "" TxtNoSurat.Text = "" TxtPerihal.Enabled = False TxtAlamatTujuan.Enabled = False DTPicker1.Enabled = False TxtKet.Enabled = False CmdBatal.Enabled = False End Function Private Function SiapIsi() TxtPerihal.Enabled = True TxtAlamatTujuan.Enabled = True DTPicker1.Enabled = True TxtNoSurat.Enabled = True TxtKet.Enabled = True DTPicker2.Enabled = True End Function Private Sub cmdBatal_Click() TxtNoSurat.Text = "" TxtAlamatTujuan.Text = "" TxtPerihal.Text = "" TxtKet.Text = "" TxtNoSurat.Enabled = True TidakSiapIsi DTPicker1.Enabled = True CmdBatal.Enabled = True CmdEdit.Enabled = True 'merubah title tombol Edit CmdEdit.Caption = "Edit" End Sub 'prosedure ketika tombol edit di klik Private Sub CmdEdit_Click() If CmdEdit.Caption = "Edit" Then 'merubah title EDIT menjadi UPDATE CmdEdit.Caption = "Update" Call TxtKeadaan(True) TxtNoUrut.SetFocus Else 'proses penggantian data/penyimpanan surat keluar With Adodc1.Recordset .Fields("No_Surat") = Me.TxtNoSurat.Text .Fields("Tanggal_Surat") = Me.DTPicker1.Value .Fields("Alamat_Tujuan") = Me.TxtAlamatTujuan.Text .Fields("Perihal") = Me.TxtPerihal.Text .Fields("Keterangan") = Me.TxtKet.Text .Update End With MsgBox "Data telah di UpDate!", vbInformation + vbOKOnly = vbIgnore Call cmdBatal_Click DataGrid1.Refresh End If End Sub Private Sub CmdHapus_Click() If MsgBox("Anda Yakin Akan Menghapus Data????????", vbQuestion + vbOKCancel, "konfirmasi") = vbOK Then Adodc1.Recordset.Delete Me.DataGrid1.Refresh CmdHapus.Enabled = True End If End Sub Private Sub CmdSimpan_Click() Adodc1.Recordset.Find "No_Urut='" + TxtNoUrut.Text + "'", , adSearchForward, 1 If Not Adodc1.Recordset.EOF Then MsgBox ("Nomer Ini " + TxtNoUrut.Text + Chr(13) + "Sudah Ada !") TxtNoUrut.Text = "" TxtNoUrut.SetFocus Else If DTPicker1 = "" Or TxtNoUrut = "" Or TxtNoSurat = "" Or TxtAlamatTujuan = "" Or TxtPerihal = "" Or TxtKet = "" Then MsgBox "Isi data anda dengan lengkap dan benar!!!" Else a = MsgBox("Apakah anda ingin menyimpan data?? ", vbQuestion + vbYesNo, "Input Surat Keluar") If a = vbYes Then With Adodc1.Recordset .AddNew Adodc1.Recordset.Fields("No_Urut") = Me.TxtNoUrut.Text Adodc1.Recordset.Fields("No_Surat") = Me.TxtNoSurat.Text Adodc1.Recordset.Fields("Tanggal_Surat") = Me.DTPicker1.Value Adodc1.Recordset.Fields("Alamat_Tujuan") = Me.TxtAlamatTujuan.Text Adodc1.Recordset.Fields("Perihal") = Me.TxtPerihal.Text Adodc1.Recordset.Fields("Keterangan") = Me.TxtKet.Text End With MsgBox "Data Berhasil Disimpan....!!", vbOKOnly + vbInformation, "Konfirmasi" Me.DataGrid1.Refresh End If End If End If Exit Sub End Sub Private Sub CmdTambah_Click() Adodc1.Recordset.AddNew TxtNoUrut.Text = "" TxtKet.Text = "" TxtNoSurat.Text = "" TxtAlamatTujuan.Text = "" TxtPerihal.Text = "" Adodc1.Refresh Call TxtKeadaan(True) TxtNoUrut.SetFocus CmdSimpan.Enabled = True Adodc1.Refresh End Sub Sub RefreshTampilan() Call Konek Adodc1.ConnectionString = StrConnect Adodc1.RecordSource = "SELECT * FROM DatabaseSuratKeluar" Adodc1.Refresh Label1.Caption = "No : " & Adodc1.Recordset.RecordCount Set DataGrid1.DataSource = Adodc1 End Sub Sub TxtKeadaan(stat As Boolean) TxtNoUrut.Enabled = stat TxtNoSurat.Enabled = stat TxtAlamatTujuan.Enabled = stat TxtPerihal.Enabled = stat TxtKet.Enabled = stat End Sub Private Sub CmdTutup_Click() Unload Me End Sub Private Sub DataGrid1_Click() TxtNoUrut.Text = Adodc1.Recordset!No_Urut TxtNoSurat.Text = Adodc1.Recordset!No_Surat DTPicker1.Value = Adodc1.Recordset!Tanggal_Surat TxtAlamatTujuan.Text = Adodc1.Recordset!Alamat_Tujuan TxtPerihal.Text = Adodc1.Recordset!Perihal TxtKet.Text = Adodc1.Recordset!Keterangan End Sub Private Sub Form_Load() Call TxtKeadaan(False) CmdSimpan.Enabled = False TxtNoUrut.TabIndex = 0 End Sub

Untuk Databasenya seperti berikut :

Diatas Merupakan Script untuk membuat login dengan Visual Basic, sahabat gudang coding dapat menggunakannya dan selamat mencoba. terimakasih atas kunjungannnya
Untuk File Scriptnya bisa sahabat Download dibawah ini
Download