综合应用(1小题,计30分)
建立一个表单,表单文件名和表单控件名均为myform_c,表单标题为
"职工订单信息",表单界面如图所示,共有三个文本为职工号(Label1)、姓名
(Label2)和性别(Label3)的标签,还有三个对应的文本框Text1、Text2和Text3,
和一个表格控件Grdorders。其它功能如下:
1. 程序运行时,在文本框Text1中输入一个职工号的值,并单击DO(Command1)
按钮,然后在Text2文本框中显示职工的姓名,在Text3文本框中显示职工的性别,
在表格控件(Grdorders)中显示该职工的订单(orders表)的信息。
2. 单击Close命令按钮(Command2)关闭表单。
注意:在表单设计器中将表格控件Grdorders的数据源类型设置为SQL语句。
解题思路:
1. 建立表单. 在“表单设计器”中,在“属性”的Caption处输入“职工订单信息”,在Name处输入“myform_c”。在“表单设计器”中,添加三个标签,在第1个标签Label1“属性”的Caption处输入“职工号”,在第2个标签Label2“属性”的Caption处输入“姓名”,在第3个标签Label3“属性”的Caption处输入“性别”。在“表单设计器”中,添加三个文本框,Text1、Text2和Text3。在“表单设计器”中,添加一个表格Grid1,在其“属性”的Name处输入“Grdorders”,在RecordSourceType处选择“4-SQL说明”。在“表单设计器”中,添加两个命令按钮,在第1个命令按钮“属性”的Caption处输入“DO”,在第2个命令按钮“属性”的Caption处输入“Close”。在“表单设计器”中,双击“Command2”命令按钮,在“Command2.Click”编辑窗口中输入“Release Thisform”,接着关闭编辑窗口。在“表单设计器”中,双击“Command1”命令按钮,在“Command1.Click”编辑窗口中输入下列语句,接着关闭编辑窗口。
zgh=ALLTRIM(ThisForm.Text1.Value)
If Used("employee")
SELECT employee
ELSE
USE employee
ENDIF
LOCATE FOR 职工号=zgh
ThisForm.Text2.Value=姓名
ThisForm.Text3.Value=性别
ThisForm.Grdorders.RecordSource="SELECT * FROM orders WHERE 职工号=='"+zgh+"'INTO CURSOR LSB"
![]() | ![]() .. 定价:¥45 优惠价:¥42 更多书籍 |
![]() | ![]() .. 定价:¥225 优惠价:¥213 更多书籍 |