如何做到在Grid中輸入資料呢? |
尚未結案
|
BorlandUser
中階會員 發表:148 回覆:217 積分:73 註冊:2004-02-19 發送簡訊給我 |
|
stillalive
初階會員 發表:7 回覆:148 積分:41 註冊:2004-04-07 發送簡訊給我 |
|
BorlandUser
中階會員 發表:148 回覆:217 積分:73 註冊:2004-02-19 發送簡訊給我 |
|
stillalive
初階會員 發表:7 回覆:148 積分:41 註冊:2004-04-07 發送簡訊給我 |
|
seaturn99
版主 發表:69 回覆:427 積分:214 註冊:2003-08-25 發送簡訊給我 |
|
BorlandUser
中階會員 發表:148 回覆:217 積分:73 註冊:2004-02-19 發送簡訊給我 |
|
conundrum
尊榮會員 發表:893 回覆:1272 積分:643 註冊:2004-01-06 發送簡訊給我 |
|
BorlandUser
中階會員 發表:148 回覆:217 積分:73 註冊:2004-02-19 發送簡訊給我 |
|
seaturn99
版主 發表:69 回覆:427 積分:214 註冊:2003-08-25 發送簡訊給我 |
BorlandUser 您好: 請參考天使站大的精采作品 : http://delphi.ktop.com.tw/topic.php?TOPIC_ID=4699 [示範如何在 TDBGrid 元件上放置其他 VCL 元件] 但是,我上面貼的 P.D. Sir 的文章不是有附 Source 嗎??
天使站大的作品我以前有玩過,建議您可以下載來玩看看,相信一定獲益良多.. 如果資料是存在 Database ,那當然使用 DBGrid 比較方便,雖然無法像 StringGrid 一樣在 Cell 間移動.
不過透過一些方法,還是做得到的,如果要精巧的畫面控制,要省事省時間的話,
您可以搜尋使用看看有沒有合用的其他 3-D Party 元件.. ----
我只會兩件事,這也不會,那也不會 眼見不一定為真
---- 發表人 - SouthWind 於 2004/04/22 09:56:38
|
terrychen
尊榮會員 發表:90 回覆:794 積分:501 註冊:2003-05-01 發送簡訊給我 |
您好:
... 輸入資料
你將DBGRID1.columns.buttonstyle 設成cbsEllipsis
然後,如下:
procedure TBuy.DBGrid1EditButtonClick(Sender: TObject); begin Try SearchMtNo:= TSearchMtNo.Create(self); DM.Buy110.Edit; SearchMtNo.ShowModal; Finally SearchMtNo.Free; End; end;資料取回 procedure TSearchMtNo.DBGrid1DblClick(Sender: TObject); begin if Formname = 'Buy' then begin DM.Buy110.FieldByName('pd_no').AsString:= ADOQuery1.fieldbyname('product_no').AsString; DM.Buy110.FieldByName('Buy_money').AsString := ADOQuery1.fieldbyname('product_cost').AsString; Buy.DBGrid1.SelectedIndex:= 5; end else if Formname = 'Sale' then begin DM.Sale110.FieldByName('product_no').AsString:= ADOQuery1.fieldbyname('product_no').AsString; end else if Formname = 'House' then begin DM.House110.FieldByName('product_no').AsString:= ADOQuery1.fieldbyname('product_no').AsString; House.DBGrid1.SelectedIndex := 7; end else if Formname = 'Saleback' then begin DM.Saleback110.FieldByName('product_no').AsString:= ADOQuery1.fieldbyname('product_no').AsString; end else if getField = '0' then getField := '1'; Formname:= ''; Trans.Tranout := ''; Close; end;至於combobox While not DM.factory.Eof do begin DBGrid1.Columns.Items[1].PickList.Add(DM.factory.fieldbyname('facatory_no').AsString ' ' DM.factory.fieldbyname('factory_name').AsString); DM.factory.Next; end;~~應無所住而生其心~~ 發表人 - Terrychen 於 2004/04/22 10:08:10 |
BorlandUser
中階會員 發表:148 回覆:217 積分:73 註冊:2004-02-19 發送簡訊給我 |
|
BorlandUser
中階會員 發表:148 回覆:217 積分:73 註冊:2004-02-19 發送簡訊給我 |
|
conundrum
尊榮會員 發表:893 回覆:1272 積分:643 註冊:2004-01-06 發送簡訊給我 |
|
BorlandUser
中階會員 發表:148 回覆:217 積分:73 註冊:2004-02-19 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |