天啊,难道这100分没有人要?连接在下面(100分)

  • 主题发起人 主题发起人 niceboy911
  • 开始时间 开始时间
N

niceboy911

Unregistered / Unconfirmed
GUEST, unregistred user!
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1452629
 
加在一起是200分了
 
唉,服你了:
IF (Trim(Edit2.Text)<>'') AND (Trim(Edit1.Text)<>'') Then Begin
vSYSNO:='SYS2';
vUSERNO:=UpperCase(TRIM(Edit1.Text));
IF Trim(vUSERNO)<>'' THEN
Begin
DM1.SmsCDS.Close;
DM1.SmsCDS.CommandText:='SELECT SYSNAME,USERNAME,PASSWD FROM SHARE_SMSRIGHT WHERE SYSNAME='''+vSYSNO+''' AND USERNAME='''+vUSERNO+'''';
DM1.SmsCDS.Open;
IF DM1.SmsCDS.RecordCount>0 Then
Begin
sPasswd:=DM1.SmsCds.FieldByName('PASSWD').AsString;
DM1.SmsCDS.Close;
IF Edit2.Text=Decrypt(sPASSWD) Then
vINFO:='OK'
Else
vINFO:='ERROR';
End Else
vINFO:='ERROR';
End else
vINFO:='NOT FOUND';

IF vINFO='NOT FOUND' THEN
ShowMessage('用戶找不到')
ELSE IF vINFO='ERROR' THEN
ShowMessage('口令錯誤!')
ELSE IF vINFO='OK' Then Begin
Try
Edit2.Text:='';
except
ShowMessage('異常出錯,無法試辯的問題!');
end;
End
Else
ShowMessage('不能辨別的錯誤!');
End;
 
DM1.SmsCDS.Close;
DM1.SmsCDS.CommandText:='SELECT SYSNAME,USERNAME,PASSWD FROM SHARE_SMSRIGHT WHERE SYSNAME='''+vSYSNO+''' AND USERNAME='''+vUSERNO+''
这两句是指什么?DM1?smscds?
 
能不能留下QQ号?:)放便一些,OK?
 
我的QQ:28279656
 
MSN:samxcb@hotmail.com
DM1:是指数据窗口(data module)
SmsCDS:指query或clientdataset等数据组件!(我用的是clientdataset)
 
yahoo message也可以?能否留下联系工具?
 
yahoo Message: sam_xcb@yahoo.com.cn
msn : samxcb@hotmail.com
 
我怎么找不到你?我的nboy911 yahoomaseege的
 
用msn吧,我这儿yahoo经常连不上!
 
后退
顶部