DELPHI查詢光標變漏斗

screen.Cursor:= crSQLWait; //變成 漏斗并且下面帶有‘SQL’狀態 。

SQL查詢事務

SCREEN.CURSOR:=CRDEFAULT; //恢復 默認狀態

[@more@]

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;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/729024/viewspace-1043231/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/729024/viewspace-1043231/