毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

医药触摸屏管理系统 第2页

更新时间:2008-3-26:  来源:毕业论文

医药触摸屏管理系统 第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事件中添加如下代码调用“生产厂家推介”表单。

上一页  [1] [2] [3] [4] [5] [6] 下一页

医药触摸屏管理系统 第2页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。