子窗體做登入視窗的例子

form1為主窗體，form2為登陸窗體：

form1的 uses新增 unit2;
在form1的onshow 事件寫**：
procedure tform1.formshow(sender: tobject);
begin
form2.showmodal;
form2.free;
end;
這個就是主窗體的**，就這個就足夠了！
下面是登陸視窗的**：
登陸視窗設計為兩個edit元件，分別用來輸入賬號和密碼！
兩個button元件，button1為確定 button2為取消
定義乙個全域性變數 例如： i: integer=0;
單擊確定按鈕：
procedure tform2.button1click(sender: tobject);
begin
if (trim(edit1.text)='賬號')and(trim(edit2.text)='密碼') then
begin
i := 1;
close;
endelse
begin
showmessage('使用者名稱或密碼錯誤。');
i := 0;
end;
end;
單擊取消按鈕：
procedure tform2.button2click(sender: tobject);
begin
end;
登陸視窗onclose事件：
procedure tform2.formclose(sender: tobject; var action: tcloseaction);
begin
if i=0 then
end;

air建立的子視窗訪問父窗體的物件

在air工程裡新開了乙個窗體 wnd options new air.nativewindowinitoptions wnd options.owner window.nativewindow wnd new air.nativewindow wnd options 為視窗新增html頁面物件 vi...

子父視窗之間的操作之小例子

1 用window.openr開啟的子父視窗之間的操作跟框架的是不一樣的，子視窗和父視窗之間有opener來聯絡。而源視窗要訪問子視窗要通過其控制代碼來操作。以下小例子希望能幫助新手更了解他們的操作。23 子父視窗的操作 title 11head 12 body 13 script 14var wi...

個人收藏（關於 程式做的登入視窗問題）

1.string name request.form username string pass request.form password sqlconnection conn new sqlconnection server 伺服器名字iis uid sa pwd 123456 database ...