sqlvb超市管理系統(tǒng)論文、sql數(shù)據(jù)庫課程設(shè)計(jì)(編輯修改稿)
2024-09-03 12:39 本頁面
【文章內(nèi)容簡介】 )經(jīng)濟(jì)可行性（系統(tǒng)的經(jīng)濟(jì)效益是否能超過它的開發(fā)成本）： 產(chǎn)生的經(jīng)濟(jì)效益遠(yuǎn)超過它的開發(fā)成本。需求分析是軟件定義時期的最后一個階段,它的基本任務(wù)是準(zhǔn)確地回答“系統(tǒng)必須做什么”這個問題，需求分析的任務(wù)還不是確定系統(tǒng)怎樣完成它的工作，而僅僅是確定系統(tǒng)必須完成哪些工作，也就是對目標(biāo)系統(tǒng)提出完整、準(zhǔn)確、清晰、具體的要求。 可行性研究階段產(chǎn)生的文檔是需求分析的出發(fā)點(diǎn)。需求分析階段系統(tǒng)本人仔細(xì)研究超市管理系統(tǒng)應(yīng)實(shí)現(xiàn)的功能并將它們具體化。針對一般超市管理系統(tǒng)的需求，通過對超市管理工作過程的(2)銷售記錄查詢：包括銷售號、銷售職工號、商品號和銷售時間等信息。 (3)銷售員工信息表，包含的數(shù)據(jù)項(xiàng)有職工號、姓名、性別和用戶類型等 系統(tǒng)層次劃分圖 4 該功能可以實(shí)現(xiàn)用戶的注冊和登錄 （） 用戶注冊5 注冊功能代碼Private Sub 注冊_Click()If = amp。quot。amp。quot。 Or = amp。quot。amp。quot。 ThenMsgBox amp。quot。用戶名和密碼不能為空amp。quot。, 16 + 4, amp。quot。警告amp。quot。ElseDim rs As New str1 = amp。quot。select * from 登錄表 where 用戶名=‘a(chǎn)mp。quot。 amp。amp。 amp。amp。 amp。quot。’amp。quot。 str1, , 1, 3rs(amp。quot。用戶名amp。quot。) = rs(amp。quot。密碼amp。quot。) = MsgBox amp。quot。注冊成功amp。quot。, 64, amp。quot。信息提示amp。quot。End IfEnd SubPrivate Sub Command1_Click()strsql = amp。quot。select * from 登錄表 where 用戶名=‘a(chǎn)mp。quot。 amp。amp。 amp。amp。 amp。quot。’amp。quot。 amp。amp。 amp。quot。and 密碼=‘a(chǎn)mp。quot。 amp。amp。 amp。amp。 amp。quot?！痑mp。quot。 strsql, , 1, 3If ThenMsgBox amp。quot。用戶名或密碼錯了amp。quot。, 32, amp。quot。警告amp。quot。ElseUnload MeEnd IfEnd Sub6 Private Sub Form_Load() = amp。quot。Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=超市管理amp。quot。End Sub（） 登錄后主界面Dim As New Dim rs As New ‘Download by Private Sub Command1_Click()Unload Me7 End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()Unload MeEnd Sub 8 Private Sub Command1_Click()str1 = amp。quot。select * from 商品表 where 商品號=‘a(chǎn)mp。quot。 amp。amp。 amp。amp。 amp。quot?！痑mp。quot。 If = 1 ThenEnd If str1, , 1, 3If ThenMsgBox amp。quot。該商品不存在amp。quot。 = adCmdText = str1Else = rs(amp。quot。商品號amp。quot。) = rs(amp。quot。商品名稱amp。quot。) = rs(amp。quot。庫存量amp。quot。) = rs(amp。quot。商品類型amp。quot。) = rs(amp。quot。廠商amp。quot。) = rs(amp。quot。單價amp。quot。)End IfEnd SubPrivate Sub Command2_Click()str1 = amp。quot。select * from 商品表 where 商品號=‘a(chǎn)mp。quot。 amp。amp。 amp。amp。 amp。quot。’amp。quot。 If = 1 ThenEnd If str1, , 1, 39 If Thenrs(amp。quot。商品號amp。quot。) = rs(amp。quot。商品名稱amp。quot。) = rs(amp。quot。庫存量amp。quot。) = rs(amp。quot。商品類型amp。quot。) = rs(amp。quot。廠商amp。quot。) = rs(amp。quot。單價amp。quot。) = MsgBox amp。quot。數(shù)據(jù)添加成功amp。quot。, 64, amp。quot。信息提示amp。quot。 = adCmdText = amp。quot。select * from 商品表amp。quot。 = amp。quot。amp。quot。 = amp。quot。amp。quot。 = amp。quot。amp。quot。 = amp。quot。amp。quot。 = amp。quot。amp。quot。 = amp。quot。amp。quot。ElseMsgBox amp。quot。該商品已經(jīng)存在了amp。quot。, 16, amp。quot。警告amp。quot。 End IfEnd SubPrivate Sub Command4_Click()Dim rs As New Dim rs1 As New If = 1 Then10 End IfIf = 1 ThenEnd If amp。quot。select * from 商品表 where 商品號=‘a(chǎn)mp。quot。 amp。amp。 amp。amp。 amp。quot?！痑nd 商品名稱=‘a(chǎn)mp。quot。 amp。amp。 amp。amp。 amp。quot?！痑mp。quot。, , 1, 3If ThenMsgBox amp。quot。沒有此種商品不能刪除！amp。quot。Else amp。quot。delete 商品表 where 商品號=‘a(chǎn)mp。quot。 amp。amp。 amp。amp。 amp。quot?！?and 商品名稱=‘a(chǎn)mp。quot。 amp。amp。 amp。amp。 amp。quot?！痑mp。quot。, , 1, 3MsgBox amp。quot。確定刪除嗎amp。quot。, 32 + 4, amp。quot。警告amp。quot。 = adCmdText = amp。quot。select * from 商
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1