Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long '************************************************************* Public Function ImportPhoto(sPicFile As String, sEmpID As

VB源码,数据库应用,销售系统,进销存 　　VB+SQL商品销售进销存系统，调试请注意： 　　1.首先确保您的机器上安装了SQL Server数据库。将SQL Server服务器名称改为JAMESLIN，如果不修改服务器名称，则需要修改VB程序，在frmLogin窗体的cmdOK_Click函数中，修改代码： 　　strConn = "Provider=SQLOLEDB.1 Integrated Security=SSPI Persist Security Info=False

VB+SQL商品销售进销存系统，： 　　1.首先确保您的机器上安装了SQL Server数据库。将SQL Server服务器名称改为JAMESLIN，如果不修改服务器名称，则需要修改VB程序，在frmLogin窗体的cmdOK_Click函数中，修改代码： 　　strConn = "Provider=SQLOLEDB.1 Integrated Security=SSPI Persist Security Info=False Initial Catalog=Sale Data Sou