分享
 
 
 

快速搭建ERP的数据库框架

王朝other·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

(本文以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=.;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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有