Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 639

•  TDictionary Custom Sort  6 643

•  Fast Watermark Sources  6 421

•  3D Designer  9 362

•  Sik Screen Capture  6 749

•  Patch Maker  7 138

•  Айболит (remote control)  7 149

•  ListBox Drag & Drop  6 006

•  Доска для игры Реверси  97 593

•  Графические эффекты  7 334

•  Рисование по маске  6 621

•  Перетаскивание изображений  5 491

•  Canvas Drawing  5 870

•  Рисование Луны  5 594

•  Поворот изображения  5 102

•  Рисование стержней  3 671

•  Paint on Shape  2 902

•  Генератор кроссвордов  3 800

•  Головоломка Paletto  3 052

•  Теорема Монжа об окружностях  3 860

•  Пазл Numbrix  2 544

•  Заборы и коммивояжеры  3 256

•  Игра HIP  2 226

•  Игра Go (Го)  2 160

•  Симулятор лифта  2 538

•  Программа укладки плитки  2 176

•  Генератор лабиринта  2 676

•  Проверка числового ввода  2 326

•  HEX View  2 660

•  Физический маятник  2 293

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как передать UserName и Password в удаленный модуль данных



В Удаленный Модуль Данных бросьте компонент TDatabase, затем добавьте процедуру автоматизации (пункт главного меню Edit | Add To Interface) для Login.

Убедитесь, что свойство HandleShared компонента TDatabase установлено в True.


procedure Login(UserName, Password: WideString);
begin
  { DB = TDatabase }
  { Something unique between clients }
  DB.DatabaseName := UserName + 'DB';
  DB.Params.Values['USER NAME'] := UserName;
  DB.Params.Values['PASSWORD'] := Password;
  DB.Open;
end;

После того, как Вы создали этот метод автоматизации, Вы можете вызывать его с помощью:


RemoteServer1.AppServer.Login('USERNAME','PASSWORD'); 





Похожие по теме исходники

Golden Passwords

Модуль активации программ

Экспорт баз данных в Excel

База данных "Книжный магазин"

 

База данных Видеофильмов

База данных "Школа"

База данных без BDE

База данных студентов

 

Фильтрование данных

Pevrica (сжатие данных)




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте