图4 生产厂家推介模块的运行结果
(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" |
在表单的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\生产厂家详细介绍
单击主界面中的退出系统按钮(如图11所示),即可打开退出系统窗口,退出系统窗口主要用于关闭该程序。由于该程序是触摸屏程序,所以只有合法的用户才有权关闭该系统。退出系统界面的运行结果如图5所示。
图5 退出系统界面的运行结果
(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-无 |
鼠标单击所有键盘按钮时,所涉及到相关程序代码如下:
上一页 [1] [2] [3] [4] [5] [6] 下一页