多界面下，如何执行子界面里的初始化

ltpccj

1，做了个多界面的窗口（主窗口为数据输入，子窗口为帐号和密码登录）
2，现在运行主界面，会优先打开 子窗口来输入帐号和密码

3，我需要在子界面里的初始化里加入一段代码。

为什么不会启动子界面的初始化代码。
子窗口用的是    控件.模态窗口("子界面")

=======================================================



这是子界面

1. <p>空间 账号登录
   
2. //定义默认空间</p><p>变量 账号,密码</p><p>功能 开始_点击()
   
3.     //这里添加你要执行的代码
   
4.     账号=编辑框.获得文本("账号","账号登录")
   
5.     密码=编辑框.获得文本("密码","账号登录")   
   
6.     如果(账号 == "乔丹" && 密码 == "123123")  
   
7.         控件.关闭窗口("账号登录",100)
   
8.         //辅助.消息框("恭喜,验证成功！")      
   
9.         //调试输出("登录成功")     
   
10.         //调试输出(账号登录.账号)
    
11.         //调试输出(账号登录.密码)
    
12.     否则
    
13.         辅助.消息框("对不起,验证失败！，请联系管理员")
    
14.         控件.关闭窗口("账号登录",-1)
    
15.         //辅助.退出()
    
16.     如果结束
    
17.     返回 真
    
18.    
    
19. 功能结束</p><p> </p><p>功能 退出_点击()
    
20.     //这里添加你要执行的代码
    
21.     辅助.退出()
    
22.    
    
23.     返回 真
    
24.     //函数返回语句
    
25.    
    
26. 功能结束
    
27. 功能 初始化()
    
28.     //这里添加你要执行的代码   
    
29.    
    
30.    
    
31.    
    
32. <font color="red">    句柄=控件.获得句柄("密码")
    
33.     窗口.设置焦点(句柄)</font>
    
34. 
    
35.    
    
36. <font color="red">    hwnd=窗口.自身句柄()
    
37.     hr=dllcall("gdi32.dll","int","CreateRectRgn","int",3,"int",28,"int",400,"int",400)
    
38.     //对窗口进行裁剪,对裁剪过的区域不显示
    
39.     dl=dllcall("user32.dll","int","SetWindowRgn","int",hwnd,"int",hr,"bool",true)</font>
    
40.    
    
41.    
    
42. 功能结束
    
43. 空间结束
    
44. //空间结束语句</p>

复制代码

这是主界面的初始化

1. <p>      数据库连接 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&系统.获取程序路径()&"QD-DATA.mdb;Jet OLEDB:Database Password=123"
   
2.     返回值 =控件.模态窗口("账号登录")
   
3.     如果(返回值 == 100)
   
4.         
   
5.         //调试输出("登录成功")
   
6.         //调试输出(账号登录.账号)
   
7.         //调试输出(账号登录.密码)
   
8.     否则
   
9.         //调试输出("登录失败")
   
10.         辅助.退出()
    
11.     如果结束</p><p> </p><p>    控件名=数组空间.重定义(控件名,1,max)//重新构造数组大小
    
12.     控件名[0]="日期"
    
13.     控件名[1]="条码"
    
14.     控件名[2]="货号"
    
15.     控件名[3]="数量"
    
16.     控件名[4]="单价"
    
17.     线程.开启("数据库操作.查询","")</p>

复制代码

续花丶

代码贴上来,或者好好检查下吧,  

ltpccj

续花丶 发表于 2014-9-29 14:33
代码贴上来,或者好好检查下吧,

代码粘上来了。帮我看下好吗。谢谢

续花丶

企鹅 974265024     给你看吧  

ltpccj

续花丶 发表于 2014-9-29 15:22
企鹅 974265024     给你看吧

我发现问题所在了。感谢