• 
    

    
    

      99热精品在线国产_美女午夜性视频免费_国产精品国产高清国产av_av欧美777_自拍偷自拍亚洲精品老妇_亚洲熟女精品中文字幕_www日本黄色视频网_国产精品野战在线观看 ?

      使用VB開發(fā)醫(yī)療設備維修管理系統(tǒng)

      2011-10-09 05:30:12朱彤輝
      中國醫(yī)療設備 2011年4期
      關(guān)鍵詞:窗體控件配件

      朱彤輝

      銅陵有色職工總醫(yī)院 醫(yī)學工程部,安徽 銅陵 244000

      使用VB開發(fā)醫(yī)療設備維修管理系統(tǒng)

      朱彤輝

      銅陵有色職工總醫(yī)院 醫(yī)學工程部,安徽 銅陵 244000

      使用VB語言和Access數(shù)據(jù)庫對醫(yī)療設備維修管理系統(tǒng)進行設計,將系統(tǒng)結(jié)構(gòu)劃分為基本信息、維修管理、庫存管理、報表打印、系統(tǒng)管理等5項功能模塊,實現(xiàn)了設備信息登記、查詢、維修情況、配件管理、報表打印、權(quán)限管理等功能。系統(tǒng)使用后運行穩(wěn)定,大幅度提高了醫(yī)學工程人員的工作效率,進一步加強了設備科的綜合管理職能。

      醫(yī)療設備維修管理系統(tǒng);醫(yī)療設備;Access數(shù)據(jù)庫;VB

      0 前言

      現(xiàn)在各大中型醫(yī)院醫(yī)療設備投入的不斷擴大,故障的處理、維修、保養(yǎng)等問題日益增多,對于醫(yī)學工程人員的工作量也大幅增加。開發(fā)醫(yī)療設備維修管理系統(tǒng)此系統(tǒng),以作者所在醫(yī)院為系統(tǒng)使用單位,主要實現(xiàn)對醫(yī)院醫(yī)療設備維修的有效管理。

      1 系統(tǒng)設計

      1.1 系統(tǒng)的結(jié)構(gòu)

      經(jīng)過調(diào)研,協(xié)商與需求的分析,系統(tǒng)主要由設備信息、維修信息、配件出入庫信息、用戶權(quán)限信息4個原始表;11個窗體;1個設計器及其中的3個報表組成。

      系統(tǒng)主界面包括5個功能模塊,即:基本信息模塊、維修管理模塊、庫存管理模塊、報表打印模塊、系統(tǒng)管理模塊[1]。系統(tǒng)的總體結(jié)構(gòu)如圖1所示:

      圖1 醫(yī)療設備維修管理系統(tǒng)總體結(jié)構(gòu)

      1.2 系統(tǒng)數(shù)據(jù)庫表的建立

      數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進行操作的工具。數(shù)據(jù)庫的作用在于組織和表達信息,簡而言之,數(shù)據(jù)庫就是信息的集合[2]。計算機的數(shù)據(jù)庫可以分為兩類:非關(guān)系數(shù)據(jù)庫(flat-file)和關(guān)系數(shù)據(jù)庫(relational)[3]。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息,數(shù)據(jù)庫含有各個不同部分的術(shù)語、記錄、域等。

      表的建立是其他工作的基礎[4]。本文通過VB6.0的可視數(shù)據(jù)管理器建立一個Access數(shù)據(jù)庫,并命名為“設備庫.mdb”,其下生成4個表:設備信息表(sbxx);維修信息表(wx);出入庫表(crk);權(quán)限表(qx)。

      1.2.1 設備信息表(sbxx)

      設備信息表主要記錄了設備的基本消息,欲了解設備的基本信息可直接通過查詢獲取。

      表中有 6 個字段,包括“設備名稱”、“型號”、“規(guī)格”、“日期”、“備注”、“廠商”。數(shù)據(jù)類型選文本型,并設字段大小為默認值。

      1.2.2 維修信息表(wx)

      維修信息表(科室登記、設備名稱、設備代碼、送修時間、故障原因、設備代碼、備注、型號、電話、送修人、維修狀態(tài))主要記錄維修設備的登記和修復情況以及修復后各科室是否已取走等情況。

      1.2.3 配件出入庫表(crk)

      配件出入庫表主要記錄維修配件的入庫信息(配件名稱、配件代碼、數(shù)量,金額,型號,入庫時間,供貨商,備注)。根據(jù)配件入庫和庫存配件的查詢,可以知道某種維修配件的各字段信息和使用情況。

      1.2.4 用戶權(quán)限表(qx)

      用戶權(quán)限表(用戶、密碼)主要通過登陸用戶和密碼的驗證確認管理員身份。

      1.3 系統(tǒng)主要功能模塊

      1.3.1 基本信息模塊

      最初的登陸界面是密碼驗證框,他限制了系統(tǒng)的使用權(quán)限歸設備管理人員擁有,不使用合法用戶名或者密碼將不能登陸管理系統(tǒng)。系統(tǒng)的主界面直觀的顯示了系統(tǒng)的主要功能,其中包括運行菜單中的基本信息、維修管理、庫存管理、報表打印、系統(tǒng)管理的各個項目以及工具欄的快速運行圖標。

      登陸窗體設計:在窗體上添加兩個標簽控件(lable)并將其標題(caption)屬性改為“用戶”和“密碼”,并添加兩個文本框控件,再添加一個到數(shù)據(jù)庫的連接(adodc)數(shù)據(jù)[5],其連接(connectionstring)屬性頁中選中“使用連接字符串‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=設備庫.mdb;Persist Security Info=False’”,并選擇或輸入數(shù)據(jù)庫名稱[6],在這里選擇上面我們開始建立的Access數(shù)據(jù)庫“設備庫.mdb”(數(shù)據(jù)源設置為相對路徑的設備庫.mdb的路徑,便于系統(tǒng)移植),并測試是否連接成功,如提示測試聯(lián)接成功,則單擊確定關(guān)閉數(shù)據(jù)連接屬性頁??紤]到用戶名和密碼的安全性,決定不使用控件綁定,而改為trim(去掉字符串中的空格),取文本框進行比較后返回值來判斷是否具有登陸權(quán)限。在adodc控件的記錄源(recordsoure)屬性欄設置記錄源中的命令類型為未知類型(8—adcmdunknow),并添加命令文本“SQL=select 用戶,密碼 from 用戶權(quán)限”[7],然后單擊確定退出屬性頁,至此adodc控件設置完成。接著我們需要編寫事件代碼,首先需要定義允許用戶驗證登錄信息的最大次數(shù),接著如果輸入用戶名及密碼為假或空,單擊確認按鈕系統(tǒng)會發(fā)出警示語句:“用戶不是系統(tǒng)用戶,請檢查用戶名輸入是否正確!”,且在重復輸入錯誤信息3次后系統(tǒng)將彈出警示語句:“你已經(jīng)超過允許的登錄驗證次數(shù)!應用程序?qū)⒔Y(jié)束!”。進一步驗證登錄信息用戶名和口令的合法性,并根據(jù)檢驗返回值執(zhí)行相應的操作,在這里使用了判斷(select case)語句實現(xiàn)其功能,如果用戶和密碼驗證成功,自動卸載登陸窗口,導入主窗體并顯示[8-9]。

      1.3.2 設備信息管理模塊

      其中包括了醫(yī)院現(xiàn)有醫(yī)療設備信息的直觀記錄,其中含有兩大主要功能:① 新設備信息的添加。在單擊“添加”按鈕后可以對新醫(yī)療設備的名稱、型號,規(guī)格、日期、備注、廠商等各字段進行信息添加,并保存在數(shù)據(jù)庫中。② 設備信息的查詢。通過“精確”和“篩選”按鈕的轉(zhuǎn)換實現(xiàn)精確查詢和篩選查詢功能。

      以上兩個部分構(gòu)成設備信息主窗體,這里介紹通過單擊窗體的“查詢”按鈕彈出以文本形式查詢的窗體,該窗體主要由6個lable控件組成,并分別設置其caption屬性為“設備名稱、規(guī)格、日期、型號、備注、廠商”。再添加6個文本控件與之對應,再添加4個指令(command)控件并設置其caption屬性為“精確、查詢、清空、退出”。再添加一個data 控件,使用同一個設備信息表(sbxx)。其中單擊“精確”按鈕可以實現(xiàn)“精確”查詢和“篩選”查詢的轉(zhuǎn)換,“清空”按鈕方便查詢下條信息前清除文本框中的內(nèi)容,單擊“退出”可以回到設備信息主窗體。

      1.3.3 維修管理模塊

      包括3大功能塊:維修設備的登記、維修設備的查詢、各科室取走已經(jīng)修復的設備。

      維修管理窗口主要由“維修登記“和”科室取機“兩個窗體組成。在維修登記窗體加入一個分隔標簽(tabstrip)控件,并右鍵單擊打開其屬性對話框,設置其選項卡(“維修登記”和“維修查詢”)的高度、模式、字體等屬性。選中“維修登記”選項卡,在上面添加“設備名稱、型號、設備代碼、故障原因、科室、電話、送修人、送修時間、備注”等9個lable控件,并修改其caption屬性為上面顯示的代碼,并添加9個文本(text)控件與他們一一對應,設置它們的text屬性為空。再添加4個command控件,并將其caption屬性設置為“添加、刷新、刪除、登記”。在單擊“添加”按鈕后可以在文本框中輸入新登記的報修設備,添加完成后點“登記”按鈕確認。同時彈出添加已成功的提示。點擊“刪除”按鈕可以取消剛才的操作,點擊“刷新”按鈕可以更新數(shù)據(jù)庫的信息為最新狀態(tài),并將指針指向第1條記錄。在“維修查詢”選項卡里面添加1個網(wǎng)格控件(datagrid),兩個復選框(checkbox)控件,兩個文本控件與其對應,再添加兩個command控件并將其caption屬性設置為“選擇查詢”和“全部查詢”,通過鉤選checkbox選擇查詢條件,單擊“選擇查詢”按鈕查詢即可,并在網(wǎng)格中顯示查詢到的信息。最后添加1個adodc控件,并同“系統(tǒng)登陸”框中的adodc控件一樣設置其屬性,但要注意其連接到數(shù)據(jù)源的路徑的不同。接著要將網(wǎng)格中的“維修登記”選項卡中的文本框和“維修查詢”網(wǎng)格一一綁定到adodc控件上。(其中網(wǎng)格需要通過其屬性中的“檢索字段”來綁定到數(shù)據(jù)庫上),最后注明:“維修登記”和“維修查詢”以及后面要提及的“科室取機”,使用同一個“設備庫.mdb”下的維修信息表。

      科室取機窗口也添加1個網(wǎng)格控件,2個checkbox控件,2個文本控件和2個“選擇查詢,全部查詢”。command控件用于按輸入的條件查詢信息,其下添加1個lable控件,在其中添加4個command控件,并將其caption屬性設置為“第1條記錄,上1條記錄,下1條記錄,最后1條記錄”,再在lable控件下面添加2個command控件,并將其caption屬性設置為“取機,退出”。最后添加1個adodc控件,同前設置其屬性。根據(jù)選擇查詢條件確認,可以查詢到所需信息并顯示在網(wǎng)格中。單擊“第1條記錄,上1條記錄,下1條記錄,最后1條記錄”按鈕可以瀏覽整個表。通過記錄開始及結(jié)尾(BOF,EOF)可以判斷是否已到記錄的頭部或尾部[10],并通過彈出框(msgbox)彈出提示對話框。在單擊“取機”按鈕時,修改維修表中“維修狀態(tài)”字段的值為3(1表示登記待修,2表示已經(jīng)修復,3表示已經(jīng)取機)。

      1.3.4 配件管理模塊的功能

      配件管理模塊包含兩大功能:維修配件的入庫;庫存的配件信息的查詢及信息的修改。

      維修配件入庫窗體主要添加了7個lable控件和7個與之對應的文本控件,并修改lable控件的caption屬性為“配件名稱、配件代碼、數(shù)量、入庫時間、金額、型號、廠商”,并添加1個data 控件,并設置其連接(connect)屬性為Access,數(shù)據(jù)庫名稱(databasename)屬性為“設備庫.mdb”,recordsource屬性為“出入庫表”,再添加3個command控件,并修改其caption屬性為“入庫、取消入庫、退出”。這里我們使用數(shù)據(jù)控件(data)記錄集對象的添加新信息(addnew)的方法,并使用更新記錄集(Data1.Recordset.Update)更新庫中的表信息。如果文本框中空白,信息沒有添加就單擊“入庫”按鈕會彈出警示語句:提示輸入完整的信息,這里我們使用trim函數(shù)取出文本框的內(nèi)容賦值給data控件所指向的“出入庫表”中的各個對應字段,單擊“取消入庫”會刪除剛才的操作。點擊“退出”,退出本窗體。

      庫存配件查詢窗體使用1個datagrid網(wǎng)格控件用于顯示查詢信息,2個checkbox控件和與之對應的2個文本控件,2個command控件“查詢”和“修改”,添加1個adodc控件連接數(shù)據(jù)庫,并設置其connectionstring屬性為“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=設備庫.mdb;Persist Security Info=False”[11],這里記錄源類型選擇文本命令類型(1-adcmdtext),為recordsource屬性添加一SQL語句:“select * from 出入庫表 order by 數(shù)量”,在網(wǎng)格控件屬性里綁定到adodc控件上,設置其數(shù)據(jù)源(datasource)屬性為“adodc1”并檢索網(wǎng)格,把數(shù)據(jù)庫中出入庫表中的字段檢索到網(wǎng)格中。通過選取查詢條件后單擊“查詢”可以定位到所需信息,在網(wǎng)格中修改信息后點“修改”按鈕更新數(shù)據(jù)庫。

      1.3.5 報表打印模塊

      報表打印模塊包括:“設備信息報表”、“維修信息報表”、“配件出入庫報表”的打印輸出預覽,使用系統(tǒng)默認打印機。

      打印報表預覽窗口在此添加1個數(shù)據(jù)環(huán)境(data environment),并修改其名稱為“設備信息”,并設置其connection1屬性,使其連接到“設備庫.mdb”,并測試是否成功。然后在connection1中添加3個命令“command1,command2,command3”,并分別設置其屬性中數(shù)據(jù)源數(shù)據(jù)對象[11-12],分別為“sbxx、wxxx、crkb”。展開各命令可以發(fā)現(xiàn)各個數(shù)據(jù)庫表中的字段已經(jīng)綁定成功。接著我們需要添加3個報表(data report),并分別設置其名稱為“repsbxxbb、repwxxxbb、reppjcrkbb”。caption屬性為“維修信息報表、維修信息報表、配件出入庫報表”。3個報表的datasource設置為“設備信息”,就是我們剛建立的數(shù)據(jù)環(huán)境,數(shù)據(jù)成員(datamember)分別設置為“command1、command2、command3”。還對報表做相應其他非關(guān)鍵設置,例如字體、顏色等等。

      1.3.6 系統(tǒng)管理模塊

      系統(tǒng)管理模塊中包括了“關(guān)于系統(tǒng)”、“系統(tǒng)幫助”、“用戶權(quán)限的信息添加”3部分。

      其中系統(tǒng)管理員權(quán)限的申請窗口,主要由3個lable控件“請輸入用戶名、請輸入密、請再輸入密碼”和與之對應的3個文本控件。3個command 控件“添加、取消、退出”和1個data控件,在“請輸入用戶名”對應的文本控件上如果輸入已經(jīng)存在的系統(tǒng)管理員,會彈出警告語句:“請輸入密碼、請再輸入密碼”,兩次密碼輸入不相同,同樣也做出警告:注意,此處密碼區(qū)分大小寫[13-14]。在添加新系統(tǒng)管理員帳號時,仍使用添加并記錄(Data1.Recordset.AddNew)的方法,并使用updata更新權(quán)限表。在單擊“取消”按鈕可以取消剛才的操作,按“退出”按鈕則返回到主界面。

      2 系統(tǒng)運行環(huán)境

      本系統(tǒng)采用傳統(tǒng)的桌面數(shù)據(jù)管理,至少1臺滿足win98/winme/2000/xp系統(tǒng)的PC機,奔4以上CPU,256M以上內(nèi)存,20G以上硬盤。

      3 結(jié)束語

      本文是作者結(jié)合所在二級甲等醫(yī)院設備科工作中實際存在的問題開發(fā)的醫(yī)療設備維修管理系統(tǒng)。此系統(tǒng)經(jīng)測試,其功能符合設計要求,能夠完成醫(yī)療維修設備的登記、查詢、輸出報表等功能。

      [1]劉輝.基于VB.NET的圖書管理系統(tǒng)的開發(fā)設計[J].硅谷,2010,(17):86.

      [2]姚普選.數(shù)據(jù)庫原理及應用(Access2000)[M].北京:清華大學出版社,2002.

      [3]靳學輝.數(shù)據(jù)庫原理與應用[M].第4版.北京:電子工業(yè)出版社,2009.

      [4]趙增敏,朱粹丹,趙朱曦.中文Access2002[M].北京:電子工業(yè)出版社,2003.

      [5]吳青林,王焱.VB中ADO訪問數(shù)據(jù)庫技術(shù)探討[J].軟件導刊,2010,(2):152.

      [6]龔沛曾,陸慰民,楊志強.visual basic6.0[M].北京:高等教育出版社,2000.

      [7]姚普選.數(shù)據(jù)庫原理及應用Access[M].第2版.北京:清華大學出版社,2006.

      [8]高春艷,李艷,谷偉東. Visual basic數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實例應用[M].北京:人民郵電出版社,2004.

      [9]周峰,李德路.Vrsual Basic案例開發(fā)集錦[M].北京:電子工業(yè)出版社,2008.

      [10]林青.Acccess數(shù)據(jù)庫原理與應用[M].第2版.北京:科學出版社,2009.

      [11]申石磊,張東升.Visual Basic程序設計[M].第2版.北京:中國科學出版社,2006.

      [12]羅港.用VB調(diào)用SQL數(shù)據(jù)庫中存儲過程的方法[J].遼寧師專學報,2010,(1):38-39.

      [13]張寶剛,等.醫(yī)療設備管理系統(tǒng)的軟件設計與應用[J].中國醫(yī)療設備,2010,25(8):42-45.

      [14]黃鳳輝.Access的數(shù)據(jù)安全管理[J].商情,2009,(16):30-31.

      Developing Medical Equipment Maintenance Management System Based on VB

      ZHU Tong-hui
      Medical Engineering Department,General Hospital of Tongling Nonferrous Staff, Tongling Anhui 244000, China

      TP311.52

      B

      10.3969/j.issn.1674-1633.2011.04.012

      1674-1633(2011)04-0040-03

      2010-12-30

      2011-03-01

      作者郵箱:aihuo1128@163.com

      Abstract:Using VB language and ACCESS database to design medical equipment maintenance management system. The system structure is divided into modules of basic information, maintenance management,inventory management, print, system management, realized the equipment information registration, query,maintenance status, accessories management, statement print, authority administration, and other functions.The system operation is stable, and greatly improves the working efficiency of medical engineers, and further strengthens the comprehensive management functions of equipment department.

      Key words:medical equipment maintenance management system; medical equipment; Access database; VB

      猜你喜歡
      窗體控件配件
      原材配件
      試談Access 2007數(shù)據(jù)庫在林業(yè)檔案管理中的應用
      檔案天地(2019年5期)2019-06-12 05:12:02
      關(guān)于.net控件數(shù)組的探討
      軟件(2018年7期)2018-08-13 09:44:42
      妝發(fā)與配件缺一不可
      Coco薇(2015年11期)2015-11-09 00:52:20
      原材配件商情
      基于LayeredWindow的異形窗體局部刷新
      中文信息(2014年2期)2014-03-06 23:49:14
      巧設WPS窗體控件讓表格填寫更規(guī)范
      原材配件商情
      就這樣玩會VBA中常見的自定義控件
      電腦迷(2012年24期)2012-04-29 00:44:03
      WinCE.net下圖形用戶界面的開發(fā)
      修文县| 革吉县| 项城市| 措美县| 通辽市| 通海县| 遂昌县| 永兴县| 南华县| 屏边| 九龙县| 宁河县| 海晏县| 阿尔山市| 定襄县| 陆良县| 田东县| 龙川县| 齐齐哈尔市| 扶沟县| 特克斯县| 成安县| 库尔勒市| 宜宾市| 宁阳县| 玉林市| 五寨县| 东台市| 微博| 景谷| 西乡县| 莫力| 和平县| 吉木萨尔县| 乌拉特中旗| 阳新县| 上栗县| 门头沟区| 荥经县| 厦门市| 简阳市|