如何使用dbedit？ |
|
答題得分者是：deity
|
|
wu_51_yi
一般會員   發表：8 回覆：5 積分：2 註冊：2004-12-22 發送簡訊給我 |
|
|
huangeider
高階會員  發表：288 回覆：492 積分：231 註冊：2003-02-26 發送簡訊給我 |
|
|
P.D.
版主  發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
|
|
deity
尊榮會員 發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
插个花：
wu_51_yi您好：
procedure TForm1.FormCreate(Sender: TObject);
begin
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from table1');
sql.Add('where SNO="011"'); //确定table1有SNO字段
open;
end;
DBEdit1.DataSource:=DataSource1;
dbEdit1.DataField:='Field1'; //指定您要在DBEdit1中显示的哪个字段(table1中存在的字段)的值
end; procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from table1');
sql.Add('where SNO="012"');
open;
end;
DBEdit1.DataSource:=DataSource1;
DBEdit1.DataField:='Field2';//指定另一字段显示在DBEdit1中，方便您看出变化
end;
参考上述范例，对比试试看
|
|
wu_51_yi
一般會員 發表：8 回覆：5 積分：2 註冊：2004-12-22 發送簡訊給我 |
回：deity
procedure TForm1.FormCreate(Sender: TObject);
begin
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from table1');
sql.Add('where SNO="011"'); //确定table1有SNO字段
open;
end;
DBEdit1.DataSource:=DataSource1;
dbEdit1.DataField:='Field1'; //指定您要在DBEdit1中显示的哪个字段(table1中存在的字段)的值
end; procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from table1');
sql.Add('where SNO="012"');
open;
end;
***** DBEdit1.DataSource:=DataSource1; ****
DBEdit1.DataField:='Field2';//指定另一字段显示在DBEdit1中，方便您看出变化
end; 解决了！
procedure TForm1.Button1Click(Sender: TObject);
DBEdit1.DataSource:=DataSource1;
我这步没做，因为我在控件中属性直接输入DataSource1，我有十几个DBEdit，难道我在TForm1.Button1Click中十几个DBEdit中一一再（DBEdit1.DataSource:=DataSource1;）一次！
|
發表時間：2004-12-22 11:33:41
IP:61.154.xxx.xxx 未訂閱
系統時間：2024-07-07 13:39:13
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |