方云波

---- 在開發(fā)人事管理軟件的工程中，當(dāng)我們建立一個職工檔案記錄時，通常都會遇到設(shè)計職工履歷表、職工家屬情況的問題，我這里介紹一種用“主細(xì)表”方法的開發(fā)思路。

---- 一. 數(shù)據(jù)庫的建立

---- 一個設(shè)計合理的數(shù)據(jù)庫就是管理軟件成功的一半。因此我們在開發(fā)之初就應(yīng)該先慎重設(shè)計好數(shù)據(jù)庫的結(jié)構(gòu)。筆者在開發(fā)人事管理軟件時建立一個名為：HR.mdb的數(shù)據(jù)庫，該庫包括下面三個表：


職工的自然情況一般是下面這些內(nèi)容的：（Employee）
職工姓名 性別 出生日期 民族 政治面貌 婚否……
職工履歷表的內(nèi)容一般是下面這些內(nèi)容的：（Vita）
起始時間 終止時間 所在單位及部門 任職情況……
職工家屬情況一般是下面這些內(nèi)容的：（Relative）
親人姓名 與本人關(guān)系 所在單位及部門 任職情況……

---- 很顯然，Employee 與Vita和Relative表之間是“一對多”的關(guān)系。即一條Employee記錄對應(yīng)多條Vita和Relative記錄，亦即Employee為主表，Vita和Relative為細(xì)表。由于在設(shè)計ACCESS數(shù)據(jù)庫時每個表必須要有一個主關(guān)鍵字(Primary Key)，因此筆者設(shè)計了一個“職工ID”字段作為三個表相互連接的字段，同時也作為Employee表的主關(guān)鍵字。而另外兩個表的主關(guān)鍵字就采用自動編號（AutoNum）字段了。

---- 二. 建立表之間的連接

---- 數(shù)據(jù)庫設(shè)計好之后就可以著手設(shè)計各種應(yīng)用，但程序設(shè)計中關(guān)鍵的問題是如何建立“主細(xì)表”之間的連接。

---- 建立“主細(xì)表”之間的連接有兩種方法：

---- 1、 利用VB的數(shù)據(jù)窗體向?qū)�生成“主�?xì)表”的連接。

---- 根據(jù)向?qū)�，可以生成一個主表和一個細(xì)表的連接。但是這種方法生成的連接有它的缺陷。首先是它只能生成兩個表的連接，對我們上面所說的情況就無能為力了；其次是開發(fā)者在為向?qū)�提供�?shù)據(jù)庫時，系統(tǒng)把數(shù)據(jù)庫的絕對路徑加入了DATA控件，非常不利于程序的分發(fā)。 下面介紹筆者使用的一種方法。

---- 2、 動態(tài)創(chuàng)建“主細(xì)表”的連接

---- 新建一個Form，然后添加三個DATA控件和三個DBGRID控件。三個DATA控件的名稱分別為：datPrimaryRS，datSecondaryRS，DatThirdRS；三個DBGRID控件的名稱分別為：grdPrimaryRS，grdSecondaryRS，grdDatThirdRS。三個DATA控件Form上既沒有指定DatabaseName，也沒有指定RecordSource，只是在Form調(diào)用時才動態(tài)賦值。三個DBGRID控件倒是指定了所對應(yīng)的DATA控件。下面是Form_Load()函數(shù)：


Private Sub Form_Load()
datPrimaryRS.DatabaseName = App.path & “\HR.mdb”
datPrimaryRS.RecordSource =
"select * from [Employee] Order by [職工 ID]"
datSecondaryRS.DatabaseName = App.path & “\HR.mdb
datThirdRS.DatabaseName = App.path & “\HR.mdb
'創(chuàng)建主表網(wǎng)格記錄集
datPrimaryRS.Refresh
End Sub

---- 這里只是創(chuàng)建和顯示了主表的數(shù)據(jù)，那么兩個細(xì)表的數(shù)據(jù)如何創(chuàng)建和顯示呢？從主細(xì)表的概念我們知道，我們查看主表的任何一條記錄，細(xì)表必須同時顯示出對應(yīng)的多條記錄。因此我們必須對主表的任何一條記錄成為當(dāng)前記錄時觸發(fā)的事件編碼。而該事件就是Reposition。


Private Sub datPrimaryRS_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
datSecondaryRS.Refresh
DatThirdRS.Refresh
'使網(wǎng)格與主表記錄集同步
datSecondaryRS.RecordSource = "select [職工ID],
[起始日期],[終止日期],[所在單位及部門],[任職情況]
from [Vita] where [職工ID]=" & datPrimaryRS.Recordset!
[職工ID] & " Order by [起始日期]"
DatThirdRS.RecordSource = "select [職工ID],[親人姓名],
[關(guān)系],[所在單位及部門],[任職情況]
from [Relative] where [職工ID]=" &
datPrimaryRS.Recordset![職工ID] & ""
datSecondaryRS.Refresh
DatThirdRS.Refresh
'為 dynasets 和快照顯示當(dāng)前記錄位置
datPrimaryRS.Caption = "當(dāng)前記錄: " &
(datPrimaryRS.Recordset.AbsolutePosition + 1)
End Sub

---- 很顯然，如果有三個、四個…等多個細(xì)表也可以如法炮制。

---- 至此，一個靈活的，表數(shù)不限的主細(xì)表連接就建立起來了。只要將三個DBGRID的AllowAddNew、AllowDelete和AllowUpdate三個屬性設(shè)置為TRUE，那么就可以對這些主細(xì)表進(jìn)行各種數(shù)據(jù)庫表作了。