資料庫更新.... |
|
答題得分者是：tech_state
|
|
braveheart
一般會員   發表：35 回覆：62 積分：24 註冊：2003-05-21 發送簡訊給我 |
|
|
tech_state
版主  發表：44 回覆：638 積分：641 註冊：2003-02-10 發送簡訊給我 |
braveheart, 您好
請將以下的code加入Form2中，試試看
先#include "Unit1.h"
void __fastcall TForm2::ADOTable1AfterPost(TDataSet *DataSet)
{
Form1->Show();
Form1->Label->Caption = ADOTable1->FieldByName("Field1")->AsString;
}
Field1為您想要顯示的欄位名稱。
=================================
涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。
是非終日有，不聽自然無
天下本無事，庸人自擾之
|
|
braveheart
一般會員 發表：35 回覆：62 積分：24 註冊：2003-05-21 發送簡訊給我 |
|
|
tech_state
版主 發表：44 回覆：638 積分：641 註冊：2003-02-10 發送簡訊給我 |
braveheart, 您好
請試試以下的方法。
Foem1的code
extern String str;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Label1->Caption = str;
} Foem2的code
#include "Unit1.h"
String str; // 全域變數
void __fastcall TForm2::ADOTable1AfterPost(TDataSet *DataSet)
{
Form1->Show();
str = ADOTable1->FieldByName("cd_name")->AsString;
}
=================================
涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。
是非終日有，不聽自然無
天下本無事，庸人自擾之 發表人 - tech_state 於 2003/08/09 16:32:48
|
|
braveheart
一般會員 發表：35 回覆：62 積分：24 註冊：2003-05-21 發送簡訊給我 |
相當感謝先進...這問題以解決了..相當感謝大大..
真的是非常利害...因在按了BUTTON想要立即顯示資料..偶加了一些東西..問題已解決了...謝謝
FORM1
ADOTable1->Filter="ID = 1";
ADOTable1->FindFirst();
if (i==0)
Label1->Caption = ADOTable1->FieldValues["FIELDS"];
else if(i==1)
Label1->Caption = str;
FORM2
i=1;
str = ADOTable1->FieldByName("FIELDS")->AsString;
|
發表時間：2003-08-08 00:04:35
IP:61.71.xxx.xxx 未訂閱
系統時間：2024-04-26 0:02:51
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |