新建 文本文档.txt

宾馆管理系统 宾馆管理系统 宾馆管理系统

dim s as string
dim i as integer
s="a"
i=instr("bada",s)
i=2
ExecuteSQL(update)
ExecuteSQL(select * from bookin)
sTokens = Split(SQL)
InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0)))
在VB中,0为假,非0为真

1.sub main()
2.打开登陆界面
3.执行frmlogin中的语句,调用函数checkpwd
在VB中调用了存储过程