deafening医嘱管理系统

的应用程序。数 据库由数据库管理系统统一管理，数据的插

入、修改和检索均要通过数据库管理系统进行 。数据库管理

系统是一种系统软件，它的主要功能是维护数据库并有效地

访问数据库中任意部分数据。对数据库的维护包括保持数据

的完整性、一致性和 安全性。数据管理员负责创建、监控和

维护整个数据库，使数据能被任何有权使用的人有 效使用。

数据库管理员一般是由业务水平较高、资历较深的人员担

任。

数据库系统的个体含义是指一个具体的数据库管理系< /p>

统软件和用它建立起来的数据库；它的学科含义是指研究、

开发、 建立、维护和应用数据库系统所涉及的理论、方法、

技术所构成的学科。在这一含义下， 数据库系统是软件研究

领域的一个重要分支，常称为数据库领域。

数据库研究跨越于计算机应用、系统软件和理论三个领

域，其中 应用促进新系统的研制开发，新系统带来新的理论

研究，而理论研究又对前两个领域起着 指导作用。数据库系

统的出现是计算机应用的一个里程碑，它使得计算机应用从

以科学计算为主转向以数据处理为主，并从而使计算机得以

在各行各业乃 至家庭普遍使用。在它之前的文件系统虽然也

能处理持久数据，但是文件系统不提供对任 意部分数据的快

速访问，而这对数据量不断增大的应用来说是至关重要的。

为了实现对任意部分数据的快速访问，就要研究许多优化技

术。这些优化技术 往往很复杂，是普通用户难以实现的，所

以就由系统软件（数据库管理系统）来完成，而 提供给用户

的是简单易用的数据库语言。由于对数据库的操作都由数据

< br>库管理系统完成，所以数据库就可以独立于具体的应用程序

而存在，从而数据库又 可以为多个用户所共享。因此，数据

的独立性和共享性是数据库系统的重要特征。数据共 享节省

了大量人力物力，为数据库系统的广泛应用奠定了基础。数

据库系统的出现使得普通用户能够方便地将日常数据存入

计算机并在需要的时候快速访 问它们，从而使的计算机走出

科研机构进入各行各业、进入家庭。

1.3

本应用软件的基本介绍

本应用软件先 是打开一个启动窗口，就可以进入应用程

序的主窗口了。主界面是一个图型界面窗口，整 个平台显示

采用人性化方式，

可以非常方便的进行长期医嘱录入

,

临时医

嘱录入

,

病区管理

,

医嘱校对

,

管理日常经营的基本情况，通过

各种条件查询出医 嘱的基本信息，以及打印出查询出的基本

信息，总之一切医嘱基本信息都会显示在系统平 台上，大大

提高了医务人员的工作效率。

2

本应用程序的构成和开发步骤

下面从软件工程的角度介绍本程序的基本开发步骤。

Delphi

应用程序一般包含以下三个基本部分：

应用程序运行的接口：负责系统整体环境的设置，运行

状态的监视，应用程序的启动等。

应用程序的主体：主要完成用户的业务逻辑功能，如长

期医嘱的 生成

,

临时医嘱的生成

,

病区查询

,

医嘱校对

,

工作

人员管理等信息

.

应用程序的辅助部分：协助程序主体完成的一些工作。

下面从软件工程的角度描述本程序的开发生命周期，

开发

2.1

可行性研究

任何一个系统或一项工程 ，在建立之前，必须首选进行

可行性分析，可行性分析包括两层含义，一是可能性，二是

必要性。可能性指开发信息系统的条件是否具备，必要性是

指客 观上是否真正需要，

通过可行性研究，

可避免盲目投资，

减少政治性要的损失。下面从四方面来讨论：

2.1.1

经济可行性

主要是只指算一个新的系统开发所需要的投资费用和

运算费用，并与估计 的新系统收益进行比较，看是否有利。

本系统所需的软硬件成本比较低，投资小，具有一 定的通过

性，因此

，在经济上是可行的。

2.1.2

时间可行性

主要包括系统在目前环境 下能否正常运行，运行后所引

起的各方面，以及这些变化对社会或人的因素所产生的影< /p>

响。本系统对人事的管理比较全面，可长期使用。

2.1.3

技术可行性

利用现有的设备，软件及技术人员，新系统的目标能否

达到，这也是可行 性研究中需要考虑的一个问题。关系型数

据库的高速发展使管理信息系统具备了良好的开 发环境。本

系统使用的

Delphi

普及性好，操作简单，用户可以很快掌

握使用方法，因此，在技术上是完全可行的。

2.1.4

社会可行性

人类社会文明的发展已进 入信息化的高速发展时期，传

统的手工方式支持下的管理模式，已经不能满足各方面的需

要。

开发本系统的目标不仅是提高工作效率，

< br>减轻劳动强度，

而且减少出错率，具有很好的社会意义。

2.2

数据库的建立和连接

这个程序采用的数据库是

Microsoft Access2 000

，

Delphi

作为数据库的前 台开发工具，必须与后台数据库进行连接，

