虫虫首页| 资源下载| 资源专辑| 精品软件
登录| 注册

您现在的位置是:虫虫下载站 > 资源下载 > Delphi/CppBuilder > procedureTForm1.Button1Click(Sender:TObject) var S:String begin S:=idhttp1.Get(PostURL.text+

procedureTForm1.Button1Click(Sender:TObject) var S:String begin S:=idhttp1.Get(PostURL.text+

资 源 简 介

procedureTForm1.Button1Click(Sender:TObject) var S:String begin S:=idhttp1.Get(PostURL.text+ ?username= +EdUserName.Text+ &password= +EdPassWord.Text+ &password2= +EdPassWord.Text+ &email= + EdEMail.Text+ &gendernew=1&year=&month=&day=&locationnew =&site=&oicq=&icq=&yahoo=&msn=&bio=&styleidnew =&tppnew=0&pppnew=0&timeformatnew=12&cstatus=&dateformatnew =yyyy-mm-dd&showemail=1&newsletter=1&timeoffsetnew=8&avatar =&sig=®submit=注册 )  //一句代码 ifPos( 非常感谢您的注册 ,s)>1then //判断部分  ShowMessage( 注册成功! ) else  ifPos( 已经被注册了 ,S)>1then   ShowMessage( 该用户名或E-Mail已被注册! )  else   ShowMessage( 已关闭注册,注册失败! ) end

相 关 资 源

您 可 能 感 兴 趣 的