PB to realize network has resumed, the system automatically reconnect the database
//====================================================================
//function: of_ReConnectDB ()
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//description: to connect to the database
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//parameters:
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//return: integer
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//author: wei communications technology date: 2015-09-29 were
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//Copyright 2000-2020, All rights reserved.
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//modify history:
//
//====================================================================
N_ws_dbservice lnv_dbsrv
The Integer li_RtValue, li_Value
The Integer li_i, li_Count
The window lw_sheet []
N_ws_attrib_class lnv_attrib
The SELECT Col INTO: li_Value FROM (SELECT 1 AS Col) t1;/* determine whether can connect to the database */
IF IsNull (li_Value) THEN li_Value=https://bbs.csdn.net/topics/0
IF li_Value=https://bbs.csdn.net/topics/1 THEN RETURN NO_ACTION
Lnv_attrib. STitle="connect to the database"
Lnv_attrib. STips="is to connect to the database, please wait... "
Lnv_attrib. SPicture="Images/ConnectDB. GIF"
Of_PromptTips (TRUE, lnv_attrib)
IF the SQLCA. Of_IsConnected () THEN the SQLCA. Of_DisConnect ()/* disconnect the original */
Lnv_dbsrv=CREATE n_ws_dbservice
Li_RtValue=https://bbs.csdn.net/topics/lnv_dbsrv.of_InitConnect (is_AppIniFile)/* to initialize the database connection parameters */
IF li_RtValue=https://bbs.csdn.net/topics/SUCCESS THEN
Li_RtValue=https://bbs.csdn.net/topics/lnv_dbsrv.of_ConnectDB to connect to the database ()/* */
IF li_RtValue=https://bbs.csdn.net/topics/SUCCESS THEN
IF IsValid (iw_frame) THEN
IF IsValid (iw_frame. Inv_sheetManager) THEN
Li_Count=iw_frame. Inv_sheetManager. Of_GetSheets (lw_sheet [])/* */sheet window
FOR li_i=1 TO li_Count
Of_ReConnectDB_Object (lw_sheet [li_i]) *//* circulation sheet window
NEXT
END the IF
END the IF
END the IF
END the IF
IF IsValid (lnv_dbsrv) THEN DESTROY lnv_dbsrv
Of_PromptTips (FALSE)
RETURN li_RtValue
//====================================================================
//function: of_ReConnectDB_Object ()
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//description: to connect to the database
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//parameters:
//value PowerObject apo_Object
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//return: integer
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//author: wei communications technology date: 2015-09-29 suffering justly
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//Copyright 2000-2020, All rights reserved.
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//modify history:
//
//====================================================================
The Window lw_sheet
Tab ltb_Tab
UserObject luo_Object
U_dw ldw_dw
The Integer li_i, li_Count
CHOOSE a CASE apo_Object. TypeOf ()
CASE the Window!
Lw_sheet=apo_Object
Li_Count=UpperBound (lw_sheet. Control [])
FOR li_i=1 TO li_Count
Of_ReConnectDB_Object (lw_sheet. Control [li_i])
NEXT
CASE Tab!
Ltb_Tab=apo_Object
Li_Count=UpperBound (ltb_Tab. Control [])
FOR li_i=1 TO li_Count
Of_ReConnectDB_Object (ltb_Tab. Control [li_i])
NEXT
CASE UserObject!
Luo_Object=apo_Object
Li_Count=UpperBound (luo_Object. Control [])
FOR li_i=1 TO li_Count
Of_ReConnectDB_Object (luo_Object. Control [li_i])
NEXT
CASE DataWindow!
Ldw_dw=apo_Object
IF IsValid (ldw_dw. Inv_linkage) THEN
Ldw_dw. Inv_linkage. Of_SetTransObject (SQLCA)
The ELSE
IF ldw_dw. Visible THEN
Ldw_dw. Of_SetTransObject (SQLCA)
END the IF
END the IF
The END CHOOSE
RETURN the SUCCESS
CodePudding user response:
CodePudding user response:
N_ws_dbservice content???????CodePudding user response: