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

1．表单设计

（1）新建一个表单，命名为“index.scx”，并将表单的名称设置为“医药触摸屏管理”，ShowWindow属性设置为“2-作为顶层表单”，TitleBar属性设置为“0-关闭”，WindowState属性为“2-最大化”。

（2）在表单上添加Shape控件、Timer控件和Image控件，

（3）重要控件的重要属性如表1所示。

表1                                重要属性及值

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] 下一页