Mengenal Database. Membuat Program Nomer Antrian

 

 

Ini adalah artikel Mudah Belajar VB pertama yg membahas pembuatan program menggunakan database.
Database dalah kumpulan informasi yang disimpan di dalam komputer secara sistematik sehingga dapat diperiksa menggunakan suatu program komputer untuk memperoleh informasi dari basis data tersebut.
Dalam pemrograman Visual Basic., terdapat 2 database yg banyak digunakan. yang pertama adalah Microsoft Accsess (Visi Data Manager) dan yg kedua adalah MySQL.

Program Nomor Antrian

Yuks kita mulai…

disini kita akan membuat Program No Antrian menggunakan Ms. Acces sebagai databasenya.
Sebelum membuat form., ada baiknya kita membuat databasenya terlebih dahulu., dengan cara:
Buka VB., pada menu, pilih Add-Ins lalu Klik Visual Data Manager… maka akan keluar jendela VisiData.

Pilih Add Ins

Pada menu., pilih File-New-Microsoft Accsess-Version 7.0 MDB…
Isi nama database., no_antrian lalu klik save.

Pilih Ms Access 7.0

Pada Database Windows., klik kanan Properties., lalu pilih newtable. isi tabel name dengan nama antrian & Add Field lalu beri nama no_antrian. Type : Single, size:4. Klik OK lalu Klik Build the Table.

Tabel No Antrian

Kita sudah membuat sebuah database yg bernama no_antrian.mdb, dan dalam database tersebut terdapat satu tabel yg bernama antrian., sedangkan didalam tabel tersebut terdapat 1 field dengan nama no_antrian.
Mudah bukan???
Setelah database telah dibuat., langkah selanjutnya adalah membuat form tampilan seperti gambar dibawah ini: (beri nama no_antrian)

Form No Antrian

4 Label :  Label1 (Header), Label2 (Tanggal), Label3 (Jam), Label4 (label4)
3 Command : command1 (Cetak No Antrian), command2 (reset), command3 (close)
1 Frame : Frame1 (No Antrian Selanjutnya)
1 Data : dtantrian (beri di nama n captionnya jg)
Langkah selanjutnya adalah MENGKONEKSIKAN KE DATABASE.
pada data (dtantrian)., lihat properties., cari DatabaseName dan pilih nama database yang tadi telah dibuat (no_antrian). lalu cari Recordsource., dan pilih tabel antrian. Recordsource adalah penghubung yang menentukan tabel yg ada di dalam database yg sebelumnya telah kita pilih pada DatabaseName. jika telah selesai., maka form tampilan (vb) sudah terhubung pada database yang telah kita buat sebelumnya.
Lalu., masukkan/ketik listing dibawah ini:
—————————————————————-
Private Sub Form_Activate()
Text1 = Date
Text2 = Time
dtantrian.Recordset.MoveLast
Label4 = 1
Label4 = dtantrian.Recordset!no_antrian + 1
End Sub
Private Sub Command1_Click() ‘cetak
dtantrian.Recordset.AddNew
dtantrian.Recordset!no_antrian = Label4
dtantrian.Recordset.Update
cetak
dtantrian.Refresh
dtantrian.Recordset.MoveLast
Label4 = dtantrian.Recordset!no_antrian + 1
End Sub
Private Sub Command2_Click() ‘reset
If Not dtantrian.Recordset.RecordCount = 0 Then
dtantrian.Recordset.MoveFirst
Do While Not dtantrian.Recordset.EOF
dtantrian.Recordset.Delete
dtantrian.Recordset.MoveNext
Loop
dtantrian.Recordset.AddNew
dtantrian.Recordset!no_antrian = 0
dtantrian.Recordset.Update
dtantrian.Refresh Label4 = 1
MsgBox “Data Telah TerRESET”, vbInformation + vbOKOnly, “PESAN”
End If
End Sub
Private Sub Command3_Click() ‘keluar
End
End Sub
Sub cetak()
On Error Resume Next
Dim grs As String
Load struk
form_cetak.Show
form_cetak.FontName = “Times New Roman”
form_cetak.FontSize = 8
form_cetak.FontBold = True
form_cetak.Print
form_cetak.Print Tab(18); “STRUK ANTRIAN”
form_cetak.Print Tab(23); “PT. XYZ”
form_cetak.Print Tab(5); Me.Text1; ; Tab(40); Me.Text2;
form_cetak.FontBold = True grs = String$(39, “=”)
form_cetak.Print Tab(5); grs;
form_cetak.Print
form_cetak.FontSize = 35
form_cetak.Print Tab(7); Me.Label4;
form_cetak.Print
form_cetak.FontSize = 8
form_cetak.FontBold = True
form_cetak.Print Tab(5); grs;
form_cetak.Print
form_cetak.Print
form_cetak.Print Tab(12); “Bawa Struk Ini Saat Dipanggil.”
End Sub
—————————————————————-
Selanjutnya., buat form cetak (form ke 2) seperti gambar dibawah ini:

Form Cetak Antrian

Buat garis seperti gambar di atas (4 line) dan pastikan background gambar berwana putih, dan dengan dimensi height:3165 dan width:4215.
Lalu., masukkan/ketik listing dibawah ini:
—————————————————————-
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Unload Me
MsgBox “Listing Print Belum Tersedia., Hub Mudahbelajarvb”, vbInformation + vbOKOnly, “PESAN”
Else
If KeyAscii = 27 Then
MsgBox “Struk Tidak DiCetak.”, vbInformation + vbOKOnly, “PESAN”
Unload Me
End If
End If
End Sub
—————————————————————-
Selamat mencoba…