药房管理系统.doc

1．系统功能分析
在实际开发中，系统功能分析需要开发小组的系统设计人员与用户进行全面、深入的
交流，以切实了解用户对整个系统功能的期望，并分析用户行业营运的特点，与用户共同决
定系统应具有哪些功能。 ．
本实例中的管理系统主要具有以下功能： ‘“
★系统用户管理：药房的使用人员涉及前台销售员、收银员、取药员、采购员以及系
统高级管理员。系统用户管理完成各类使用人员在使用系统时对账户的添加、修改、
删除和查询。
★药品信息管理：管理药品的基本信息，包括添加、修改、删除和查询。
★库存信息管理：管理药品的入库'库存量修改与查询，制订库存报表。
★前台销售管理：管理客户购物车的创建、添加、修改和查询，以及根据用户要求查
询特定的药品信息。
★购买结算管理：根据客户购物车结算购药费用，并可对购物车进行修改。
★取药管理：客户结算之后，取药人员根据客户购物车从库房为用户取药，并完成购
物车的注销操作。
★制订采购计划：采购人员根据药品库存量和药品销售情况制订采购计划。
★销售报表管理：根据每月药品的销售情况产生药品销售报表，药房高级管理人员可
以根据报表调整销售策略。
2．系统模块设计 ’
根据系统功能分析和药房的管理特点，经过模块化的分析得到如图lO．13所示的药房销
售管理系统功能模块结构图。
3．系统实现过程分析
在实现过程中，首先需要根据系统功能分析设计出需要的数据库和各个数据表的详细
结构，然后创建系统项目，并在项目中创建数据库和各个表。
在实现各个功能模块时，也采用先模块后系统集成的方式，即各个系统功能模块分别
独立设计和调试，在创建系统主表单时才将各个功能模块通过主表单的各个命令按钮集成到
一起，最后进行系统整体设计和调试。
在使用数据库中的表时，使用表单的数据环境统一管理表单中用到的各个表，这样，
数据环境可在表单加载和关闭时，自动打开和关闭使用的表，从而简化了代码中对表的打开
和关闭操作。
为表单中浏览记录创建一个统一的记录导航条，该记录导航条与实例9中创建的记录
导航条类似。

