作用是什么？為什么要在安裝時搭建數(shù)據(jù)庫框架？本文就來解答這些問題。

　　在編寫erp，mis，s/b等數(shù)據(jù)庫的應(yīng)用程序時，首先要做的一件事就是建立數(shù)據(jù)庫框架，它至少包括：數(shù)據(jù)庫和數(shù)據(jù)庫中的表，當(dāng)然還有視圖、存儲過程等，這就是數(shù)據(jù)庫框架（不含具體的數(shù)據(jù)）。然后是使用vb，vc，vfp，pb等編程語言開發(fā)用戶界面，接受用戶對數(shù)據(jù)庫的操作。當(dāng)你成功的開發(fā)了一個erp軟件后，你需要將它打包，最后交給客戶安裝并使用。這時就有一個問題，當(dāng)你打包的時候，不可以將sql server打包到安裝程序中，所以用戶在使用時就必須先建立數(shù)據(jù)庫框架，而用戶并不知道數(shù)據(jù)庫的框架結(jié)構(gòu)，erp軟件又必須訪問特定的數(shù)據(jù)庫框架才可以成功運行，這時我們就需要有一個可以自動生成數(shù)據(jù)庫框架的程序。舉個例：當(dāng)開發(fā)一個人力資源管理系統(tǒng)時，需要一個數(shù)據(jù)庫框架，這最起碼在數(shù)據(jù)庫包含一個表，表中包含姓名，年齡，工資等信息，然后通過客戶端來訪問這個表。如果沒有這個表，程序就不可能成功的運行。現(xiàn)在大家清楚了什么是數(shù)據(jù)庫框架和他的作用了吧！

　　現(xiàn)在的erp軟件中都帶有自動生成數(shù)據(jù)庫框架的功能，不同軟件的實現(xiàn)方法不同，總結(jié)一下，大約有3種：

　　1.以向?qū)У男问匠霈F(xiàn)；

　　2.在安裝時以配置系統(tǒng)的形式出現(xiàn)；

　　3.集成在主程序中，當(dāng)主程序第一次運行的時候自動生成數(shù)據(jù)庫框架。

　　不論是那種方式，他們的用途都是一樣。 　　　

　　　　如果大家有《管家婆》的erp，可以安裝來看看。它要求先安裝sql server ，安裝完后打開sql server你會發(fā)現(xiàn)sql server數(shù)據(jù)庫中只有它默認的幾個數(shù)據(jù)庫，并沒什么不同。接著開始安裝《管家婆》，安裝完后隨便用一下他的功能，再大開sql server你會發(fā)現(xiàn)，數(shù)據(jù)庫已不同了，增加了一些數(shù)據(jù)庫（增加的數(shù)據(jù)庫因使用的功能和《管家婆》的版本不同而不同）。這些增加的數(shù)據(jù)庫就是為了使用數(shù)據(jù)庫框架自動生成。

　　那么，如何用程序?qū)崿F(xiàn)自動生成數(shù)據(jù)庫框架？現(xiàn)在，我們就來創(chuàng)建一個這樣的程序。在本程序中共建立5個按鈕分別是：建立數(shù)據(jù)庫，建立表，建立約束，建立存儲過程，顯示數(shù)據(jù)。實現(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個表

　　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

　　'顯示數(shù)據(jù)

　　end sub

　　end class