VB6.0研发五金厂信息管理系统，研发适合小企业小工厂的信息系统

        现在这个时代发展很快，但是在研发企业数据系统的时候，并不是那些某友，某碟的专属。因为那些操作复杂比较，功能繁多。功能多了反而成了累赘。那么今天我这边接到的项目是研发一款乡镇五金厂的信息管理系统软件，架构是CS模式，不喜欢搞BS的网页模式。数据库用的是SQL2008,所有的数据 存放到企业本地电脑上，不跑阿里云，不存自身服务器。这样做的好处就是确保企业的数据是安全的。

界面比较粗糙，功能简单实用，完全依据本地的一个五金厂需求而定制。销售，生存，库存一目了然。

 

 

 这里用到了ADO技术，这些技术在刚开始学习VB编程的时候就接触到过，不过那时候只是走马观花，并不是深入研究。控件的按钮采用了SQL2008。这里要说的是这个数据库可以部署到阿里云上，这样VB写的信息系统可以在互联网上进行连接了。满足企业用户在家也可以访问本套系统。

下面放下 数据库连接模块，在本地快速测试的时候，我往往选择用ACCESS，具体到客户部署的时候采用 

Public cnn As New ADODB.Connection
Public gblServer      As String
Public gblDataBase    As String
Public gblServerLogID As String
Public gblServerPwd   As String
Public gblRemoteServerIP As String '远程服务器地址
'整个工程只有一个sql连接 ，在 主界面 这个窗体加载的时候 调用  数据库连接即可
'阿里服务器的SQL2008

Public Sub 连接数据库ACCESS()
   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库文件\TestData.mdb;Persist Security Info=False"
End Sub
'注意这个 这个SQL2008数据库里面的项目表 还没创建
Public Sub 连接本地数据库SQL2008()
  Dim SQL2008 As String
   gblServerLogID = "sa"
   gblServerPwd = "123456"
   gblDataBase = "HomeDataBase"
   gblServer = "127.0.0.1,1433"   '还要打开本地端口1433
  SQL2008 = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & gblServerLogID & _
                                                                         ";pwd=" & gblServerPwd & _
                                                                         ";Initial Catalog=" & gblDataBase & _
                                                                         ";Data Source=" & gblServer
   cnn.Open SQL2008
End Sub

'
'用户名: administrator 密码PANjian16
'47.93.240.158
Public Sub 连接阿里服务器的SQL2008()
  Dim SQL2008 As String
   gblServerLogID = "sa" '阿里云服务器上的 SQL2008 账号
   gblServerPwd = "Paadsaji16"  '阿里云服务器上的 SQL2008  密码
   gblDataBase = "HomeCataAase" '阿里云服务器上的 sql数据库名
   gblServer = "41.93.240.128,1433"   '还要打开本地端口1433
  SQL2008 = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & gblServerLogID & _
                                                                         ";pwd=" & gblServerPwd & _
                                                                         ";Initial Catalog=" & gblDataBase & _
                                                                         ";Data Source=" & gblServer
   cnn.Open SQL2008
End Sub

以上服务器IP 信息是错误，只是做个演示。有需要研发可以 +Q  1016058890