医药触摸屏管理系统
摘要
【摘要】
随着信息技术的迅速发展，信息化、数字化已经进入各行各业和人们生活中的许多方面，医药行业也在不知不觉的进入数字化和信息化时代。
由于人们对互联网认识的不断提高，越来越多的人习惯于在网络中搜寻为已所需的资源。而医药商品作为一种较为特殊的商品，其在生产、经营、销售的全过程中，存在内在或外来因素的影响，随时都有可能发生质量问题，因此必须在这些环节上采取严格的措施，才能从根本上保证医药商品的质量。医药触摸屏管理系统的开发适应了市场的需要，满足了人们的需求。系统中即包括药品信息查询功能，同时也提供相应药品的厂家介绍，以及求医问药等功能，让人们足不出户就可以享受健康。
本系统是根据人们在日常生活中的实际需求而开发的，完全能够实现人们对各类药品信息及疑难病症查询的功能，通过本系统可以达到以下目标：
l 系统运行稳定，安全可靠。
l 界面设计美观，人机交互界面友好。
l 为顾客提供方便、快捷的药品信息查询
l 全面展示企业形象。
l 为顾客提供疑难病症查询的信息模块。
l 详细介绍药品厂家的信息模块。
l 药品信息通过分类，详细的展示给顾客。
【关键词】 医药触摸屏管理系统
0 引言
随着信息技术的迅速发展，信息化、数字化已经进入各行各业和人们生活中的许多方面，医药行业也在不知不觉的进入数字化和信息化时代。
由于人们对互联网认识的不断提高，越来越多的人习惯于在网络中搜寻为已所需的资源。而医药商品作为一种较为特殊的商品，其在生产、经营、销售的全过程中，存在内在或外来因素的影响，随时都有可能发生质量问题，因此必须在这些环节上采取严格的措施，才能从根本上保证医药商品的质量。医药触摸屏管理系统的开发适应了市场的需要，满足了人们的需求。系统中即包括药品信息查询功能，同时也提供相应药品的厂家介绍，以及求医问药等功能，让人们足不出户就可以享受健康。
1 需求分析
1.1 需求分析
根据市场的需求，要求系统具有以下功能：
l 系统操作简单，界面友好。
l 方便、快捷的全方位数据查询。
l 全面，系统的药品信息。
l 系统内部控制严密，数据存储安全可靠。
1.2 可行性分析
由于信息技术的发展，人们对生活有了越来越高的要求，而健康永远是生活的主题，医药触摸屏管理系统的开发，在全面展示企业形象的同时，也让人们的生活真正实现了与健康接轨，方便、快捷的药品信息查询、疑难病症的解答满足了顾客的需求，同时也推动了医药行业快速的发展。
2 总体设计
2.3.1 项目规划
医药触摸屏管理系统是一个非常有特点的管理软件，系统由生产厂家推介、药品信息查询、药品推介、求医问药、本公司介绍等模块组成。
l 生产厂家推介
l 药品信息查询
l 药品推介
l 求医问药
l 本公司介绍
2.3.2 系统功能结构
医药触摸屏管理系统的功能结构如图1所示。若图片无法显示请联系QQ3710167
图1 系统功能结构图
3 系统设计
3.1 设计目标
本系统是根据人们在日常生活中的实际需求而开发的，完全能够实现人们对各类药品信息及疑难病症查询的功能，通过本系统可以达到以下目标：
l 系统运行稳定，安全可靠。
l 界面设计美观，人机交互界面友好。
l 为顾客提供方便、快捷的药品信息查询
l 全面展示企业形象。
l 为顾客提供疑难病症查询的信息模块。
l 详细介绍药品厂家的信息模块。
l 药品信息通过分类，详细的展示给顾客。
3.2 开发及运行环境
系统开发平台：Microsoft Visual FoxPro 6.0。
运行平台：Windows XP/ Windows 2000/ Windows 2003
分辨率：最佳效果1024×768像素
3.3 数据库设计
下面将对数据进行设计。数据库在一个系统中占居主要的地位。本系统采用的是Visual FoxPro自带的数据库，数据库文件名为yygsp。
由于篇幅所限，关于数据库中的数据表请参见附录B。
4 主要功能模块设计
4.1 程序主界面设计
程序主界面的好坏往往影响到软件的整体形象，因此首先要处理好程序主界面的设计问题。同时，程序主界面也是程序控制的核心，程序功能调用等都要通过程序主界面调用实现的。
医药触摸屏管理系统主程序运行结果如图2所示。
医药触摸屏管理系统
1．表单设计
（1）新建一个表单，命名为“index.scx”，并将表单的名称设置为“医药触摸屏管理”，ShowWindow属性设置为“2-作为顶层表单”，TitleBar属性设置为“0-关闭”，WindowState属性为“2-最大化”。
（2）在表单上添加Shape控件、Timer控件和Image控件，
（3）重要控件的重要属性如表1所示。
表1 重要属性及值
对象
属性
值
Shape
BorderStyle
透明
Image
Stretch
0-剪载
2．代码设计
在表单的Load事件中添加如下代码用于定义程序中所需的变量并为其赋初值及API函数声明。
Public P_YPNO,Flag,TYName,MouseX,MouseY,TotalTimer
Store "" To P_YPNO,Flag,TPName
Store 0 To MouseX,MouseY,TotalTimer
Declare integer GetCursorPos in user32 String@ lpPoint &&声明API函数
在表单的Init事件中加入初始化滚动广告图片的代码：
Flag="Index"
public cleft
cleft=0
myleft=0
for i=1 to 16
myimage="image"+alltrim(str(i))
mypath=sys(5)+sys(2003)+"\images\滚动\img_"+alltrim(str(i))+".JPG"
thisform.&myimage..picture=mypath
thisform.&myimage..top=Thisform.Height-113
endfor
thisform.image1.left=0
for i=2 to 16
myimage="image"+alltrim(str(i))
myleft=myleft+thisform.&myimage..width+8
thisform.&myimage..left=myleft
endfor
thisform.timer1.interval=100
为表单添加新的方法程序，名称为mroll方法，在该方法中添加如下代码，用于根据用户选择的图片显示所对应药品的详细信息。
Select * From Tab_Roll Where 图片名=TPName Into Cursor Temp_Roll
P_YPNO=Temp_Roll.药品编号
Thisform.Release &&释放表单
Do Form Form\药品信息详细介绍
在代表生产厂家推介按钮的Shape1控件的Click事件中添加如下代码调用“生产厂家推介”表单。
医药触摸屏管理系统
在代表生产厂家推介按钮的Shape1控件的Click事件中添加如下代码调用“生产厂家推介”表单。
set bell on &&使Bell有效
SoundPath=Sys(5)+sys(2003)+"\sound\Toll.wav" &&使Bell定向到WAV文件
set bell to SoundPath,0
?CHR(7) &&播放该WAV文件
set bell to &&取消定向
Thisform.Release
Do Form Form\生产厂家推介
在Timer控件的Timer事件中添加如下代码实现滚动图片广告和当用户10秒内无操作时调用屏幕保护程序。
for i=1 to 16 &&滚动图片
myimage="image"+alltrim(str(i))
thisform.&myimage..left=iif(thisform.&myimage..left < -1016,1016,thisform.&myimage..left-8)
endfor
*******************当用户10秒内无操作时调用屏幕保护程序********************
cbuff=space(16)
mymouse=GetCursorPos(@cBuff)
X=ASC(substr(cBuff,2,1))*256+ASC(substr(cBuff,1,1))
Y=ASC(substr(cBuff,6,1))*256+ASC(substr(cBuff,5,1))
If TotalTimer=100
Thisform.Release
Do Form Form\屏幕保护程序
Else
If MouseX!=X OR MouseY!=Y
MouseX=ASC(substr(cBuff,2,1))*256+ASC(substr(cBuff,1,1))
MouseY=ASC(substr(cBuff,6,1))*256+ASC(substr(cBuff,5,1))
TotalTimer=0
Else
TotalTimer=TotalTimer+1
Endif
Endif
4.2 屏幕保护程序设计
在本系统中还设置了屏幕保护程序。在10秒钟内如果用户不做任何操作，系统将自动调用屏幕保护程序。屏幕保护程序设计结果如图3所示。若图片无法显示请联系QQ3710167
图3 屏幕保护程序窗口运行结果
1．表单设计
（1）新建一个表单，命名为“屏幕保护程序.scx”，并将表单的Caption属性设置为“屏幕保护程序” ，ShowWindow属性设置为“2-作为顶层表单”，TitleBar属性设置为“0-关闭”，WindowState属性为“2-最大化”。
（2）在表单上添加Timer控件、List控件、MediaPlayer控件和Contain控件。
（3）重要控件的重要属性如表2所示。
表2 重要属性及值
对象
属性
值
Shape
BorderStyle
透明
List
Name
List1
2．代码设计
在表单的Load事件中添加如下代码用于定义程序中所需的变量并为其赋初值及API函数声明。
Public MouseX,MouseY,TotalTimer
Store 0 To MouseX,MouseY,TotalTimer
Declare integer GetCursorPos in user32 String@ lpPoint &&声明API函数
*获取鼠标的坐标值
cbuff=space(16)
mymouse=GetCursorPos(@cBuff)
MouseX=ASC(substr(cBuff,2,1))*256+ASC(substr(cBuff,1,1))
MouseY=ASC(substr(cBuff,6,1))*256+ASC(substr(cBuff,5,1))
在表单的Init事件中添加如下代码将数据表中保存的视频文件信息添加到List控件中，用于循环播放。
Select Tab_Path
Go Top
Do While !Eof()
thisform.list1.additem(Alltrim(Tab_Path.屏保路径)) &&添加一个列表项
Skip
EndDo
thisform.list1.listindex=1 &&指定被选中的索引项
FileName=Alltrim(Thisform.List1.Value)
thisform.C1.mediaplayer1.fileName=&FileName. &&设置播放曲目
Thisform.Height=768
Thisform.Width=1024
在MediaPlayer控件的PlayStateChange事件中添加控制循环播放List控件中的全部视频文件（可以是广告信息）的代码。
if thisform.C1.mediaplayer1.PlayState=0 &&播放停止
listvalue=thisform.list1.value
if alltrim(thisform.C1.mediaplayer1.filename)=&listvalue.
if thisform.list1.listindex<=thisform.list1.listcount-1 &&播放停止
thisform.list1.listindex=thisform.list1.listindex+1 &&播放下一首
FileName=Alltrim(Thisform.List1.Value)
thisform.C1.mediaplayer1.fileName=&FileName. &&设置播放曲目
else
thisform.list1.listindex=1
FileName=Alltrim(Thisform.List1.Value)
thisform.C1.mediaplayer1.fileName=&FileName. &&设置播放曲目
endif
else
FileName=Alltrim(Thisform.List1.Value)
thisform.C1.mediaplayer1.fileName=&FileName. &&设置播放曲目
endif
endif
为了控制当用户操作鼠标时，关闭该屏幕保护程序，需要在Timer控件的Timer事件中添加如下代码：
cbuff=space(16)
mymouse=GetCursorPos(@cBuff)
X=ASC(substr(cBuff,2,1))*256+ASC(substr(cBuff,1,1))
Y=ASC(substr(cBuff,6,1))*256+ASC(substr(cBuff,5,1))
If MouseX!=X OR MouseY!=Y
Thisform.C1.MediaPlayer1.Stop
set bell on &&使Bell有效
SoundPath=Sys(5)+sys(2003)+"\sound\Toll.wav" &&使Bell定向到WAV文件
set bell to SoundPath,0
?CHR(7) &&播放该WAV文件
set bell to &&取消定向
Thisform.Release &&释放表单
Do Form Form\Index
Endif
4.3 生产厂家推介模块设计
在程序的主界面单击“生产厂家推介”按钮，即可进入到生产厂家推介模块。生产厂家推介模块主要将生产厂家的所有相关信息以列表的形式显示出来，并通过单击每一个生产厂家的厂名，分别可以进入每一个厂家的详细信息页面。生产厂家推介的运行结果如图4所示。
医药触摸屏管理系统
图4 生产厂家推介模块的运行结果
1．表单设计
（1）新建一个表单，命名为“生产厂家推介.scx”，并将表单的Caption属性设置为“生产厂家推介” ，ShowWindow属性设置为“2-作为顶层表单”，TitleBar属性设置为“0-关闭”，WindowState属性为“2-最大化”。
（2）在表单中添加Timer控件，Container控件，Shape控件，Image控件，ActiveX控件的Microsoft FlexGrid Control,version 6.0控件（下文将其简称为MSFlexGrid控件）。
（3）重要控件的重要属性如表3所示。
表3 重要属性及值
对象
属性
值
Timer
Interval
100
Timer
Enable
True
C1
BackStyle
0-透明
C1
BorderColor
0,0,0
Btn_Back
BackStyle
0-透明
Btn_Back
Picture
=Sys(5)+Sys(2003)+"\images\ToolTip.Bmp"
2．代码设计
在表单的Init事件中加入利用FlexGrid控件显示生产厂家信息的代码：
Select Tab_WLUnit
Select 全称 AS 厂家名称,电话,传真,电子信箱,网址,编号 From Tab_WLUnit Into Cursor Temp_SCCJ
*利用FlexGrid控件显示生产厂家信息
thisform.flexgrid1.backcolor=rgb(254,247,239)
select Temp_SCCJ
go top &&将记录指针移动到第一条记录
thisform.flexgrid1.clear &&清空FlexGrid1
thisform.FlexGrid1.cols=fcount()+1 &&设置FlexGrid1的列数
thisform.flexgrid1.rows=reccount()+1 &&设置FlexGrid1的行数
Thisform.FlexGrid1.RowHeight(0)=300
thisform.flexgrid1.refresh
thisform.flexgrid1.ColWidth(0)=240 &&设置第一列的宽度
for h=1 to fcount()
thisform.flexgrid1.TextMatrix(0, h) = field(h)
thisform.flexgrid1.ColWidth(h)=fsize(field(h))*50 &&设置单元格的宽度
endfor
For m = 1 To reccount()
goto m
Thisform.FlexGrid1.RowHeight(m)=500
For n = 1 To fcount()
fname=field(n)
thisform.flexgrid1.TextMatrix(m,n)=Temp_SCCJ.&fname.
endfor
endfor
Thisform.C1.Btn_Back.Left=840
在Timer控件的Timer事件中添加如下代码实现走动的返回按钮。
If Thisform.C1.Btn_Back.Left>-200
Thisform.C1.Btn_Back.Left=Thisform.C1.Btn_Back.Left-4
Else
Thisform.C1.Btn_Back.Left=840
Endif
在MSFlexGrid控件的SelChange事件中添加用于当用户选择该控件的某一行时，改变该行的显示状态并打开该行所代表的药品的详细信息表单。
for m=0 to this.rows-1
this.textmatrix(m,0)='' &&去掉行标头
endfor
mycol=this.col &&为全局变量赋值
myrow=this.row
this.col=0 &&将焦点移到第一列
this.cellFontname='wingdings' &&设置单元格字体为 Wingdings
this.cellforecolor=rgb(0,128,255)
this.textmatrix(this.row,0)='v' &&单元格内容为"v"
P_CJNO=Alltrim(This.TextMatrix(This.row,6))
Thisform.Release &&释放表单
Do Form Form\生产厂家详细介绍
4.4 退出系统设计
单击主界面中的退出系统按钮（如图11所示），即可打开退出系统窗口，退出系统窗口主要用于关闭该程序。由于该程序是触摸屏程序，所以只有合法的用户才有权关闭该系统。退出系统界面的运行结果如图5所示。
图5 退出系统界面的运行结果
1．表单设计
（1）新建1个表单，命名为“Login.scx”，并将该表单的Caption属性设置为“退出系统！”，BorderStyle属性设置为“2-固定对话框”，设置Picture属性，为表单添加图片。
（2）在表单上添加Shape控件、Timer控件和Text控件。
（3）重要控件的重要属性如表8所示。
表4 重要属性及值
对象
属性
值
Shape
BorderStyle
透明
Timer
Interval
20000
Text1
PasswordChar
v
Text1
BorderStyle
0-无
2．代码设计
鼠标单击所有键盘按钮时，所涉及到相关程序代码如下：
医药触摸屏管理系统
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"1"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"2"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"3"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"4"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"5"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"6"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"7"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"8"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"9"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"0"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"Q"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"W"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"E"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"R"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"T"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"Y"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"U"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"I"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"O"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"P"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"A"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"S"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"D"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"F"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"G"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"H"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"J"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"K"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"L"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"Z"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"X"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"C"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"V"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"B"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"N"
Thisform.Text1.Value=Alltrim(Thisform.Text1.Value)+"M"
*删除一个字符
CHARLEN=Len(Alltrim(Thisform.Text1.Value))-1
Thisform.Text1.Value=Left(Thisform.Text1.Value,CHARLEN)
当鼠标单击确定和关闭按钮时所涉及到相关程序代码如下：
*单击确定按钮
Select Tab_User
If Empty(Thisform.Text1.Value)
Messagebox("请输入密码！",48,"系统提示：")
Return
Endif
If Alltrim(Thisform.Text1.Value)==Alltrim(Tab_User.密码)
Quit
Else
Messagebox("您输入的密码错误！"+Chr(13)+Chr(10)+"不能退出系统，请与管理员联系！",48,"退出系统：")
Thisform.Release
Endif
*单击关闭按钮
Thisform.Release
在Timer控件的Timer事件中加入如下关闭表单的代码，这样做是从系统的安全方面考虑的，为表单加入定时关闭的功能，可以防止他人恶意破坏。
Thisform.Release &&释放表单
附录A 参考文献
1．《Visual Basic精彩编程200例》机械工业出版社 赛奎春、高春艳等
2003年1月
2．《Visual Basic数据库开发实例解析》机械工业出版社 刘志铭、高春艳等
2003年8月
3．《Visual FoxPro数据库开发实例解析》机械工业出版社 王晶莹、王国辉等
2003年9月
4．《Power Builder数据库开发实例解析》机械工业出版社 华传铭、张振坤等
2003年9月
5．《Delphi数据库开发实例解析》机械工业出版社 赛奎春、郑骁鹏等
2004年2月
6．《PowerBuilder 精彩编程200例》机械工业出版社 张振坤、李文立等
2004年9月
7．《Visual FoxPro 精彩编程200例》机械工业出版社 王国辉、董韶华等
2004年9月
8．《ASP数据库开发实例解析》机械工业出版社 李严、于亚芳、王国辉 2004年12月
9．《Delphi工程应用与项目实践》机械工业出版社 宋坤、赵智勇等
2005年1月
10．《Visual Basic工程应用与项目实践》机械工业出版社 高春艳、李俊民等
2005年1月
11．《Visual C＋＋工程应用与项目实践》机械工业出版社 张雨、阮伟良等
2005年1月
12．《JSP工程应用与项目实践》机械工业出版社 陈威、白伟明、李楠
2005年2月
13．《ASP工程应用与项目实践》机械工业出版社 王国辉、牛强、李南南
2005年4月
14．《Visual Basic 信息系统开发实例精选》机械工业出版社 高春艳、李俊民、张耀庭等
2005年7月
15．《ASP 信息系统开发实例精选》机械工业出版社 王国辉、牛强、李南南等
2005年7月
16．《Delphi 信息系统开发实例精选》机械工业出版社 宋坤、赵智勇、刘强等
2005年7月
17．《Visual foxpro数据库开发关键技术与实例应用》人民邮电出版社 周桓、张雨、王国辉
2004年5月
18．《Power Builder数据库开发关键技术与实例应用》人民邮电出版社 刘志铭、张振坤、冯文萃 2004年5月
19．《Delphi数据库开发关键技术与实例应用》人民邮电出版社 赛奎春、陈紫鸿、宋昆
2004年5月
20．《Visual basic数据库开发关键技术与实例应用》人民邮电出版社 高春艳、李艳
2004年5月
21．《Visual C++ 管理信息系统完整项目实例剖析》人民邮电出版社 明日科技
2005年7月
22．《Visual Basic 管理信息系统完整项目实例剖析》人民邮电出版社 明日科技
2005年7月
23．《PowerBuilder 管理信息系统完整项目实例剖析》人民邮电出版社 明日科技
2005年7月
24．《Visual FoxPro管理信息系统完整项目实例剖析》人民邮电出版社 明日科技
2005年7月
25．《SQL Server数据库开发实例解析》机械工业出版社 宋昆、李严等
2006年1月
26．《Access数据库开发实例解析》机械工业出版社 李俊民、高春燕等
2006年1月
27．《Visual Basic数据库系统开发完全手册》人民邮电出版社 明日科技王春才、高春艳、
李俊民 2006年3月
28．《Visual C++ 数据库系统开发完全手册》人民邮电出版社 明日科技 王端、于速、张雨
2006年3月
29．《Delphi数据库系统开发完全手册》人民邮电出版社 明日科技 宋坤、邹天思
2006年3月
30．《JSP数据库系统开发完全手册》人民邮电出版社 明日科技 王国辉、李文立、杨亮
2006年3月
31．《Visual Basic数据库系统开发案例精选》人民邮电出版社 明日科技 高春艳、李俊民、
刘彬彬 2006年5月
32．《Delphi 数据库系统开发案例精选》人民邮电出版社 明日科技 李文立、刘强、梁冰
2006年5月
33．《ASP数据库系统开发案例精选》人民邮电出版社 明日科技 孙明丽、邹天思、盖天宇
2006年5月
34．《JSP数据库系统开发案例精选》人民邮电出版社 明日科技 王国辉、王易
2006年5月
医药触摸屏管理系统
附录B 数据表
l tab_company（生产厂家信息表）
生产厂家信息表用于保存生产厂家信息，表结构如表5所示。
表5 tab_company
字段名
数据类型
长度
索引
编号
数值型
4
升序
公司全称
字符型
50
公司简介
备注型
4
地址
字符型
100
邮政编码
字符型
6
电话
字符型
21
传真
字符型
21
联系人
字符型
10
电子信箱
字符型
50
网址
字符型
50
图片名称
字符型
30
l tab_dosetype（剂型信息表）
剂型信息表用于保存药品剂型信息，其表结构如表6所示。
表6 tab_dosetype
字段名
数据类型
长度
索引
编号
数值型
4
升序
剂型
字符型
10
剂型标识
字符型
3
l tab_drug（药品信息表）
药品信息表用于保存药品的详细信息，其表结构如表7所示。
表7 进货明细表
字段名
数据类型
长度
索引
药品编号
字符型
20
升序
通用名
字符型
50
曾用名
字符型
50
英文名
字符型
50
简称
字符型
25
剂型
字符型
10
规格
字符型
70
包装
字符型
50
单位
字符型
10
成份
字符型
100
性状
字符型
100
药理毒理
备注型
4
主治
字符型
20
适应症
字符型
100
用法用量
字符型
100
不良反应
备注型
4
禁忌
字符型
150
注意事项
备注型
4
药物过量
备注型
4
贮藏
字符型
10
有效期
数值型
3
有效期单位
字符型
2
注册商标
字符型
10
批准文号
字符型
20
产地
字符型
30
生产厂家
字符型
10
是否推介
逻辑型
1
备注
备注型
4
l tab_path（视频广告文件路径信息表）
视频广告文件路径信息表用于保存屏幕保护程序中的视频广告文件路径信息，其表结构如表8所示。
表8 tab_drug
字段名
数据类型
长度
索引
屏保路径
字符型
254
l tab_roll（滚动广告信息表）
滚动广告信息表用于保存主界面中的滚动广告的图片路径，其表结构如表9所示。
表9 tab_roll
字段名
数据类型
长度
索引
图片名
字符型
30
药品编号
字符型
10
l tab_user（用户信息表）
用户信息表用于保存系统中的用户信息，其表结构如表10所示。
表10 tab_user
字段名
数据类型
长度
索引
操作员编号
字符型
8
升序
操作员
字符型
10
密码
字符型
18
备注
字符型
100
l tab_ wlunit（供应商信息表）
供应商信息用于保存供应商信息，其表结构如表11所示。
表11 tab_wlunit
字段名
数据类型
长度
索引
编号
字符型
10
升序
全称
字符型
70
简称
字符型
20
类型
字符型
1
地址
字符型
100
邮政编码
字符型
6
电话
字符型
30
传真
字符型
20
联系人
字符型
30
联系人电话
字符型
30
开户银行
字符型
20
银行账号
字符型
30
企业法人
字符型
20
网址
字符型
50
电子信箱
字符型
50
附录C 文件架构
主文件架构如图6所示。若图片无法显示请联系QQ3710167
