[03综合应用.docVIP

【1】35、建表单myform,含1列表框、2命令按钮生成表和退出;设置列表框RowSource和RowSourceType属性,用SQL根据学院表在列表框显示系名;为生成表按钮的单击事件编写程序.当选定系名时,将教师表中该系的所有记录存入以该系名命名的自由表中,包含职工号,姓名和工资,并按职工号升序排列;运行表单,生成存有计算机、通信、信息管理系信息的3个表 1. 建立表单 CREATE FORM myform 2. 在”表单设计器”中,选中列表框,在其”属性”的RowSourceType处选择”3 - SQL 语句”,在RowSource处输入”select 系名 from 学院表 into cursor mylis”. 3. 在”表单设计器”中添加两个命令按钮,在第1个命令按钮”属性”窗口的Caption处输入”生成表”,在第2个命令按钮”属性”窗口的Caption处输入”退出”. 4. 双击”退出”命令按钮,在”Command2.Click”编辑窗口中输入”Release Thisform”,并关闭编辑窗口. 5. 双击”生成表”命令按钮,在”Command1.Click”编辑窗口中输入下列语句,并关闭编辑窗口. aa=Thisform.List1.Value SELECT 职工号,姓名,工资; FROM 教师表 INNER JOIN 学院表 ; ON 教师表.系号 = 学院表.系号; WHERE 学院表.系名 = aa; ORDER BY 教师表.职工号 INTO TABLE aa 【2】22、打开”点菜”数据库,创建表单,标题查询、文件名testB,如图,1标签、1文本框、1表格、3命令按钮 1. 打开数据库 OPEN DATABASE 点菜 2. 在命令窗口中输入建立表单命令 CREATE FORM testb 3. 在”表单设计器”中,在其”属性”的Caption处输入”查询”. 4. 在”表单设计器”中,添加一个标签Label1,在其”属性”的Caption处输入”结帐日期”. 5. 在”表单设计器”中,分别添加一个文本框Text1和表格Grid1. 6. 在”表单设计器”中,添加三个命令按钮（Command1、Command2和Command3）,在第1个命令按钮Command1”属性”窗口的Caption处输入”查询”,在第2个命令按钮Command2”属性”窗口的Caption处输入”显示”,在第3个命令按钮Command3”属性”窗口的Caption处输入”退出”. 7. 双击”查询”按钮,在”Command1.Click”编辑窗口中输入下列程序 dd = CTOD(ThisForm.Text1.Value) SELECT 顾客序号,顾客姓名,单位,消费金额 FROM 结帐表; WHERE 结帐日期 = dd; ORDER BY 消费金额 DESC; INTO TABLE tabc 8. 双击”显示”按钮,在”Command2.Click”编辑窗口中输入下列程序 ThisForm.Grid1.RecordSourceType = 0 ThisForm.Grid1.RecordSource = “tabc” 9. 双击”退出”命令按钮,在”Command3.Click”编辑窗口中输入”ThisForm.Release”,接着关闭编辑窗口. 【3】11、建立表table3,学号 字 10、姓名 字 6、课程名 字 8、分数 数 5,1.编程查60的,分数升序学号降序 一、建立表文件 CREATE TABLE table3(学号 C(10), 姓名 C(6), 课程名 C(8), 分数 N(5,1)) 二、在prog1.prg文件中编写如下程序: clear close all select 0 use table3 dele all pack copy to ttt select 0 use ttt select 0 use xuesheng index on 学号 tag 学号 select 0 use c