变更鼠标图标，帮手

[狗戈]

DELPHI如何根据ORAQUERY状态变更鼠标图标

[踏雪无痕]

ORAQ是什么？？？？？？？

[狗戈]

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;