Private m_oXmlCfg As New MSXML.DOMDocument
Dim oNode As IXMLDOMNode
m_oXmlCfg.Load m_sXMLfile
Do
  DoEvents
Loop Until m_oXmlCfg.readyState = XML_LOAD_COMPLETE
Set oNode = oDom.selectSingleNode("//editform[@name=""" & _
 "myformdetails" & """]")
Skip Navigation Links.

Source Code Dinamis dengan Visual Basic 6.0


Kode ini berawal dari ketika saya mendapat perintah membuat aplikasi web (Active Server Page) yang di konversi dari project visual basic 6.0 menggunakan ActiveX OCX dan ActiveX DLL.

Pengolahan data di form dilakukan dengan memanipulasi XML dengan XMLDOM sehingga edit data transaksi tidak menggunakan tabel sementara.

Data yang telah diedit di form disimpan ke SQL server dengan mengirim tabel dalam bentuk XML yang akan diolah oleh stored Procedure SQL Server.

Dengan template project seperti ini saya hampir tidak pernah lagi membuat kode.  Cukup hanya memberikan umpan field yang terdapat pada file xml. Waktu rata-rata pembuatan database dan form lengkap hanya membutuhkan waktu 10 s/d 15 menit.

Dengan membagikan sosurce code ini secara bebas (open source) diharapkan para programmer dapat lebih produktif memberikan solusi yang lebih cepat dan lebih banyak.

Dengan semangat berkolaborasi mari kita manfaatkan Internet ini sebagai media perpaduan Ide dan solusi tanpa batas. Mudah-mudaha kode ini mempunyai daya manfaat yang lebih luas lagi tidak saja bagi programmer tapi juga bagi masalah-masalah data yang membutuhkan solusi software.


XMLTemplate

1. XML Template Master (Untuk Edit Data Master)
contoh (customer.xml)




2. XML Template Master Details (Untuk Edit Data Master Detail)
contoh (Invoice.xml, Penjualan.xml, Pembelian.xml)





 

XBDBProgTool.exe digunakan untuk membuat Tabel dan Stored Procedure (UPDATE, DELETE, GET).

XBDBProgTool menggunakan file xml (misal: customer.xml) untuk membuat scrpt SQL.
Kita bisa memilih apakah akan membuat UI (User Interface) Master (mis: cstomer) atau UI Master Detail (misalnya: penjualan)

 

Hasilnya misalnya customer.sql yang terdapat pada folder sql.

 



 

Kemudian file customer.sql ini dijalankan melalui SQL Query Analizer.



 


User Control Dinamis


User Control Dinamis (contoh: invoice.ocx) adalah pembuat interface dinamis berdasarkan file xml yang dikirimkannya.

Pemakaian usercontrol ini disebabkan program ini nantinya dapat berjalan di windows maupun web.

Untuk membuat user interface misalnya Penjualan.ocx dapat di buat dari Pembelian.ocx dengan cara Save As. Setelah dilakukan Save As kita perlu mengganti kata Pembelian menjadi Kata Penjualan dari menu Find and Replace yang ada di Visual Basic 6.0 IDE.


Form Master



 

 


Form Master Detail

 

 

Download Source Code di sini

Download Penuntun di sini


Update 14 feb 2010 tipe data INT di SQL Server

 

Semoga dapat memberikan manfaat dan lebih banyak memberikan solusi.

 

 

 

 

Medan , 11 februari 2010

Salam,
Hartoto

http://xbasicpro.com

hartoto_d@yahoo.com



Jika Anda ingin mempelajari bagaimana cara membaca data XML dasar dengan Visual Basic klik di sini

Jika Anda juga ingin mempelajari bagaimana membuat control array dasar yang dipakai pada project ini klik di sini

Jika Anda ingin mempelajari bagaimana cara memanggil stored procedure yang juga dipakai pada project ini klik di sini
                                                                                                                                                                                           
HyperLink Share 
Mau punya penghasilan? ikuti program-program di bawah ini:
ziddu.com
Diuskusi Visual Basic
Subscribe to xbasicpro_vb

Powered by us.groups.yahoo.com

counter sejak 5 april 2010

  (C)XBasicPro | XBasicPro di Facebook