根据系统数据流图以及一般药房销售管理系统的需求，总结出下面的数据字典：
★系统用户数据：系统用户数据包含的数据项有系统用户名、登录口令和权限代码。
★药品基本信息数据：药品基本信息数据包含的数据项有药品编号、名称、售价、进
价、种类和厂家等。 ”
★药品销售数据：药品销售数据包含的数据项有销售编号、日期、药品编号、数量等。
★药品库存数据：药品库存数据包含的数据项有药品编号、库存量、库存下限等。
★客户购物车数据：客户购物车数据包含的数据项有购物车编号、客户名、药品编号、
数量、结算、日期等。
第二步，定义数据库结构
根据前面定义的数据字典，设计出药房销售管理系统数据库中各个数据表，包括系统
用户数据表、药品信息数据表、药品销售数据表、药品库存数据表、客户购物车数据表和购
物车记录表共6个数据表，各个数据表的结构分别如下：
★系统用户数据表：系统用户数据表用于保存系统用户的帐户信息，包括用户名、口
令和权限代码，数据表命名为SysUserData，结构如表10一l所示。系统用户编号形
式如00000、0000l，用户权限使用0～4分别代表系统管理员、销售员、收银员、
表10一1 系统用户数据表结构
┏━━━━━━┳━━━━━━━┳━━━━━━┳━━━━━━━━━━┓
┃ 字段名 ┃ 数据类型 ┃ 宽 度 ┃ 是否允许为NULL ┃
┣━━━━━━╋━━━━━━━╋━━━━━━╋━━━━━━━━━━┫
┃ 用户名 ┃ 字符型 ┃ 5 ┃ 否 ┃
┣━━━━━━╋━━━━━━━╋━━━━━━╋━━━━━━━━━━┫
┃ 口令 ┃ 字符型 ┃ 6 ┃ 否 ┃
┣━━━━━━╋━━━━━━━╋━━━━━━╋━━━━━━━━━━┫
┃ 权限 ┃ 字符型 ┃ l ┃ 否 ┃
┗━━━━━━┻━━━━━━━┻━━━━━━┻━━━━━━━━━━┛
★药品信息数据表：药品信息数据表用于保存每种药的基本信息，包括编号、名称、
售价、进价、种类和厂家，数据表命名为Druglnfo，结构如表10-2所示。编号形式
如Z00001、ZC0001。
表1 0-2药品信息数据表结构
┏━━━━━━┳━━━━━━━┳━━━━━━━━┳━━━━━━━━━━┓
┃ 字段名 ┃ 数据类型 ┃ 宽 度 ┃ 是否允许为NULL ┃
┣━━━━━━╋━━━━━━━╋━━━━━━━━╋━━━━━━━━━━┫
┃ 编号 ┃ 字符型 ┃ 6 ┃ 否 ┃
┣━━━━━━╋━━━━━━━╋━━━━━━━━╋━━━━━━━━━━┫
┃ 名称 ┃ 字符型 ┃ 25 ┃ 否 ┃
┣━━━━━━╋━━━━━━━╋━━━━━━━━╋━━━━━━━━━━┫
┃ 售价 ┃ 数值型 ┃ 6(2为小数) ┃ 否 ┃
┣━━━━━━╋━━━━━━━╋━━━━━━━━╋━━━━━━━━━━┫
┃ 进价 ┃ 数值型 ┃ 6(2为小数) ┃ 否 ┃
┣━━━━━━╋━━━━━━━╋━━━━━━━━╋━━━━━━━━━━┫
┃ 种类 ┃ 字符型 ┃ 10 ┃ 否 ┃
┣━━━━━━╋━━━━━━━╋━━━━━━━━╋━━━━━━━━━━┫
┃ 厂家 ┃ 字符型 ┃ 50 ┃ 否 ┃
┗━━━━━━┻━━━━━━━┻━━━━━━━━┻━━━━━━━━━━┛
★药品销售数据表：药品销售数据表用于保存每种药的销售记录数据，包括销售记录
编号、日期、药编号，命名为DrugSales，结构如表10-3所示。“编号，，用于惟一标
识一种药的单笔销售记录，形式如0310170000l、03101700002，其中03为年、10
为月、17为日。在客户结算取药之后，其购物车数据表和购物车记录将被删除，购
阻■■■雕瞰雕吲豳匪雕毗岬&

———◆
买数据则被保存到药品销售表中。
表1 0-3药品销售数据表结构
字段名
数据类型
宽 度
是否允许为NULL
编号
字符型
ll
否
药编号
字符型
6
否
数量
数值型
4
否
日期
日期时间型

否

★库存数据表：库存数据表用于保存每种药的库存信息，包括库存编号、库存量和库
存下限，数据表命名为DmgStore，结构如表10．4所示。每种药的库存编号与药品
信息表中的药品编号一致。
表10-4库存数据表结构
字段名
数据类型
宽 度
是否允许为NULL
编号
字符型
6
否
存量
数值型
4
否
下限
数值型
3
否

★客户购物车记录表：购物车记录表用于保存客户购物车记录，包括购物车编号、客
户、日期和结算，数据表命名为ShoppingCars，结构如表10—5所示。每个客户的购
物车记录使用一个惟一的编号来标识，形式如03081700001、03081700002。结算字
段用于标识客户是否已执行过结算操作，默认值设置为．F。
表1 0-5客户购物车记录表结构
字段名
数据类型
宽 度
是否允许为NULL
编号
字符型
11
否
客户
字符型
lO
否
日期
日期时间型

