ERP系统开发日记(关键技术与经验)

12月26日：开场白。

新世纪ERP系统是一套大部份功能都仿照用友U8.1系列ERP系统开发的，采用VB语言+SQL2000数据库，我们一个锑矿企业使用该系统的存货核算部分一年多时间，数据库由原来的空数据库30M变成250M，其间也出现过一些小的bug，但都通过修改代码得到纠正，所以这套系统及数据库架构应该也算相对笔较成熟了。现在我们打算将这套系统改成net2005+SQL2005系统，一方面必须要适应目前的B/S要求，另一方通过改造系统，掌握原系统的技术要领，从而提高在实际应用时的应变能力。

希望可以用3-5个月的时间将系统升级成B/S架构，之后投入实际使用，并根据实际应用加以改进。

首先我们升级数据库，将原来SQL2000空的数据库附加导入SQL2005系统。

原SQL2000数据库370个数据表导入SQL2005成功后出现以下界面：

现在我们先来打开新世纪ERP系统的总控台代码，系统的登陆界面如下：

使用过net做网页的人都知道，这样的一个界面并不是很难做到：

这是Default.aspx首页总控台页面，上面是本单位ERP系统logo母页版。主体页面加上背景，再加上链接按钮，即可以做成下面的样子。

在百度中打入“办公图标”可以找到上面的图片，上面的是128×128图标，也可以找64×64的图标，之后用photoshop加上说明文字，在default.aspx网站首页中加入图片按钮imagebutton，然后在在图片按钮的imgurl属性中加入图标文件的位置即可以将图标显示出来做成以上的样子。

首页界面做出来以后，我们开始按顺序将上面的模块做出来，首先是系统管理。新世纪ERP系统的系统管理界面如下：

新建账套的实现就是复制一套空的数据库文件，然后填上要新建的帐套的信息即可。我们已经有了空数据库文件，只需要在SQL2005中将空数据库文件附加上去就得了，所以我们是手工做这部分工作，没有用新建套帐的功能。

我们在附加空数据库之后只需要手工更工帐套信息即可使用帐套，或者设计一个界面来设置帐套信息。如果是系统自己使用新建及设置账套都可以手工更改数据信息表即可，如果是做一个商业化系统或者想方便使用，那就需要专门设

计一个新建帐套和更改帐套信息的界面了。

原系统中帐套参数设置的界面如下：

确定按钮的代码如下：

Private Sub Command1_Click(Index As Integer)

Dim Ssql As String

Dim i As Integer

Dim aDo_Date As New Recordset

On Error GoTo error_exit

If Index = 1 Then Unload Me: Exit Sub

Ssql = "update HDSystem_DataBases set CoName='" & Trim(Text1(0).Text) & "'," _

& "Addres s='" & Trim(Text1(1).Text) & "',Phone='" & Trim(Text1(2).Text) & "',qsqj=" & Val(Text3.Text) _

& " WHERE DataBasesName='" & Trim(Text1(0).Tag) & "'"

Conn_System.Execute Ssql

Conn_System.Execute "delete " & Trim(Text1(0).Tag) & ".dbo.Gy_kjrlb"

aDo_Date.Open "select * from " & Trim(Text1(0).Tag) & ".dbo.Gy_kjrlb", Conn_System, adOpenStatic, adLockBatchOptimistic

With aDo_Date

For i = 1 To 12

.AddNew

!KjYear = Trim(Text2.Text)

!Period = FlexGrid.TextMatrix(i, 0)

!qsrq = FlexGrid.TextMatrix(i, 1)

If i < 12 Then !zzrq = DateAdd("d", -1, FlexGrid.TextMatrix(i + 1, 1))

Else

!zzrq = DateAdd("d", -1, DateAdd("m", 1, FlexGrid.TextMatrix(i, 1)))

End If

If Val(FlexGrid.TextMatrix(i, 0)) < Val(Text3.Text) Then

!cwzzjzbz = 1: !Xsjzbz = 1

!Gdzcjzbz = 1: !Kfjzbz = 1

!chhsjzbz = 1: !PMjzbz = 1

!CgJzbz = 1: !CaskJzbz = 1

End If

If Val(FlexGrid.TextMatrix(i, 0)) = Val(Text3.Text) Then

!beginfla g = 1

End If

.Update

Next

.UpdateBatch adAffectAllChapters

.Close

Set aDo_Date = Nothing

End With

Conn_System.Execute "update " & Text1(0).Tag & ".dbo.Gy_AccInformation set itemValue=" & DJ_Text.Text & " where systemcode='Cwzz' and itemcode='cwdjxsws'"

Conn_System.Execute "update " & Text1(0).Tag & ".dbo.Gy_AccInformation set itemValu e=" & JE_Text.Text & " where systemcode='Cwzz' and itemcode='cwjexsws'"

Conn_System.Execute "update " & Text1(0).Tag & ".dbo.Gy_AccInformation set itemValue=" & SL_Text.Text & " where systemcode='Cwzz' and itemcode='cwslxsws'"

Unload Me

Exit Sub