（本文以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=.;UseProcedure 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 SubEnd 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中驗證通過。