否
结算
逻辑型

否

★客户购物车数据表：每个客户有自己的购物车数据表，用于保存客户选购药品的编
号、数量。光临药房购药的顾客是动态的，所以数据库中客户购物车数据表的数量
也是动态的，对于每一个打算购买的顾客首先在客户购物车记录表中添加一个记
录，并分配一个惟一的编号来标识，然后使用该编号来命名为客户创建的购物车数
据表，结构如表10．6所示。
表10-6客户购物车数据表结构
字段名
数据类型
宽 度
是否允许为NULL
编号
字符型
6
否
数量
数值型
6(2为小数)
否

首先创建一个项目命名为DrugManage，项目文件保存在D：＼Vfdata＼pro＼lO文件夹中，然
后在其中创建药房销售管理数据库和属于数据库的数据表，具体操作请读者参考实例1中的
数据库创建过程，这里不再详细叙述。
本例中创建的数据库命名为DrugManage，数据库文件保存为d：＼Vfdata＼pro＼10＼data＼
DrugManage．dbc，各个表也保存在d：＼vfdata＼pro＼10＼data文件夹中，表名称和文件名如表10-7
所示。
表10-7表名称与文件名
┏━━━━━━━━━━┳━━━━━━━━━━━┳━━━━━━━━━━━┓
┃ 数据表 ┃ 表名称· ┃ 文件名 ┃
┣━━━━━━━━━━╋━━━━━━━━━━━╋━━━━━━━━━━━┫
┃ 系统用户数据表 ┃ SysUserData ┃ SysUserData．dbf ┃
┣━━━━━━━━━━╋━━━━━━━━━━━╋━━━━━━━━━━━┫
┃ 药品信息数据表 ┃ DrugInfo ┃ DrugInfo．dbf ┃
┣━━━━━━━━━━╋━━━━━━━━━━━╋━━━━━━━━━━━┫
┃ 药品销售数据表 ┃ DrugSales ┃ DrugSales．dbf ┃
┣━━━━━━━━━━╋━━━━━━━━━━━╋━━━━━━━━━━━┫
┃ 药品库存数据表 ┃ DrugStore ┃ DrugStore．dbf ┃
┣━━━━━━━━━━╋━━━━━━━━━━━╋━━━━━━━━━━━┫
┃ 购物车记录表 ┃ ． ShoppingCars ┃ ShoppingCars．dbf ┃
┗━━━━━━━━━━┻━━━━━━━━━━━┻━━━━━━━━━━━┛
在本例中的药房销售管理系统启动时，首先显示系统用户登录表单，用户必须登录之
后才能够使用系统功能。系统用户的登录信息保存在SysUserData数据表中。
第一步，创建系统用户登录表单
在设计表单时，首先在表单的数据环境设计器中添加SysUserData表，然后为表单添加
各个需要的控件，系统用户登录表单设计如图10—15所示。
图10-15系统用户登录表单设计
表单文件保存为D：＼Vfdata＼pro＼l呻rDlS＼SysUserLog．SCX，表单以及表单中各个控件的属
性设置如表10-8所示。
表1 0-8表单以及表单中各个控件的属性设置
┏━━━━━━┳━━━━━━━┳━━━━━━━━━━┳━━━━━━┳━━━━━━━━┳━━━━━━━┓
┃ 对 象 ┃ 属 性 ┃ 属性值 ┃ 对 象 ┃ 属 性 ┃ 属性值 ┃
┣━━━━━━╋━━━━━━━╋━━━━━━━━━━╋━━━━━━╋━━━━━━━━╋━━━━━━━┫
┃ ┃ AlwaysOnTop ┃ ．T． ┃ ┃ Caption ┃ 确定 ┃
┃ ┣━━━━━━━╋━━━━━━━━━━┫ ┣━━━━━━━━╋━━━━━━━┫
┃ ┃ AutoCenter ┃ ．T． ┃ CommandI ┃ Default ┃ ．T． ┃
┃ ┣━━━━━━━╋━━━━━━━━━━┫ ┣━━━━━━━━╋━━━━━━━┫
┃ ┃ BorderStyle ┃ 2 ┃ ┃ Tabindex ┃ 2 ┃
┃ ┣━━━━━━━╋━━━━━━━━━━╋━━━━━━╋━━━━━━━━╋━━━━━━━┫
┃ Forml ┃ Caption ┃ 用户登录 ┃ ┃ Cancel ┃ ．T． ┃
┃ ┣━━━━━━━╋━━━━━━━━━━┫ ┣━━━━━━━━╋━━━━━━━┫
┃ ┃ Contorlbox ┃ ．F． ┃ Command2 ┃ Caption ┃ 取消 ┃
┃ ┣━━━━━━━╋━━━━━━━━━━┫ ┣━━━━━━━━╋━━━━━━━┫
┃ ┃ ShowWindow ┃ 2 ┃ ┃ Tabindex ┃ 3 ┃
┃ ┣━━━━━━━╋━━━━━━━━━━╋━━━━━━╋━━━━━━━━╋━━━━━━━┫
┃ ┃ WindowType ┃ 1 ┃ ┃ Name ┃ txtName ┃
┃ ┃ ┃ ┃ Textboxl ┃ ┃ ┃
┣━━━━━━╋━━━━━━━╋━━━━━━━━━━┫ ┣━━━━━━━━╋━━━━━━━┫
┃ ┃ Autosize ┃ ．T． ┃ ┃ Tabindex ┃ 0 ┃
┃ ┣━━━━━━━╋━━━━━━━━━━╋━━━━━━╋━━━━━━━━╋━━━━━━━┫
┃ Labell ┃ ┃ ┃ ┃ ┃ txtPassword ┃
┃ ┃ Caption ┃ 用户名 ┃ Textbox2 ┃ Name ┃ ┃
┣━━━━━━╋━━━━━━━╋━━━━━━━━━━╋━━━━━━╋━━━━━━━━╋━━━━━━━┫
┃ ┃ Autosize ┃ ．T． ┃ ┃ Passwordchar ┃ ┃
┃ ┣━━━━━━━╋━━━━━━━━━━┫ ┣━━━━━━━━╋━━━━━━━┫
┃ ┃ Caption ┃ 药房销售管理蚕统 ┃ ┃ Tabindex ┃ 1 ┃
┃ Label3 ┃ ┃ ┃ ┃ ┃ ┃
┃ ┣━━━━━━━╋━━━━━━━━━━╋━━━━━━╋━━━━━━━━╋━━━━━━━┫
┃ ┃ Fontname ┃ 隶书 ┃ ┃ Autosize ┃ ．T． ┃
┃ ┃ ┃ ┃ Label2 ┃ ┃ ┃
┃ ┣━━━━━━━╋━━━━━━━━━━┫ ┣━━━━━━━━╋━━━━━━━┫
┃ ┃ Fontsize ┃ 20 ┃ ┃ Caption ┃ 口令 ┃
┗━━━━━━┻━━━━━━━┻━━━━━━━━━━┻━━━━━━┻━━━━━━━━┻━━━━━━━┛
第二步，实现系统用户登录表单功能
(1)为表单定义新的属性
为表单定义两个新的属性nMaxLogTimes和nLogTimes，分别用于保存允许用户最大登
录次数和当前登录次数的变量，初始值分别设置为3(即最多允许当前用户尝试3次口令验
证操作)和O。
(2)实现登录信息验证
在用户单击圃圈按钮时，对用户输入的登录信息进行验证。首先，检查当前登录次
数是否大于允许用户的最大登录次数，如果大于，则显示提示信息，并关闭登录表单。否则
进一步验证用户名是否正确。使用输入的用户名在SysUserData表中使用Locate命令查找该
用户对应的记录，如果没有对应的记录，则说明用户名不正确，显示相应的提示信息。如果
找到对应的记录，则比较记录中的口令是否与用户输入口令一致，如果不一致，则说明口令
不正确，显示相应的提示信息。如果口令一致，则显示登录成功的提示，并将用户名、口令
和权限代码保存到系统变量中，以便在显示系统主表单时，用于禁用该用户无权访问的命令
按钮。上述验证操作在菡圈按钮的Click事件中完成。代码如下：
。首先检查是否超过允许的最多登录次数
thisform．nLogTimes=“sform．nLogTimes+1 ＆＆当前登录次数加1
if thisform．nLclgTirues>nlisform．nMaxLogTimes
+在超过允许的晟多登录次数时显示提示信息，并关闭登录对话框
cstr=t·你已超过允许的最多登录次数，登录对话框将关闭”
messagebox(cstr,16，”用户登录验证”) ＆&显不提不
thisform．release ＆&关闭登录对话框
+在允许的最多登录次数范围内，首先获得用户输入的登录信息
cName=alltrimf锄sform．txtName．value)

