[Alick]

Помогите создать связь. Сделал одну часть серверную. Где сама таблица в которой можно редактировать БД.

Нужно создать клиентскую часть для подключения по сети и добавления записей в БД.

Мало еще смыслю, делаю в основном по шаблону
Спасибо

[NumLock]

Delphi5: новые возможности в MIDAS технологии

[lmikle]

Нам, MIDAS - это про многозвенку, вообще-то.
Алик, что ты сделал? Просто создал таблицу? Или все-таки программу, которая работает с таблицей, которая расположена на сервере?
Ну и неплохо было бы дать больше информации. Какая БД, какая версия Delphi и т.д.

[Alick]

Сообщение от lmikle

Нам, MIDAS - это про многозвенку, вообще-то.
Алик, что ты сделал? Просто создал таблицу? Или все-таки программу, которая работает с таблицей, которая расположена на сервере?
Ну и неплохо было бы дать больше информации. Какая БД, какая версия Delphi и т.д.

БД в аксесе. подцепил ее в Delphi 7. Делал Через dataSourse adoConnection AdoQuwery.
Возможности
Можно добавлять изменять удалять записи. Осталось сделать клиентскую часть через которую можно было бы добавлять записи.

[NumLock]

Сообщение от lmikle

Нам, MIDAS - это про многозвенку, вообще-то.

В этой очень старой статье описан механизм создания велосипеда, который изобретает ТС

[lmikle]

Сообщение от NumLock

В этой очень старой статье описан механизм создания велосипеда, который изобретает ТС

Дык ТС даже не велосипед изобретает.
Тут вообще полное непонимание вопроса.

Сообщение от Alick

БД в аксесе. подцепил ее в Delphi 7. Делал Через dataSourse adoConnection AdoQuwery.
Возможности
Можно добавлять изменять удалять записи. Осталось сделать клиентскую часть через которую можно было бы добавлять записи.

Ну, для начала, Access - это не сервер, просто локальная СУБД. Хотя, что бы поиграться - достаточно. Тогда, собственно, ты клиента написал. Что тебе еще надо?

[Alick]

Ну, для начала, Access - это не сервер, просто локальная СУБД. Хотя, что бы поиграться - достаточно. Тогда, собственно, ты клиента написал. Что тебе еще надо?

подключение идет с помощью server socket и client.socket.
Какрас таки нужно добавлять записи в базу с помощью клиента. Это форма2

На форме1 закреплена уже база с помощью DBGrid и других компонентов. Вот в нее и нужно вносить новые строки с помощью формы2.
Сделал по этому шаблону . Только нужно что бы строка добавлялась

[lmikle]

Ну и в чем проблема?
Сделать вторую форму? Или прицепить вторую форму к текущей строке?

Form1 (главная, кнопка Добавить)

Код:

procedure TForm1.btAddRecordClick(Sender : TObject);
begin
  ADOQuery1.Add;
  With TForm2.Create(Application) Do
    Begin
      If Execute(DataSource1) 
        Then ADOQuery1.Post
        Else ADOQuery1.Cancel;
      Free;
    End;
end;

Form2. Кладем на форму DB-aware компоненты (TDBEdit и подобные), настраиваем в них имена полей. Также кладем 2 кнопки, у одной устанавливаем ModalResult в mrOK, у второй - в mrCancel. Добавляем такую функцию:

Код:

type
  TForm2 = class(TForm)
  ...
  public
    function Execute(ADataSource : TDataSource) : Boolean;
  end;

...

function TForm2.Execute(ADataSource : TDataSource) : Boolean;
begin
   // Подключаем контролы к источнику данных
   DBEdit1.DataSource := ADataSource;
   DBEdit2.DataSource := ADataSource;
   DBMemo1.DataSource := ADataSource;
   // И т.д. Можно написать автоматически обход компонентов,
   // но это пока для тебя "высший пилотаж"

   Result := ShowMOdal = mrOK;
end;

PS. Form2 в таком варианте надо "выкинуть" из списка автоматически создаваемых форм, т.к. она создается динамически. Выкидывать через Project | Options -> Forms или просто ее создание удалить в файле проекта (*.dpr)

[Alick]

Должен быть проект 1(сервер) и проект 2(клиент). С помощью ServerSocket и ClientSocket соединяться. Что это я уже сделал по видео. Осталось только добавлять строки с клиентской части

Сообщение от lmikle

Ну и в чем проблема?
Сделать вторую форму? Или прицепить вторую форму к текущей строке?

Form1 (главная, кнопка Добавить)

Код:

procedure TForm1.btAddRecordClick(Sender : TObject);
begin
  ADOQuery1.Add;
  With TForm2.Create(Application) Do
    Begin
      If Execute(DataSource1) 
        Then ADOQuery1.Post
        Else ADOQuery1.Cancel;
      Free;
    End;
end;

Form2. Кладем на форму DB-aware компоненты (TDBEdit и подобные), настраиваем в них имена полей. Также кладем 2 кнопки, у одной устанавливаем ModalResult в mrOK, у второй - в mrCancel. Добавляем такую функцию:

Код:

type
  TForm2 = class(TForm)
  ...
  public
    function Execute(ADataSource : TDataSource) : Boolean;
  end;

...

function TForm2.Execute(ADataSource : TDataSource) : Boolean;
begin
   // Подключаем контролы к источнику данных
   DBEdit1.DataSource := ADataSource;
   DBEdit2.DataSource := ADataSource;
   DBMemo1.DataSource := ADataSource;
   // И т.д. Можно написать автоматически обход компонентов,
   // но это пока для тебя "высший пилотаж"

   Result := ShowMOdal = mrOK;
end;

PS. Form2 в таком варианте надо "выкинуть" из списка автоматически создаваемых форм, т.к. она создается динамически. Выкидывать через Project | Options -> Forms или просто ее создание удалить в файле проекта (*.dpr)

[NumLock]

Сообщение от Alick

Должен быть проект 1(сервер) и проект 2(клиент). С помощью ServerSocket и ClientSocket соединяться.

это как раз частный случай трехзвенной архитектуры, когда Access выполняет роль сервера БД, с которым работает сервер приложений, проект 1 (сервер) роль сервера приложений (в нем же и сервер БД), проект 2 (клиент) роль клиента. в Delphi такая архитектура делается нажатием нескольких кнопок мыши и не нужно самому транспорт изобретать.

[Alick]

Сообщение от NumLock

это как раз частный случай трехзвенной архитектуры, когда Access выполняет роль сервера БД, с которым работает сервер приложений, проект 1 (сервер) роль сервера приложений (в нем же и сервер БД), проект 2 (клиент) роль клиента. в Delphi такая архитектура делается нажатием нескольких кнопок мыши и не нужно самому транспорт изобретать.

Подскажите как это сделать???????

[Alick]

Сообщение от NumLock

это как раз частный случай трехзвенной архитектуры, когда Access выполняет роль сервера БД, с которым работает сервер приложений, проект 1 (сервер) роль сервера приложений (в нем же и сервер БД), проект 2 (клиент) роль клиента. в Delphi такая архитектура делается нажатием нескольких кнопок мыши и не нужно самому транспорт изобретать.

HELP HELP HELP HELP

[NumLock]

так "c:\Program Files (x86)\Borland\Delphi7\Demos\Midas\Login". под Windows 10 сервер 1 раз запустить под администратором.

[Alick]

Сообщение от NumLock

так "c:\Program Files (x86)\Borland\Delphi7\Demos\Midas\Login". под Windows 10 сервер 1 раз запустить под администратором.

НЕ помогли бы добить?