數(shù)據(jù)庫課程設(shè)計(jì)sqlvb小型超市管理系統(tǒng)論文-在線瀏覽
2025-02-17 23:04本頁面
【正文】 一些針對(duì)事件的許多小的模塊子程序（也稱過程）。為了滿 足人們對(duì)數(shù)據(jù)庫的需要， Visual Basic 提供了強(qiáng)大的數(shù)據(jù)庫程序設(shè)計(jì)能力。另外， Visual Basic 還提供了開放式數(shù)據(jù)庫連接（ ODBC）功能，可以通過直接訪問或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫，如 SQL Server， Oracle 等。 ． SQL SERVER 2021 數(shù)據(jù)庫的簡(jiǎn)介 SQL 是一種標(biāo)準(zhǔn)，是一門 ANSI 的標(biāo)準(zhǔn)計(jì)算機(jī)語言，用來訪問和操作數(shù)據(jù)庫系統(tǒng)。 SQL 可與數(shù)據(jù)庫程序協(xié)同工作，比如 MS Access、 DB Informix、 MS SQL Server、 Oracle、 Sybase 以及其他數(shù)據(jù)庫系統(tǒng)。 SQL 語言的主要功能就是同各種數(shù)據(jù)庫建立聯(lián)系，進(jìn)行溝通。 SQL 語句可以用來執(zhí)行各種各樣的操作，例如更新數(shù)據(jù)庫中的數(shù)據(jù)，從數(shù)據(jù)庫中提取數(shù)據(jù)等。雖然很多數(shù)據(jù)庫都對(duì) SQL 語句進(jìn)行了再開發(fā)和擴(kuò)展，但是包括 Select, Insert, Update, Delete, Create,以及 Drop 在內(nèi)的標(biāo)準(zhǔn)的 SQL 命令 仍然可以被用來完成幾乎所有的數(shù)據(jù)庫操作。在軟件開發(fā)的不同階段進(jìn)行修改需要付出的代價(jià)是很不相同的，越在早期改正錯(cuò)誤，付出的代價(jià)就越小，了解了它的重要性之后，我明白前期工作一定要做好才能更好地提高工作效率。 可行性研究 可行性研究的目的就 是用最小的代價(jià)在盡可能短的時(shí)間內(nèi)確定問題是否能夠解決。不能靠主觀猜想，只能靠客觀分析。 (2)操作可行性（系統(tǒng)的操作方式在這個(gè)用戶組織能行的通嗎）： 本系統(tǒng)操作簡(jiǎn)單，系統(tǒng)的運(yùn)行不需要特定的環(huán)境。 需求分析 需求分析是軟件定義時(shí)期的最后一個(gè)階段 ,它的基本任務(wù)是準(zhǔn)確地回答“系統(tǒng)必須做什么 ”這個(gè)問題，需求分析的任務(wù)還不是確定系統(tǒng)怎樣完成它的工作，而僅僅是確定系統(tǒng)必須完成哪些工作，也就是對(duì)目標(biāo)系統(tǒng)提出完整、準(zhǔn)確、清晰、具體的要求。需求分析階段系統(tǒng)本人仔細(xì)研究超市管理系統(tǒng)應(yīng)實(shí)現(xiàn)的功能并將它們具體化。 (2)銷售記錄查詢：包括銷售號(hào)、銷售職工號(hào)、商品號(hào)和銷售時(shí)間等信息。 amp。 39。 amp。 39。 and 密碼 =39。 amp。 商品信息查詢 銷售記錄查詢 銷售員工信息 廣州大學(xué)松田學(xué)院 2021 級(jí)數(shù)據(jù)庫原理課程設(shè)計(jì) 6 strsql, , 1, 3 If Then MsgBox 用戶名或密碼錯(cuò)了 , 32, 警告 Else Unload Me End If End Sub 登錄界面相關(guān)功能與數(shù)據(jù)庫連接的代碼 Private Sub Form_Load() = Provider=。Persist Security Info=False。Download by Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command4_Click() Unload Me End Sub 商品信息查詢界面及其相關(guān)功能代碼 查詢商品信息功能代碼 Private Sub Command1_Click() str1 = select * from 商品表 where 商品號(hào) =39。 amp。 If = 1 Then End If 廣州大學(xué)松田學(xué)院 2021 級(jí)數(shù)據(jù)庫原理課程設(shè)計(jì) 8 str1, , 1, 3 If Then MsgBox 該商品不存在 = adCmdText = str1 Else = rs(商品號(hào) ) = rs(商品名稱 ) = rs(庫存量 ) = rs(商品類型 ) = rs(廠商 ) = rs(單價(jià) ) End If End Sub 添加商品功能代碼 Private Sub Command2_Click() str1 = select * from 商品表 where 商品號(hào) =39。 amp。 If = 1 Then End If str1, , 1, 3 If Then rs(商品號(hào) ) = rs(商品名稱 ) = rs(庫存量 ) = rs(商品類型 ) = rs(廠商 ) = 廣州大學(xué)松田學(xué)院 2021 級(jí)數(shù)據(jù)庫原理課程設(shè)計(jì) 9 rs(單價(jià) ) = MsgBox 數(shù)據(jù)添加成功 , 64, 信息提示 = adCmdText = select * from 商品表 = = = = = = Else MsgBox 該商品已經(jīng)存在了 , 16, 警告 End If End Sub 刪除商品信息功能代碼 Private Sub Command4_Click() Dim rs As New Dim rs1 As New If = 1 Then End If If = 1 Then End If select * from 商品表 where 商品號(hào) =39。 amp。and 商品名稱 =39。 amp。, , 1, 3 If Then 廣州大學(xué)松田學(xué)院 2021 級(jí)數(shù)據(jù)庫原理課程設(shè)計(jì) 10 MsgBox 沒有此種商品不能刪除！ Else delete 商品表 where 商品號(hào) =39。 amp。 and 商品名稱 =39。 amp。, , 1, 3 MsgBox 確定刪除嗎 , 32 + 4, 警告 = adCmdText = select * from 商品表 End If = = = = = = End Sub 商品信息功能與數(shù)據(jù)庫連接代碼 Private Sub Form_Load() = Provider=。Persist Security Info=False。 amp。 39。 amp。 39。x amp。 If = 1 Then End If str1, , 1, 3 39。Integrated Security=SSPI。Initial Catalog=超市管理 End Sub 員工信息查詢界面及其相關(guān)功能代碼 添加員工信息功能代碼 Private Sub Command1_Click() str1 = select * from 銷售人員表 where 職工號(hào) =39。 amp。 If = 1 Then End If str1, , 1, 3 If Then 廣州大學(xué)松田學(xué)院 2021 級(jí)數(shù)據(jù)庫原理課程設(shè)計(jì) 14 rs(職工號(hào) ) = rs(姓名 ) = rs(性別 ) = rs(用戶類型 ) = MsgBox 用戶添加成功 , 64, 信息提示 = adCmdText = select *
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1