DBgrid和SQL語法問題 |
|
尚未結案
|
|
nick167
中階會員   發表：86 回覆：133 積分：53 註冊：2003-02-12 發送簡訊給我 |
1.請問SQL語法:ORDER_QTY為Numeric如何將ADOQuery1.FieldByName('cp_qty').asfloat資料存入 cp_qty(numeric) 謝謝 while not ADOQuery1.Eof do begin
ADOQuery11.SQL.Clear;
ADOQuery11.SQL.Add('Insert Into combination(order_no,order_product,order_qty) values ('''+S_Order+''' , '''+Edit1.Text+''' , '''+ADOQuery1.FieldByName('cp_qty').asfloat+''' )');
<< cp_qty 此行有誤不知怎麼寫法 >>
ADOQuery11.ExecSQL;
ADOQuery1.Next;
end; 2.如何像第2圖示,可省下按滑鼠鍵 成setfocus,我在mouseup仍無效
procedure TMake_AppointmentForm.Make2_DBGrid1MouseUp(Sender:
TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
DBGrid1.SelectedIndex:=2;
DBGrid1.SetFocus;
end; 謝謝大家
|
|
Fishman
尊榮會員  發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
Hi: ADOQuery11.SQL.Add('Insert Into combination(order_no,order_product,order_qty) values (' + QuotedStr(S_Order) + ',' QuotedStr(Edit1.Text) + ',' + FloatToStr(ADOQuery1.FieldByName('cp_qty').asfloat) ')');
------
Fishman |
|
terrychen
尊榮會員 發表：90 回覆：794 積分：501 註冊：2003-05-01 發送簡訊給我 |
|
|
nick167
中階會員 發表：86 回覆：133 積分：53 註冊：2003-02-12 發送簡訊給我 |
|
|
Fishman
尊榮會員 發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
Hi nick167, 將程式碼寫在 OnDrawColumnCell 事件中試試看
procedure TForm1.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
IF (gdFocused IN State) THEN
BEGIN
TDBGrid(Sender).SelectedIndex := Column.Index;
END;
end;
----------------------------------
小弟才疏學淺，若有謬誤尚請不吝指教
----------------------------------
------
Fishman |
|
nick167
中階會員 發表：86 回覆：133 積分：53 註冊：2003-02-12 發送簡訊給我 |
|
|
Fishman
尊榮會員 發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
Hi:
procedure TForm1.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
IF (gdFocused IN State) THEN
BEGIN
TDBGrid(Sender).SelectedIndex := Column.Index;
TDBGrid(Sender).EditorMode := True;
END;
end;
------
Fishman |
|
nick167
中階會員 發表：86 回覆：133 積分：53 註冊：2003-02-12 發送簡訊給我 |
|
|
Fishman
尊榮會員 發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
發表時間：2004-03-02 14:14:56
IP:61.228.xxx.xxx 未訂閱
系統時間：2024-06-24 3:56:51
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |