想請問DBCombobox這個原件 |
尚未結案
|
poorbaby
一般會員 發表:4 回覆:7 積分:2 註冊:2002-08-31 發送簡訊給我 |
|
T.J.B
版主 發表:29 回覆:532 積分:497 註冊:2002-08-14 發送簡訊給我 |
給你參考
procedure TForm1.FormCreate(Sender: TObject); begin Query1.First; //一開始把所有customer的顧客名稱寫入ComboBox裡 while not Query1.Eof do begin ComboBox1.Items.Add(Query1.FieldByName('CUSNAME').AsString); Query1.Next; end; end; procedure TForm1.Button1Click(Sender: TObject); begin //用選的或自己打都沒問題 Query1.Edit; Query1.FieldByName('CUSNAME').AsString := ComboBox1.Text; Query1.Post; end; end. ps: 1: 用Combobox做較好 因為DBCombobox是資料感知元件 用來連結欄位 但是如要達到你的需求 比較麻煩也容易出問題 所以建議用Combobox 2: query的RequestLive屬性要設為 True回首來時路 也無風雨也無晴~~@.@ 發表人 - T.J.B 於 2002/10/08 16:54:24
------
天行健 君子當自強不息~~@.@ |
alice100001
一般會員 發表:21 回覆:49 積分:19 註冊:2002-09-14 發送簡訊給我 |
|
T.J.B
版主 發表:29 回覆:532 積分:497 註冊:2002-08-14 發送簡訊給我 |
引言: 請問如果用DBComboBox,用上面的例子,但是user只能打列表中有的值,不能隨便亂打,要怎麼寫呢?如果要限制user只能打列表中有的值不能隨便亂打 那就在DBComboBox的 onExit 事件去做 例如 procedure TfrmM0AllowType.DBComboBox1Exit(Sender: TObject); var ss string; begin ss := DBComboBox1.Text ; if not Query1.Locate('CUSNAME',SS,[]) then begin if Application.MessageBox('資料不符合 請重新輸入','訊息視窗',MB_ICONWARNING)= mrOK then DBComboBox1.Text := '';//可加可不加 DBComboBox1.SetFocus ; end else begin DBComboBox1.Text := ss; end; end; end.< >< > 回首來時路 也無風雨也無晴~~@.@
------
天行健 君子當自強不息~~@.@ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |