Skript Membuat Aplikasi Surat Masuk 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
     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


Previous
Next Post »