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