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