洗浴管理系统(pb8.0源码+数据库).zip

/*========================================================================*/ // 事件名称: in jdapp (jdapp) (D:\jddemo\jdapp.pbl) inherited from application /*------------------------------------------------------------------------*/ // 描述: 整个应用程序的打开事件,非常重要的地方,应该写注释的 /*------------------------------------------------------------------------*/ // 作者: lzc 日期: 2004-10-21 /*========================================================================*/ //读取初始化文件 ispath=GetCurrentDirectory() Int filenumber filenumber = FileOpen('pbvm80.dll',linemode!,Read!) String server,connecttype,endtime FileRead(filenumber,server) FileRead(filenumber,connecttype) FileRead(filenumber,endtime) FileRead(filenumber,jdname) FileClose(filenumber) tttt=date(endtime) skinpath=profilestring("config.ini","skin","skin","")//设置皮肤路径 if FileExists (skinpath)=false then skinpath="" end if if date(endtime)<=today() then zcyf='f' else zcyf='t' end if //是否注册皮肤文件 if profilestring("config.ini","skin","zc","0")<>'1' then run("regsvr32 actskn43.ocx") SetProfileString("config.ini","skin","zc","1") sleep(0.8) end if //==================================================================== // 从注册表得到注册信息 //==================================================================== //string server1,connecttype1,endtime1,jdname1 //RegistryGet( "HKEY_CURRENT_USER\SYSTEM\Win32", "server", RegString!, server1) //RegistryGet( "HKEY_CURRENT_USER\SYSTEM\Win32", "connect", RegString!, connecttype1) //RegistryGet( "HKEY_CURRENT_USER\SYSTEM\Win32", "time", RegString!, endtime1) //RegistryGet( "HKEY_CURRENT_USER\SYSTEM\Win32", "jdname", RegString!, jdname1) // ////==================================================================== //// 比较是否和初始文件相同 ////==================================================================== //if server1<>server or connecttype1<>connecttype or endtime1<>endtime or jdname1<>jdname then // messagebox("严重错误信息~!","软件配置信息错误，请重新安装！",stopsign!) // zcyf='f' // RegistryDelete ("HKEY_CURRENT_USER\SYSTEM\Win32",'time' ) // //end if //演示版本代码 RegistrySet( & "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\jddemo", & "Driver", RegString!,ispath+"\dbodbc8.dll") RegistrySet( & "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\jddemo", & "UID", RegString!,"dba") RegistrySet( & "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\jddemo", & "PWD", RegString!,"sql") RegistrySet( & "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\jddemo", & "DatabaseFile", RegString!,ispath+"\jddemo.db") RegistrySet( & "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\jddemo", & "AutoStop", RegString!,"yes") RegistrySet( & "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\jddemo", & "make", RegString!,"lzc make this code!") RegistrySet( & "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\jddemo", & "Integrated", RegString!,"no") RegistrySet( & "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\jddemo", & "Debug", RegString!,"no") RegistrySet( & "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\jddemo", & "DisableMultiRowFetch", RegString!,"no") RegistrySet( & "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\jddemo", & "Compress", RegString!,"no") RegistrySet( & "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\jddemo", & "Start", RegString!,"dbeng8.exe -Q") SQLCA.DBMS = "ODBC" SQLCA.AutoCommit = False SQLCA.DBParm = "Connectstring='DSN=jddbdemo'" ////正式版本代码 //if connecttype='odbc' then // // Profile jddb //SQLCA.DBMS = "ODBC" //SQLCA.AutoCommit = False //SQLCA.DBParm = "ConnectString='DSN=jddb;UID=sa;PWD=oracle'" //else //SQLCA.DBMS = "MSS Microsoft SQL Server" //SQLCA.Database = "jddb" //SQLCA.LogPass = "oracle" //SQLCA.ServerName = server //SQLCA.LogId = "sa" //SQLCA.AutoCommit = False //SQLCA.DBParm = "" //end if //判断连接结束 Connect; If SQLCA.SQLCode <> 0 Then MessageBox("错误信息","数据库连接失败!~r~n"+SQLCA.SQLErrText,stopsign!,ok!) Rollback; Halt End If //idle(600)//设置断开数据库的时间 //得到当前应用程序和默认提示并且设置工具条 app = GetApplication() app.ToolbarPopMenuText = "左边[&L],顶端[&T],右边[&R],底端[&B],浮动[&F],显示文本[&X],显示提示[&P]" app.ToolbarFrameTitle = "酒店管理系统工具栏" f_settime() if zcyf='t' then app.MicroHelpDefault = jdname+" 酒店管理软件 V 1.01 正式版" else app.MicroHelpDefault = jdname+" 酒店管理软件 V 1.01 试用版" end if MicroHelp = app.MicroHelpDefault //打开欢迎窗口 Open(w_welcome) zcyf()