如何在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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |