医药触摸屏管理系统 第2页
(1)新建一个表单,命名为“index.scx”,并将表单的名称设置为“医药触摸屏管理”,ShowWindow属性设置为“2-作为顶层表单”,TitleBar属性设置为“0-关闭”,WindowState属性为“2-最大化”。
(2)在表单上添加Shape控件、Timer控件和Image控件,
(3)重要控件的重要属性如表1所示。
表1 重要属性及值
对象 |
属性 |
值 |
Shape |
BorderStyle |
透明 |
Image |
Stretch |
0-剪载 |
在表单的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] 下一页