Aplikasi Karyawan PLN

  

Aplikasi Karyawan PLN digunakan untuk mengolah data karyawan dan data keluarga karyawan. Aplikasi ini terdiri dari input data, cari data, dan cetak data. Database menggunakan Ms Access dan reportnya menggunakan activereport. Bagi yang ingin mencoba script ini silahkan downlod DISINI

Read More

Webshots Desktop

Aplikasi kecil ini digunakan untuk mengatur tampilan gambar pada desktop komputer anda. Dengan aplikasi ini kita dapat menatur gambar desktop berubah dalam waktu tertentu sesuai yang kita inginkan, dapat juga menampilkan kalender, dan screensaver. Aplikasi ini dapat diperoleh secara gratis dari websitenya yaitu http://www.webshots.com. Di website tersebut juga sudah ada koleksi wallpapernya. Alternatif koleksi wallpaper ada di http://www.vnwallpapers.com

Read More

ClassicMenu for Ms Office 2007

Tulisan ini mungkin udah telat kali ya, soalnya sekarang udah banyak yang make Ms Office 2007. Nah bagi yang belum terbiasa pake Ms. Office 2007 biasanya terkendala pada Menu bar yang pada dasarnya sama dengan pendahulunya (Ms Office 2003) hanya beda penempatanya. Tapi bagi yang bingung tenang aja ada software pembantu yaitu "Classic Menu For Office 2007". Cara pakainya gampang, tinggal di install otomatis langsung muncul pada office.

Untuk downloadnya DISINI

Read More

Download ActiveReport

Apa itu ActiveReport? sama halnya dengan data report bawaan vb atau Crystal Report yang digunakan untuk membuat laporan(report/output) pada pemrograman vb. Jikan dibandingkan data report maka ActiveReport lebih baik dikarenakan desain laporan dapat diatur landscape yang tidak dapat dilakukan pada data report. Jika dibandingkan dengan CrystalReport masih kalah masalah fitur dan variasi desainya, tetapi begitu di instal ActiveReport langsung "gabung" dengan vb yaitu di menu Project -> Pilih Add Data Dynamic ActiveReport..

Yang mau download ni dia linknya :  DOWNLOAD 


Update Link : DOWNLOAD ACTIVEREPORT

Read More

Convert File OpenOffice ke File Ms Office

Suatu hari saya dapet email yang berisi lampiran file berextensi odt (*.odt). Setelah didownload ternyata file tersebut tidak dapat di buka di komputerku. Sempat mikir file apakah gerangan..., setelah nyari di google gk taunya gw sendiri yang gaptek gk pernah pake linux atau OpenOffice. File tersebut rupanya extensi dari OpenOffice dan sama dengan doc pada Ms Office. Lalu bagaimana caranya agar file .odt bisa dibuka di Ms Office? pastinya harus diconvert terlebih dahulu, salah satu converternya adalah NW Docx Converter yang bisa di download pada link dibawah ini : 

http://www.nativewinds.montana.com/downloads/Docx2Rtf.zip

Cara kerja Converter ini adalah menconvert file extensi .odt menjadi extensi .rtf sehingga dapat dibuka dengan Ms Office. Caranya dengan membuka file tersebut kemudian di save as dengan extensi rtf.

Ada satu lagi cara yang digunakan untuk mengconvert file odt tapi dilakukan secara online yaitu pada situs http://www.zamzar.com/ . Caranya dengan mengupload file kita ke situs tersebut kemudian pilih hasil convertnya dan masukan alamat email anda, selanjutnya convert. Tunggu beberapa saat, situs tersebut akan mengirimkan file hasil convert ke alamat email anda. Selain file extensi odt yang sama dengan doc yang dapat diconvert, ada juga file extensi ods yang pada Ms Office merupakan file ecxel (.xls)

Read More

Mendesain StatusBar

StausBar digunakan para programer biasanya untuk menampilkan informasi tanggal, jam, maupun text berjalan yang berisi informasi program. Tapi bagi para newbie atau temen yang baru belajar vb gak da salahnya mencoba hal yang satu ini. Oke, gak usah lama2, buat sebuah form, StatusBar, dan 2 buah Timer. Klo belum tau mendpatkan StatusBar buka aja Project->Components-> Beri tanda cek pada Microsoft Windows Command Control 6.0 (sp6).

Atur properties untuk StatusBar buatlah 7 buah panel yang masing untuk text tanggal, tanggal, text jam, jam, caps, num, dan text berjalan. sedangkan untuk timer masukan interval 1000.

Source Codenya sbb :

Dim Counter As Integer

Private Sub MDIForm_Load()

Counter = 0

Timer2.Interval = 60 '<-- Atur kecepatannya di sini

With StatusBar1

.Panels(7).Width = 8300

.Panels(7).Alignment = sbrRight

End With

End Sub

Private Sub Timer1_Timer()

StatusBar1.Panels(2).Text = Format(Date, "dd MMMM yyyy")

StatusBar1.Panels(4).Text = Format(Time, "hh:mm:ss")

End Sub

Private Sub Timer2_Timer()

Dim Kalimat As String

Dim pnlX1 As Panel

Set pnlX1 = StatusBar1.Panels(7)

Kalimat = "*** Aplikasi Penggajian Yayasan Pendidikan Kosgoro by AGUNG @ 2009***"

Counter = Counter + 1

DoEvents

pnlX1.Text = TulisJalan(Counter, Kalimat, 140)

End Sub

Public Function TulisJalan(Hitung As Integer, _

strKalimat As String, _

Panjang As Integer)

If Hitung = Len(strKalimat) + Panjang Then

Hitung = 0

ElseIf Hitung > Len(strKalimat) Then

TulisJalan = strKalimat & Space(Hitung - Len(strKalimat))

Else

TulisJalan = Mid(strKalimat, 1, Hitung)

End If

End Function

Read More

Koneksi Handphone dengan PC Windows XP melalui Kabel Data

Langkah-langkahnya sebagai berikut :

1. Masuk ke menu Control Panel.

2. Pilih Phone and Modem Options

3. Pilih Modem

4. Tekan Add

5. Beri tanda (a) “Don’t detect my modem: I will select it from a list”

6. Tekan Next

7. Pilih Standard 33600 bps Modem

8. Tekan Next

9. Pilih port dari kabel data yang digunakan biasanya COM1 untuk kabel data namun jika tidak tersedia pilih COM lain

10. Tekan Next

11. Instalasi modem sudah selesai

12. Tekan Finish

13. Kembali ke tampilan Phone and Modem Option

14. Pilih Modem yang sudah terinstall tadi yaitu Standard 33600 bps Modem

15. Tekan Properties

16. Pilih Diagnostics

17. Tekan Query Modem (pastikan bahwa proses query telah sukses)

18. Setelah itu pilih Advanced

19. Masukan Extra Settings : AT+CGDCONT=1,"IP","indosatgprs"

20. Tekan OK

21. Kembali ke tampilan Phone and Modem Options

22. Tekan OK lalu keluar dari menu Control Panel

23. Langkah selanjutnya : Pilih Start à Programs à Accessories à Comunication à Network Connection

24. Pilih Creat a new connection

25. Akan muncul tampilan New Connection Wizard

26. Tekan Next

27. Pilih Connect to the Internet

28. Tekan Next

29. Pilih Set up my connection manually

30. Tekan Next

31. Pilih Connect using a dial-up modem

32. Isi ISP Name : Satgprs

33. Tekan Next

34. Isi Phone number : *99***1#

35. Tekan Next

36. Pilih Create this connection for : Anyone’s use

37. Tekan Next

38. Kosongkan user name dan password

39. Tekan Next

40. Beri tanda (a) pada Add a shortcut to this connection to my deskstop

41. Tekan Finish

Model Kabel Data

1. Serial cable (DKU-5, CA-42), Tipe HP Nokia GSM Anda : Biasanya yang belum dilengkapi fasilitas MP3 misalnya (2115/ 2270/ 2272/ 2285/ 3100/ 3108/ 3120/ 3200/ 3220/ 3585i/ 3586i/ 3587/ 3587/ 3587i/ 3588i/ 3589i/ 5100/ 5140/ 6011i/ 6015i/ 6016i/ 6019i/ 6020/ 6021/ 6100/ 6101/ 6102/ 6108/ 6220/ 6610/ 6610i/ 6800/ 6820/ 6822/ 7200/ 7210/ 7250/ 7250i/ 7260/ 7360/ 6103/ 6070). Tipe HP Nokia CDMA Anda : Biasanya yang belum dilengkapi fasilitas MP3(2112/ 2280/ 3105/ 3125/ 3205/ 3586/ 6012/ 6015/ 6225/ 6585).

2. USB (DKU-2, CA-53), Biasanya untuk type HP Hokia yang sudah dilengkapi fasilitas MP3.

Setelah Anda menentukan model kabel data, silahkan mengikuti langkah – langkah selanjutnya :

1. Install Nokia PC Suite.

2. Setelah sudah ter-install, masuk ke Nokia PC Suite dengan double klik, kemudian masuk ke “Manage Connections”. Kemudian Pilih model kabel data yang dipakai : (a). Serial cable (DKU-5, CA-42) atau (b). USB (DKU-2, CA-53, DKE-2). Setelah dipilih dengan meng-klik, kemudian di-Minimize. Kemudian klik “Get Connected”, Next 2x, kemudian hubungkan kabel data ke mobile Phone, Finish. Setelah itu centangan pilihan kabel data dihilangkan semua.

3. Masuk ke- Control Panel.

· Pilih “ Phone and Modem Options”. Dialing Rules diisi 021 (kode wilayah). Modem dipilih sesuai dengan model kabel data yang dipakai, misalnya CA-42 CDMA USB modem #2…. Kemudian klik Properties ==> Diagnostic ==> Query Modem. Kemudian pilih Advanced, entry Initialization diisi at+crm=1; kemudian OK 2 x.

· Pilih Network Connetions. Pilih Create a new connections ==> Next 2 x ==> Set up my Connections ==> Next 2 x. Pilih model kabel data, contoh Nokia CA-42…. Ketik #777 ==> Next 2 x. Kemudian isi data operator yang dipakai ==> FINISH.

Read More

Angka Terbilang Pada VB

Bagi para vb lover yang ingin cari source code angka terbilang pada vb ada disini. Menampilkan angka terbilang sangat sering kita jumpai saat kita membuat program vb. Langsung aja...buka vb dan buat tampilan form seperti gambar diatas. Disini kita hanya membutuhkan sebuah textbox dan label untuk menampilkan angka terbilang. Selain itu saya menggunakan sebuah module untuk memasukan source codenya.

Untuk source code yang di letakan pada module :

Public Function Terbilang(ByVal x As Long) As String

Dim abil As Variant

abil = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")

If x <>

Terbilang = "" & abil(x)

ElseIf x <>

Terbilang = Terbilang(x - 10) & " Belas "

ElseIf x <>

Terbilang = Terbilang(x \ 10) & " Puluh " & Terbilang(x Mod 10)

ElseIf x <>

Terbilang = "Seratus " & Terbilang(x - 100)

ElseIf x <>

Terbilang = Terbilang(x \ 100) & " Ratus " & Terbilang(x Mod 100)

ElseIf x <>

Terbilang = "Seribu " & Terbilang(x - 1000)

ElseIf x <>

Terbilang = Terbilang(x \ 1000) & " Ribu " & Terbilang(x Mod 1000)

ElseIf x <>

Terbilang = Terbilang(x \ 1000000) & " Juta " & Terbilang(x Mod 1000000)

End If

End Function

Nah klo yang ini letakan pada form :

Private Sub Text1_Change()

Label1.Caption = Terbilang(Val(Text1.Text)) & " Rupiah"

End Sub

Jalankan Program dan coba hasilnya.......

Read More

AVG 2018.....

AVG 2018 ??, maksudnya lisensinya sampe 2018 dan gratiss...alias freee, lho koq bisa....... Ceritanya waktu aku pake AVG 8 di komputerku lisensinya habis di bulan desember 2008, maklum pake yang free he....... Oke langsung aja gw kasih lisensinya AVG 2018

8MEH-REDSL-7ETEC-ULA8R-EAOKL-4EMBR-ACED

Ini jg gw dapet waktu browsing di mbah google, site asal dari http://www.mydigitallife.info/2008/10/27/free-working-license-key-serial-to-activate-avg-anti-virus-8-till-2018-10-years-subscription-expiry/
semoga bermanfaat

Read More

Membuat Animasi Bintang

Gambar animasi sering digunakan orang untuk memperindah tampilan, pada form vb kita juga bisa memperindah tampilan dengan animasi. Berikut saya berikan contoh animasi pada vb

Buat sebuah form dengan beberapa label dan sebuah timer, dengan propertis masing2 sbb :
Form --> backcolor = pilih warna hitam, borderstyle = 0-none, windowstate = 2-maximized.
Label1 dst... --> backstyle = 0-transparant, caption = l , font = webdings (size = 72), disini saya menggunakan 35 label (name = label1 s/d label35).
Timer1 --> interval = 100.

untuk source kodenya sbb:
Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label2.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label3.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label4.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label5.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label6.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label7.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label8.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label9.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label10.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label11.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label12.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label13.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label14.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label15.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label16.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label17.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label18.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label19.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label20.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label21.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label22.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label23.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label24.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label25.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label26.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label27.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label28.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label29.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label30.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label31.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label32.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label33.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label34.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label35.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

Read More

"Log In" sederhana

Kali ini saya akan coba memberikan source code sederhana untuk Log In. Mengapa saya katakan sederhana, karena Log In ini bersifat permanent untuk user dan passwordnya, maksudnya nama user dan password saya tempatkan langsung pada source code. Sehingga saat menjalankan kan program ini, kita harus tau nama user dan password yang kita masukan di source codenya. program ini dilengkapi dengan progressbar untuk menambah variasi.

Baiklah gak perlu lama2, langsung aja buat sebuah form yang terdiri dari 2 label untuk user dan password, 2 textbox juga untuk user dan password, 2 combobox untuk tombol Log In dan Keluar, 1 timmer, dan 1 progressbar. Kemudian buat lagi 1 form yang kita gunakan untuk form menu utama. berikut source codenya :

Private Sub Cmd_log_Click()
If Text_user = "" And Text_pass = "" Then
MsgBox ("Isi dulu User dan Passwordnya...!!!"), vbInformation, "Sory....."
Text_user.Text = ""
Text_pass.Text = ""
Text_user.SetFocus
ElseIf Text_user = "" Then
MsgBox ("Isi dulu Usernya...!!!"), vbInformation, "Sory....."
Text_user.Text = ""
Text_user.SetFocus
ElseIf Text_pass = "" Then
MsgBox ("Isi dulu Passwordnya...!!!"), vbInformation, "Sory....."
Text_pass.Text = ""
Text_pass.SetFocus
ElseIf Text_user = "ADMIN" And Text_pass = "1234" Then
MsgBox ("Selemat Datang..."), vbOKOnly, "Welcome"
Timer1.Enabled = True
ElseIf Text_user <> "ADMIN" Then
MsgBox ("User salah..!!!!"), vbInformation, "Ooops..."
Text_user.Text = ""
Text_user.SetFocus
ElseIf Text_pass <> "1234" Then
MsgBox ("Password salah..!!!!"), vbInformation, "Ooops..."
Text_pass.Text = ""
Text_pass.SetFocus
Else
MsgBox ("User dan password salah..."), vbInformation, "Ooops..."
Text_user.Text = ""
Text_pass.Text = ""
Text_user.SetFocus
End If
End Sub

