Repeat
event = WaitWindowEvent()
;;;;;;;;;;;;;;;;;;;;
If event = 512
Continue
EndIf
;;;;;;;;;;;;;;;;;;;;;
Debug "event = "+Str(event)
window = EventWindow()
Debug "window = "+Str(window)
If window
Select event
Case #PB_Event_CloseWindow
If (window = Window_Login) Or (window = Window_Main)
Break
EndIf
If IsWindow(window)
DisableWindow(Window_Main,#False)
CloseWindow(window)
EndIf
Case #PB_Event_Menu
Select EventMenu()
Case #MenuItem_101
onMenuModifyPasswordClick(EventMenu())
Case #MenuItem_102
onMenuAddUserClick(EventMenu())
Case #MenuItem_103
onMenuDeletePasswordClick(EventMenu())
Case #MenuItem_104
onMenuExitClick(EventMenu())
Case #MenuItem_201
onMenuAddFeederClick(EventMenu())
Case #MenuItem_202
onMenuModifyFeederClick(EventMenu())
Case #MenuItem_203
onMenuDeleteFeederClick(EventMenu())
Case #MenuItem_204
onMenuQueryFeederClick(EventMenu())
Case #MenuItem_301
onMenuAddCustomerClick(EventMenu())
Case #MenuItem_302
onMenuModifyCustomerClick(EventMenu())
Case #MenuItem_303
onMenuDeleteCustomerClick(EventMenu())
Case #MenuItem_304
onMenuQueryCustomerClick(EventMenu())
Case #MenuItem_401
onMenuAddProductClick(EventMenu())
Case #MenuItem_402
onMenuModifyProductClick(EventMenu())
Case #MenuItem_403
onMenuDeleteProductClick(EventMenu())
Case #MenuItem_404
onMenuQueryProductClick(EventMenu())
Case #MenuItem_501
onMenuAddStockClick(EventMenu())
Case #MenuItem_502
onMenuModifyStockClick(EventMenu())
Case #MenuItem_503
onMenuDeleteStockClick(EventMenu())
Case #MenuItem_504
onMenuQueryStockClick(EventMenu())
Case #MenuItem_601
onMenuAddSellClick(EventMenu())
Case #MenuItem_602
onMenuModifySellClick(EventMenu())
Case #MenuItem_603
onMenuDeleteSellClick(EventMenu())
Case #MenuItem_604
onMenuQuerySellClick(EventMenu())
Case #MenuItem_701
onMenuAboutClick(EventMenu())
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
;登录
Case Button_LoginWindow_Login
onLoginWindowLoginButtonClick(EventType())
Case Button_LoginWindow_Cancel
onLoginWindowCancelButtonClick(EventType())
;修改密码
Case Button_ModifyPasswordWindows_Modify
onModifyPasswordWindowModifyButtonClick(EventType())
Case Button_ModifyPasswordWindows_Cancel
onModifyPasswordWindowCancelButtonClick(EventType())
;添加用户
Case Button_AddUserWindow_Ok
onAddUserWindowAddClick(EventType())
Case Button_AddUserWindow_Cancel
onAddUserWindowCancelClick(EventType())
;删除用户
Case Button_DeleteUserWindow_Delete
onDeleteUserWindowDeleteClick(EventType())
Case Button_DeleteUserWindow_Cancel
onDeleteUserWindowCancelClick(EventType())
;添加供货商
Case Button_AddFeederWindow_Add
onAddFeederWindowAddClick(EventType())
Case Button_AddFeederWindow_Cancel
onAddFeederWindowCancelClick(EventType())
;修改供货商
Case Button_ModifyFeederWindow_Modify
onModifyFeederWindowModifyClick(EventType())
Case Button_ModifyFeederWindow_Cancel
onModifyFeederWindowCancelClick(EventType())
Case ListIcon_ModifyFeederWindow
onModifyFeederWindowListIcon(EventType())
;删除供应商
Case Button_DeleteFeederWindow_Delete
onDeleteFeederWindowDeleteClick(EventType())
Case Button_DeleteFeederWindow_Cancel
onDeleteFeederWindowCancelClick(EventType())
Case ListIcon_DeleteFeederWindow
onDeleteFeederWindowListIcon(EventType())
;查询供货商
Case Button_QueryFeederWindow_Cancel
onQueryFeederWindowCancelClick(EventType())
Case Button_QueryFeederWindow_Query
onQueryFeederWindowQueryClick(EventType())
;添加顾客
Case Button_AddCustomerWindow_Add
onAddCustomerWindowAddClick(EventType())
Case Button_AddCustomerWindow_Cancel
onAddCustomerWindowCancelClick(EventType())
;修改顾客
Case Button_ModifyCustomerWindow_Modify
onModifyCustomerWindowModifyClick(EventType())
Case Button_ModifyCustomerWindow_Cancel
onModifyCustomerWindowCancelClick(EventType())
Case ListIcon_ModifyCustomerWindow
onModifyCustomerWindowListIcon(EventType())
;删除顾客
Case Button_DeleteCustomerWindow_Delete
onDeleteCustomerWindowDeleteClick(EventType())
Case Button_DeleteCustomerWindow_Cancel
onDeleteCustomerWindowCancelClick(EventType())
Case ListIcon_DeleteCustomerWindow
onDeleteCustomerWindowListIcon(EventType())
;查询顾客
Case Button_QueryCustomerWindow_Cancel
onQueryCustomerWindowCancelClick(EventType())
Case Button_QueryCustomerWindow_Query
onQueryCustomerWindowQueryClick(EventType())
;添加商品
Case Button_AddProductWindow_Add
onAddProductWindowAddClick(EventType())
Case Button_AddProductWindow_Cancel
onAddProductWindowCancelClick(EventType())
;修改商品
Case Button_ModifyProductWindow_Modify
onModifyProductWindowModifyClick(EventType())
Case Button_ModifyProductWindow_Cancel
onModifyProductWindowCancelClick(EventType())
Case ListIcon_ModifyProductWindow
onModifyProductWindowListIcon(EventType())
;删除商品
Case Button_DeleteProductWindow_Delete
onDeleteProductWindowDeleteClick(EventType())
Case Button_DeleteProductWindow_Cancel
onDeleteProductWindowCancelClick(EventType())
Case ListIcon_DeleteProductWindow
onDeleteProductWindowListIcon(EventType())
;查询顾客
Case Button_QueryProductWindow_Cancel
onQueryProductWindowCancelClick(EventType())
Case Button_QueryProductWindow_Query
onQueryProductWindowQueryClick(EventType())
;添加进货
Case Button_AddStockWindow_Add
onAddStockWindowAddClick(EventType())
Case Button_AddStockWindow_Cancel
onAddStockWindowCancelClick(EventType())
;修改进货
Case Button_ModifyStockWindow_Modify
onModifyStockWindowModifyClick(EventType())
Case Button_ModifyStockWindow_Cancel
onModifyStockWindowCancelClick(EventType())
Case ListIcon_ModifyStockWindow
onModifyStockWindowListIcon(EventType())
;删除进货
Case Button_DeleteStockWindow_Delete
onDeleteStockWindowDeleteClick(EventType())
Case Button_DeleteStockWindow_Cancel
onDeleteStockWindowCancelClick(EventType())
Case ListIcon_DeleteStockWindow
onDeleteStockWindowListIcon(EventType())
;查询进货
Case Button_QueryStockWindow_Cancel
onQueryStockWindowCancelClick(EventType())
Case Button_QueryStockWindow_Query
onQueryStockWindowQueryClick(EventType())
;添加销售
Case Button_AddSellWindow_Add
onAddSellWindowAddClick(EventType())
Case Button_AddSellWindow_Cancel
onAddSellWindowCancelClick(EventType())
;修改销售
Case Button_ModifySellWindow_Modify
onModifySellWindowModifyClick(EventType())
Case Button_ModifySellWindow_Cancel
onModifySellWindowCancelClick(EventType())
Case ListIcon_ModifySellWindow
onModifySellWindowListIcon(EventType())
;删除销售
Case Button_DeleteSellWindow_Delete
onDeleteSellWindowDeleteClick(EventType())
Case Button_DeleteSellWindow_Cancel
onDeleteSellWindowCancelClick(EventType())
Case ListIcon_DeleteSellWindow
onDeleteSellWindowListIcon(EventType())
;查询销售
Case Button_QuerySellWindow_Cancel
onQuerySellWindowCancelClick(EventType())
Case Button_QuerySellWindow_Query
onQuerySellWindowQueryClick(EventType())
;关于
Case Button_AboutWindow
onAboutWindowOkButton(EventType())
EndSelect
EndSelect
EndIf
ForEver
我在窗体打开关闭,不同的窗体几次后,会出问题。会调用不是本次操作的窗体上的一个方法。很是奇怪。有哪位会吗?