认
4．添加记录导航条类
在实例9的“高校图书管理系统”中，我们创建了一个通用的记录导航条类，为了在
药房销售管理系统中使用该类，可将该类添加到项目中。首先，将记录导航条类的类文件
mynavigator．vct和mynavigator．vcx复制到d：＼vfdata＼pro＼10＼data文件夹中。然后打开“项目管
理器”的“类”选项卡，单击翎翰醚麟按钮，将类添加到项目中。
在设计表单时，单击“表单控件”工具栏中的瓣按钮，在打开的菜单中选择“添加”
命令，在打开的“打开”的对话框中选中导航条类文件mynavigator．vcx，将其添加到“表单
控件”工具栏。Mynavigator类在工具栏中显示为瓣按钮，如图10．16所示。
图10-16将英添加钊工具栏
／
5．实现系统用户数据管理功能 、／
V
系统用户数据管理指对DrugManage数据库中的SysUserData表执行添加、修改或删除
操作。
第一步，创建系统用户数据管理表单
在设计表单时，在表单的数据环境中添加需要使用的SysUserData表，这样在表单加载
或关闭时，使用的表可被自动打开和关闭。将表对应的Cursorl的Exclusive属性设置为．T，
即以独占的方式访问表。从“数据环境设计器”中将SysUserData表的各个字段拖动到表单
设计窗口中。然后为表单添加一个记录导航条和用于执行添加、删除、修改、保存、退出添
加修改以及关闭表单操作的命令按钮。
系统用户数据管理表单设计如图10-17所示．
图10-17系统用户数据管理表单设计
表单文件保存为D：Wfdata＼pro＼10~forms＼SysUserManage．scx，表单和各个控件的属性设
置如表10-9所示。
6．实现当前用户口令修改功能x／ ┃
┃ 第一步，设计口令修改表单 ┃
┃ 在口令修改表单中，显示当前用户的用户名和旧口令，并提供两个文本框用于输入新 ┃
┃的口令，3个命令按钮分别用于保存新口令、清除新口令和关闭口令修改表单。在设计表单 ┃
┃时，在表单的数据环境中添加需要使用的sysuserData表。 ┃
┃ 口令修改表单的设计如图10-18所示。 ┃
┃照

图10-18口令修改表单设计
表单文件保存为D：＼Vfdata＼pro、10kf01TflskEditPassword．SCX，表单和各个控件的属性如表
10—10。
表10-10表单和控件的属性设置

第二步，实现口令修改功能
(1)实现表单初始化 ．． ．
事中囊瓣淼雾霎将ca用pp户_c名和．urren日tu菩鬈掌篙蒜罐筹藏UUL
表中获得用户的旧口令，并将用户名和旧口令显不在表单中。返些酬始化猓作仕衣旱制
事件过程中完成。代码如下：
+显示用户名
thisform．txtName．value=capp-currentuser
+显示用户口令
select sysuserdata
locate for allU~_ra(用户名)=capp_currentuser
thisform．txtOldPwd．value=口令

(2)实现清除口令功能 。
当用户单击粼按钮时，可清除输入的新口令。潮按钮的Click事件过程代码如下：
+清除新口令
thisform．txtnewpwdl．value=””
thisform．txtnewpwd2．value=””
(3)实现保存新口令功能
当用户单击图按钮时，首先检验两次输入的新口令是否相同，如果不相同，则显示
相应的提示信息，否则将新口令保存到sysuserdata表中。豳按钮的Click事件过程代码
如下：
。检查两次输入的口令是否相同
with thisform
Ⅲ．~mewpwdl．value<>．txtnewpwd2．value
messagebox(”两次输入的新口令不相同”，16，”口令修改。t)
．txtnewpwd2．format=”K” &&K表示在文本框获得焦点时选中全部文本
．txtnewpwd2．setfocus
retulTl
endif
*获得输入的新口令
cpwd=Ml~m(．~mewpwdl．text)
+修改口令
select sysuserdata
replace口令with cpwd while用户名=capp_currenmser
capp_curren印wd=cpwd
messagebox(”口令修改成功”，64，”口令修改”)
．txtoldpwd．vMue=cpwd
．txtnewpwdl．vMue=…
．txmewpwd2．value=…’
endwith
(4)实现关闭表单功能
当用户单击潮按钮时，关闭表单。潮按钮的Click事件过程代码如下：
ifmessagebox(”是否退出口令修改?
7．实en现di≥品信息管理＼／
7．实现药品信息管理 V
，36，”口令修改”)=6
＆&关闭口令修改表单
药品信息管理包括药品信息的录入、修改和删除。
第一步，创建药品信息管理表单
在实现药品信息管理表单时，首先在表单的数据环境中添加SysUserData表，将表对应
的Cursorl的ExclusiVe属性设置为．Z。然后从“数据环境设计器’’中将SysUserData表的各
——+
lⅡ下：
4显示
E代码
表对应
表的各

