TA的每日心情![](source/plugin/dsu_paulsign/img/emot/wl.gif) | 无聊 前天 11:46 |
---|
签到天数: 779 天 [LV.10]以坛为家III
|
发表于 2011-3-15 14:03:22
|
显示全部楼层
- string ls_ma
- string ls_date1
- string ls_date2
- string ls_date3
- string ls_num
- string ls_date4
- string ls_date
- string ls_renzhen
- string ls_zhuce
- string ls_renzheng
- string ls_zc
- string ls_n[]
- string ls_mi
- integer i
- string ls_servername
- integer li_return
- connection myconnect
- string ls_sqldriver
- integer return_i
- string ls_mutex_name
- string database_name
- string server_name
- string login_id
- string login_password
- string odbc_info
- string ls_dbq
- string ls_driver
- string ls_fil
- string ls_uid
- integer li_driverid
- integer li_safetransactions
- registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\jm","jm",regstring!,ls_ma)
- registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\jm","date",regstring!,ls_date1)
- registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\jm","num",regstring!,ls_num)
- registryget("HKEY_CURRENT_config\SOFTWARE\MICROSOFT\windows\currentversion\internet settings","system_date",regstring!,ls_date2)
- registryget("HKEY_CURRENT_config\SOFTWARE\MICROSOFT\windows\currentversion\internet settings","open_date",regstring!,ls_date3)
- registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\jm","renzheng",regstring!,ls_renzhen)
- registryget("HKEY_CURRENT_config\SOFTWARE\MICROSOFT\windows\currentversion\internet settings","system_zhuce",regstring!,ls_zhuce)
- ls_date = string(datetime(today(),now()),"yyyy-mm-dd")
- ls_date1 = string(date(ls_date1),"yyyy-mm-dd")
- ls_date2 = string(date(ls_date2),"yyyy-mm-dd")
- if ((ls_date < ls_date1) or (ls_date < ls_date2)) then
- messagebox("èí¼tìáê¾£o","Ïμí3걼䱻¶ñòaDT¸Ä£¬ÇëDT¸ÄÎaÕyè·μÄ걼䣡")
- return
- end if
- registryset("hkey_current_user\software\microsoft\jm","date",regstring!,ls_date)
- registryset("HKEY_CURRENT_config\SOFTWARE\MICROSOFT\windows\currentversion\internet settings","system_date",regstring!,ls_date)
- ls_renzheng = ls_renzhen
- for i = 1 to len(ls_renzheng)
- ls_n[i] = string(integer(mid(ls_renzheng,i,1)) * i)
- next
- for i = len(ls_renzheng) to 1 step -1
- ls_n[i] = string(integer(ls_n[i]) * i)
- next
- for i = len(ls_renzheng) to 1 step -1
- ls_zc = ls_zc + ls_n[i]
- next
- for i = 1 to len(ls_zc) step 3
- ls_n[i] = mid(ls_zc,i,1)
- ls_mi = ls_mi + ls_n[i]
- next
- if ls_renzhen <> ls_zhuce then
- messagebox("Ïμí3ìáê¾","×¢2áÂë±»¶ñòaDT¸Ä£¬ÇëDT¸Ä»ØÕyè·μÄ×¢2áÂ룬è»oó½øDDèÏÖ¤£¡")
- open(w_main1)
- else
- if ls_ma = ls_mi and ls_ma <> "" and ( not isnull(ls_ma)) then
- registryset("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\jm","jm",regstring!,ls_mi)
- registryget("hkey_local_machine\system\currentcontrolset\control\computername\computername","computername",regstring!,ls_servername)
- myconnect = create connection
- myconnect.drivernameset("WinSock")
- myconnect.applicationnameset("1433")
- myconnect.locationnameset(ls_servername)
- li_return = myconnect.connecttoserver()
- return_i = registryget("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\SQL Server","Driver",regstring!,ls_sqldriver)
- if return_i <> 1 then
- messagebox("Ïμí3ìáê¾",ls_servername + "»1ûóD°2×°SQL Server!~nÇë°2×°oóÔùÔËDD±¾3ìDò£¡")
- return
- end if
- registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\1039","DATABASE_NAME",regstring!,database_name)
- registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\1039","SERVER_NAME",regstring!,server_name)
- registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\1039","LOGIN_ID",regstring!,login_id)
- registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\1039","LOGIN_PASSWORD",regstring!,login_password)
- registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\1039","odbc_info",regstring!,odbc_info)
- sqlca.dbms = "MSS Microsoft SQL Server 6.x"
- sqlca.database = database_name
- sqlca.servername = server_name
- sqlca.logid = login_id
- sqlca.logpass = login_password
- sqlca.autocommit = false
- sqlca.dbparm = ""
- connect using sqlca;
- if sqlca.sqlcode = 0 then
- open(w_fm)
- else
- if odbc_info <> "" then
- sqlca.dbms = "ODBC"
- sqlca.autocommit = false
- odbc_info = "DSN=" + odbc_info + ";UID=sa;PWD="
- sqlca.dbparm = "ConnectString='" + odbc_info + "'"
- connect using sqlca;
- if sqlca.sqlcode <> 0 then
- messagebox("ᬽóêy¾Y¿a","êy¾Y¿aᬽó·¢éú′íÎó:~nÇëéèÖÃÏμí3ᬽó2Îêy.",stopsign!,ok!)
- open(w_system_logo_set)
- else
- open(w_fm)
- end if
- else
- ls_dbq = "jxgl"
- ls_driver = ls_sqldriver
- ls_fil = "(LOCAL)"
- li_safetransactions = 0
- registryset("HKEY_CURRENT_USER\SOFTWARE\ODBC\ODBC.INI\JXGL_YUE","database",regstring!,ls_dbq)
- registryset("HKEY_CURRENT_USER\SOFTWARE\ODBC\ODBC.INI\JXGL_YUE","drive",regstring!,ls_driver)
- registryset("HKEY_CURRENT_USER\SOFTWARE\ODBC\ODBC.INI\JXGL_YUE","lastuser",regstring!,"sa")
- registryset("HKEY_CURRENT_USER\SOFTWARE\ODBC\ODBC.INI\JXGL_YUE","server",regstring!,ls_fil)
- registryset("HKEY_CURRENT_USER\SOFTWARE\ODBC\ODBC.INI\ODBC DATA SOURCES","JXGL_YUE",regstring!,"SQL SERVER")
- registryset("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\1039","odbc_info",regstring!,"JXGL_YUE")
- registryget("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\1039","odbc_info",regstring!,odbc_info)
- sqlca.dbms = "ODBC"
- sqlca.autocommit = false
- odbc_info = "DSN=" + odbc_info + ";UID=sa;PWD="
- sqlca.dbparm = "ConnectString='" + odbc_info + "'"
- connect using sqlca;
- if sqlca.sqlcode <> 0 then
- messagebox("ᬽóêy¾Y¿a","êy¾Y¿aᬽó·¢éú′íÎó:~nÇëéèÖÃÏμí3ᬽó2Îêy.",stopsign!,ok!)
- open(w_system_logo_set)
- else
- open(w_fm)
- end if
- end if
- end if
- else
- open(w_main1)
- end if
- end if
复制代码
按照上面的代码自己 反算一下就行了!
|
|