Integer li_returnString ls_inifile, ls_userid, ls_password
ls_inifile = gnv_app.of_GetAppIniFile() IF
SQLCA.of_Init(ls_inifile,"Database") = -1 THEN Return -1 END IF
// as_userid and as_password are arguments // to the pfc_Logon
event SQLCA.of_SetUser(as_userid, as_password) IF
SQLCA.of_Connect() = -1 THEN Return -1 ELSE
gnv_app.of_SetUserID(as_userid) Return 1 End
If
没有相关教程