图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                                重要属性及值

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                                重要属性及值

2．代码设计

鼠标单击所有键盘按钮时，所涉及到相关程序代码如下：

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