如何在edit一筆筆的秀出來？？ |
|
尚未結案
|
|
paa
初階會員   發表：50 回覆：101 積分：30 註冊：2005-02-01 發送簡訊給我 |
|
|
julian
一般會員  發表：3 回覆：10 積分：7 註冊：2002-07-18 發送簡訊給我 |
真不知道是整辦到的
edit 可以像listbox 嗎
假使是要做成dbedit 那樣的話 就在datasource 的 onDataChange 寫事件就好啦
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
Edit1.Text:=ADOQuery1.Fields[0].Value;
end;
如果是一筆筆的塞 那就用 listbox
procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
close;
open;
while not eof do
begin
ListBox1.Items.Add(Fields[0].Value);
Next;
end;
end;
end; 不曉的是不是你要的
|
|
julian
一般會員 發表：3 回覆：10 積分：7 註冊：2002-07-18 發送簡訊給我 |
真不知道是整辦到的
edit 可以像listbox 嗎
假使是要做成dbedit 那樣的話 就在datasource 的 onDataChange 寫事件就好啦
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
Edit1.Text:=ADOQuery1.Fields[0].Value;
end;
如果是一筆筆的塞 那就用 listbox
procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
close;
open;
while not eof do
begin
ListBox1.Items.Add(Fields[0].Value);
Next;
end;
end;
end; 不曉的是不是你要的
|
|
mine
中階會員 發表：28 回覆：129 積分：56 註冊：2004-03-31 發送簡訊給我 |
hihi paa 之我想你的意意應該是類似
再利用Table 或Query去分別顯示在各欄位吧
Ex.TQuery
Edit1.Text:=Trim(ADOQuery1.FieldByName('FieldName').AsString);
Ex.TTable
Edit2.Text:=IntToStr(ADOTalbe1.FeindByName('AGE').AsInteger);
亦或者你可以直接利用DBEdit 直接指定欄位.
.
之類的用法吧如果你想要作總覽還可先利用DBGrid 把DataSource指向你的
DataSource1
例如DataSource1.DataSet:=ADOTable1;
DBGrid1.DataSource:=DataSource1; 類似用法
利用離線包把 k.TOP 下載回家 只消有空就把所有的文章看一看包你收獲比
看書學還快^^
賀 新年快樂 搞不懂!搞不懂!永遠都搞不懂!!
|
|
paa
初階會員 發表：50 回覆：101 積分：30 註冊：2005-02-01 發送簡訊給我 |
引言: 真不知道是整辦到的 edit 可以像listbox 嗎 假使是要做成dbedit 那樣的話 就在datasource 的 onDataChange 寫事件就好啦 procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField); begin Edit1.Text:=ADOQuery1.Fields[0].Value; end; 如果是一筆筆的塞 那就用 listbox procedure TForm1.Button1Click(Sender: TObject); begin with ADOQuery1 do begin close; open; while not eof do begin ListBox1.Items.Add(Fields[0].Value); Next; end; end; end; 不曉的是不是你要的 不好意思，可能我表達的不好，所以讓你誤惠了，不好意思喔。 |
|
paa
初階會員 發表：50 回覆：101 積分：30 註冊：2005-02-01 發送簡訊給我 |
引言: 真不知道是整辦到的 edit 可以像listbox 嗎 假使是要做成dbedit 那樣的話 就在datasource 的 onDataChange 寫事件就好啦 procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField); begin Edit1.Text:=ADOQuery1.Fields[0].Value; end; 如果是一筆筆的塞 那就用 listbox procedure TForm1.Button1Click(Sender: TObject); begin with ADOQuery1 do begin close; open; while not eof do begin ListBox1.Items.Add(Fields[0].Value); Next; end; end; end; 不曉的是不是你要的 不好意思，可能我表達的不好，所以讓你誤惠了，不好意思喔。 |
|
paa
初階會員 發表：50 回覆：101 積分：30 註冊：2005-02-01 發送簡訊給我 |
發表時間：2005-02-02 01:02:08
IP:163.28.xxx.xxx 未訂閱
系統時間：2024-09-07 0:06:11
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |