Febry Risdianto

Jumat, 02 Desember 2011

Program Penjualan

assalammualaikum gan,,
saya dapet aspirasi setelah saya menunggu warung usaha ortu saya,,saya berkinginan membuatkan program penjualan,,wlaupn sederhana tp mudah2an berguna,,dan bagi yg bsa memperbagus bagi2 yh ilmu.a ^_^
langsung ajh saya kasih gambaran dan coding.n,,disini cuma ad 2 from yg pertama untuk barang dsna kita mnginput data2 /barng2 yg ingin kita jual dah d from penjualan untuk barang apa yg d sudah d jual,,

nie coding.a gan
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!kode = Text1.Text
Adodc1.Recordset!nama_barang = Text2.Text
Adodc1.Recordset!harga_barang = Text3.Text
Adodc1.Recordset!untung = Text4.Text

Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.Find "nama_barang='" + Text5.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
Text1.Text = Adodc1.Recordset!kode
Text2.Text = Adodc1.Recordset!nama_barang
Text3.Text = Adodc1.Recordset!harga_barang
Text4.Text = Adodc1.Recordset!untung
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
End If
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Delete
Adodc1.Refresh
End Sub

dan ini from yg ke 2 dan gambarnya

nie coding.a gan
Private Sub Command1_Click()
Adodc1.Recordset.Find "nama_barang='" + Text5.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
Text1.Text = Adodc1.Recordset!kode
Text2.Text = Adodc1.Recordset!nama_barang
Text3.Text = Adodc1.Recordset!harga_barang
Text4.Text = Adodc1.Recordset!untung
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
Text5 = ""
End If
End Sub

Private Sub Command2_Click()
Adodc2.Recordset.AddNew
Adodc2.Recordset!kode = Text1.Text
Adodc2.Recordset!nama_barang = Text2.Text
Adodc2.Recordset!harga_barang = Text3.Text
Adodc2.Recordset!untung = Text4.Text

Adodc2.Recordset.Update
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
End Sub

cukup sekian gan yg bsa w kasih ke kalian,mudah2an bermanfaat bwt yg memerlukan program ini,,
wassalammualaikum wr.wb ^_^

Selasa, 25 Oktober 2011

Program Menginput Data

assalammualaikum gan...
sory nie udah lma ga update blog w hehehe,,sibuk ma acara sndiri
w ad info ga jauh2 beda dengan program sblmnya,,tp mudah-mudahan bermanfaat gan,,

nie tampilan awal.a gan pke MDI,,Isi,a ad data dosen,data ruangan,data mata_kuliah,data jadwal,dan data yg pngen d tampilin,,

sory bgt nie gan w mw ksih code.a tp d warnet ga ad program vb.a heheh
code.a nyusul yah gan,,,mav skali lgi

Minggu, 18 September 2011

Membuat Aplikasi Absensi Menggunakan Visual Basic

ASSALAMMUALAIKUM GAN,,,,
nie ad sedikit program sederhana yg saya modif,,,jika ingn coba silakan ajh,,nie skrip.a...

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!no = Text1.Text
Adodc1.Recordset!nip = Text2.Text
Adodc1.Recordset!nama = Text3.Text
Adodc1.Recordset!tanggal = Text4.Text
Adodc1.Recordset!jenis_kelamin = Text5.Text
Adodc1.Recordset!bagian = Text6.Text
Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text1.SetFocus

End Sub

Private Sub Command2_Click()
End
End Sub

mudah kn,,,selamat mencoba gan,,,
^_^