【文章內(nèi)容簡介】 碼的操作 [13]。 手工成品管理系統(tǒng) ER 圖如圖 所示： 9 部 門擁 有員 工采 購材 料銷 售商 品供 貨 商買 家提 供購 買部 門 編 號 部 門 名 稱 部 門 主 管 部 門 電 話工 號姓 名密 碼性 別編 號編 號名 稱 銀 行 賬 號編 號 名 稱銀 行 賬 號名 稱 材 料 屬 性 編 號 姓 名 成 品 類 別 圖 ER 圖 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 本手工成品管理系統(tǒng)系統(tǒng)使用 SQL Server 2020 數(shù)據(jù)庫，數(shù)據(jù)庫名為 ERP1。 表的信息如下所示。 表：用于保存 員工用戶的一些 基本信息 10 表 用戶表 列名 數(shù)據(jù)類型 允許空值 工號 varchar(5) 不允許 姓名 varchar(10) 不允許 性別 varchar(2) 不允許 身份證號 varchar(20) 不允許 出生年月 datetime 允許 年齡 varchar(4) 允許 民族 varchar(20) 允許 婚姻狀況 varchar(4) 允許 政治面貌 varchar(10) 允許 入黨團時間 datetime 允許 籍貫 varchar(50) 不允許 聯(lián)系電話 varchar(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) 允許 11 ：手工材料入庫的信息 表 材料入庫信息表 列名 數(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) 允許 12 ：用于保存成品買家貨款信息 表 成品貨款信息表 列名 數(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 不允許 13 第 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=LenovoPC End Function 主窗體界面設(shè)計 下面是一個窗體的主窗體的界面如圖 所示。 圖 主窗體界面 14 供應(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 = True End Sub Private Sub Cmd_del_Click() 15 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 If End 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 = (成品編號 ) + 1 Else End If 16 End Sub Private 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_change End Sub 材料結(jié)構(gòu)信息管理與此類似，此處不再贅述。 部門管理 界面如圖 所示。 圖 部門管理界面 其主要代碼如下： Case addnew 39。添加同級 tlbState False blnTJ = True blnAdd = True 17 For i = 0 To Text1(i).text = Next i If 0 Then 39。 的選定的對象，未選定時屬性為 null，打開部門信息表部門全稱為當(dāng)前選定節(jié)點的關(guān)鍵詞 select * from 部門信息表 where 部門全稱 =39。 + + 39。order by 編碼級次 , con,