screen.Cursor:= crSQLWait; //变成 漏斗并且下面带有‘SQL’状态 。
SQL查询事务
SCREEN.CURSOR:=CRDEFAULT; //恢复 默认状态
screen.Cursor:= crHourGlass; //变成 漏斗 状态 。
SQL查询事务
SCREEN.CURSOR:=CRDEFAULT; //恢复 默认状态。
实例：
procedure TFrm_Wip_Bom.BomBtnClick(Sender: TObject);
begin //获取 BOM数据
Screen.Cursor:=crSQLWait; //鼠标变成漏斗。
dmqc_c.CD_TMP.Close;
dmqc_c.CD_TMP.CommandText:='select distinct b.prod_no, a.model_nob, a.bom_no, a.per_num, b.version, a.bzdw '
+ ', b.ma_no, b.ma_type, b.ma_unit, b.bzyl, b.upuse ,b.jbyl, a.remark from n_bomb b '
+ ' ,( select max(ver) ver ,prod_no,model_nob,bom_no, remark ,per_num,bzdw,prod_type from n_bomA where prod_no ='+ quotedStr(TYPE_NO_EDT.Text)
+ ' group by prod_no,model_nob,bom_no, remark ,per_num,bzdw ,prod_type ) a '
+ ' where a.prod_no= b.prod_no and a.prod_type=b.prod_type ' ;//'''100SDC001I39''' ;
DmQc_c.CD_TMP.Open;
Screen.Cursor:=crDefault;
END;