这样才能控制和进行操作数据库，数据库的连 接方式有两

种，

ODBC

和

。

ODBC

是数据库的通用接口，其缺点是效率低；专用接

口调用直接速度快，

但是通用性差，

如果用

ODBC

连接数据

库一般要两个步骤：

1.

2.

创建描述文件。数

access2000

中建立的 ，在这里你可以设置

数据库的密码，对数据库进行保护。在创建数据源时可以通

过

BDE administrator

进行创 建，

也可以通过系统控制面板中

的

OD BC

数据源进行建立。而描述文件则可以在

Delphi

的

主程序中用

Database Profi le

中进行建立，

之后进行数据库的

连 接。

接下来的工作是建表。

同样建表的过程也不是唯一的，

但是最终实现的结果是唯一的。你可以通过

Access

表，也可以通过在

Visual Basic

主程序中建表，也可以通过

powerdesigner

进行可视化的建立，不过用这种方法，在 导入

的时候要把数据库要先断开，否则数据库的数据容易丢失。

建表的过程注意规范化命名规则，如表的字段名等等。同时

也要注意表的字段长度和可否 为空。因为以后要设计到主

键，外键的问题。如果字段名不同，同一字段长度不同则主< /p>

键和外键将会连接不上。可见建表时应做好全局的打算。我

在程序 开发的初期，同样犯了这个错误，导致数据库出错，

有时还要向表中新加入字段。导致数 据窗口不好用的连锁反

映。

2.3

系统的总体设计

< br>这个管理系统从

4

月

1

日开始着手设计开发

,

经过一段时

间的分析，并根据对医院医务人员医嘱管理的具体要求及需

要本软件实现的功 能，

将本软件分为

5

个大的模块，

分别是：

第一部分：长期医嘱；第二部分：临时医嘱；第三部分：病

区查询；

第四部分：医嘱校对。

程序流程图如下：

程序登陆

主界面

长

期

医

嘱

临

时

医

嘱

病

区

查

询

医

嘱

校

< br>对

帮

助

关

于

2.4

系统的详细设计

进入

Access

后要做的第一件事就是建立一个数据库。

Access

提供了

6

种用构造数据库 系统的对象，

根据本课题的

需要，在这里选择一个空的数据库， 命名建立了一个数据库

名称为“

bysj

”

，医嘱管理系统管理系统。并在此数据库下创

建了七个表， 用于存放原始数据。它只是存放数据，对其中

数据的修改要通过对应的窗体来完成。创建 各表的具体结构

如下：

1.

admin

信息表

:

2.

cqyz

信息表

:

3.

docter

信息表

:

4.

info

信息表

:

5.

lsyz

信息表

:

6.

nurse

信息表

:

t

信息表

:

3

本程序的技术实现及具体功能

3.1

登录的界面与程序设计实现

代码设计

:

unit login;

interface

uses

Windows,

Messages,

SysUtils,

Variants,

Classes,

Graphics,

Controls,

Forms,

Dialogs, LabelButton, StdCtrls, ExtCtrls, XPMenu,dbm;

type

TFrm_login = class(TForm)

Label1: TLabel;

Image1: TImage;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

choose1: TComboBox;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

choose2: TComboBox;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure choose1Change(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

i:integer;

public

{ Public declarations }

end;

var

Frm_login: TFrm_login;

implementation

uses main,pulvar, mainN, passedit, passeditN;

{$$R *.dfm}

procedure TFrm_2Click(Sender: TObject);

begin

close;

ate;

end;

procedure TFrm_1Click(Sender: TObject);

var

username:variant;

pass:string;

begin

choosename:=;

if dex=1 then

//

判断用户选择何种职务

username:=_('

医生姓名

',choosename,'

密

码

')

else

username:=_('

护

士

姓

名

',choosename,'

码

');

if choosename='' then

showmessage ('

请先选择您的职务！

') //

姓 名为空，

则职务未选，

给出错误提示

else

if ='' then

showmessage ('

请输入密码

') //

未输入密码，给出错误提示

else

begin

if varisnull(username) then pass:='' else pass:=username;

if <>pass then

begin

i:=i+1;

//

定义

i

，用于 计算输入密码错误次数，

3

次出错则退出程序

< br>

if i>=3 then

begin

eBox(PChar('

密码验证错误，拒绝访

问！

'), PChar('

提示

'),

MB_ICONEXCLAMATION);

ate;

close;

end;

ebox(pchar('

密码验证错误，重新录入！

'),pchar('

提示

'),

MB_ICONQUESTION);

:='';

us();

exit;

end;

if dex=1 then

//

用户选择“医生”职务则打开“医生操作台”窗体

begin

//

断开登录数据表连接

_;

_;

//

登录窗体隐藏

frm_;

//

窗体创建和显示

frm_maind:=tfrm_(application);

frm_dal;

frm_

end

else

//

用户选择“护士“职务则打开“医生操作台”窗体

begin

_;

_;

frm_;

frm_mainn:=tfrm_(application);