Minggu, 07 Februari 2010

Proses Aplikasi Apotek

Cara membuat Aplikasi menggunakan SQL Server dan VB 6.0:

1. masuk ke Query Analyzer dari Start Menu->Programs->Microsoft SQL Server-> Query Analizer.
2. Silahkan pilih metode authentifikasi yang digunakan, Windows Authetentication atau SQL Server Athentication
3. Kemudian pada jendela kode editor anda dapat mengetikkan perintah menggunakan sintaks berikut: CREATE DATABASE apotek;

4. Untuk mengaktifkan suatu database,SQL server menggunakan perintah dasar USE.Berikut ini sintaksnya: USE apotek;

5. Selanjutnya buatlah tabel menggunakan sintaks berikut:

CREATE TABLE DataObat(
KdObat char(5) not null,
NmObat varchar(30)null,
Jenis varchar(20)null,
Satuan varchar(15)null,
KdGol char(3)not null,
Stok smallint not null default 0,
HrgSatuan int default 0
PRIMARY KEY (KdObat))
Go

6. Eksekusi perintah SQL yang sudah diketikkan dengan menekan tombol F5 dan akan muncul:
The command(s) completed successfully.

7. Setelah itu buka Visual Basic 6.0 ,buka form baru.
8. Hubungkan DataGrid ke Adodc1
9. Klik kanan objek adodc1 > ADODC Properties
10. Pilih Use Conection String > Build











11. Pilih Microsoft OLE DB Provider form ODBC Drivers > Next
12. Pilih Use Connection String > Build











13. Klik New














14. Klik SQL Server > Next > Browse
15. Tulis nama DSN (misalnya Adodc1, perhatikan posisi direktori yang sedang aktif)
16. Klik Save
17. Klik Next > Finish
18. Isilah data berikut ini














19. Klik Finish > Test Data Source
20. Klik OK > OK
21. Klik Nama DSN yang telah dibuat
22. Klik OK > OK > OK










23. Koneksi String yang dihasilkan terlihat seperti Gambar di bawah ini


24. Klik tabulasi RecordSource
25. Klik combo Command Type
26. Pilih 2 – adCmdTable















27. Klik combo Table or Stored Procedure Name
28. Pilih tabel DataObat
29. Klik Apply > OK
30. Jika porgram dijalankan akan terlihat data hasil koneksinya seperti Gambar di bawah ini.














Jika kita perhatikan dengan baik, sebenarnya objek Adodc tersebut telah terhubung ke sebuah
Connection String dengan Provider yang hasilnya dapat dilihat seperti Gambar berikut ini.














31. Buatlah label, text dan CommandButton

label1 (caption: Kode)
label2 (caption : Nama)
label3 (caption : Jenis)
label4 (caption : Satuan)
label5 (caption : KdGol)
label6 (caption : Stok)
label7 (caption : Harga Satuan)
text1 (name : TxtKdObat Text:(kosong))
text2 (name : TxtNmObat Text:(kosong))
text3 (name : TxtJenis Text:(kosong))
text4 (name : TxtSatuan Text:(kosong))
text5 (name : TxtKdGol Text:(kosong))
text6 (name : TxtStok Text:(kosong))
text7 (name : TxtHrgSatuan Text:(kosong))
commandbutton1 (caption : Tambah, name : CmTambah)

commandbutton2 (caption : Edit, name : CmEdit)

commandbutton3 (caption : Hapus, name : CmHapus)

commandbutton4 (caption : Simpan, name : CmSimpan)

commandbutton5 (caption : Batal, name : CmBatal)

commandbutton6 (caption : Keluar, name : CmKeluar)

lihat tampilan berikut ini:














Fungsi tombol-tombol:

1. Tambah :untuk Menambah Data atau menginput data
script:

Private Sub CmTambah_Click()
Dim tmp As String, Apotek As Long
Adodc1.Recordset.MoveLast
tmp = Adodc1.Recordset.Fields(0).Value
Apotek = Val(tmp) + 1
TxtKdObat = String$((Len(tmp) - Len(Trim(Str(Apotek)))), "0") + Trim(Str(Apotek))
Adodc1.Recordset.AddNew
TxtNmObat.SetFocus
Call mati
End Sub

