【文章內(nèi)容簡(jiǎn)介】 r50是職業(yè)Hunyinint4是婚姻MinzuNvarchar5是民族JiguanNvarchar10是籍貫AddressNvarchar50是現(xiàn)住址PhoneNvarchar20是聯(lián)系電話gupminNvarchar80是過敏史shengfengzhengvarchar50否身份證DisNvarchar50是重要疾病updatetimevarchar8是日期DisNvarchar50是其它authornvarchar20是輸入病歷的醫(yī)生編號(hào)患者個(gè)人信息表是這個(gè)系統(tǒng)中的一個(gè)很關(guān)鍵的信息數(shù)據(jù)庫表，因?yàn)椴v的所 有信息均是圍繞著這張表展開，除了用戶編號(hào)外，還有很關(guān)鍵的用戶的身份證信 息是不能為空的，因?yàn)橛脩粽鎸?shí)姓名如果相同，只有用身份證確認(rèn)病歷的歸屬。 Author 字段名是不會(huì)在該系統(tǒng)中顯示出來。表4 管理員信息表字段名數(shù)據(jù)類型長(zhǎng)度是否允許為空字段描述idInt4否自動(dòng)編號(hào)（主鍵）DaimaInt4是職位代碼shuomingvarchar50是職位說明　　該表主要說明系統(tǒng)中各登陸人員的級(jí)別以及所處的職位。同樣設(shè)置Id為主健。 Server 2000的連接　　根據(jù)系統(tǒng)功能的設(shè)計(jì)要求及功能模塊的劃分，本系統(tǒng)用SQL Server 2000 建 立數(shù)據(jù)庫,其中包括管理員數(shù)據(jù)表，病人信息數(shù)據(jù)表和病人患病情況信息表等數(shù) 據(jù)表。在整個(gè)系統(tǒng)開發(fā)的過程中，數(shù)據(jù)庫連接是必不可少的，是公用的，可以把 這部分單獨(dú)拿出來，做成一個(gè)函數(shù)，需要的時(shí)候調(diào)用這個(gè)函數(shù)就可以了。在ASP 中同數(shù)據(jù)聯(lián)系的主要是ADO，對(duì)數(shù)據(jù)庫進(jìn)行操作處理，要讓ADO 對(duì)象能夠存取數(shù) 據(jù)庫，最重要的東西就是 OLEDB 驅(qū)動(dòng)程序或 ODBC 驅(qū)動(dòng)程序，ADO 才能夠進(jìn)行存 取。本設(shè)計(jì)采用了 ODBC 數(shù)據(jù)庫連接方式，首先要建立同數(shù)據(jù)源的連接，利用了 ADO 的Connection 建立同數(shù)據(jù)庫的聯(lián)系。，使用此對(duì)象 的Open 方法打開數(shù)據(jù)庫。其主要代碼如下所示：%Dim Connsub DB_Connect(sDBConnect)Set Conn = () 　sDBConnectend sub% %const strconn=DSN=biling_asp。uid=sa。pwd=。database=biling% 我們將這段代碼單獨(dú)封裝在一個(gè)名為 config. Asp 的文件中， 當(dāng)某動(dòng)態(tài)網(wǎng)頁中需要向數(shù)據(jù)庫讀取或者存取數(shù)據(jù)時(shí)，將以下代碼!include file=””!include file=””包含在該頁面的前面，既可以實(shí)現(xiàn)與數(shù)據(jù)庫建立連接。第五章　系統(tǒng)各模塊的介紹　　按結(jié)構(gòu)化的程序設(shè)計(jì)思想，在完成了系統(tǒng)分析、系統(tǒng)設(shè)計(jì)后，就可以進(jìn)行系統(tǒng)實(shí)現(xiàn)階段了，系統(tǒng)實(shí)現(xiàn)是每指把系統(tǒng)的物理模型轉(zhuǎn)換成實(shí)際運(yùn)行系統(tǒng)的全過程。其基本任務(wù)是：1) 前期準(zhǔn)備2) 系統(tǒng)平臺(tái)的安裝與調(diào)試3) 程序的編制與調(diào)試4) 信息系統(tǒng)調(diào)試5) 數(shù)據(jù)庫與文件的建立6) 系統(tǒng)轉(zhuǎn)換7) 試運(yùn)行、驗(yàn)收與維護(hù)前面在數(shù)據(jù)庫表創(chuàng)建時(shí)已經(jīng)創(chuàng)建好了用戶信息表，數(shù)據(jù)庫中的m_username 和 m_password 字段用來驗(yàn)證用戶身份的，有了這兩項(xiàng)就可以較容易的寫出驗(yàn)證，用戶登陸的程序了，首先看用戶登陸的界面，61 所示；圖51 用戶登陸　　，頁面中“用戶名”和“密碼”內(nèi)容均 為必填項(xiàng)目。驗(yàn)證用戶身份的程序如下所示。 Call DB_Connect(strconn) sql = select * from [Manage_User] where m_UserName=39。 amp。 sname amp。 39。 And m_PassWord=39。amp。spwdamp。39。 ‘在表Manage_user 中查詢用戶身份是否存在。 Set rs = (sql) ’執(zhí)行這個(gè)SQL 語句，同時(shí)返回一個(gè)包含了查詢信息的記錄集 I f Not = True Then Session(Name) = rs(m_realName)Session(vip) = rs(m_purview)’讀取權(quán)限判斷值，并保存在session 中 Set rs = Nothing Call DB_Disconnect /bingli/ Else msg=您輸入了錯(cuò)誤的用戶名或口令！ Set rs = Nothing Call DB_Disconnect End If I f Not = True Then 這一句判斷用戶信息是否存在，EOF 和 BOF 是數(shù)據(jù)查詢記錄集的屬性，他們分別表示最后一條記錄和第一條記錄的前面，在最后個(gè)紀(jì)錄前是真的則該用戶存在?！　≡谡麄€(gè)系統(tǒng)中，首先要寫的是管理員模塊，因?yàn)樨?fù)責(zé)整個(gè)登陸權(quán)限的控制， 管理員模塊包含3個(gè)模塊，其中有些功能是相輔相成的。涉及到用戶的添加，會(huì)想到用戶信息的驗(yàn)證。當(dāng)用戶以管理員身份登錄后， 點(diǎn)擊“管理員管理”后，管理員即可以查看所有在職人員的信息，如刪除和修改密碼。如圖62所示　　圖52 管理員添加用戶界面在本設(shè)計(jì)中所用的Respone、Request、Sessio以及Server。以上都是ASP 內(nèi)建對(duì)象不必經(jīng)過任何的設(shè)置就可以直接使用但除了這些對(duì)象以外，()對(duì)象則必須通過 Server 對(duì)象的CreateObject對(duì)象來建立使用。 (Component Name)來建立。但是通過這樣的創(chuàng)建的對(duì)象具有頁作用域，也就是說在當(dāng)前ASP頁處理完成后，服務(wù)器將破壞這些對(duì)象。如果要?jiǎng)?chuàng)建有會(huì)話或應(yīng)用程序作用域的對(duì)象，可以使用Object標(biāo)志并設(shè)置Session 的屬性，較常用的方法如下：%set session(“ad”)%=(“”) 需要注意的是不能創(chuàng)建與內(nèi)建對(duì)象同名的對(duì)象實(shí)例，否則將返回錯(cuò)誤?！　√砑佑脩舫绦蛑凶钪饕氖窍驌?jù)庫中寫入信息，在這里將用到與數(shù)據(jù)庫有關(guān)的對(duì)象Recordset 。　　在 ADO 中的 Connection、Recordest 及 Command 對(duì)象中以 Recordest 對(duì)象最重要是存取數(shù)據(jù)庫中必不可少的部分把表單中的數(shù)據(jù)插入到數(shù)據(jù)庫中有三種方法：　　1直接使用 SQL 語句。其優(yōu)點(diǎn)是速度快、不消耗資源，缺點(diǎn)是字段較多時(shí)不易排錯(cuò)。2使用 Recordest 對(duì)象。其優(yōu)點(diǎn)是代碼容易閱讀、容易排錯(cuò)，缺點(diǎn)是消耗系統(tǒng)資源。3先準(zhǔn)備好“字段名稱數(shù)組”及“字段值數(shù)組”然后利用 AddNew 字段名數(shù)組 字段值數(shù)組將數(shù)據(jù)記錄寫入數(shù)據(jù)庫。 前兩種方法在本設(shè)計(jì)中均被使用，其中第二種方法最直接的反映出數(shù)據(jù)庫插入的數(shù)值比較容易排錯(cuò)。在第一種方法中的 Values 后面的值要一一對(duì)應(yīng)如果該值為空可以不填寫但表示分隔的“’”號(hào)不能省略。 本設(shè)計(jì)中添加用戶的核心程序如下所示：If msg=””thenIf Instr(username,=)0or Instr(username,%)0 or Instr(username,chr(32))0 orInstr(username,?)0Instr(username,)0Instr(username,chr(34))0 or Instr(username,chr(9))0 or Instr(username,Instr(username,$)0 Then end If sql=select count(*) from [manage_user] where (m_username=39。 amp。 username amp。 39。 or m_=39。 amp。 amp。 39。) ’連接數(shù)據(jù)庫 set rs=(sql)if rs(0)0 then ‘返回用戶名或郵箱相同的記錄個(gè)數(shù)以進(jìn)行判斷 end if ’最快的關(guān)閉 Recordset 對(duì)象 set rs=nothing’將不用的對(duì)象進(jìn)行釋放 if msg= then m_, m_address, m_zip, m_purview) or or Instr(username,amp。)0 Instr(username,39。)0 oror Instr(username,。)0 Instr(username,)0 or or )0 or msg=用戶名包含非法字符! end ifmsg=用戶名或郵箱已存在! sql=insert into [manage_user] (m_username, m_password, m_realname, m_Sex, m_tel, end if 　　在添加用戶的時(shí)候?qū)τ脩裘M(jìn)行了一長(zhǎng)竄的判斷，用了 Vbscript 中的 (sql) Instr()函數(shù)它的作用是返回某字符串在另一字符串中第一次出現(xiàn)的位子。如Instr(username,%)在該表達(dá)式中 username 代表了接受搜索的字符串表達(dá)式 “%”代表要搜索的字符串表達(dá)式。如果在 username 中找到了“%” 則將會(huì)返回“%”的具體位于第幾個(gè)字符上沒有找到則返回 0所以這里進(jìn)行了判斷是否大于 0 來確認(rèn)用戶名中是否包含有字符。其主要目的是判斷的哪些字符不能在用戶名中存在因?yàn)檫@些符號(hào)如果不能被數(shù)據(jù)庫很好的處理數(shù)據(jù)庫則會(huì)將有關(guān)的東西反饋到用戶端危害系統(tǒng)的安全性。所以要避免一些特殊字符的輸入?；颊吖芾砟K基本功能時(shí)錄入患者個(gè)人基本信息及有無患病史，為醫(yī)生的近一步判斷打下基礎(chǔ)。該模塊主要有三個(gè)部分組成。 患者基本信息的錄入患者基本信息的錄入患者在就醫(yī)過程中，第一步應(yīng)該是登記自己的個(gè)人信息，在這里稱為注冊(cè)。 信息的錄入對(duì)時(shí)間的準(zhǔn)確性要求很搞，因?yàn)槿绻霈F(xiàn)醫(yī)療糾紛，那么患者的就診時(shí)間會(huì)直接影響到醫(yī)院是否為該患者在指定的時(shí)間中診斷過。因?yàn)獒t(yī)院中的電腦屬于統(tǒng)一配置，統(tǒng)一管理，不能用自己的電腦登錄醫(yī)院病歷系統(tǒng)并且不能自行修改時(shí)間，所以所有的時(shí)間均是以本機(jī)時(shí)間作為為患者診斷時(shí)間進(jìn)行登錄的直接保存在user 表中updatetime 中。 在醫(yī)生和病人數(shù)量較多時(shí)，為了便于快速的區(qū)分患者是在哪位醫(yī)生看病的， 以及能只顯示該醫(yī)生的診斷記錄，在添加患者個(gè)人基本信息時(shí)候把用戶登錄時(shí)的 seisson”name”的值寫入患者個(gè)人信息user 表中的author 字段，在管理患者界面中則可以顯示該醫(yī)生已診斷的人數(shù)和詳細(xì)的資料。在醫(yī)生輸入病歷時(shí)紀(jì)錄病人所屬醫(yī)生添加患者信息時(shí)候，為了保證能迅速和準(zhǔn)確的聯(lián)系到患者本人，其個(gè)人基本信息是必須完全填寫的，包括身份證信息，住址和電話等等，在這個(gè)頁面醫(yī)生可以填寫病人的基本資料，如圖63圖53 患者基本信息錄入界面病歷添加的代碼如下所示：%Call () sql=sele