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/