作用是什麼？為什麼要在安裝時搭建數據庫框架？本文就來解答這些問題。
在編寫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
