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


The 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=https://bbs.csdn.net/topics/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 the string (lvi_value * long (lvs_code, 4)) (right) & lt;> Left (lvs_code, len (lvs_code) - 10) then
Messagebox (" error ", "error", stopsign!)
Return
End the if

(lvs_code, 10 lvs_date1=left (right), 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)), an 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

The delete from treg where c_id='LASTDATE' using the sqlca.
Insert into treg (c_id, c_value) values (" LASTDATE ", ") using the sqlca.

CodePudding user response:

Is a test login information, and record the last login time program, to explain to you what?

CodePudding user response:

Can make their own program


Registered machine?

CodePudding user response:

What,,,,, look not to understand,,

CodePudding user response:

Take a closer look at the code

CodePudding user response:

I top you a lung oh, can't published recruitment!