论文部分内容阅读
摘 要 介绍运用Visual FoxPro6.0，以Windows系列为操作平台，将数据录入、数据修改、数据浏览、数据查询和数据报表有机地结合起来，完成和实现全面高效、安全可靠的药品质量检查验收及记录的电脑化管理。
关键词 中文Visual FoxPro6.0数据库 药品验收 功能 特点
操作步骤
数据库、项目及表的设立L：①打开VFP窗口，新建一个项目，保存为“药品验收信息管理”。②在此项目管理器中，选择[数据]选项卡中的[数据库]，新建一个“药品验收”数据库。③在[新建]选项卡中选择数据库中的[表]，新建三个表：
创建表单：①利用表单向导创建“供应商信息管理”表单(gys.scx)。表单的Caption属性设置为“供应商信息管理”， ShowWindows属性为“1-在顶层表单中”，然后调整好各控件的位置和大小。②利用一对多表单向导创建“药品验收信息管理”表单(ypys.scx)。“产品”表为父表，“验收”表为子表，依据提示创建该表单。表单的Caption属性设置为“药品验收信息管理”，ShowWindows属性为“1-在顶层表单中”，调整好各控件的位置和大小。
制作系统菜单(main.mnx)：①在[项目管理器]中选择[菜单]按钮，打开[菜单设计器]，在[菜单名称]中分别输入“供应商信息管理”、“药品验收信息管理”和“退出”；分别为前两菜单栏添加命令：
Do from gys.scx
Do form ypys.scx
为菜单“退出”菜单栏添加过程：
Clear events
quit
②在VFP系统菜单中选择[显示]|[常规选项]，在[常规选项]窗口中选中[顶层表单]和[替换]两项。③在VFP系统菜单中选择[菜单]|[生成]，制作main.mpr菜单文件。④建立一主控程序(main.prg)，写入以下代码后，设置为主文件：
Local ljsysy，lj
Ljsys=sys(16)
Lj=substr(ljsys，at(“：”，ljsys)-1)
Cd left(lj，rat(“\”，lj))
Deactivate window “项目管理器”
Do setting
Do form hy
Read events
_screen.caption='药品验收信息管理'
Read events
Do resetting
⑤ 新建一个程序文件(setting.prg)，写入以下代码：
set sysmenu off
set sysmenu to
set talk off
set notify off
set exclusive on
set unique on
set safety off
⑤再新建一个程序文件(resetting.prg)，写入以下代码：
set sysmenu to default
set sysmenu on
set talk on
set notify on
set exclusive on
set safety on
modify window screen
⑦在[命令]窗口中输入命令：
Modi comm. Config.fpw
⑧在[命令]窗口中输入命令：
Modify command config.fpw
在窗口中输入以下代码：
screen=off
title=这是我自己制作的系统
_startup=' '
_browser=' '
_spellchk=' '
_genmenu=' '
_gengraph=' '
_genxtab=' '
_coverage=' '
_scctext=' '
_converter=' '
_transport=' '
_builder=' '
_wizard=' '
mvcount=1025
outshow=on
resource=off
_throttle=0
talk=off
multilocks=on
exclusive=off
safety=off
创建应用程序：①在[项目管理器]中选择[连编]按钮，在[连编选项]窗口中选中[重新连编项目，在[选项]栏中选中[重新编译全部文件]和[显示错误]两项。单击[确定]按钮编译程序。②再次在[项目管理器]中选择[连编]按钮，打开[连编选项]窗口，选中[连编可执行文件]选项，在[选项]栏选中前两项，单击[确定]按钮，编译并保存可执行文件main.exe程序。
执行程序看效果。关闭VFP窗口，用鼠标双击main.exe运行，就可进入编好的“藥品验收信息管理”系统。
讨 论
药品验收管理是每个药品经营使用单位不可缺少的部分，应该能够为用户提供充足的信息和快捷的查询手段。传统人工的方式进行药品验收管理，存在着许多缺点。随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。
关键词 中文Visual FoxPro6.0数据库 药品验收 功能 特点
操作步骤
数据库、项目及表的设立L：①打开VFP窗口，新建一个项目，保存为“药品验收信息管理”。②在此项目管理器中，选择[数据]选项卡中的[数据库]，新建一个“药品验收”数据库。③在[新建]选项卡中选择数据库中的[表]，新建三个表：
创建表单：①利用表单向导创建“供应商信息管理”表单(gys.scx)。表单的Caption属性设置为“供应商信息管理”， ShowWindows属性为“1-在顶层表单中”，然后调整好各控件的位置和大小。②利用一对多表单向导创建“药品验收信息管理”表单(ypys.scx)。“产品”表为父表，“验收”表为子表，依据提示创建该表单。表单的Caption属性设置为“药品验收信息管理”，ShowWindows属性为“1-在顶层表单中”，调整好各控件的位置和大小。
制作系统菜单(main.mnx)：①在[项目管理器]中选择[菜单]按钮，打开[菜单设计器]，在[菜单名称]中分别输入“供应商信息管理”、“药品验收信息管理”和“退出”；分别为前两菜单栏添加命令：
Do from gys.scx
Do form ypys.scx
为菜单“退出”菜单栏添加过程：
Clear events
quit
②在VFP系统菜单中选择[显示]|[常规选项]，在[常规选项]窗口中选中[顶层表单]和[替换]两项。③在VFP系统菜单中选择[菜单]|[生成]，制作main.mpr菜单文件。④建立一主控程序(main.prg)，写入以下代码后，设置为主文件：
Local ljsysy，lj
Ljsys=sys(16)
Lj=substr(ljsys，at(“：”，ljsys)-1)
Cd left(lj，rat(“\”，lj))
Deactivate window “项目管理器”
Do setting
Do form hy
Read events
_screen.caption='药品验收信息管理'
Read events
Do resetting
⑤ 新建一个程序文件(setting.prg)，写入以下代码：
set sysmenu off
set sysmenu to
set talk off
set notify off
set exclusive on
set unique on
set safety off
⑤再新建一个程序文件(resetting.prg)，写入以下代码：
set sysmenu to default
set sysmenu on
set talk on
set notify on
set exclusive on
set safety on
modify window screen
⑦在[命令]窗口中输入命令：
Modi comm. Config.fpw
⑧在[命令]窗口中输入命令：
Modify command config.fpw
在窗口中输入以下代码：
screen=off
title=这是我自己制作的系统
_startup=' '
_browser=' '
_spellchk=' '
_genmenu=' '
_gengraph=' '
_genxtab=' '
_coverage=' '
_scctext=' '
_converter=' '
_transport=' '
_builder=' '
_wizard=' '
mvcount=1025
outshow=on
resource=off
_throttle=0
talk=off
multilocks=on
exclusive=off
safety=off
创建应用程序：①在[项目管理器]中选择[连编]按钮，在[连编选项]窗口中选中[重新连编项目，在[选项]栏中选中[重新编译全部文件]和[显示错误]两项。单击[确定]按钮编译程序。②再次在[项目管理器]中选择[连编]按钮，打开[连编选项]窗口，选中[连编可执行文件]选项，在[选项]栏选中前两项，单击[确定]按钮，编译并保存可执行文件main.exe程序。
执行程序看效果。关闭VFP窗口，用鼠标双击main.exe运行，就可进入编好的“藥品验收信息管理”系统。
讨 论
药品验收管理是每个药品经营使用单位不可缺少的部分，应该能够为用户提供充足的信息和快捷的查询手段。传统人工的方式进行药品验收管理，存在着许多缺点。随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。