在編寫ERP，MIS，S/B等數(shù)據(jù)庫的應(yīng)用程序時(shí)，首先要做的一件事就是建立數(shù)據(jù)庫框架，它至少包括：數(shù)據(jù)庫和數(shù)據(jù)庫中的表，當(dāng)然還有視圖、存儲(chǔ)過程等，這就是數(shù)據(jù)庫框架（不含具體的數(shù)據(jù)）。然后是使用vb，vc，vfp，pb等編程語言開發(fā)用戶界面，接受用戶對(duì)數(shù)據(jù)庫的操作。當(dāng)你成功的開發(fā)了一個(gè)ERP軟件后，你需要將它打包，最后交給客戶安裝并使用。這時(shí)就有一個(gè)問題，當(dāng)你打包的時(shí)候，不可以將sql server打包到安裝程序中，所以用戶在使用時(shí)就必須先建立數(shù)據(jù)庫框架，而用戶并不知道數(shù)據(jù)庫的框架結(jié)構(gòu)，ERP軟件又必須訪問特定的數(shù)據(jù)庫框架才可以成功運(yùn)行，這時(shí)我們就需要有一個(gè)可以自動(dòng)生成數(shù)據(jù)庫框架的程序。舉個(gè)例：當(dāng)開發(fā)一個(gè)人力資源管理系統(tǒng)時(shí)，需要一個(gè)數(shù)據(jù)庫框架，這最起碼在數(shù)據(jù)庫包含一個(gè)表，表中包含姓名，年齡，工資等信息，然后通過客戶端來訪問這個(gè)表。如果沒有這個(gè)表，程序就不可能成功的運(yùn)行?，F(xiàn)在大家清楚了什么是數(shù)據(jù)庫框架和他的作用了吧！
現(xiàn)在的ERP軟件中都帶有自動(dòng)生成數(shù)據(jù)庫框架的功能，不同軟件的實(shí)現(xiàn)方法不同，總結(jié)一下，大約有3種：
1.以向?qū)У男问匠霈F(xiàn)；
2.在安裝時(shí)以配置系統(tǒng)的形式出現(xiàn)；
3.集成在主程序中，當(dāng)主程序第一次運(yùn)行的時(shí)候自動(dòng)生成數(shù)據(jù)庫框架。
不論是那種方式，他們的用途都是一樣。
如果大家有《管家婆》的ERP，可以安裝來看看。它要求先安裝sql server ，安裝完后打開sql server你會(huì)發(fā)現(xiàn)sql server數(shù)據(jù)庫中只有它默認(rèn)的幾個(gè)數(shù)據(jù)庫，并沒什么不同。接著開始安裝《管家婆》，安裝完后隨便用一下他的功能，再大開sql server你會(huì)發(fā)現(xiàn)，數(shù)據(jù)庫已不同了，增加了一些數(shù)據(jù)庫（增加的數(shù)據(jù)庫因使用的功能和《管家婆》的版本不同而不同）。這些增加的數(shù)據(jù)庫就是為了使用數(shù)據(jù)庫框架自動(dòng)生成。
那么，如何用程序?qū)崿F(xiàn)自動(dòng)生成數(shù)據(jù)庫框架？現(xiàn)在，我們就來創(chuàng)建一個(gè)這樣的程序。在本程序中共建立5個(gè)按鈕分別是：建立數(shù)據(jù)庫，建立表，建立約束，建立存儲(chǔ)過程，顯示數(shù)據(jù)。實(shí)現(xiàn)的代碼如下：
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()
'建立數(shù)據(jù)庫
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個(gè)表
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()
'建立存儲(chǔ)過程
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
'顯示數(shù)據(jù)
End Sub
End Class
(未完)
在Button1_Click中，連接對(duì)象的連接字符串和其他Button_Click中的連接字符串不同。因?yàn)槲议T要?jiǎng)?chuàng)建一個(gè)新的數(shù)據(jù)庫jk，但是這個(gè)數(shù)據(jù)庫并不存在，所以要通過這個(gè)連接讓它連接到一個(gè)sql server中已有的數(shù)據(jù)庫，獲得對(duì)整個(gè)sql server的的訪問控制權(quán)限，再建立jk數(shù)據(jù)庫。而其它的Button_Click直接連接到j(luò)k數(shù)據(jù)庫。因?yàn)槲覀円趈k數(shù)據(jù)庫中建立表，存儲(chǔ)過程，約束，顯示數(shù)據(jù)。
程序中Button2_Click建立了兩個(gè)表，kk和pp。其中kk包括一個(gè)種子列并且設(shè)定為主鍵。Pp是一個(gè)一般的表，在Button3_Click中建立它的主鍵約束。當(dāng)然我們也可以建立其它的約束，只要改變t-sql語句就可以了。
Button_Click的存儲(chǔ)過程是查詢kk表中數(shù)據(jù)，由于沒有輸入到kk表中的數(shù)據(jù)，所以運(yùn)行后將會(huì)看見kk表是空的（如圖）。但是這并不重要，因?yàn)閷?duì)于ERP來說，所有的數(shù)據(jù)都是可以在客戶端輸入的，要的只是數(shù)據(jù)庫框架。
細(xì)心的讀者一定會(huì)發(fā)現(xiàn)我沒有建立表的關(guān)系，其實(shí)大家想一下在sql server中雖然提供了可視工具來創(chuàng)建表的關(guān)系，但是說到底還是用的t-sql語句來建立，不信的話大家可以打開腳本文件來看看，如果你有微軟的sql server的培訓(xùn)教材，打開實(shí)驗(yàn)部分看看就會(huì)發(fā)現(xiàn)，表的關(guān)系是用t-sql語句來寫的，你只要將本文的存儲(chǔ)過程的語句變成相應(yīng)的關(guān)系語句就可以了。對(duì)于視圖也是一樣。
在測(cè)試這個(gè)程序時(shí)請(qǐng)大家按照Button1，Button2，Button3， Button4，Button5的順序來單擊，這樣就可以完成建立數(shù)據(jù)庫框架的功能，你也可以把前4個(gè)部分寫到一個(gè)模塊中。由于每一臺(tái)計(jì)算機(jī)的數(shù)據(jù)庫服務(wù)器的名字不一樣，所以在測(cè)試代碼時(shí)要將連接字符串中的服務(wù)器指定為當(dāng)前的數(shù)據(jù)庫服務(wù)器名字。
本文所介紹的實(shí)例在vb.net ,win2000 sp2, sql server 2000中驗(yàn)證通過。(完)
