sqlvb超市管理系統(tǒng)論文、sql數(shù)據(jù)庫課程設計(編輯修改稿)
2025-03-09 09:21 本頁面
【文章內(nèi)容簡介】 DB Informix、 MS SQL Server、 Oracle、 Sybase 以及其他數(shù)據(jù)庫系統(tǒng)。 SQL(Structured Query Language)，結構化查詢語言。 SQL語言的主要功能就是同各種數(shù)據(jù)庫建立聯(lián)系，進行溝通。按照 ANSI(美國國家標準協(xié)會 )的規(guī)定， SQL被作為關系型數(shù)據(jù)庫管理系統(tǒng)的標準語言。 SQL 語句可以用來執(zhí)行各種各樣的操作，例如更新數(shù)據(jù)庫中的數(shù)據(jù)，從數(shù)據(jù)庫中提取數(shù)據(jù)等。絕大多數(shù)流行的關系型數(shù)據(jù)庫管理系統(tǒng)都采用了 SQL語言標準。雖然很多數(shù)據(jù)庫都對 SQL語句進行了再開發(fā)和擴展，但是包括 Select, Insert, Update, Delete, Create,以及 Drop在內(nèi)的標準的 SQL命令仍然可以被用來完成幾乎所有的數(shù)據(jù)庫操作。 軟件開發(fā)最初的工作就是問題定義，也就是確定超市中要求解決 的問題是什么；做好軟件定義時期的工作是降低軟件成本提高軟件質(zhì)量的關鍵。在軟件開發(fā)的不同階段進行修改需要付出的代價是很不相同的，越在早期改正錯誤，付出的代價就越小，了解了它的重要性之后，我明白前期工作一定要做好才能更好地提高工作效率。我把任務超市又仔細地研究了一遍，充分明白了它的要求后，接下來作可行性研究，只有做好可行性研究才有可能把以后的工作做好。 可行性研究的目的就是用最小的代價在盡可能短的時間內(nèi)確定問題是否能夠解決?？尚行匝芯康哪康牟皇墙鉀Q問題，而是確定問題是否值得去解決。不能靠主 觀猜 3 想，只能靠客觀分析。 首先應該近一步地分析和澄清問題定義，如果正確則進一步加以肯定，如果有錯則應立刻改正，經(jīng)過仔細審查，然后從三方面分析它的可行性： (1)技術可行性（即使用現(xiàn)有的技術能實現(xiàn)這個系統(tǒng)嗎）： VB 功能強大，能用簡單的方法完成復雜的問題。 (2)操作可行性（系統(tǒng)的操作方式在這個用戶組織能行的通嗎）： 本系統(tǒng)操作簡單，系統(tǒng)的運行不需要特定的環(huán)境。 (3)經(jīng)濟可行性（系統(tǒng)的經(jīng)濟效益是否能超過它的開發(fā)成本）： 產(chǎn)生的經(jīng)濟效益遠超過它的開發(fā)成本。 需求分析 是軟件定義時期的最后一個階段 ,它的基本任務是準確地回答 “系統(tǒng)必須做什么 ”這個問題，需求分析的任務還不是確定系統(tǒng)怎樣完成它的工作，而僅僅是確定系統(tǒng)必須完成哪些工作，也就是對目標系統(tǒng)提出完整、準確、清晰、具體的要求。 可行性研究階段產(chǎn)生的文檔是需求分析的出發(fā)點。需求分析階段系統(tǒng)本人仔細研究超市管理系統(tǒng)應實現(xiàn)的功能并將它們具體化。 針對一般超市管理系統(tǒng)的需求，通過對超市管理工作過程的 (2)銷售記錄查詢：包括銷售號、銷售職工號、商品號和銷售時間等信息。 (3)銷售員工信息表，包含的數(shù)據(jù)項有職工號、姓名、性別和用戶 類型等 圖 系統(tǒng)層次劃分圖 4 該功能可以實現(xiàn)用戶的注冊和登錄 （圖 ） 圖 用戶注冊 5 注冊功能代碼 Private Sub 注冊 _Click() If = Or = Then MsgBox 用戶名和密碼不能為空 , 16 + 4, 警告 Else Dim rs As New str1 = select * from 登錄表 where 用戶名 =? amp。 amp。 ? str1, , 1, 3 rs(用戶名 ) = rs(密碼 ) = MsgBox 注冊成功 , 64, 信息提示 End If End Sub Private Sub Command1_Click() strsql = select * from 登錄表 where 用戶名 =? amp。 amp。 ? amp。 and 密碼 =? amp。 amp。 ? strsql, , 1, 3 If Then MsgBox 用戶名或密碼錯了 , 32, 警告 Else Unload Me End If End Sub 6 Private Sub Form_Load() = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=超市管理 End Sub （圖 ） 圖 登錄后主界面 Dim As New Dim rs As New ?Download by Private Sub Command1_Click() Unload Me 7 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 8 Private Sub Command1_Click() str1 = select * from 商品表 where 商品號 =? amp。 amp。 ? If = 1 Then End If str1, , 1, 3 If Then MsgBox 該商品不存在 = adCmdText = str1 Else = rs(商品號 ) = rs(商品名稱 ) = rs(庫存量 ) = rs(商品類型 ) = rs(廠商 ) = rs(單價 ) End If End Sub Private Sub Command2_Click() str1 = select * from 商品表 where 商品號 =? amp。 amp。 ? If = 1 Then End If str1, , 1, 3 9 If Then rs(商品號 ) = rs(商品名稱 ) = rs(庫存量 ) = rs(商品類型 ) = rs(廠商 ) = rs(單價 ) = MsgBox 數(shù) 據(jù) 添 加 成 功 , 64, 信息提示 = adCmdText = select * from 商品表 = = = = = = Else MsgBox 該商品已經(jīng)存在了 , 16, 警告 End If End Sub
公司管理相關推薦
鄂ICP備17016276號-1