窗口使用技巧系列文章－－窗口之间的协作（中）

梦里梦外; 2022-09-28 05:43 105阅读 0赞

不同窗口之间的变量或函数调用  
  
使用窗口名加界定符再加变量的形式可以应用其他窗口中的变量或者函数。例如，要想在窗口w\_parm中引用窗口w\_data中的实例变量is\_title，可以使用w\_data.is\_title来引用。引用变量既可以使用其他的取值，也可以给它赋值，只要变量的定义允许这些操作（具体参见前面有关章节的介绍）。  
  
实际上，这在程序设计中并不提倡。模块之间互相联结的程度称为耦合，程序设计提倡创建低耦合的模块，这样模块之间的接口才会简单，这样的程序才易于维护。不同窗口之间直接引用变量是最高程度的耦合（称为内容耦合），是应该尽量避免的一种耦合。  
  
在不同窗口之间访问窗口函数也使用相同的形式，同样也是不提倡的。  
  
虽然不提倡，但某些情况下编程还是很方便的。比如，在数据窗口进行数据检索时，提供给用户一个小窗口显示检索进度，并允许用户随时取消检索。假设当窗口w\_data中的数据窗口dw\_1进行检索时弹出小窗口w\_cancel，其编程过程是：  
  
（1）在窗口w\_data中定义实例变量：  
  
boolean ib\_cancel\_open  
  
（2）在窗口w\_data的Open事件中：  
  
dw\_1.SetTransObject(SQLCA)  
  
（3）在窗口w\_data的数据窗口控件dw\_1的RetrieveStart事件中：  
  
ib\_cancet\_open = true            //表示窗口w\_cancel已经打开  
  
Open(w\_cancel)  
  
（4）在窗口w\_data的数据窗口控件dw\_1的RetrieveRow事件中：  
  
This.ScrollNextRow( )         //滚动到新检索的数据行上    
  
If IsValid(w\_cancel) Then             //如果w\_cancel没有关闭  
  
                 //在w\_cancel窗口中的st\_count静态文本控件上显示已经检索到的记录数  
  
        w\_cancel.st\_count.Text = String(This.RowCount( ))  
  
End If  
  
   
  
If ib\_cancel\_open = False Then Return 1                 //停止检索  
  
（5）在窗口w\_data的数据窗口控件dw\_1的RetrieveEnd事件中：  
  
If ib\_cancel\_open Then        
  
        ib\_cancel\_open = False  
  
End If  
  
   
  
Close(w\_cancel)  
  
（6）在窗口w\_cancel的按钮“取消”的Clicked事件中：  
  
Parent.ParentWindow( ).TriggerEvent("cancel\_requested")  
  
（7）在窗口w\_data的自定义事件cancel\_requested中：  
  
ib\_cancel\_open = false  
  
在上面这个程序中，当窗口w\_data中的数据窗口开始检索时，小窗口w\_cancel显示并不断刷新检索到的记录数，在w\_cancel中用户随时可以点击“取消”按钮终止检索。该程序中，在w\_data的数据窗口dw\_1的retrieverow事件中直接修改窗口w\_cancel中的st\_count控件的内容，所以这两个窗口属于内容耦合。