?? book.sra
字號:
$PBExportHeader$book.sra
$PBExportComments$Generated Application Object
forward
global type book from application
end type
global transaction sqlca
global dynamicdescriptionarea sqlda
global dynamicstagingarea sqlsa
global error error
global message message
end forward
global variables
string username
string LoginOk
end variables
global type book from application
string appname = "book"
end type
global book book
on book.create
appname="book"
message=create message
sqlca=create transaction
sqlda=create dynamicdescriptionarea
sqlsa=create dynamicstagingarea
error=create error
end on
on book.destroy
destroy(sqlca)
destroy(sqlda)
destroy(sqlsa)
destroy(error)
destroy(message)
end on
event open;// Profile book
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=book;UID=dba;PWD=sql'"
Connect Using SQLCA;
if sqlca.sqlcode=0 then
open(w_main)
else
messagebox("提示:","連接數據庫出錯!")
end if
end event
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -