1、15、modi data 产品编号字段排序为升序-切换到索引栏改索引名在打开表追加项目16、create data 管理_aModi data 管理依次添加表单选择zgda中编号,点击拉到zjgz中编号双击直线按要求修改17、crea query xzcx按要求选择选取18.sele 姓名,年龄,出生日期,籍贯from student;Where 籍贯 in (“北京” ,”四川”)19.sele 姓名.student,借书日期.borrow,书名.borrow,班级.studnet from student,borrow;Where 性别=”男”;Order by 姓名+dtoc(date(
2、)-借书日期) desc20.sele 姓名,年龄,班级 from student;Wherer 姓名 like “_李%”21.sele 班级 count(*)as 人数;From student;group by 班级22.sele*from cxb_a;where 基本工资+临时工资+val(补发工资)1600 and 已婚=.t.;where 职称=”工程师”23.create data 练习_aCreate table 进货单(供应商号 C(8)PRIMARY key,供应商名 C(16),地址 M;primary key 供应商号 tag GHYH)24. sele 姓名,val(
3、补发工资)+增资额 as 津贴 from 管理_a!gztz25. modi form 再学习Form的属性height 300 width 400标签属性:Name-好好学习Caption-标签属性Left 96 top 36Height 40 width 150Fontsize 24 fontname 黑体Backcolor 192,192,192Forecolor 0,0,25526. Text1与text2的click事件Thisform.text1.value=Thisform.text2.value=Text1的interactivechange事件a=val(this.value
4、) thisform.text2.value=(a-32)*5/9Text2的interactivechange事件b=val(allt(this.value)thisform.text1.value = b*9/5+3227.执行计算的click事件BL1=THISFORM.TEXT1.value BL2=THISFORM.text2.VALUE THISFORM.LABEL5.caption=ALLT(STR(BL1+BL2,10)清零的click事件thisform.TEXT1.value=0 thisform.text2.value=0 thisform.label5.CAPTION=
5、 thisform.text1.setfocus28.Create form 再进步Modi form 再进步Form1的属性Height 300 width 500文本框属性Name 又一框Left 156 top 48Height 48 width 215Fontname 黑体Fontsize 24Backcolor 200,200,255Visible .f.29.Form1属性Height260Width400AutocenterLabel属性Height75Width300Fontname黑体Fontsize36Alignment .t.Left36Top84Label的click事
6、件IF CS3 CS=CS+1ELSECS=1endif do case CASE cs=1 thisform.abcd.fontsize=36 case cs=2 thisform.abcd.fontsize=46 case cs=3 thisform.abcd.fontsize=56 enddo 30.计算click事件JE=SL*DJIF JE=10 je=JE*0.92 thisform.LABEL5.caption=ALLT(STR(JE,10,2)31.Form1 属性Height300Width 500Name 又一村Left 156Top 48Height 48Width 21
7、5Command1属性 command2属性 command3属性Caption 显示文本框 隐藏文本框 退出Height 28 28 28Width 75 75 75Command1事件THISFORM.又一村.visible= .t.Command2事件THISFORM.又一村.visible= .f.Command3事件Thisform.release32.zf=zfcd=len(allt(thisform.text1.value) FOR t=zfcd to 1 step -1 zf=zf+subs(allt(thisform.text1.value),t,1) endfor this
8、form.text2.value=zf retu33.显示的click事件THISFORM.COMMAND3.CLICKGS=1DO while gsTHISFORM.aaa.caption=THISFORM.aaa.caption+* gs=gs+1 清空的click事件Thisform.aaa.caption=Retu34.标签显示的click事件Thisform.ccc.value=thisform.aaa.caption文本框显示的click事件thisform.aaa.caption =Thisform.ccc.valueThisform.ccc.value=thisform.aaa
9、.caption=退出的click事件35.DO CASE CASE THISFORM.QQQ.VALUE=1 THISFORM.AAA.FORECOLOR=RGB(255,0,0) CASE THIS.VALUE=2 THISFORM.AAA.FORECOLOR=rgb(0,255,0) CASE THIS.VALUE=3 THISFORM.AAA.FORECOLOR=rgb(0,0,255) CASE THIS.VALUE=4 THISFORM.RELEASE ENDCASERETU36.CASE THISFORM.你好.VALUE=1 THISFORM.广东医.FORECOLOR=RGB
10、(255,0,0) CASE THISFORM.你好.VALUE=2 THISFORM. 广东医.FORECOLOR=rgb(0,255,0) CASE THISFORM.你好.VALUE=3 THISFORM. 广东医.FORECOLOR=rgb(0,0,255) 37.在form1里右键-数据环境选择”基本表.dbf”-拉取字段”编号”和”姓名”到form1里编号属性 编号的文本框 姓名属性 姓名的文本框Left 43 75 189 221Top 48 48 48 48Height 20 20Width 57 57Fontsize 9 9选项按钮组Height 26Fontsize 9Le
11、ft 84Top 96右击选项按钮组-生成器-按钮数目组(3)-选择布局栏-选择水平在按钮栏-修改标题为题目要求38.右击选项按钮组-值一栏中选择基本表的职称命令按钮组的click事件DO CASE CASE THISFORM.commandgroup1.value=1 IF !EOF() SKIP ELSE GO TOP endif CASE THISFORM.commandgroup1.value=2 if bof() GO BOTT ELSE SKIP -1 ENDIF CASE THISFORM.commandgroup1.value=3 GO TOP CASE THISFORM.co
12、mmandgroup1.value=4 GO BOTT CASE THIS.commandgroup1.value=5 thisform.release endcase THISFORM.refresh RETU39.与38雷同40.Timer属性Interval 500Timer1的timer事件if t=0thisform.shape1.curvature=0 t=1elsethisform.shape1.curvature=90t=0 endifif thisform.shape1.left0 thisform.猫.left=thisform.猫.left-2*T thisform.猫.
13、top=thisform.猫.top-T thisform.猫.left=400 thisform.猫.top=200 45.THISFORM.LABEL1.CAPTION=K=1DO WHILE K=7 M=1DO WHILE M=2*K-1 THISFORM.LABEL1.CAPTION=THISFORM.LABEL1.CAPTION+*M=M+1 ENDDO THISFORM.LABEL1.CAPTION=THISFORM.LABEL1.CAPTION+CHR(13)K=K+1 ENDDO46.Timer 属性interval 200命令选项组click事件do casecase thi
14、s.value=1 thisform.timer1.enabled=.f. case this.value=2 thisform.timer1.enabled=.t. OTHERthisform.RELEASETHISFORM.SHAPE1.curvature=0 THISFORM.SHAPE1.CURVATURE=90 if -1*thisform.shape1.topthisform.shape1.HEIGHT THISFORM.SHAPE1.TOP=thisform.shape1.top-10 thisform.shape1.TOP=thisform.HEIGHT47.阶乘的click事
15、件L=1FOR k=1 to tt L=L*KENDFORtt=L 开始计算的click事件STOR 0 TO T1,T2TT=thisform.SZA.VALUE thisform.阶乘.click T1=TT TT=thisform.SZB.VALUE T2=TT TT=ABS(THISFORM.SZA.VALUE-THISFORM.SZB.VALUE) THISFORM.TEXT3.VALUE=T1/(T2*TT) THISFORM.COMMAND3.SETFOCUS 48.Create KT依次输入字段及类型按要求输入数据49.Use 基本表Dele for 基本工资+val(补发工资
16、)!=1100Pack50.Name 我的表单Height 220Antucenter .t.标签属性Height 49Width 320Left 84 Top 36Caption 我的第一个表单练习Fontname 楷体按钮属性Left 168Top 156Height 36Width 144Caption 退出51.确认的click事件JE=THISFORM.TEXT1.value &在本行 ? 处输入合适的内容_T_0do CASE & 处输入合适的内容_T_1 CASE JE300 JE=JE600 JE=JE*0.951000 JE=JE*0.9 OTHER JE=JE*0.85 THISFORM.LABEL4.CAPTION=ALLT(STR(JE,7,2)清零事件THISFORM.TEXT1.value=0 THISFORM.label4.CAPTION= THISFORM.TEXT1.SETFOCUS
copyright@ 2008-2023 冰点文库 网站版权所有
经营许可证编号:鄂ICP备19020893号-2