【文章內(nèi)容簡(jiǎn)介】 ar(50) 允許手機(jī)號(hào)碼 varchar(30) 不允許家庭地址 varchar(50) 允許畢業(yè)院校 varchar(50) 允許專(zhuān)業(yè) varchar(20) 允許文化程度 varchar(10) 允許特長(zhǎng) varchar(50) 允許參加工作時(shí)間 datetime 允許總工齡 int 允許照片 image 允許部門(mén) nvarchar(50) 不允許職務(wù) nvarchar(50) 不允許工資 money 不允許調(diào)入時(shí)間 datetime 不允許本單位工齡 int 不允許簡(jiǎn)歷 text 不允許登記人 nvarchar(50) 允許登記日期 datetime 不允許：用于保存材料的基本信息表 材料基本信息表列名 數(shù)據(jù)類(lèi)型 允許空值材料編號(hào) nvarchar(50) 不允許材料屬性 nvarchar(50) 不允許材料名稱(chēng) nvarchar(50) 不允許單位 nvarchar(50) 允許備注 nvarchar(50) 允許12：手工材料入庫(kù)的信息表 列名 數(shù)據(jù)類(lèi)型 允許空值錄單日期 datetime 不允許錄單票號(hào) nvarchar(50) 不允許材料編號(hào) nvarchar(50) 不允許材料名稱(chēng) nvarchar(50) 不允許單位 nvarchar(50) 允許單價(jià) money 允許數(shù)量 numeric(18, 0) 允許金額 money 允許供應(yīng)商名稱(chēng) nvarchar(50) 允許備注 nvarchar(50) 允許經(jīng)手人 nchar(10) 允許 ：手工成品的一些基本信息表 成品基本信息表列名 數(shù)據(jù)類(lèi)型 允許空格成品編號(hào) nvarchar(50) 不允許成品類(lèi)別 nvarchar(50) 不允許單價(jià) nvarchar(50) 允許單位 nvarchar(50) 允許主要材料 nchar(10) 允許成品類(lèi)別 nvarchar(50) 不允許備注 nchar(10) 允許：手工成品的入庫(kù)信息表 成品入庫(kù)信息表列名 數(shù)據(jù)類(lèi)型 允許空值錄單日期 datetime 不允許錄單票號(hào) nvarchar(50) 不允許材料編號(hào) nvarchar(50) 不允許材料名稱(chēng) nvarchar(50) 不允許單位 nvarchar(50) 允許單價(jià) money 允許數(shù)量 numeric(18, 0) 允許金額 money 允許供應(yīng)商名稱(chēng) nvarchar(50) 允許備注 nvarchar(50) 允許經(jīng)手人 nchar(10) 允許入庫(kù)方式 nvarchar(50) 允許13：用于保存成品買(mǎi)家貨款信息表 列名 數(shù)據(jù)類(lèi)型 允許空值成品出庫(kù)錄單日期 datetime 不允許錄單票號(hào) nvarchar(50) 不允許買(mǎi)家 nvarchar(50) 不允許支付方式 nvarchar(50) 允許支付情況 nchar(10) 允許應(yīng)付金額 money 允許結(jié)賬金額 money 允許欠款金額 money 允許：用于保存買(mǎi)家的一些基本信息表 列名 數(shù)據(jù)類(lèi)型 允許空值買(mǎi)家編號(hào) nvarchar(50) 不允許買(mǎi)家名稱(chēng) nvarchar(50) 允許地址 nvarchar(50) 允許電話(huà) nvarchar(50) 允許傳真 nvarchar(50) 允許聯(lián)系人 nvarchar(50) 允許聯(lián)系人電話(huà) nvarchar(50) 允許開(kāi)戶(hù)銀行 nvarchar(50) 允許銀行賬號(hào) nvarchar(50) 允許備注 nvarchar(50) 允許：材料賬款的的信息表 材料賬款信息表列名 允許空值 允許空值錄單日期 datetime 不允許錄單票號(hào) nvarchar(50) 不允許供應(yīng)商名稱(chēng) nvarchar(50) 不允許支付方式 nvarchar(50) 不允許支付情況 nchar(10) 不允許應(yīng)付金額 money 不允許結(jié)賬金額 money 不允許欠款金額 money 不允許14第 5 章 系統(tǒng)詳細(xì)設(shè)計(jì)及實(shí)現(xiàn)手工成品管理系統(tǒng)的基本業(yè)務(wù)模塊包括：基本信息管理模塊；部門(mén)信息管理模塊；與倉(cāng)庫(kù)管理有關(guān)的一些模塊，系統(tǒng)管理模塊 [14]。都是為了手工工作室成品管理與成品有關(guān)的管理更方便快捷。在對(duì)手工成品管理系統(tǒng)設(shè)置了 12個(gè)權(quán)限，例如用戶(hù)權(quán)限設(shè)置、入庫(kù)管理、出庫(kù)管理、員工錄入等，擁有用戶(hù)權(quán)限設(shè)置的用戶(hù)可以自由設(shè)置其他用戶(hù)對(duì)這些管理模塊的操作權(quán)限，不同員工用戶(hù)對(duì)系統(tǒng)功能有不同的操作 [15]。這些員工基本信息在部門(mén)信息里面輸入，區(qū)分每個(gè)員工用戶(hù)的表示符是工號(hào)。入庫(kù)管理模塊主要是對(duì)材料和成品入庫(kù)，入庫(kù)統(tǒng)計(jì)，入庫(kù)分析以及賬款管理；出庫(kù)管理模塊是對(duì)材料和成品出庫(kù)，出庫(kù)分析，出庫(kù)統(tǒng)計(jì)以及賬款管理。庫(kù)存管理模塊主要是材料和成品庫(kù)存信息。 標(biāo)準(zhǔn)模塊設(shè)計(jì)標(biāo)準(zhǔn)模塊的創(chuàng)建方法是，右擊這個(gè)工程添加窗體Modulel,本系統(tǒng)的標(biāo)準(zhǔn)模塊聲明了一些了一些系統(tǒng)的全局變量，自定義功能模塊，例如數(shù)據(jù)庫(kù)連接模塊，標(biāo)準(zhǔn)模塊內(nèi)聲明的變量、子函數(shù)在整個(gè)系統(tǒng)內(nèi)都有效。其代碼如下所示。Public Function con() As 39。定義一個(gè)公共函數(shù)聲明一個(gè) Connection 對(duì)象，返回一個(gè)數(shù)據(jù)庫(kù)Set con = New 39。設(shè)置連接對(duì)象的值Provider=。Persist Security Info=False。User ID=sa。Initial Catalog=ERP1。DataSource=LenovoPCEnd Function 主窗體界面設(shè)計(jì)下面是一個(gè)窗體的主窗體的界面如圖 。圖 主窗體界面15 基本信息管理模塊設(shè)計(jì) 供應(yīng)商管理界面如圖 。圖 供應(yīng)商管理界面其主要代碼如下：Private Sub Cmd_add_Click() Dim rs As New Dim lsph As String Dim i As Integer For i = 0 To 9 Txt_info(i).text = Next i select * from 供應(yīng)商信息表 order by 供應(yīng)商編號(hào), _con, adOpenKeyset, adLockOptimistic 39。打開(kāi)供應(yīng)商信息表 39。創(chuàng)建進(jìn)貨票號(hào) If 0 Then 39。如果 rs2 的記錄集不為空 If Not Then 39。rs2 的指針移到文件尾 If (供應(yīng)商編號(hào)) Then 39。如果字段票號(hào)不為空 lsph = Right(Trim((供應(yīng)商編號(hào))), 4) + 1 39。進(jìn)貨票號(hào)加 1 Txt_info(0).text = Date amp。 gys amp。 Format(lsph, 0000) 39。格式化進(jìn)貨票號(hào) End If 39。結(jié)束 If 語(yǔ)句 Else 39。如果記錄集為空 Txt_info(0).text = Date amp。 gys amp。 0001 39。設(shè)置進(jìn)貨票號(hào) End If 39。結(jié)束 If 語(yǔ)句Txt_info(1).Enabled = TrueEnd SubPrivate Sub Cmd_del_Click()16 Dim rs As New If MsgBox(確認(rèn)刪除此供應(yīng)商信息？, vbInformation + vbYesNo, 信息提示) = vbYes Then select * from 供應(yīng)商信息表 where 供應(yīng)商編號(hào)=39。 amp。 Txt_info(0).text amp。 39。, con, adOpenKeyset, adLockOptimistic If 0 Then Command1_Click Dim i As Integer For i = 0 To 9 Txt_info(i).text = Next i End IfEnd Sub 買(mǎi)家管理模塊和供應(yīng)商模塊類(lèi)似，在此處不再贅述 成品結(jié)構(gòu)信息管理界面如圖 。圖 成品結(jié)構(gòu)信息管理界面其主要代碼如下：Private Sub Cmd_add_Click()Dim rs As New = 添加成品基本信息 select * from 成品基本信息表 order by 成品編號(hào), con, adOpenKeyset, adLockOptimistic If 0 Then (0).text = (成品編號(hào)) + 1Else End If 17End SubPrivate Sub Cmd_del_Click() Dim rs As New If MsgBox(確定刪除成品基本信息？, vbInformation + vbYesNo, 消息提示) = vbYes Then select * from 成品基本信息表 where 成品編號(hào)=39。 amp。 (, ) amp。 39。, con, adOpenKeyset, adLockOptimistic Set rs = Nothing End If = select * from 成品基本信息表 order by 成品編號(hào) Set = Adodc2 tree_changeEnd Sub材料結(jié)構(gòu)信息管理與此類(lèi)似，此處不再贅述。 部門(mén)信息管理模塊 部門(mén)管理界面如圖 。 圖 部門(mén)管理界面其主要代碼如下：Case addnew 39。添加同級(jí) tlbState False blnTJ = True blnAdd = True18 For i = 0 To Text1(i).text = Next i If 0 Then 39。 的選定的對(duì)象，未選定時(shí)屬性為 null，打開(kāi)部門(mén)信息表部門(mén)全稱(chēng)為當(dāng)前選定節(jié)點(diǎn)的關(guān)鍵詞 select * from 部門(mén)信息表 where 部門(mén)全稱(chēng)=39。 + + 39。order by 編碼級(jí)次, con, adOpenKeyset, adLockOptimistic If 0 Then bmjc = (編碼級(jí)次) End If 39。打開(kāi)部門(mén)信息表，部門(mén)全稱(chēng)為模糊查詢(xún)它父節(jié)點(diǎn)編號(hào)和本級(jí)編碼級(jí)次 select * from 部門(mén)信息表 where 部門(mén)全稱(chēng) like 39。 + Left(, (bmjc 1) * 2) + 39。+39。%39。and 編碼級(jí)次= amp。 bmjc amp。 , con, adOpenKeyset, adLockOptimistic If 0 Then 39。記錄集大于 0 39。記錄集移動(dòng)到最后一個(gè) Text1(1) = Format(Val((本級(jí)編號(hào))) + 1, 00) 39。format()格式化輸出為“00”的格式，val() 將字符型數(shù)值轉(zhuǎn)變?yōu)閿?shù)值 Text1(0) = Left((部門(mén)編號(hào)), Val(bmjc 1) * 2) amp。 Text1(1) 39。部門(mén)編號(hào)為其父節(jié)點(diǎn)部門(mén)編號(hào)+本級(jí)編號(hào) Else 39。記錄集小于 0 Text1(1) = 01 39。本級(jí)編號(hào)為 01 For i = 1 To bmjc Text1(0) = Text1(0) amp。 01 39。那么 Next i End If Text1(2).SetFocus Case modify 39。修改 blnAdd = False tlbState False lngOL = Len(( amp。 Text1(1) amp。 ) amp。 Text1(2)) Text1(2).SetFocus 員工管理界面如圖 ：圖 員工管理界面19其主要代碼如下：Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case add blnAddRS = True Load rsgl_yglr