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
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
DTPicker1.Value = Adodc1.Recordset!Tanggal_Terima_Surat
TxtNoSurat.Text = Adodc1.Recordset!No_Surat
DTPicker2.Value = Adodc1.Recordset!Tanggal_Surat
TxtAlamatPengirim.Text = Adodc1.Recordset!Alamat_Pengirim
TxtPerihal.Text = Adodc1.Recordset!Perihal
TxtTujuan.Text = Adodc1.Recordset!Tujuan
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
End If
End Sub
Private Function TidakSiapIsi()
TxtNoUrut.Text = ""
TxtNoSurat.Text = ""
TxtPerihal.Enabled = False
TxtAlamatPengirim.Enabled = False
DTPicker1.Enabled = False
TxtNoSurat.Enabled = False
TxtTujuan.Enabled = False
DTPicker2.Enabled = False
CmdBatal.Enabled = False
End Function
Private Function SiapIsi()
TxtPerihal.Enabled = True
TxtAlamatPengirim.Enabled = True
DTPicker1.Enabled = True
TxtNoSurat.Enabled = True
TxtTujuan.Enabled = True
DTPicker2.Enabled = True
End Function
Private Sub cmdBatal_Click()
TxtNoSurat.Text = ""
TxtAlamatPengirim = ""
TxtPerihal = ""
TxtTujuan = " "
TxtNoSurat.Enabled = True
TidakSiapIsi
DTPicker1.Enabled = True
DTPicker2.Enabled = True
CmdBatal.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 masuk
With Adodc1.Recordset
.Fields("No_Surat") = Me.TxtNoSurat.Text
.Fields("Tanggal_Terima_surat") = Me.DTPicker2.Value
.Fields("Tanggal_Surat") = Me.DTPicker1.Value
.Fields("Alamat_Pengirim") = Me.TxtAlamatPengirim.Text
.Fields("Perihal") = Me.TxtPerihal.Text
.Fields("Tujuan") = Me.TxtTujuan.Text
.Update
End With
MsgBox "Data telah di UpDate!", vbInformation + vbOKOnly = vbIgnore
Call cmdBatal_Click
DataGrid1.Refresh
CmdSimpan.Enabled = False
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 DTPicker2 = "" Or TxtNoUrut = "" Or TxtNoSurat = "" Or TxtAlamatPengirim = "" Or TxtPerihal = "" Or TxtTujuan = "" Then
MsgBox "Isi data anda dengan lengkap dan benar!!!"
Else
a = MsgBox("Apakah anda ingin menyimpan data?? ", vbQuestion + vbYesNo, "Input Surat Masuk")
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_Terima_surat") = Me.DTPicker2.Value
Adodc1.Recordset.Fields("Tanggal_Surat") = Me.DTPicker1.Value
Adodc1.Recordset.Fields("Alamat_Pengirim") = Me.TxtAlamatPengirim.Text
Adodc1.Recordset.Fields("Perihal") = Me.TxtPerihal.Text
Adodc1.Recordset.Fields("Tujuan") = Me.TxtTujuan.Text
MsgBox "Data Berhasil Disimpan....!!", vbOKOnly + vbInformation, "Konfirmasi"
DataGrid1.Refresh
End With
End If
End If
End If
Exit Sub
End Sub
Private Sub CmdTambah_Click()
Adodc1.Recordset.AddNew
TxtNoUrut.Text = ""
TxtTujuan.Text = ""
TxtNoSurat.Text = ""
TxtAlamatPengirim.Text = ""
TxtPerihal.Text = ""
Call TxtKeadaan(True)
TxtNoUrut.SetFocus
CmdSimpan.Enabled = True
Adodc1.Refresh
End Sub
Sub RefreshTampilan()
Call Konek
Adodc1.ConnectionString = StrConnect
Adodc1.RecordSource = "SELECT * FROM DatabaseSuratMasuk"
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
TxtAlamatPengirim.Enabled = stat
TxtPerihal.Enabled = stat
TxtTujuan.Enabled = stat
End Sub
Private Sub CmdTutup_Click()
Unload Me
End Sub
Private Sub DataGrid1_Click()
TxtNoUrut.Text = Adodc1.Recordset!No_Urut
DTPicker1.Value = Adodc1.Recordset!Tanggal_Terima_Surat
TxtNoSurat.Text = Adodc1.Recordset!No_Surat
DTPicker2.Value = Adodc1.Recordset!Tanggal_Surat
TxtAlamatPengirim.Text = Adodc1.Recordset!Alamat_Pengirim
TxtPerihal.Text = Adodc1.Recordset!Perihal
TxtTujuan.Text = Adodc1.Recordset!Tujuan
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
Untuk File Scriptnya bisa sahabat Download dibawah ini
Download