string lvs_sno
string lvs_date
string lvs_code
string lvs_name
string lvs_lastdate
string lvs_lastdatex
datetime lvdt_today
long i
long lvi_value
string lvs_date1
string lvs_rand
parent.sle_1.text = upper(parent.sle_1.text)
lvs_sno = parent.sle_1.text
lvs_name = parent.sle_2.text
lvs_code = parent.sle_reg.text
lvi_value = 0
for i = 1 to len(lvs_sno)
lvi_value += asc(mid(lvs_sno,i,1))
next
for i = 1 to len(lvs_name)
lvi_value += (asc(mid(lvs_name,i,1)) * 2)
next
if string(lvi_value * long(right(lvs_code,4))) <> left(lvs_code,len(lvs_code) - 10) then
messagebox("錯誤","錯誤",stopsign!)
return
end if
lvs_date1 = left(right(lvs_code,10),6)
lvs_rand = right(lvs_code,4)
lvs_date = ""
for i = 1 to len(lvs_date1)
lvs_date = lvs_date + string(mod(10 + integer(mid(lvs_date1,i,1)) - integer(mid(lvs_rand,mod(i - 1,4) + 1,1)),10))
next
lvs_date1 = ""
lvs_lastdate = string(lvdt_today,"yymmdd")
for i = 1 to len(lvs_lastdate)
lvs_date1 = lvs_date1 + string(mod(integer(mid(lvs_lastdate,i,1)) + integer(mid(lvs_rand,mod(i - 1,4) + 1,1)),10))
next
delete from treg where c_id ='LASTDATE' using sqlca;
insert into treg ( c_id , c_value ) values ( 'LASTDATE' , ' ' ) using sqlca;
uj5u.com熱心網友回復：
就是個檢驗登錄資訊，并記錄最后登錄時間的程式，需要解釋什么呢？uj5u.com熱心網友回復：
可以 做出自己的程式注冊機之類的？
uj5u.com熱心網友回復：
。。。 什么情況。。看不懂。。uj5u.com熱心網友回復：
仔細看看代碼啊uj5u.com熱心網友回復：
我頂你個肺子哦。不能發表招聘哦！轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/75053.html
標籤：腳本語言