如何把用户信息回显到下一个页面中?thanks! |
尚未結案
|
rainfoot
一般會員 發表:9 回覆:17 積分:5 註冊:2003-05-03 發送簡訊給我 |
我想解决的问题是:如何使用户输入的信息,在我的下一页链接中进行回显!就如同demo/phonetics customer profiler/中,当用户在main form中输入个人信息后,可直接把edit中的信息放入name中,
procedure TformMain.butnNextClick(Sender: TObject);
begin
with TPCPSession(WebApplication.Data) do begin
Name := Trim(editName.Text);
Address1 := Trim(editAddress1.Text);
Address2 := Trim(editAddress2.Text);
City := Trim(editCity.Text);
State := Trim(editState.Text);
Zip := Trim(editZip.Text);
这个TPCPSession(WebApplication.Data)在哪里里定义的,如何去定义,
我找不到答案!who can tell me how to do it?
thanks a lot!
end;
TformQuestion1.Create(WebApplication).Show;
Release;
end;
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
TPCPSession 定義在該專案的 ServerController.pas 單元中
如下:
TPCPSession = class(TComponent) public Name: string; Address1: string; Address2: string; City: string; State: string; Zip: string; // PlanLD: Boolean; Phone: string; // CreditUnion: string; PromoCode: string; // Plan: string; PeakMins: Integer; OffPeakMins: Integer; end;--- 每個人都是一本書 |
rainfoot
一般會員 發表:9 回覆:17 積分:5 註冊:2003-05-03 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
rainfoot
一般會員 發表:9 回覆:17 積分:5 註冊:2003-05-03 發送簡訊給我 |
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |