中文Ｖｉｓｕａｌ ＦｏｘＰｒｏ６．０數(shù)據(jù)庫(kù)在藥品驗(yàn)收中的應(yīng)用

摘 要 介紹運(yùn)用Visual FoxPro6.0，以Windows系列為操作平臺(tái)，將數(shù)據(jù)錄入、數(shù)據(jù)修改、數(shù)據(jù)瀏覽、數(shù)據(jù)查詢和數(shù)據(jù)報(bào)表有機(jī)地結(jié)合起來(lái)，完成和實(shí)現(xiàn)全面高效、安全可靠的藥品質(zhì)量檢查驗(yàn)收及記錄的電腦化管理。

關(guān)鍵詞 中文Visual FoxPro6.0數(shù)據(jù)庫(kù) 藥品驗(yàn)收 功能 特點(diǎn)

操作步驟

數(shù)據(jù)庫(kù)、項(xiàng)目及表的設(shè)立L：①打開(kāi)VFP窗口，新建一個(gè)項(xiàng)目，保存為“藥品驗(yàn)收信息管理”。②在此項(xiàng)目管理器中，選擇[數(shù)據(jù)]選項(xiàng)卡中的[數(shù)據(jù)庫(kù)]，新建一個(gè)“藥品驗(yàn)收”數(shù)據(jù)庫(kù)。③在[新建]選項(xiàng)卡中選擇數(shù)據(jù)庫(kù)中的[表]，新建三個(gè)表：

創(chuàng)建表單：①利用表單向?qū)?chuàng)建“供應(yīng)商信息管理”表單(gys.scx)。表單的Caption屬性設(shè)置為“供應(yīng)商信息管理”， ShowWindows屬性為“1-在頂層表單中”，然后調(diào)整好各控件的位置和大小。②利用一對(duì)多表單向?qū)?chuàng)建“藥品驗(yàn)收信息管理”表單(ypys.scx)。“產(chǎn)品”表為父表，“驗(yàn)收”表為子表，依據(jù)提示創(chuàng)建該表單。表單的Caption屬性設(shè)置為“藥品驗(yàn)收信息管理”，ShowWindows屬性為“1-在頂層表單中”，調(diào)整好各控件的位置和大小。

制作系統(tǒng)菜單(main.mnx)：①在[項(xiàng)目管理器]中選擇[菜單]按鈕，打開(kāi)[菜單設(shè)計(jì)器]，在[菜單名稱]中分別輸入“供應(yīng)商信息管理”、“藥品驗(yàn)收信息管理”和“退出”；分別為前兩菜單欄添加命令：

Do from gys.scx

Do form ypys.scx

為菜單“退出”菜單欄添加過(guò)程：

Clear events

quit

②在VFP系統(tǒng)菜單中選擇[顯示]|[常規(guī)選項(xiàng)]，在[常規(guī)選項(xiàng)]窗口中選中[頂層表單]和[替換]兩項(xiàng)。③在VFP系統(tǒng)菜單中選擇[菜單]|[生成]，制作main.mpr菜單文件。④建立一主控程序(main.prg)，寫(xiě)入以下代碼后，設(shè)置為主文件：

Local ljsysy，lj

Ljsys=sys(16)

Lj=substr(ljsys，at(“：”，ljsys)-1)

Cd left(lj，rat(“\\”，lj))

Deactivate window “項(xiàng)目管理器”

Do setting

Do form hy

Read events

_screen.caption='藥品驗(yàn)收信息管理'

Read events

Do resetting

⑤ 新建一個(gè)程序文件(setting.prg)，寫(xiě)入以下代碼：

set sysmenu off

set sysmenu to

set talk off

set notify off

set exclusive on

set unique on

set safety off

⑤再新建一個(gè)程序文件(resetting.prg)，寫(xiě)入以下代碼：

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=這是我自己制作的系統(tǒng)

_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

創(chuàng)建應(yīng)用程序：①在[項(xiàng)目管理器]中選擇[連編]按鈕，在[連編選項(xiàng)]窗口中選中[重新連編項(xiàng)目，在[選項(xiàng)]欄中選中[重新編譯全部文件]和[顯示錯(cuò)誤]兩項(xiàng)。單擊[確定]按鈕編譯程序。②再次在[項(xiàng)目管理器]中選擇[連編]按鈕，打開(kāi)[連編選項(xiàng)]窗口，選中[連編可執(zhí)行文件]選項(xiàng)，在[選項(xiàng)]欄選中前兩項(xiàng)，單擊[確定]按鈕，編譯并保存可執(zhí)行文件main.exe程序。

執(zhí)行程序看效果。關(guān)閉VFP窗口，用鼠標(biāo)雙擊main.exe運(yùn)行，就可進(jìn)入編好的“藥品驗(yàn)收信息管理”系統(tǒng)。

討 論

藥品驗(yàn)收管理是每個(gè)藥品經(jīng)營(yíng)使用單位不可缺少的部分，應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄巍鹘y(tǒng)人工的方式進(jìn)行藥品驗(yàn)收管理，存在著許多缺點(diǎn)。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)，它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。