Private Sub Form_Activate()
Text_user.SetFocus
End Sub

Private Sub Form_Load()
Text_user = ""
Text_pass = ""
Text_pass.PasswordChar = "*"
ProgressBar1.Min = 0
ProgressBar1.max = 1000
Timer1.Enabled = False
End Sub

Private Sub Text_pass_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Cmd_log.SetFocus
End Sub

Private Sub Text_user_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text_pass.SetFocus
End Sub

Private Sub Timer1_Timer()
Dim i As Integer
For i = ProgressBar1.Min To ProgressBar1.max
ProgressBar1.Value = i
If ProgressBar1.Value = 1000 Then
Unload Me
menu.Show
End If
Next

End Sub

Read More

Contoh Program VB dengan Database SQL Server (Part 2)

Berikut adalah lanjutan Script VB dari posting sebelumnya :

Private Sub Cmd_Batal_Click()
On Error GoTo errlabel
Txt_kodeakun = ""
Txt_namaakun = ""
Txt_saldo = ""
Txt_kodeakun.Enabled = True
Txt_namaakun.Enabled = True
Txt_saldo.Enabled = True
Cmd_Simpan.Enabled = True
Cmd_Batal.Enabled = True
Txt_kodeakun.SetFocus
Exit Sub
errlabel:
MsgBox Err.Description
End Sub

Private Sub Cmd_Cari_Click()
Call sambung
sql = "select * from akun where kodeakun= '" & Txt_kodeakun.Text & "'"
Set rsa = con.Execute(sql)
If Not rsa.EOF Then
Txt_namaakun.Text = rsa.Fields("namaakun")
Txt_saldo.Text = rsa.Fields("saldoawal")
Txt_kodeakun.Enabled = False
Txt_namaakun.Enabled = False
Txt_saldo.Enabled = False
Cmd_Edit.Enabled = True
Cmd_Hapus.Enabled = True
Else
Cmd_Simpan.Enabled = True
Cmd_Batal.Enabled = True
End If
If rsa.EOF Then
MsgBox "Data yang anda Cari tidak ada", vbInformation, "Info"
Txt_kodeakun.Text = ""
Txt_kodeakun.SetFocus
Ado_Rekening.Refresh
End If
End Sub

Private Sub Cmd_Edit_Click()
Txt_kodeakun.Enabled = False
Txt_namaakun.Enabled = True
Txt_saldo.Enabled = True
Cmd_Simpan.Enabled = True
Cmd_Simpan.SetFocus
End Sub

Private Sub Cmd_Hapus_Click()
On Error GoTo errlabel
Call sambung
sql = "delete from akun where kodeakun = '" & Txt_kodeakun.Text & "'"
con.Execute (sql)
Ado_Rekening.Refresh
Cmd_Tambah.Enabled = True
Cmd_Simpan.Enabled = False
Cmd_Hapus.Enabled = False
Cmd_Batal.Enabled = False
Cmd_Edit.Enabled = False
Cmd_Cari.Enabled = True
Exit Sub
errlabel:
MsgBox Err.Description
End Sub

Sub kosong()
If Txt_kodeakun.Text = "" Or Txt_namaakun.Text = "" Or Txt_saldo.Text = "" Then
MsgBox "Isi dulu Datanya, okey.........", vbInformation, "Info...."
Txt_kodeakun.SetFocus
End If
End Sub

Private Sub Cmd_Tambah_Click()
On Error GoTo errlabel
Txt_kodeakun = ""
Txt_namaakun = ""
Txt_saldo = ""
Txt_kodeakun.Enabled = True
Txt_namaakun.Enabled = True
Txt_saldo.Enabled = True
Cmd_Simpan.Enabled = True
Cmd_Batal.Enabled = True
Txt_kodeakun.SetFocus
Exit Sub
errlabel:
MsgBox Err.Description
End Sub

