請問以上用grid去給user直接輸入資料,而且可以某些欄位可以有combo box選擇及有一個"..."的button供用戶選擇另一些檔案資料..這種Grid會是直接連接database嗎?因為當用戶輸入完一行record後,用戶按下"下箭咀"便可以新增另一筆檔案. 請問有這樣的範例的代碼可參考嗎?是否十分困難呢?有誰人能救我...? 謝

... Button 是否類似VB的檔案選取元件 ? 用這方式讓USER選取資料好像不太恰當 . 可否考慮其它方式 ?

像是這樣...但為什麼不適合user輸入呢?好像很多system都會有一個grid供顯示用戶資料,如購買物品等等..

上例的...會不會是自行開發的VCL元件 , 如是這可是高階技術喔 .

BorlandUser 您好 : 請參考 http://delphi.ktop.com.tw/topic.php?topic_id=36136 .. 變化一下在 TDBGrid 中加入 TCheckBox 的範例便可達到類似效果... 變色在亦同理... ---- 我只會兩件事,這也不會,那也不會 眼見不一定為真 ----

那麼這些應該用dbgrid/stringgrid/drawgrid較好呢?因為當選了檔案後,可能要儲存在db裏面供用戶檢視... ps.有沒有一個較全面的source code下戴嗎?我想把各方面的資料集中...謝

BorlandUser 兄 看到你寫的 希望你也能造福其他網友 ps.有沒有一個較全面的source code下戴嗎?我想把各方面的資料集中...謝 在KTOP直接詢問 source code 下載問題 或殺咪 求我 等 可是有犯 KTOP的版規喔 因為是否 適放 source code 一定是原作者 最慷慨的心意 如這要用問的 那可就 不ez啦 討論不該導向是決對的解答或要求

對不起啦.......我不知道原來犯了版規,但因為想找解決方法,所以...請原諒... 那麼有人能分亨他們的經驗嗎?

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

您好： ... 輸入資料 你將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

我在網到到一個example,非常好用,謝各位幫忙

http://delphi.ktop.com.tw/topic.php?TOPIC_ID=48816 讓我首次為大家供獻一下，請大家多多支持 ^_^

BorlandUser 兄 你的分享 意義甚大 加油 讚賞 希望你那天也有機會加入KTOP站務 為大家服務

多謝各位支持...我也一直在麻煩大家很久...能有點回報真是十分開心..(不知會否有人加我點點呢~_~.........說笑...)