【正文】 美國微軟公司在 1991 年推出 至今已經(jīng)經(jīng)歷了 6 個版本， 運行在 win9x 或 winme， win2021， winxp， windowsNT 等操作系統(tǒng)下，是一個 32 位的應(yīng)用程序開發(fā)工具。 ? 過程可遞歸調(diào)用，使程序更為簡練。利用 OLE 技術(shù)， VB將其他應(yīng)用軟件視為一個對象嵌入到 VB應(yīng)用程序中，進行各種操作，也可將各種基于 Windows 的應(yīng)用程序嵌入到 VB 應(yīng)用程序，實現(xiàn)聲音、圖像、動畫等多媒 第二章 實現(xiàn)關(guān)系型數(shù)據(jù)庫 數(shù)據(jù)庫的概念 數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進行操作的工具。這三種 操作均可由 Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細描述實現(xiàn)的具體方法。數(shù)據(jù)庫本身可被看作為一種電子文件柜：也就是說，它是收集計算機數(shù)據(jù)文件的倉庫或容器。此后，只要發(fā)布新版本的 Access,就會有相應(yīng)版本的 Jet 數(shù)據(jù)庫 問世。如果要借助人工來實現(xiàn)這一系列數(shù)據(jù)的記錄和管理，工作量將極為巨大，而且容易出現(xiàn)錯誤，造成管理上的混亂；更何況還需要對服裝的數(shù)據(jù)進行統(tǒng)計和分析。服裝的銷售信息包括順序號、服 裝名稱、客戶名稱、購買數(shù)量、售出價格、銷售日期、規(guī)格、總金額等。 服裝服裝庫存信息管理系統(tǒng)是一個基于管理員的系統(tǒng)，它只有管理員才能對他進行操作。 4銷售管理模塊 銷售信息管理模塊用來跟蹤服裝的每一次銷售的信息。對應(yīng)密碼： admin。判斷是否有這個用戶 txtSql = select * from 系統(tǒng)用戶 where 用戶名 = 39。如果有用戶 If Trim((1)) = Trim() Then 39。無權(quán) IsUserMode = 0 MsgBox 你沒有權(quán)限 !, vbExclamation, 警告 End End If UserPrivs = Trim((2)) UserName = Trim() Unload Me Exit Sub Else MsgBox 輸入密碼不正確，請重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If miCount = miCount + 1 If miCount = 3 Then 39。記錄密碼輸入的次數(shù)，累計到 3 此則自動結(jié)束程序 End If 系統(tǒng)管理表單 “系統(tǒng)管理表單”可以增加用戶，使更多的人可以訪問該系統(tǒng)。 39。 () MsgBox 操作已成功 !, , 提示 End Sub Private Sub Command5_Click() 39。初始化代碼 On Error GoTo Err = = = = Dim rs1 As New select * from 系統(tǒng)用戶 , CN, adOpenStatic, adLockOptimistic While Not If Not IsNull((0)) Then Trim((0)) Wend Err: End Sub 修改密碼表單 使用此功能的用戶，必須是具有訪問該系統(tǒng)的權(quán)限，即是能登陸到該系統(tǒng)的用戶，如果不能訪問該系統(tǒng)的用戶不能使用該功能。 UserName amp。 amp。 修改銷售單：點擊修改按鈕則彈出“修改銷售單”的窗體。 amp。其次，這些天對畢業(yè)設(shè)計所做的工作， 使我更加認識到了基本知識的重要，沒有良好的基本知識，就不可能的到預(yù)期的結(jié)果，所以，我必須更加注重基本的學(xué)習(xí)和應(yīng)用。 本系統(tǒng)尚存的問題 由于本系統(tǒng)設(shè)計的時間急迫 ，而且有些準(zhǔn)備不足，所以再設(shè)計過程中出現(xiàn)了一些不必要的錯誤，為了這些錯誤我耽誤了不少時間，更浪費了很多的精力，所以，使以后的設(shè)計工作顯得時間倉促。s shoulder and looked at him cheekily. You may be a pain in the neck sometimes, but I39。t in the movie. Billy was extrapolating. Everybody turned into a baby, and all humanity, without exception, conspired biologically to produce two perfect people named Adam and Eve, he supposed. Billy saw the war movies bac kwards then forwardsand then it was time to go out into his backyard to meet the flying saucer. Out he went, his blue and ivory feet crushing the wet salad of the lawn. He stopped, took a swig, of the dead champagne. It was like 7Up. He would not raise his eyes to the sky, though he knew there was a flying saucer from Tralfamadore up there. He would see it soon enough, inside and out, and he would see, too, where it came from soon enoughsoon enough. Overhead he heard the cry of what might have been a melodious owl, but it wasn39。 Billy licked his lips, thought a while, inquired at last: 39。s atmosphere now, put him to sleep. They carded him to a cabin where he was strapped to a yellow BarcaLounger which they had stolen from a Sears amp。s a rtificial habitat in a zoo on Tralfamadore. The terrific acceleration of the saucer as it left Earth twisted Billy39。 That is a very Earthling question to ask, Mr. Pilgrim. Why you? Why us for that matter? Why anything? Because this moment simply is. Have you ever seen bugs trapped in amber?39。s will was paralyzed by a zap gun aimed at him from one of the portholes. It became imperative that he take hold of the bottom rung of the sinuous ladder, which he did. The rung was electrified, so that Billy39。re ing with me. As Southampton slid astern, Sea Shepherd nosed into the thumping waters of the English Channel. At that moment the sun squinted through a crack in the cloud. On the horizon the sky39。 致 謝 在本次畢業(yè)設(shè)計中，我從指導(dǎo)老師身上學(xué)到了很多東西。 同時，由于我們的畢業(yè)設(shè)計是三個人共同合作的結(jié)果，由于在設(shè)計中的時間和技術(shù)上的協(xié)商使我們的畢業(yè)設(shè)計順利完成，雖然功能不夠強大，但這是我們勞動成果的結(jié)晶！ 讓我更進一步的認識到，合作的重要性。 sql1, conn, adOpenDynamic, adLockOptimistic If = True Then MsgBox (無此編號 ,請重新輸入 ) Exit Sub Else = (name) = (jingbanren) = (shoujia) = (shuliang) = (shengchanshang) = (guige) = (data) = (jine) = (beizhu) ok = True Set rs = Nothing End If End Sub 、銷售單查 詢 其中有兩個查詢組成： ●全部的服裝 ●按條件查詢某些滿足條件的服裝 : 其中的下拉框中不可以輸入東西 ,只可以從中選擇相關(guān)的服裝名稱和生產(chǎn)商。 退出銷售單的基本操作。 39。, CN, adOpenStatic, adLockOptimistic If Not Then If Not IsNull((1)) Then If Trim() Trim((1)) Then MsgBox 用戶舊密碼不對 !, , 提示 Exit Sub Else (1).Value = Trim() MsgBox 操作已成功 !, , 提示 = = = End If End If End If End If End If Exit Sub Err: MsgBox End Sub Private Sub Form_Load() = = = End SubDim sql As String If Then MsgBox 兩次輸入的密碼不同！請重新輸入 , vbOKOnly + vbInformation, Exit Sub End If sql = select * from user1 where username = 39。不進入系統(tǒng)的用戶不能使 用該功能。管理員密碼修改 On Error GoTo Err If Trim() And Trim() And Trim() Then If Trim() Trim() Then MsgBox 新密碼不對 ! Exit Sub Else Dim rs1 As New select * from 系統(tǒng)用戶 where 用戶名 =39。 , , 系統(tǒng)提示 = End If Exit Sub Err: MsgBox End Sub Private Sub Command3_Click() 39。 用戶可以管理數(shù)據(jù)庫表中不存在的任何的用戶名和密碼。三次錯誤 ,自動退出程序 End End If Exit Sub Err: MsgBox 登錄出錯 ,請找管理員 !, vbExclamation Ok = False End End SubIf Trim( = ) Then MsgBox 沒有這個用戶，請重新輸入用戶名！ , vbOKOnly + vbExclamation, 警告 Else txtSQL = select * from user1 where username = 39。判斷權(quán)限 UserPrivs = If Trim((2)) = 管理員 Then 39。 amp。39。當(dāng)添加銷售信息時，需