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

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

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

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

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

对象

属性

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"

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

对象

属性

Shape

BorderStyle

透明

Timer

Interval

20000

Text1

PasswordChar

v

Text1

BorderStyle

0-

2.代码设计

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

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

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

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