PC World Komputer 1997 March/PCWK0397.iso/novell/webserv3/nws30.exe/DISK1/NETBASIC/WEB/WEBORA3.BAS

BASIC Source File | 1996-09-12 | 2KB | 50 lines

#include "HTML.H"

Sub main
DOC:Body(DOC_BLACK,DOC_CYAN,DOC_GOLD,DOC_RED)
ParamObj = DOC:Var
If (ParamObj.Error != 0)
   DOC:Print("An Error has occurred ",ParamObj.Error)
   Return
EndIf

'Handle = ORA:Logon(ParamObj.User,ParamObj.password)

If (Err = 0)
   DOC:Print("Select a Quary from the following list or type in the Query you want to Submit.")
   DOC:Form:Begin(URL("webora4.BAS"))
   DOC:Form:Select:Begin("QUERY",4,TRUE)
   DOC:Form:Input:Hidden("User",ParamObj.User)
   DOC:Form:Input:Hidden("Password",ParamObj.Password)
   DOC:Form:Select:Option("")
   DOC:Form:Select:Option("Select * from emp")
   DOC:Form:Select:Option("UPDATE emp SET job = 'AGENT' WHERE ename ='JAMES'")
   DOC:Form:Select:Option("UPDATE emp SET empno = '7000' WHERE ename ='JAMES'")

   DOC:Form:Select:Option("DELETE FROM emp WHERE empno = 7902")
   DOC:Form:Select:Option("insert into emp values(7902,'FORD','ENGINEER',7566,to_date('03-12-1981','dd-mm-yyyy'),3000,0,20)")
   DOC:Form:Select:Option("select empno,job From emp")
   DOC:Form:Select:Option("select empno from emp")

   DOC:Form:Select:End
   DOC:Break
   DOC:FORM:INPUT:SUBMIT("Submit Query")
   DOC:Form:Input:Reset("Clear")
   DOC:Form:End

   DOC:Form:Begin(URL("webora4.BAS"))
   DOC:Form:Input:Hidden("User",ParamObj.User)
   DOC:Form:Input:Hidden("Password",ParamObj.Password)

   DOC:Form:Input:Text("Query"," ","Query : ",256,80)
   DOC:FORM:INPUT:SUBMIT("Submit Query")
   DOC:Form:INPUT:Reset("Clear")
   DOC:Form:End
EndIf

End Sub