Tips (1541)

Tip Rating (7):

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



{* For Any Infromation Mail Me *

Mail :  Mostafa@Touska.Co.ir0