表单的例题步骤.doc

《表单的例题步骤.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、登陆界面Login要求:用户输入用户名、密码后，按“确定”按钮登录，跳转到主界面；用户名和密码出现三次错误时，拒绝使用本系统；按“取消”按钮时，系统提示用户前提：存在登录用的表user_name(id,name,password)，其中id表示编号，name表示用户名，password表示登录密码步骤：1.新建表单，caption改为登录系统。添加标签2个，caption改为用户名，密码。文本框2个，密码对应的文本框passwordchar改为*，按钮2个，caption改为确定，退出。2.添加form1的Init事件：定义一个

2、公共变量作为计数publicii=03.添加“确定”按钮的click事件，精确匹配：setexactoni=i+1(1).添加数据环境user_name，即打开用户名和密码所在的表user_nameuseuser_name(2).查找文本框中的内容是否是表中的用户名字段值，即user是字段名Locatefor用户名=thisform.text1.value(3).如果存在此用户名，则判断密码是否相等iffound()and密码=thisform.text2.value(4).如果都相等的话，分为下面两种情况进行：1）如果系统权限

3、只有一个，即任何人都能使用，打开“主界面”表单，释放登录表单；doform主界面thisform.releaseelse2）如果系统有多个权限，判断权限，此时需要user_name中存在权限字段。假设是管理员，打开1表单，不是，打开2表单if权限="管理员"doform1thisform.releaseelsedoform2thisform.releaseendifelse(5).如果不匹配的话，给用户3次机会，那么我们使用前面定义的变量i进行计数，用来记录用户输入了几次。ifi<3messagebox("用户名或密码错误，请重

4、新输入",48,"系统警告")(6).将文本框内容全部清零，并且将焦点放在文本框1上thisform.text1.value=""thisform.text2.value=""thisform.text1.setfocuselse如果超过3次，关闭本表单messagebox("三次密码错误，您无权使用本系统",48,"系统警告")thisform.releaseendifendifsetexactoff4.添加“取消”按钮的click事件：qx=messagebox("确定退出",4+32,"系统信息")ifqx=6thisfo

5、rm.releasecleareventsendif编辑框editbox1.新建表单，添加按钮，caption改为打开文件，添加标签，visible改为.F.，添加编辑框。2.给按钮click添加代码：(1)新建一个临时表存放程序的路径和名称，以及程序的内容createtabletextfile.dbf(filenameC(60),memmmemo)(2)添加数据环境usetextfile(3)添加一条空白记录appendblank(4)将本记录的filename改成所选择的程序的路径及名称replacetextfile.fil

6、enamewithgetfile("prg")(5)判断是否为空ifempty(textfile.filename)returnendif(6)不为空的话，将标签显示，标签的caption改为filenamethisform.label1.visible=.t.thisform.label1.caption=textfile.filename(7)把程序的内容存入到表的备注型字段memm中appendmemomemmfrom(textfile.filename)overwrite(8)将该字段的值输入到编辑框的value值中th

7、isform.edit1.value=textfile.memm(9)刷新本表单thisform.refresh按钮button，制作计算器1.新建表单，添加文本框，按钮2个，caption改为清除和关闭，添加命令按钮组，buttoncount改为16，修改每个按钮的位置，右键编辑，排序，改caption，注意：等号需要写成“=”，即加上双引号。2.给每个按钮以及按钮组的click事件添加代码。(1)按钮组的click事件：ifthisform.tag="T"thisform.text1.value=allt(right(str

8、(this.value),1))thisform.tag=""elsea=thisform.text1.valuethisform.text1.value=a+allt(right(str(this.value),1))endif(2)0~9按钮的click事件