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