个字段拖动到表单设计窗口中，并为表单添加一个记录导航条和用于执行添加、删除、修改、
保存、退出以及关闭表单操作的命令按钮。
将药品种类对应的文本框“txt种类”删除，用一个组合框(ComboBox控件)代替，
其列表为药品种类。这样，在添加或修改药品的“种类”字段时，可从列表中选择。
药品信息管理表单设计如图10一19所示。

。 图10．19设计药品信息管理表单
表单文件保存为D：Wfdata＼pro＼10kformski)mgIllf0MaIlage．scx，表单及控件的属性设置如
表10—11所示。
表10．1 1表单及控件的属性设置
对 象
属 性
属性值
对 象
属 性
属性值

Autoeenter
．T．

DisableBacldCOlor
255.255,255

Forml
Borderstyle
2

DisableForeColor
O，0,0

Capfion
药品信息管理
坎t编号
Format
!T

ShowWindow
l

Maxlength
6

Commandl
Capfion
添加

ReadOnly
．T．

Nalltle
cmdAdd

DisableBackColor
255.255.255

Command2
Capron
修改

DisableFo删Colof
O，0,0

Name
cmdEdit

ReadOnl'~
．T．

Comlnand3
Capfion
删除
Combol
Nallle
cmbType

Nanle
cmdDelete

Sorted
．T．

Command4
Capron
保存

RowSourceType
3一sQL语句

Name
cmdSave

ControlSource
dru~fo．种类

Command5
Capfion
退出

DisableBackCOlor
255,255,255

N锄e
cmdEsc

DisableF0reColor
O，O，O

Comlnand6
Capfion
关闭
眦进价
InputMask
9999.99

Nanle
cmdExit

Alignment
0一左

