TC官方合作论坛

标题: 多界面下，如何执行子界面里的初始化 [打印本页]
作者: ltpccj    时间: 2014-9-29 13:41
标题: 多界面下，如何执行子界面里的初始化
本帖最后由 ltpccj 于 2014-9-29 15:23 编辑

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>

  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>
复制代码

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

代码粘上来了。帮我看下好吗。谢谢
作者: 续花丶    时间: 2014-9-29 15:22
企鹅 974265024     给你看吧  
作者: ltpccj    时间: 2014-9-29 15:23
续花丶 发表于 2014-9-29 15:22
企鹅 974265024     给你看吧

我发现问题所在了。感谢



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1