【正文】 ，增強對管理活動的科學(xué)認(rèn)識，同時運用先進的信息技術(shù)，開發(fā) 藥店信息管理系統(tǒng)的需求，是深化管理體制改革的有力措施。 現(xiàn)今飛速發(fā)展的網(wǎng)絡(luò)為公司與帶來的便利性舉世皆知。 本系統(tǒng)論文主要是管理產(chǎn)品的在線發(fā)布。 編號 : 填學(xué)號 畢 業(yè) 設(shè) 計 題 目 藥店信息管理系統(tǒng) 指導(dǎo)教師 學(xué)生姓名 專 業(yè) 計算機科學(xué)與技術(shù) 教學(xué)單位 （蓋章） 摘要 隨著科學(xué)技術(shù)的發(fā) 展，計算機領(lǐng)域不斷取得新的研究成果。重點介紹其功能：新聞發(fā)布、留言板、后臺登陸、后臺登陸的權(quán)限，不用權(quán)限的用戶登陸到不同的后臺，登陸到后臺后能實現(xiàn)、信息添加、信息修改、信息的刪除及信息查詢，能用用戶的資料進行修改，如修改密碼等。更為公司帶來廣闊的發(fā)展空間。 建立 藥店信息管理 系統(tǒng)，采用計算機 網(wǎng)絡(luò) 對 藥店產(chǎn)品 進行管理，進一步提高辦 事效益和現(xiàn)代化水平。因此開發(fā)一套 基于計算機網(wǎng)絡(luò)的管理 系統(tǒng)是很有必要的。 ASP 是在服務(wù)器端腳本編譯環(huán)境，使用它可以創(chuàng)建和運行動態(tài)、交互的 Web服務(wù)器應(yīng)用程序。通過這種環(huán)境，用戶可以創(chuàng)建和運行動態(tài)的交互式 Web 服務(wù)器應(yīng)用程序，如交互 式動態(tài)網(wǎng)頁，包括使用HTML 表單收集和處理信息、上傳與下載等。而隨著 Web技術(shù)的發(fā)展，用戶希望能夠看到根據(jù)要求而動態(tài)生成的主頁，例如響應(yīng)用戶查詢數(shù)據(jù)庫的要求而生成報表等。當(dāng)同時有很多請求時，程序擠占系統(tǒng)資源，造成效率低下。 Access 是一個數(shù)據(jù)庫管理系統(tǒng)，它之所以被集成到 Office 中而不是Visual Studio 中，是因為它與其它的數(shù)據(jù)庫管理系統(tǒng)（如 SQL Server 2021）相比更加簡單易學(xué)，一個普通的計算機用戶即可掌握并使用它。 超級管理員可任命管理員，可以添加管理賬號且能對所有管理員賬號信息等資料進行修改。 ④、 注冊 用戶 登陸 后，能對自已的賬號信息等資料進行修改。 （二）、性能 需求 硬件需求： cpu :intel pentiumII 或等效處理器、 300MHZ 或更高 內(nèi)存： 96MB 可用內(nèi)存 硬盤： 275MB 以上可用磁盤空間 顯示器：可達 800 600 像素的 256色顯示器或更高 軟件需求：操作系統(tǒng) windouw 98/2021/NT(或更高版本 ) 瀏覽器： scape 或 microsoft inter 或更高本 。 （ 2） 產(chǎn)品管理 包括對產(chǎn)品的添加與修改。查看有無該用戶 dim db,strsql,rs set db=() dbq=amp。 Where user_name=39。 And password=39。 Set rs=(strSql) If not and not Then 39。39。 3）整個版面不是很整齊，以后改進。 第六章、參考文獻 1.《 ASP 信息化系統(tǒng)建設(shè)案例 》 人民郵電出版社 陳嫻、雒海濤編著 2.《 Dreamweaver8+ASP 動態(tài)網(wǎng)站開發(fā) 》 電子工業(yè)出版社 載一波編著 3.《 網(wǎng)站全程設(shè)計技術(shù) 》 清華大學(xué)出版社 姜韡 、 吳濤編著 4.《 網(wǎng)站設(shè)計與開發(fā) 》 機械工業(yè)出版社 楊曉鐘 編著 致 謝 在這里我非常感謝我的指導(dǎo)老師劉利東，在經(jīng)過他的教育下，使我在此完成我的 畢業(yè)設(shè)計，在此特向劉老師致謝！謝謝劉利東老師孜孜不倦的教導(dǎo)，以及對我們的重視，讓我能順利地完成這個課程設(shè)計。期待再見！ 我知道在這次的課程設(shè)計中自已有許多的欠缺，在以后的日子中，我一定得更加嚴(yán)格要求自己，改正缺點，不斷努力，不斷進步。 dim strsql,user_name ,Password ,realname ,mobi,name name=(user_name) 39。 39。amp。amp。amp。amp。amp。39。 dim strsql,Password ,id Password=(Password) StrSql=Update user Set Password=39。Where user_name=39。 (strsql) else 請將所有信息填寫完整 A HREF=39。driver={microsoft access driver (*.mdb)}。 39。amp。amp。39。 dim strsql,user_name ,Password,name name=(user_name) strSql=select * from users Where user_name=39。 Set rs=(strSql) If not then 對不起，用戶名已被注冊，請 a href=39。user_nameamp。Passwordamp。重新注冊 /a end if % ： %=True% % 39。 strSql=Select user_name,password,user_type From users strSql=strSql amp。 39。 39。如果沒有記錄，表示沒有該用戶，請給出提示信息 對不起，用戶名或密碼有誤，請 a href=39。()amp。 amp。 amp。如果有記錄，表示有該用戶，則將用戶名和用戶類型保存到 Session 中 Session(user_name)=rs(user_name) Session(password)=rs(password) 39。返回首頁 /a重新登錄 End If % 超級管理員后臺界面（ ） %LANGUAGE=VBSCRIPT CODEPAGE=936% !include file=Connections/ % 39。 boolean to abort record edit MM_abortEdit = false 39。39。 39。 ? amp。 End If End If End If % % 39。 escape quotes MM_formVal = 39。39。 , MM_dbValues = MM_dbValues amp。 MM_editTable amp。 MM_dbValues amp。39。 set the number of rows displayed on this page If (rs1_numRows 0) Then rs1_numRows = rs1_total Elseif (rs1_numRows = 0) Then rs1_numRows = 1 End If 39。t know the record count, manually count them If (rs1_total = 1) Then 39。 set the first and last displayed record rs1_first = 1 rs1_last = rs1_first + rs1_numRows 1 If (rs1_first rs1_total) Then rs1_first = rs1_total End If If (rs1_last rs1_total) Then rs1_last = rs1_total End If End If % % Dim MM_paramName % % 39。 or 39。 if we have a record count, check if we are past the end of the recordset If (MM_rsCount 1) Then If (MM_offset = MM_rsCount Or MM_offset = 1) Then 39。 set MM_offset to the last possible record End If End If % % 39。 if we walked off the end, set the offset based on page size If ( And Not MM_paramIsDefined) Then If (MM_offset MM_rsCount MM_size Or MM_offset = 1) Then If ((MM_rsCount Mod MM_size) 0) Then MM_offset = MM_rsCount (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount MM_size End If End If End If 39。 set the first and last displayed record rs1_first = MM_offset + 1 rs1_last = MM_offset + MM_size If (MM_rsCount 1) Then If (rs1_first MM_rsCount) Then rs1_first = MM_rsCount End If If (rs1_last MM_rsCount) Then rs1_last = MM_rsCount End If End If 39。index= If (MM_paramName ) Then MM_removeList = MM_removeList amp。 = End If MM_keepURL= MM_keepForm= MM_keepBoth= MM_keepNone= 39。 = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL amp。 amp。 ((MM_item)) End If Next 39。 from each of the strings MM_keepBoth = MM_keepURL amp。 *** Move To Record: set the strings for the first, last, next, and previous links Dim MM_keepMove Dim MM_moveParam Dim MM_moveFirst Dim MM_moveLast Dim MM_moveNext Dim MM_movePrev Dim MM_urlStr Dim MM_paramList Dim MM_paramIndex Dim MM_nextParam MM_keepMove = MM_keepBoth MM_moveParam = index 39。) MM_keepMove = For MM_paramIndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),=) 1) If (StrComp(MM_nextParam,MM_moveParam,1) 0) Then MM_keepMove = MM_keepMove amp。 set the strings for the move to links If (MM_keepMove ) Then MM_keepMove = (MM_keepMove) amp。 MM_keepMove amp。 1 MM_moveNext = MM_urlStr amp。 charset=gb2312 / title無標(biāo)題文檔 /title style typ