2. Edit : Untuk merubah data yang sudah ada
script:

Private Sub CmEdit_Click()
Adodc1.Recordset.Update
TxtKdObat.Text = Adodc1.Recordset("KdObat")
TxtNmObat.Text = Adodc1.Recordset("NmObat")
TxtJenis.Text = Adodc1.Recordset("Jenis")
TxtSatuan.Text = Adodc1.Recordset("Satuan")
TxtKdGol.Text = Adodc1.Recordset("KdGol")
TxtStok.Text = Adodc1.Recordset("Stok")
TxtHrgSatuan.Text = Adodc1.Recordset("HrgSatuan")
Adodc1.Recordset.Update
Call text_hidup
End Sub

3. Hapus : Untuk menghapus data yang sudah ada
script:

Private Sub CmHapus_Click()
x = MsgBox("Apa anda akan menghapus data ini", vbYesNo + vbQuestion, "Informasi")
If x = vbYes Then
Adodc1.Recordset.Delete
End If
End Sub

4. Simpan : Untuk menyimpan data yang ingin di Input
script:

Private Sub CmSimpan_Click()
If TxtKdObat.Text = "" Then
MsgBox "Kolom Kode Masih Kosong!!!" , vbOKOnly & vbCritical, "Perhatian"
TxtKdObat.SetFocus
ElseIf TxtNmObat.Text = "" Then
MsgBox "Kolom nama Masih Kosong!!!" , vbOKOnly & vbCritical, "Perhatian"
TxtNmObat.SetFocus
ElseIf TxtJenis.Text = "" Then
MsgBox "Kolom Jenis masih kosong!!!", vbOKOnly & vbCritical, "Perhatian"
TxtJenis.SetFocus
ElseIf TxtSatuan.Text = "" Then
MsgBox "Kolom Satuan masih kosong!!!", vbOKOnly & vbCritical, "Perhatian"
TxtSatuan.SetFocus
ElseIf TxtKdGol.Text = "" Then
MsgBox "Kolom kdGol masih Kosong!!!", vbOKOnly & vbCritical, "perhatian"
TxtKdGol.SetFocus
ElseIf TxtStok.Text = "" Then
MsgBox "kolom Stok masih kosong!!!", vbOKOnly & vbCritical, "perhatian"
TxtStok.SetFocus
ElseIf TxtHrgSatuan.Text = "" Then
MsgBox "Kolom Harga Satuan masih kosong!!!", vbOKOnly & vbCritical, "perhatian"
TxtHrgSatuan.SetFocus
Else
Adodc1.Recordset("KdObat") = TxtKdObat.Text
Adodc1.Recordset("NmObat") = TxtNmObat.Text
Adodc1.Recordset("Jenis") = TxtJenis.Text
Adodc1.Recordset("Satuan") = TxtSatuan.Text
Adodc1.Recordset("KdGol") = TxtKdGol.Text
Adodc1.Recordset("Stok") = TxtStok.Text
Adodc1.Recordset("HrgSatuan") = TxtHrgSatuan.Text
Adodc1.Recordset.Update
TxtKdObat.Text = ""
TxtNmObat.Text = ""
TxtJenis.Text = ""
TxtSatuan.Text = ""
TxtKdGol.Text = ""
TxtStok.Text = ""
TxtHrgSatuan.Text = ""
MsgBox "Data Telah disimpan dalam database!", vbInformation, "perhatian"
Call hidup
End If
End Sub

5. Batal : Untuk membatalkan tombol tambah
script:

Private Sub CmBatal_Click()
x = MsgBox("Apa anda akan membatalkan", vbYesNo + vbQuestion, "Informasi")
If x = vbYes Then
Adodc1.Recordset.CancelBatch
Call hidup
End If
End Sub

6. keluar : Untuk keluar dari aplikasi
script:

Private Sub CmKeluar_Click()
x = MsgBox("Apa anda akan keluar", vbYesNo + vbQuestion, "Informasi")
If x = vbYes Then
Unload Me
End If
End Sub

Tidak ada komentar:

Poskan Komentar