2020智能工厂自动化集成商100强
全世界各行各业联合起来,internet一定要实现!
老文章正文

快速搭建ERP的数据库框架

2004-02-10 eNet&Ciweek

  (本文以sql server为数据库服务器,t-sql是标准sql语言的扩充。)在ERP的软件中,数据库是它的灵魂。每一个ERP软件都有自己的数据库,而这些数据库中最关键的是数据库框架。那么什么是数据库框架?他的作用是什么?为什么要在安装时搭建数据库框架?本文就来解答这些问题。

  在编写ERP,MIS,S/B等数据库的应用程序时,首先要做的一件事就是建立数据库框架,它至少包括:数据库和数据库中的表,当然还有视图、存储过程等,这就是数据库框架(不含具体的数据)。然后是使用vb,vc,vfp,pb等编程语言开发用户界面,接受用户对数据库的操作。当你成功的开发了一个ERP软件后,你需要将它打包,最后交给客户安装并使用。这时就有一个问题,当你打包的时候,不可以将sql server打包到安装程序中,所以用户在使用时就必须先建立数据库框架,而用户并不知道数据库的框架结构,ERP软件又必须访问特定的数据库框架才可以成功运行,这时我们就需要有一个可以自动生成数据库框架的程序。举个例:当开发一个人力资源管理系统时,需要一个数据库框架,这最起码在数据库包含一个表,表中包含姓名,年龄,工资等信息,然后通过客户端来访问这个表。如果没有这个表,程序就不可能成功的运行。现在大家清楚了什么是数据库框架和他的作用了吧!

  现在的ERP软件中都带有自动生成数据库框架的功能,不同软件的实现方法不同,总结一下,大约有3种:

  1.以向导的形式出现;

  2.在安装时以配置系统的形式出现;

  3.集成在主程序中,当主程序第一次运行的时候自动生成数据库框架。

  不论是那种方式,他们的用途都是一样。    

    如果大家有《管家婆》的ERP,可以安装来看看。它要求先安装sql server ,安装完后打开sql server你会发现sql server数据库中只有它默认的几个数据库,并没什么不同。接着开始安装《管家婆》,安装完后随便用一下他的功能,再大开sql server你会发现,数据库已不同了,增加了一些数据库(增加的数据库因使用的功能和《管家婆》的版本不同而不同)。这些增加的数据库就是为了使用数据库框架自动生成。

  那么,如何用程序实现自动生成数据库框架?现在,我们就来创建一个这样的程序。在本程序中共建立5个按钮分别是:建立数据库,建立表,建立约束,建立存储过程,显示数据。实现的代码如下:

  Public Class Form1

  Inherits System.Windows.Forms.Form

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

  Handles Button1.Click

  Dim con As New OleDb.OleDbConnection("Provider=SQLOLEDB.1;Integrated

  Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind;Data

  Source=.;Use Procedure for Prepare=1;Auto Translate=True;Packet

  Size=4096;Workstation ID=J;Use Encryption for Data=False;Tag with column collation

  when possible=False")

  con.Open()

  Dim cmd As New OleDb.OleDbCommand("create database jk", con)

  cmd.ExecuteNonQuery()

  con.Close()

  '建立数据库

  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

  System.EventArgs) Handles Button2.Click

  Dim con2 As New OleDb.OleDbConnection("Provider=SQLOLEDB.1;Integrated

  Security=SSPI;Persist Security Info=False;Initial Catalog=jk;Data Source=.;Use

  Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=J;Use

  Encryption for Data=False;Tag with column collation when possible=False")

  con2.Open()

  Dim cmd As New OleDb.OleDbCommand("create table kk(id int identity(1,1) not

  null constraint id primary key,name char(4) not null)", con2)

  cmd.ExecuteNonQuery()

  Dim cmd2 As New OleDb.OleDbCommand("create table pp(id int not null,ads

  char(20) null)", con2)

  cmd2.ExecuteNonQuery()

  con2.Close()

  '建立2个表

  End Sub

  Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As

  System.EventArgs) Handles Button3.Click

  Dim con2 As New OleDb.OleDbConnection("Provider=SQLOLEDB.1;Integrated

  Security=SSPI;Persist Security Info=False;Initial Catalog=jk;Data Source=.;Use

  Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=J;Use

  Encryption for Data=False;Tag with column collation when possible=False")

  con2.Open()

  Dim com As New OleDb.OleDbCommand("alter table pp add primary key (id)",

  con2)

  com.ExecuteNonQuery()

  con2.Close()

  '建立约束

  End Sub

  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As

  System.EventArgs) Handles Button4.Click

  Dim con2 As New OleDb.OleDbConnection("Provider=SQLOLEDB.1;Integrated

  Security=SSPI;Persist Security Info=False;Initial Catalog=jk;Data Source=.;Use

  Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=J;Use

  Encryption for Data=False;Tag with column collation when possible=False")

  con2.Open()  

  Dim com As New OleDb.OleDbCommand("create proc procname as select * from

  kk", con2)

  com.ExecuteNonQuery()

  con2.Close()

  '建立存储过程

  End Sub

  Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As

  System.EventArgs) Handles Button5.Click

   Dim con2 As New OleDb.OleDbConnection("Provider=SQLOLEDB.1;Integrated

  Security=SSPI;Persist Security Info=False;Initial Catalog=jk;Data Source=.;Use

  Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=J;Use

  Encryption for Data=False;Tag with column collation when possible=False")

  Dim com As New OleDb.OleDbCommand("procname", con2)

  Dim da As New OleDb.OleDbDataAdapter()

  da.SelectCommand = com

  Dim ds As New DataSet()

  da.Fill(ds)

  DataGrid1.DataSource = ds

  '显示数据

  End Sub

  End Class

  (未完)
  在Button1_Click中,连接对象的连接字符串和其他Button_Click中的连接字符串不同。因为我门要创建一个新的数据库jk,但是这个数据库并不存在,所以要通过这个连接让它连接到一个sql server中已有的数据库,获得对整个sql server的的访问控制权限,再建立jk数据库。而其它的Button_Click直接连接到jk数据库。因为我们要在jk数据库中建立表,存储过程,约束,显示数据。

  程序中Button2_Click建立了两个表,kk和pp。其中kk包括一个种子列并且设定为主键。Pp是一个一般的表,在Button3_Click中建立它的主键约束。当然我们也可以建立其它的约束,只要改变t-sql语句就可以了。

  Button_Click的存储过程是查询kk表中数据,由于没有输入到kk表中的数据,所以运行后将会看见kk表是空的(如图)。但是这并不重要,因为对于ERP来说,所有的数据都是可以在客户端输入的,要的只是数据库框架。

  


  细心的读者一定会发现我没有建立表的关系,其实大家想一下在sql server中虽然提供了可视工具来创建表的关系,但是说到底还是用的t-sql语句来建立,不信的话大家可以打开脚本文件来看看,如果你有微软的sql server的培训教材,打开实验部分看看就会发现,表的关系是用t-sql语句来写的,你只要将本文的存储过程的语句变成相应的关系语句就可以了。对于视图也是一样。

  在测试这个程序时请大家按照Button1,Button2,Button3, Button4,Button5的顺序来单击,这样就可以完成建立数据库框架的功能,你也可以把前4个部分写到一个模块中。由于每一台计算机的数据库服务器的名字不一样,所以在测试代码时要将连接字符串中的服务器指定为当前的数据库服务器名字。

  本文所介绍的实例在vb.net ,win2000 sp2, sql server 2000中验证通过。(完)

相关频道: eNews 老文章

您对本文或本站有任何意见,请在下方提交,谢谢!

投稿信箱:tougao@enet16.com
广告