产品进销存程序代码.docVIP

以下代码在Win 7 + VS2005下编译成功并通过测试 如需编译请使用VS2005打开form1.vb文件 产品经销管理系统.exe文件为编译文件，如需打开需要安装.NET框架。 Public Class Form1 Dim nodeset As System.Xml.XmlNode Dim nodeget As System.Xml.XmlNode Dim elm As System.Xml.XmlElement Private Structure info Dim info1 As String Dim info2 As String Dim info3 As String Dim info4 As String Dim info5 As String Dim info6 As String Dim info7 As String Dim info8 As String End Structure Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click End End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim ghinfo As info ghinfo.info1 = TextBox1.Text ghinfo.info2 = TextBox2.Text ghinfo.info3 = TextBox3.Text ghinfo.info4 = TextBox4.Text ghinfo.info5 = TextBox5.Text ghinfo.info6 = TextBox6.Text ghinfo.info7 = TextBox7.Text ghinfo.info8 = TextBox8.Text setinfo(ghinfo, gh) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim xmldec As System.Xml.XmlDeclaration Dim elm1 As System.Xml.XmlElement Dim elm2 As System.Xml.XmlElement Dim xml1 As System.Xml.XmlDocument Dim xml2 As System.Xml.XmlDocument xml1 = New System.Xml.XmlDocument xml2 = New System.Xml.XmlDocument If (Not System.IO.File.Exists(gh.xml)) Then xmldec = xml1.CreateXmlDeclaration(1.0, gb2312, vbNullString) xml1.AppendChild(xmldec) elm1 = xml1.CreateElement(, gh, ) xml1.AppendChild(elm1) xml1.Save(gh.xml) End If If (Not System.IO.File.Exists(ky.xml)) Then xmldec = xml2.CreateXmlDeclaration(1.0, gb2312, vbNullString) xml2.AppendChild(xmldec) elm1 = xml2.CreateEleme