Private Sub Cmd_Tutup_Click()
Unload Me
End Sub

Private Sub Form_Activate()
Call sambung
Ado_Rekening.Refresh
Cmd_Tambah.Enabled = True
Cmd_Simpan.Enabled = False
Cmd_Hapus.Enabled = False
Cmd_Batal.Enabled = False
Cmd_Edit.Enabled = False
Cmd_Cari.Enabled = True
Cmd_Tambah.SetFocus
End Sub

Private Sub cmd_kosong_Click()
Call sambung
sql = "update akun set saldoawal = 0 where kodeakun like '211%' or kodeakun like '411%'"
Set rsa = con.Execute(sql)
Ado_Rekening.Refresh
End Sub

Private Sub Txt_kodeakun_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call sambung
sql = "select * from akun where kodeakun= '" & Txt_kodeakun.Text & "'"
Set rsa = con.Execute(sql)
If Not rsa.EOF Then
MsgBox "Kode Sudah ada, ganti Kode lain", vbExclamation, "Sory...."
Txt_kodeakun.Text = ""
Txt_kodeakun.SetFocus
Else
Txt_namaakun.SetFocus
End If
End If
End Sub

Private Sub Txt_namaakun_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt_saldo.SetFocus
End If
End Sub

Private Sub Txt_saldo_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Cmd_Simpan.SetFocus
End If
End Sub

Read More

Contoh Program VB dengan Database SQL Server (Part 1)

Saya akan berbagi Ilmu Mengenai Pemrograman Database SQL server. Untuk menjalankan script ini pastikan komputer terinstal SQL Server, dan kita belajar dengan server lokal.

Pertama Buat dulu databasenya dengan SQL Server. field-fieldnya sbb:

1. kodeakun tipe char panjang 8
2. namaakun tipe varchar panjang 30
3. saldoawal tipe money
   

kemudian buat form seperti gambar diatas, dan yang perlu diperhatikan adalah koneksi databasenya dengan menggunakan ADO. agar tidak bingung dalam membuat form, berikut ini saya berikan komponen beserta propertisnya :

kolo sudah selesai sekarang untuk scriptnya tuliskan kode sbb:

Dim conect As String
Dim sql As String
Dim con As New ADODB.Connection
Dim rsa As New ADODB.Recordset
Sub sambung()
Set con = New ADODB.Connection
Set rsa = New ADODB.Recordset

conect = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=isab;Data Source=(local)"
con.Open conect
rsa.Open "akun", con
End Sub

Private Sub Cmd_Simpan_Click()
On Error GoTo errlabel
Call kosong
Call sambung
If Txt_kodeakun.Enabled = True Then
sql = "insert into akun values('" & Txt_kodeakun.Text & "','" & Txt_namaakun.Text & "'," & CCur("0" & Txt_saldo.Text) & ")"
con.Execute (sql)
Ado_Rekening.Refresh
Else
sql = "update akun set namaakun='" & Txt_namaakun.Text & "',saldoawal=" & CCur("0" & Txt_saldo.Text) & " where kodeakun='" & Txt_kodeakun.Text & "'"
con.Execute (sql)
Ado_Rekening.Refresh
End If

Txt_kodeakun.Enabled = False
Txt_namaakun.Enabled = False
Txt_saldo.Enabled = False
Cmd_Tambah.Enabled = True
Cmd_Simpan.Enabled = False
Cmd_Hapus.Enabled = False
Cmd_Batal.Enabled = False
Cmd_Edit.Enabled = False
Cmd_Cari.Enabled = True
Ado_Rekening.Refresh

Ado_Rekening.Recordset.MoveLast
Exit Sub
errlabel:
MsgBox Err.Description
End Sub

Ini baru script untuk penyimpanan data, ntar kita sambung lagi...

Read More