一、
1. 建立数据库
1). 单击“文件\新建”命令项,弹出“新建”对话框。
2). 在“新建”对话框中,选择“数据库”单选钮,再按“新建文件”按钮,弹出“创建”对话框。
3). 在“创建”对话框中输入数据库名“CUST_M”,再按回车键或按“保存”按钮,这样就可以建立数据库了,并出现“数据库设计器-cust_m”对话框。
2. 把自由表添加到数据库中
OPEN DATABASE orders_manage
ADD TABLE employee && 把自由表employee加入到orders_manage中
ADD TABLE orders && 把自由表orders加入到orders_manage中
ALTER TABLE employee ALTER COLUMN 性别 SET DEFAULT "男"
1. 在“数据库设计器-orders_manage”中,选择表“employee”并单击鼠标右键,选择“修改”命令项。
2. 在“表设计器-employee.dbf”中,选择“性别”字段,在“字段有效性”标签的“规则”处输入“性别$"男女"”,在“信息”处输入“"性别必须是男或女"”,最后单击“确定”按钮即可。
SELECT 职工号,姓名,性别,出生日期 FROM employee WHERE 婚否 ORDER BY 出生日期 DESC INTO TABLE infor_da
二、
1. 在命令窗口中输入建立菜单命令
CREATE MENU scmenu_d
1) 在“新建菜单”对话框单击“快捷菜单”按钮,在“快捷菜单设计器-scmenu_d.mnx”的菜单名称输入框分别输入“时间”和“日期”两个菜单项。
2) 在“时间”菜单项的“结果”中选择“过程”,再单击“创建”,并在“快捷菜单设计器-scmenu_d-时间 过程”编辑窗口中输入“myform_da.caption=time()”。
3) 在“日期”菜单项的“结果”中选择“过程”,再单击“创建”,并在“快捷菜单设计器-scmenu_d-日期 过程”编辑窗口中输入“myform_da.caption=dtoc(date())”。
4) 单击“菜单”项中的“生成”命令项,来生成scmenu_d.mpr文件。
5) 最后菜单编辑窗口。
2. 在命令窗口中输入建立表单命令
CREATE FORM myform_da
3. 在“表单设计器”中,在其“属性”的Name处输入“myform_da”。
4. 双击“属性”的RightClick Event处,在其编辑窗口中输入“do scmenu_d.mpr”并关闭编辑窗口。
5. 最后运行此表单。
SELECT TOP 3 职工号,姓名,出生日期 FROM worker ORDER BY 出生日期 INTO TABLE infor_db.dbf [NextPage] 三、
1. 在命令窗口中输入建立表单命令
CREATE FORM myform_db
2. 在“表单设计器”中,在其“属性”的Name处输入“myform_db”,在Caption处输入“数据浏览和维护”。
3. 在“表单设计器”中,建立“选项按钮组”,并在选定它且单击右键,再选择“编辑”项,接着选定Option1,在其Caption处输入“职工表(employee)”,接着选定Option2,在其Caption处输入“订单表(orders)”,
4. 在“表单设计器”中,建立“复选框”,并在其属性的Caption处输入“存盘”。
5. 在“表单设计器”中,添加两个命令按钮(Command1和Command2),在第1个命令按钮Command1“属性”窗口的Caption处输入“确定”,在第2个命令按钮Command2“属性”窗口的Caption处输入“退出”。
6. 双击“确定”命令按钮,在“Command1.Click”编辑窗口中输入命令组,接着关闭编辑窗口。
IF thisform.optiongroup1.option1.value=1
IF thisform.check1.value=1
SELECT * FROM employee INTO TABLE temp
ELSE
SELECT * FROM employee
ENDIF
ELSE
IF thisform.check1.value=2
SELECT * FROM orders INTO TABLE temp
ELSE
SELECT * FROM orders
ENDIF
ENDIF
7. 双击“退出”命令按钮,在“Command2.Click”编辑窗口中输入“ThisForm.Release”,接着关闭编辑窗口。
| 广告合作:400-664-0084 全国热线:400-664-0084 Copyright 2010 - 2017 www.my8848.com 珠峰网 粤ICP备15066211号 珠峰网 版权所有 All Rights Reserved
|