在考生文件夹下完成下列操作: (1)在考生文件夹下创建表单文件formone.scx,如下图所示,其中包含一个标签、一个文本框和两个命令按钮。然后按相关要求完成相应操作。 1) 如图所示设置表单、标签和命令按钮的Caption属

admin2013-11-10  35

问题 在考生文件夹下完成下列操作:
    (1)在考生文件夹下创建表单文件formone.scx,如下图所示,其中包含一个标签、一个文本框和两个命令按钮。然后按相关要求完成相应操作。
     
    1) 如图所示设置表单、标签和命令按钮的Caption属性。
    2) 设置文本框的Value属性值为表达式Date()。
    3) 设置"查询"按钮(command1)的Click事件代码,使得表单运行时单击该按钮能够完成如下查询功能:从department和employee表中查询指定日期之后(含)出生的职员的信息,查询结果依次包含职员号、姓名、性别、出生日期、部门名五项内容,各记录按部门名降序排序、部门名相同按职员号升序排序,并将查询结果存放在表tablethree中。
    4) 设置"退出"按钮(command2)的Click事件代码,功能是释放表单、退出用户事件循环,具体代码为:
    thisform.release
    clear events
    (2)创建一个项目projectone.pjx,并在项目中添加已经创建的表单formone.scx,然后再完成以下任务:
    1) 为项目新建主文件main.prg,该程序文件的功能是运行表单formone.scx,然后启动用户事件循环。
    2) 将数据库文件employee_m添加至项目,并将该数据库文件及其包含的department和employee两个表文件设置为"包含"。
    3) 连编项目产生可执行文件projectone.exe。
    最后在考生目录下运行可执行文件projectone.exe并通过上述表单查询1970年1月10日以后(含)出生的职员信息。

选项

答案(1)操作步骤 步骤1:单击工具栏中的"新建"按钮,选择"表单",单击"新建文件"按钮。 步骤2:在表单上添加一个标签控件、一个文本框控件、两个命令按钮。 步骤3:设置表单Caption属性为"综合应用",标签控件Caption属性为"出生日期",命令按钮的Caption属性分别为"查询"和"退出"。 步骤4:设计文本框控件的Value属性为"=Date()"。 步骤5:双击Command1按钮控件,在Click事件窗口中输入如下代码: SELECT Employee.职员号, Employee.姓名, Employee.性别, Employee.出生日期,; Department.部门名; FROM employee_m!department INNER JOIN employee_m!employee ; ON Department.部门号 = Employee.部门; WHERE Employee.出生日期 >= CTOD(thisform.text1.text); ORDER BY Department.部门名 DESC, Employee.职员号; INTO TABLE tablethree.dbf 关闭该窗口。 步骤6:双击Command2按钮控件,在Click事件窗口中输入如下代码: Thisform.release Clear events 关闭该窗口。 步骤7:关闭并保存该表单为formone.scx。 (2)操作步骤 步骤1:单击工具栏中的"新建"按钮,选择"项目",单击"新建文件"按钮,在"创建"对话框中输入项目文件名为projectone。单击"保存"按钮。 步骤2:展开"文档",选择"表单",单击"添加"按钮,选择formone.scx,单击"确定"按钮。 步骤3:展开"代码",选择"程序",单击"新建"按钮。 步骤4:输入 Do form formone.scx Read events &&启动用户事件 关闭并保存为main.prg。 步骤5:在main上右击,选择"设置主文件"。 步骤6:展开"数据",选择"数据库",单击"添加"按钮,双击选择employee_m。 步骤7:展开"数据库"在employee_m上右击,选择"包含"。同样设置其下的表department和employee也为"包含"。 步骤8:单击"连编"按钮,选择"连编可执行文件",单击"确定"按钮。 步骤9:关闭VFP6.0环境。 步骤10:在考生文件夹下双击projectone.exe,在文本框中输入"01/10/1970",单击"查询"按钮,然后单击"退出"按钮。

解析
转载请注明原文地址:https://kaotiyun.com/show/y8op777K
0

最新回复(0)