利用文本随机生成密码if DayOfWeek(now)=1 then
Week_Count:=1
else if DayOfWeek(now)=2 then
Week_Count:=2
Else if DayOfWeek(now)=3 then
Week_Count:=-1
Else if DayOfWeek(now)=4 then
Week_Count:=-2
Else if DayOfWeek(now)=5 then
Week_Count:=0
Else if DayOfWeek(now)=6 then
Week_Count:=2
Else if DayOfWeek(now)=7 then
Week_Count:=1;
nSbh := Copy(copy(Trim(Cob_smc.Text),pos('>',Cob_smc.Text)+1,10),3,8);
If Cob_lx.ItemIndex = 0 then //显示车辆减免
Count_Time := StrToInt(Copy(FormatDateTime('YYYYMMDD',now()),Week_Count+1,7)+Copy(FormatDateTime('YYYYMMDD',now()),1,Week_Count))
else If Cob_lx.ItemIndex = 1 then //显示车辆包缴
Count_Time := StrToInt(Copy(FormatDateTime('YYYYMMDD',now()),Week_Count+4,7)+Copy(FormatDateTime('YYYYMMDD',now()),1,Week_Count+3))
else If Cob_lx.ItemIndex = 2 then //显示车辆死车
Count_Time := StrToInt(Copy(FormatDateTime('YYYYMMDD',now()),Week_Count+5,7)+Copy(FormatDateTime('YYYYMMDD',now()),1,Week_Count+4))
else If Cob_lx.ItemIndex = 3 then //显示车辆联运
Count_Time := StrToInt(Copy(FormatDateTime('YYYYMMDD',now()),Week_Count+2,7)+Copy(FormatDateTime('YYYYMMDD',now()),1,Week_Count+1))
else If Cob_lx.ItemIndex = 4 then //显示车辆统缴
Count_Time := StrToInt(Copy(FormatDateTime('YYYYMMDD',now()),Week_Count+6,7)+Copy(FormatDateTime('YYYYMMDD',now()),1,Week_Count+5))
else If Cob_lx.ItemIndex = 5 then //显示牌证领取
Count_Time := StrToInt(Copy(FormatDateTime('YYYYMMDD',now()),Week_Count+3,7)+Copy(FormatDateTime('YYYYMMDD',now()),1,Week_Count+2));
Count_Sbh:= StrToInt(nSbh);