全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1391
推到 Plurk!
推到 Facebook!

DBGrid_& ComBoBox 合併

尚未結案
doll_candy
初階會員


發表:110
回覆:53
積分:32
註冊:2002-04-22

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-11-28 17:16:28 IP:61.218.xxx.xxx 未訂閱
各位大大:     因為不才,查詢半天資料,還是無法了解如何作業,所以還是拜託各位大大 0.當按下Button查詢資料,資料置於DBGRID 1.DBGrid 並無此欄位 欄名:[選取] 2.當被選取的ComboBox.check= True 則放入(圖一)左邊的memo.line (圖一) 1.想請問該如何增加這本無此欄位 欄名:[選取],該如何作出這效果 2.將所有ComBoBox.Check= True 置於 Memo.line ,該如何得知DbGrid之ComBoBox之check doll_candy
------
doll_candy
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-11-28 22:14:55 IP:63.84.xxx.xxx 未訂閱
您好!    單單從DBGrid元件而言可能沒有方法完成如您所說的要求. 如下連接, 供您參考看看: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=39229    ===================== 努力,相信會獲得美麗! 忻晟
------
忻晟
Mickey
版主


發表:77
回覆:1882
積分:1390
註冊:2002-12-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-11-28 23:13:40 IP:218.32.xxx.xxx 未訂閱
引言: 1.想請問該如何增加這本無此欄位 欄名:[選取],該如何作出這效果 2.將所有ComBoBox.Check= True 置於 Memo.line ,該如何得知DbGrid之ComBoBox之check
1. 可 select 0 as 選取, ... from [TableName], 製造一個 "虛" boolean 欄位. 當 CellClick 時, Edit DataSet "選取"欄 的值. 2. DataSet 掃一遍, 當 "選取" 欄<>0 就加到 Memo.Lines
doll_candy
初階會員


發表:110
回覆:53
積分:32
註冊:2002-04-22

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-12-02 13:37:23 IP:61.218.xxx.xxx 未訂閱
拜託各位了 1.下載了WDBGrid 2.程式中也放了Select 0 as..... 可是不會用,所以把我作業的動作放上來    (圖一) [圖六] (圖二) (圖三) (圖四)
引言:procedure TFInput_End.Qry1End; var eDB,sqlEnd,sqlstr1 : String; i : Integer; begin eDB := ''; if EndList.Items.Count = 0 then Exit; for i := 0 to EndList.Items.Count-1 do begin eDB := eDB + ',''' + EndList.Items[i] + ''' '; end; eDB[1] := ' '; if FDM_FST.Qry1_End.Active = TRUE then begin FDM_FST.Qry1_End.Close; FDM_FST.Qry1_End.SQL.Clear; end; case ComboBox3.ItemIndex of 0: Begin //進貨單PURTH : TH001(0),TH002(1),TH031(2),TH200(3),TH201(4),TH203(5),TH204(6),,TH205(7),TH033(8) // 單別 ,單號 ,結帳碼,已付金額,已付稅額,實際金額,實際稅額,備註 sqlEnd := 'select 0 as TH000,TH001,TH002,TH031,TH200,TH201,TH203,TH204,TH205,TH033 from PURTH '+ 'WHERE TH001 = :e001 '+ 'AND TH002 IN ('+eDB+') '; End; else ; ShowMessage('您未選取結帳類別'); ComboBox3.SetFocus; end; sqlstr1 := sqlEnd; FDM_FST.Qry1_End.SQL.Text := sqlstr1; FDM_FST.Qry1_End.Prepare; FDM_FST.Qry1_End.ParamByName('e001').AsString := FDB.items_DB; FDM_FST.Qry1_End.Open; end; [圖五]
圖一為insatll進來後vcl畫面,圖二為use畫面,[圖六]Data_Module 問題1:怎會出現如圖三之錯誤,圖五為程式碼(圖三),圖四則為平常使用之DBGrid 問題2:該如何使用WBDgrid doll_candy
------
doll_candy
Mickey
版主


發表:77
回覆:1882
積分:1390
註冊:2002-12-11

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-12-02 14:31:45 IP:218.163.xxx.xxx 未訂閱
1. Qry1_End.DatabaseName Property 是否正確 ? 2. WDBGrid...我沒用過, 幫不上忙... 3. 請問是用何種資料庫 ?
doll_candy
初階會員


發表:110
回覆:53
積分:32
註冊:2002-04-22

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-12-08 08:59:55 IP:61.218.xxx.xxx 未訂閱
引言: 1. Qry1_End.DatabaseName Property 是否正確 ?
Q1.Select 0 as ... A1.DBGrid只呈現出出 0 無法展現出 CheckBox的item 怎麼辦? doll_candy
------
doll_candy
Mickey
版主


發表:77
回覆:1882
積分:1390
註冊:2002-12-11

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-12-08 09:22:48 IP:218.163.xxx.xxx 未訂閱
因為不是所有資料庫都有 boolean datatype, 所以一開始建議你 select 0, 然後在程式中轉成 boolean. 既然妳不說是用何種資料庫, 那就猜猜吧. 先改成 select false as 選取... 試試看吧.
doll_candy
初階會員


發表:110
回覆:53
積分:32
註冊:2002-04-22

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-12-09 17:37:04 IP:61.218.xxx.xxx 未訂閱
引言: 因為不是所有資料庫都有 boolean datatype, 所以一開始建議你 select 0, 然後在程式中轉成 boolean. 既然妳不說是用何種資料庫, 那就猜猜吧. 先改成 select false as 選取... 試試看吧.
Sorry 我是用D6+ MS_Sql2000 我不是有意的 以下是我的錯誤訊息 doll_candy
------
doll_candy
Mickey
版主


發表:77
回覆:1882
積分:1390
註冊:2002-12-11

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-12-10 08:08:06 IP:218.163.xxx.xxx 未訂閱
doll_candy 你好 MSSQL 可用 : select convert(bit,0) as 選取... 試試看吧.
系統時間:2024-06-26 23:25:52
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!