|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.12.2010, 21:08 | #1 |
Новичок
Джуниор
Регистрация: 05.05.2008
Сообщений: 2
|
Как связать компоненты (Connect)
unit MyConn;
interface uses ADODB, Dialogs, Forms, SysUtils, Classes, DB; type TMyConn = class(TComponent) private conn:TADOConnection; F_alias: string; F_login: string; F_pwd: string; procedure Set_alias(const Value: string); procedure Set_login(const Value: string); procedure Set_pwd(const Value: string); protected public constructor Create(AOwner :TComponent{; curr_con:TADOConnection}); overload; published property login: string read F_login write Set_login; property pwd: string read F_pwd write Set_pwd; property alias: string read F_alias write Set_alias; property Connect:TADOConnection read conn; end; procedure Register; implementation procedure Register; begin RegisterComponents('ADO', [TMyConn]); end; { TMyConn } constructor TMyConn.Create(AOwner:TComponent{; curr_con:TADOConnection}); begin Inherited Create(AOwner); conn:=TADOConnection.Create(self); //conn:=curr_con; //............ end; procedure TMyConn.Set_alias(const Value: string); begin F_alias:= Value; end; procedure TMyConn.Set_login(const Value: string); begin F_login:= Value; end; procedure TMyConn.Set_pwd(const Value: string); begin F_pwd:= Value; end; end. |
15.12.2010, 21:13 | #2 |
Новичок
Джуниор
Регистрация: 05.05.2008
Сообщений: 2
|
только TMyConn должен быть TMyConn = class(TComponent),
а не TMyConn = class(TADOConnection) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как связать 2 DBGrid.... | yulkas | БД в Delphi | 2 | 22.04.2010 15:27 |
Как работает Google Friend Connect??? | hoza_syl | JavaScript, Ajax | 3 | 12.01.2010 21:55 |
Как связать таблицы | ksmspb | Microsoft Office Excel | 3 | 24.10.2009 19:35 |
Как выставить таймаут операции connect() для сокетов по закрытому порту | GanjaKyp | Работа с сетью в Delphi | 1 | 16.03.2009 21:59 |
DBChart как связать с БД ? | Cantana | Помощь студентам | 2 | 02.02.2008 14:40 |