快速搭建ERP的数据库框架[MSSQL防范]

　　（本文以sql server为数据库服务器,t-sql是尺度sql语言的扩大.）在ERP的软件中,数据库是它的魂魄.每一个ERP软件都有自己的数据库,而这些数据库中最关键的是数据库框架.那么什么是数据库框架?他的China It Power . ComtZCSn

作用是什么?为什么要在安装时搭建数据库框架?本文就来解答这些问题.

　　在编写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 China It Power . ComtZCSn