（本文以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
|
