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