Dis曲kBackColor
255.255,255

ReadOnlv
．T．
txl厂家
DisableForeColor
0,0，O

txt售价
DisabkBackCOlor
255.255,255

ReadOnly
．T．

DisableForeC010r
0。O，0
．实现药品入库功能

第一步，设计药品入库表单
在药品入库表单中，显示药品名称和编号列
表。执行药品入库操作时，可从列表中选择药品名
称或药品编号，然后输入药品入库数量，完成药品
入库操作。在表单的数据环境中添加DrugStore表。
药品入库表单设计如图lO一20所示。

图10．20设计药品入库表单
表单文件保存为D：＼Vfdata＼pro＼10~forms＼DmgToStore．sex，表单及控件的属性设置如表
10—12所示。
表10-12表单及控件的属-I生设置
对 象
属 性
属性值

Autocenter
．T．

Forml
Borderstyle
2

Caption
药品入库

ShowWindow
l

Commandl
Caption
保存

Name
cmdSave

Command2
Caption
关闭

Name
cmdExit

Comb01
Name
cmbName

Style
2一下拉列表框

Comb02
Name
cmbNum

Style
2一下拉列表框
f化操
!的
!记
理系统开发篇o．-—墅墨
nSum=val(thisform．txtsum．text)
if nsum=0
messagebox(”请输入药品入库数量!”，16，’’药品入库”)
thisform．txtsum．seffocus
return
endif
。检查药品是否存在库存记录
select drugstore
locate for编号--=cnum
iffound()
t修改药品库存记录
nsum=nsum+存量
update Drugstore set存量=nsum where编号=cnum
else
。添加新的药品库存记录
insert into Drugstore(编号，存量，卞限)values(cnum,nsum,0)
messagebox(”药品入库数据保存完成!”，64，”药品入库t·)
(3)实现药品名称与药品编号列表的互动
…，套蓼品予称下拉列表中选择时，自动选中药品编号列表中的对应编号；反过来，在选
堂塑号翌，自动选中对应的名称。在药品名称与药品编号下拉列表的单击事件过程完成运二
功能。药品名称下拉列表的单击事件过程代码如下：
。选中药品名称对应的编号
thisform．cmbnum．1istindex=thisform．cmbname．1istindex
药品编号下拉列表的单击事件过程代码如下：
t选中药品编号对应的名称
thisform．cmbname．1istindex=thisform．cmbnum．1istindex
(4)实现关闭表单功能
当用户单击蠲幽按钮时，关闭表单。幽幽按钮的Click事件过程代码如下：
ifmessagebox(”是否退出药品入库?”，36，”药品入库”)：6
thisform．release &&关闭药品入库表单
9．实现药品库存数据管理 ／
第一步，设计药品库存数据管理表单
对药品库存数据允许修改其库存量和设置库存量下限，以及删除库存记录操作。在设
计表单时，首先在表单的数据环境中添加D11lgStore表，将表对应的Cursorl的Exclusive属
性设置为·T。然后从“数据环境设计器’’中将D11lgStore表的各个字段拖动到表单设计窗口
中，并为表单添加一个记录导航条和用于执行删除、修改、保存、退出以及关闭表单操作的
命令按钮。
药品库存数据管理表单设计如图10．21所示。

图10—21设计药品库存数据管理表单
表单文件保存为D：＼Vfdata＼pro＼10Xforms、DmgStoreMaIlage．SCX，表单及控件的属性设置
如表10．13所示。 ·
表10-13表单及控件的属性设置
对 象
属 性
属性值
对 象
属 性
属性值

Autocenter
．T．

DisableBackColor
255,255,255

Forml
BordersWle
2
txt编号
DisableForeColor
0,0，O

Caption
药品库存数据管理

ReadOnlv
．T．

ShowWindow
1

DisableBackColor
255,255,255

Commandl
Caption
修改

DisableForeColor
O，0,0

Name