【正文】 2rk0001 s00001 工字鋼 10A 鞍鋼 噸 1000 10 2021522rk0002 s00002 槽鋼 20A 武鋼 噸 2021 10 2021522rk0003 s00003 角鋼 180A 首鋼 噸 3000 10 2021522rk0004 s00004 扁鋼 160A 武鋼 噸 3500 10 金額 倉庫 供應商 經手人 日期 10000 主庫 雙遼鋼材公司 李明 2021522 20210 東 庫 北方鋼材批發(fā)公司 李明 2021522 30000 西庫 東方鋼材批發(fā)公司 李明 2021522 35000 西庫 東方鋼材批發(fā)公司 李明 2021522 字段名 字段類 型 字段大小 主鍵 外鍵 可否為空 備注 入庫票號 char 30 是 是 N 是 rkd 的外鍵 品種數 numeric 9 Y 數量 numeric 9 Y （ 2） 表中樣例數據 表 入庫 票號 表 樣例數據 商品信息 表 （ spinf） 金額 money 8 Y 折扣 numeric 9 Y 稅率 numeric 9 Y 應付 money 8 Y 實付 money 8 Y 未付 money 8 Y 供應商全稱 char 50 是 N 是 gys 的外鍵 日期 datetime 8 Y 付款方式 char 10 Y 是否結清 bit 1 Y 入庫票號 品種數 數量 金額 折扣 稅率 應付 2021522rk0001 1 10 10000 10 0 10000 2021522rk0002 1 10 20210 9 18180 2021522rk0003 1 10 30000 9 27027 2021522rk0004 1 10 35000 9 31815 實付 未付 供應商全稱 日期 付款方式 是否結清 10000 0 雙遼鋼材公司 2021522 現金 1 18180 0 北 方鋼材批發(fā)公司 2021522 現金 1 10000 17027 東方鋼材批發(fā)公司 2021522 現金 0 20210 11815 東方鋼材批發(fā)公司 2021522 現金 0 該表主要用于 保存 商品基礎 信息 （ 1） 表結構 表 商品信息 表 （ 2） 表中樣例數據 表 商品信息 表 樣例數據 字段名 字段類型 字段大小 主鍵 外鍵 可否為空 備注 商品編號 char 8 是 N 商品名稱 char 100 N UNIQUE 簡稱 char 10 Y 規(guī)格 char 40 Y 產地 char 50 Y 單位 char 6 Y 進價 money 8 Y 批發(fā)價 money 8 Y 零售價 money 8 Y 供貨信息 char 200 Y 備注 char 200 Y 商品編號 商品名稱 簡稱 規(guī)格 產地 單位 進價 s00001 工字鋼 GZG 10A 鞍鋼 噸 1000 s00002 槽鋼 CG 20A 武鋼 噸 2021 s00003 角鋼 JG 180A 首鋼 噸 3000 S00004 扁鋼 BG 160B 武鋼 噸 3500 1銷售單 表 （ xsd） 該表主要用于 保存銷售商品的詳細信息 （ 1） 表結構 表 銷售 單 表 批發(fā)價 零售價 供貨信息 備注 1100 1200 凱旋路鋼材市場 無 2100 2200 凱旋路鋼材市場 無 3100 3200 銀河路鋼材批發(fā)市場 無 3600 3700 北塔鋼材市場 無 字段名 字段類型 字段大小 主鍵 外鍵 可否為空 備注 票號 char 30 是 N 商品編號 char 8 是 N 是 spinf 的外鍵 商品名稱 char 100 是 N 是 spinf 的外鍵 規(guī)格 char 40 Y 產地 char 50 Y 單位 char 6 Y 單價 money 8 Y 數量 numeric 9 Y 金額 money 8 Y 倉庫 char 20 N 是 ckinf 的外鍵 客戶全稱 char 50 N 是 kh 的外鍵 經手人 char 10 Y 日期 datetime 8 Y （ 2） 表中樣例數據 表 入 庫單 表 樣例數據 1銷售票號 表 （ xsph） 該表主要用于 保存銷售商品的單據信息 （ 1） 表結構 表 銷售 票號 表 票號 商品編號 商品名稱 規(guī)格 產地 單位 進價 2021522xs0001 s00001 工字鋼 10A 鞍鋼 噸 1200 2021522xs0002 s00002 槽鋼 20A 武鋼 噸 2200 2021522xs0003 s00003 角鋼 180A 通鋼 噸 3200 數量 金額 倉庫 供應商 經手人 日期 1 1200 主褲 天澤裝潢公司 王丹 2021522 3 6600 東庫 三達裝飾公司 王丹 2021522 5 16000 西庫 美飾裝修公司 王丹 2021522 字段名 字段類型 字段大小 主鍵 外鍵 可否為空 備注 銷售票號 char 30 是 是 N 是 xsd 的外鍵 品種數 numeric 9 Y 數量 numeric 9 Y 金額 money 8 Y 折扣 numeric 9 Y 稅率 numeric 9 Y 應付 money 8 Y 實付 money 8 Y 未付 money 8 Y 客戶全稱 char 50 是 N 是 kh 的外鍵 （ 2） 表中樣例數據 表 銷售票號 表 樣例數據 日期 datetime 8 Y 付款方式 char 10 Y 是否結清 bit 1 Y 銷售 票號 品種數 數量 金額 折扣 稅率 應付 實付 2021519xs0001 1 1 1200 10 0 1200 1200 2021519xs0002 1 6 6600 9 2021519xs0003 2 6 19700 9 10000 未付 供應商全稱 日期 付款方式 是否結清 0 天澤裝潢公司 2021522 現金 1 0 三達裝飾公司 2021522 現金 1 美飾裝修公司 2021522 轉帳支票 0 數據庫 關系設計 以下是 四海公司鋼材銷售 管理系統(tǒng)的表關系圖。 圖 四海公司鋼材銷售 管理系統(tǒng)表關系圖 第 6 章 詳細設計 詳細設計階段的任務是在總體設計的基礎上進一步確定如何實現目標系統(tǒng) ，從軟件開發(fā)的工程化觀點來看，在使用程序設計語言編制程序以前，需要對所有采用算法的邏輯關系進行分析，設計出全部必要的過程細節(jié)，并給予清晰的表達，使之成為編碼的依據。 命名規(guī)則 系統(tǒng)設計中 的標識符命名 遵守 下述約定 。 變量 或常量 命名 必須 由 字母或漢字 開頭，由字母、漢字、數字、下劃線組成，長度小于等于 255個字符；不 能 使用 vb 中關鍵字； VB 中不區(qū)分變量名的大小寫，如： XYZ， xyz， xYz等都認為指的是一個相同的變量名。為了區(qū)分，一般變量首字母用大寫字母，其余小寫表示，常量全部用大寫字母表示。 為增加程序可讀性在變量名前加一個縮寫的前綴，數據類型前綴和 首字母 大寫的具有相應含義的英文單詞構成，前綴與 各單詞之間以下劃線連接。 對象命名 對象名由標識對象的前綴和具有相應含義 (或含義相近 )的英文單詞構 成 ； 單詞構成復雜的，可用漢語拼音頭 組合而成；靜態(tài)文本對象可用前綴 。如： “確定 ”按鈕命名為： cmdok “取消 ”按鈕命名為： cmdend 表示姓名的 “ 靜態(tài)文本 ” 命名 可 為： text1 設計中 主要 涉及的控件對象及其前綴表： 表 控件對象 前綴 前綴 控件對象名稱 說明 cmd CommandButton 命令按鈕 text Textbox 靜態(tài)文本 check CheckBox 復選框 DTP DTPicker 日歷控件 Combo Combobox 組合 框 gird Dategird 數據列 表控件 MS MSFlexGird 數據網格 控件 st StatusBar 狀態(tài)欄控件 模塊設計 登錄 窗口 設計 登錄窗口 功能描述 登錄窗口用于對進入系統(tǒng)的人員進行身份識別和權限級別的確認。對未在系統(tǒng)注冊的使用人員進行限制，非法進入三次便自動退出。 對已在系統(tǒng)注冊 的 人員，在正確輸入用戶名和密碼后 ，便 進入系統(tǒng) 主窗口 ，同時 根據用戶的權限級別開放主窗口中的菜單 的相應功能， 并禁止 不相關 的 功能。 登錄窗口界面 圖 登錄 窗口 登錄窗口界面說明 登錄窗口是進入系統(tǒng)的第一個啟動窗 口。在 文本框中依次 正確輸入用戶編號、用戶名和密碼后，單擊 “ 確定 ” 按鈕，便進入系統(tǒng) 主窗口 ；若不正確，重新輸入各項，重復三次都不能進入系統(tǒng)便自動退出。單擊 “ 退出 ” 按鈕退出系統(tǒng)。 主要控件對象的屬性設計 表 主要控件對象屬性列表 編號 對象名 含義 屬性 取值 1 main_mima 登錄窗口 caption 四海公司鋼材銷售系統(tǒng) Picture 圖片文件 2 bo 組合框 datesource 無 3 password 文本框 passwordchar * 4 Lable1 靜 態(tài)文本 Text 四海公司鋼材銷售系統(tǒng) 5 Lable2 用戶 6 Lable3 密碼 7 Comok 命令按鈕 caption 確定 8 end 退出 登錄窗口對象 主要 代碼實現 （ 1） “確定”按鈕的單擊事件代碼 Dim 用戶名 As String Dim 密碼 As String Dim MESSAGE As String 用戶名 = 密碼 = If TIM = 3 Then MESSAGE = MsgBox(密碼輸入錯誤 ,請向系統(tǒng)管理員查詢 !, 0, ) If MESSAGE = vbOK Then End End If If 用戶名 = Then MsgBox 您還沒有選擇用戶名！ , , 提示 Exit Sub End If Set = = select 用戶名 ,權限 from qxb where 用戶名 = + 39。 + 用戶名 + 39。 + and 密碼 = + 39。 + 密碼 + 39。 Set rs = If Then MsgBox 密碼錯誤 ,請重新輸入！ TIM = TIM + 1 Else qxm = Trim((1)) Unload Me End If Exit Sub err: MsgBox , , 信息 End Sub （ 2） “退出”按鈕的單擊事件代碼 Unload Me End 商品銷售 窗口 設計 商品銷售 窗口 功能描述 以前臺業(yè)務員權限的用戶名和密碼進入主界面后，選擇 “ 商品銷售 ”項進入商品銷售模塊。主要完成鋼材銷售工作，付款方式可采用現金和支票，并可掛賬；銷售采用表單式錄入， 系統(tǒng)自動生成銷售票號，可利用組合鍵選擇客戶信息； 在“商品名稱”欄內輸入商品名稱或簡稱的前幾個字或按 pageDown 鍵，系統(tǒng)自動