unidac+mssql 增查改删

delphi7年前 (2018)发布 admin
804 1

unqry1.Close;
unqry1.SQL.Clear;
unqry1.SQL.add('insert into hy_user(hy_user,password,guizu,logintime) values(''' + trim(edt1.Text) + ''',''' + password + ''',''' + cbb1.text + ''',''' + DateTimetostr((now())) + ''')');
unqry1.ExecSQL;

unqry1.Close;
unqry1.SQL.Clear;
unqry1.SQL.Add('select * from pinpai where guizu=''' + g2 + '''');
unqry1.Open;

unqry2.Close;
unqry1.SQL.Clear;
unqry1.SQL.Add('Update hy_user set logintime=''' + DateTimetostr((now())) + ''' where hy_user=''' + userID + '''');
unqry1.ExecSQL;

unqry1.SQL.Clear;
unqry1.SQL.add('DELETE FROM goodstp where ID='''+tpid+'''');
unqry1.ExecSQL;
© 版权声明

相关文章