Question

求VFP大神帮忙解决

现有“职员”，“订单”和“客户”三个数据库（数据库是“订单管理”）表，它们的结构如下：
职员（职员号（c,3），姓名(c,6)，性别(c,2)，职务(c,10))
订单(订单号(n,3,0)，客户号(c,3)，职员号(c,3)，签订日期(d)，金额(n,6,2)）
客户（客户号（c，3），客户名（c，20），地址（c，20），电话（c，13）

请设计表单。该表单用于查询订单信息：当用户输入订单号（text5）并单击"查询“按钮（command1）后，订单的有关信息就会显示在职员姓名（text1），客户名（text2），签订日期（text3），金额（text4）文本框内。如果要查询的订单不存在，那么显示提示信息“未找到该订单”并清空text1，text2，text3，text4

Answer 1

答：“查询”按钮的单击事件代码：
dd=ALLTRIM(thisform.text5.Value) &&输入的订单号
SELECT 姓名,客户名,签订日期,金额 FROM 职员,客户,订单 ;
WHERE 职员.职员号=订单.职员号 AND 客户.客户号=订单.客户号 ;
AND 订单号=dd ;
INTO CURSOR tmpdb
IF _tally>0 THEN
thisform.text1.Value=姓名
thisform.text2.Value=客户名
thisform.text3.Value=签订日期
thisform.text4.Value=金额
ELSE
MESSAGEBOX("未找到该订单",0+48,"提示")
thisform.text1.Value=""
thisform.text2.Value=""
thisform.text3.Value=""
thisform.text4.Value=""
ENDIF