Tips (1541)

Tip Bewertung (6):

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOCommand1.CommandText := 'Use DataBaseName';
  ADOCommand1.Execute;
  ADOCommand1.CommandText := 'Exec SP_DropUser ' + QuotedStr('Username');
  ADOCommand1.Execute;
end;


{* For Any Information Mail Me *

Mail : Mostafa@Touska.co.ir}