InterBase: пароль запрашивается столько раз, сколько форм в проекте

@Yuki58 · Регистрация: 12.12.2012

Author24 — интернет-сервис помощи студентам

Подключаюсь к БД (на базе IB Expert), стандартный набор компонентов для подключения.

Delphi

IBDatabase1: TIBDatabase;
    IBTransaction1: TIBTransaction;
    IBDataSet1: TIBDataSet;
    IBDataSet1ID: TIntegerField;
    IBDataSet1N: TIBStringField;
    IBDataSet1SN: TIBStringField;
    IBDataSet1T: TIBStringField;
    DBGrid1: TDBGrid;
    IBTable1: TIBTable;
    IBTable1ID: TIntegerField;
    IBTable1SN: TIBStringField;
    IBTable1N: TIBStringField;
    IBTable1T: TIBStringField;
    DataSource1: TDataSource;

Все подключает но проблема, в том что у меня 6 форм на каждой эти компоненты, при компиляции спрашивает пароль ровно столько же раз сколько и форм =_=*
Что пробовала:
Пробовала прописывать конект через процедуру форм криете, и дисконект при закрытии формы и все равно спрашивет.
Форм много на 5 ой таблице пришит что то типо "слишком много подключений"
Буду благодарна за подсказку =)

@ii5577 · 07.06.2014, 07:20

на каждой форме свое подключение. Надо использовать одно общее подключение. тогда и пароль будет спрашиваться один раз.

@Yuki58 · 07.06.2014, 09:12 **[ТС]**

Это я и так знаю. Но как лучше сделать ?

Добавлено через 1 час 23 минуты
Попробовала сделать через модуль две формы, при компиляции выдает ошибку.
"Project xxxx raised exception class yyyyy with message 'zzzzzz'."

Delphi

program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Form6},
  Unit7 in 'Unit7.pas' {Form7},
  Unit8 in 'Unit8.pas' {Form8},
  Unit9 in 'Unit9.pas' {DataModule9: TDataModule};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3); //Флажок стоит  тут
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TDataModule9, DataModule9);
  Application.Run;

Сам юнит

Delphi

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IBTable, DB, IBCustomDataSet, Grids, DBGrids, StdCtrls,
  ExtCtrls, DBCtrls, IBDatabase;
 
type
  TForm3 = class(TForm)
    DBGrid1: TDBGrid;
    IBDataSet1: TIBDataSet;
    IBDataSet1ID: TIntegerField;
    IBDataSet1N: TIBStringField;
    IBDataSet1SN: TIBStringField;
    IBDataSet1T: TIBStringField;
    IBTable1: TIBTable;
    IBTable1ID: TIntegerField;
    IBTable1SN: TIBStringField;
    IBTable1MP: TIntegerField;
    IBTable1M: TIBStringField;
    IBTable1OC: TIBStringField;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    Button2: TButton;
  
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
 
    uses Unit9;
 
{$R *.dfm}
 
 
 
 
 
 
 
 
procedure TForm3.Button1Click(Sender: TObject);
begin
DataModule9.IBTransaction1.Commit;
IBTable1.Active:=true;
end;
 
procedure TForm3.Button2Click(Sender: TObject);
begin
DataModule9.IBTransaction1.Rollback;
IBTable1.Active:=true;
end;
 
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     DataModule9.IBDatabase1.Connected:= false ;
end;
 
procedure TForm3.FormCreate(Sender: TObject);
begin
IBTable1.Database:=DataModule9.IBDatabase1;
IBTable1.Transaction:=DataModule9.IBTransaction1;
DataModule9.IBDatabase1.Connected:=true;
IBTable1.Active:=true;
 
end;
 
end.

@Joeymax · 07.06.2014, 09:36

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

проблема, в том что у меня 6 форм на каждой эти компоненты, при компиляции спрашивает пароль ровно столько же раз сколько и форм

и на каждой все эти же датасеты, транзакции, датабазы?

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

IBDatabase1: TIBDatabase; IBTransaction1: TIBTransaction; IBDataSet1: TIBDataSet;

вроде в коде есть определение датамодуля, неужели невозможно разместить все нужное в этом модуле, а в остальных обращаться через него ко всем этим Transaction, DataSet и т.д

@Yuki58 · 07.06.2014, 09:59 **[ТС]**

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

вроде в коде есть определение датамодуля, неужели невозможно разместить все нужное в этом модуле, а в остальных обращаться через него ко всем этим Transaction, DataSet и т.д

Начала делать в модуле пошли ошибки в компиляции.
Которые описала выше.

@Joeymax · 07.06.2014, 10:11

Yuki58,выложи проект, уверен, что здесь смогут помочь. Или в личку, попробую подсказать

@Yuki58 · 07.06.2014, 10:14 **[ТС]**

Как раз запаковывать закончила)
Так по поводу проекта с модулем: Пробовала удалять все процедуры где вылазиет баг с криете, ни чем не помогло =_=

Скандербег · 07.06.2014, 12:47

Надо в списке форм, создаваемых при запуске программы, датамодуль поместить на первое место.
Перед тем как будет создана Form1. Это можно сделать и тексте проекта (Project1.dpr) или через
дельфийское меню Project -> Options... На закладке Forms в левом списке мышкой переместить
датамодуль вверх списка.

В варианте "С модулем" текст проекта Project1.dpr испорчен: там не хватает строки Application.Run; перед end.

Во всех модулях при их создании (процедуры FormCreate) оставить только строку IBTable1.Active:=true;. Все остальное лишнее.

Добавлено через 10 минут
И не надо прерывать соединение с базой при каждом закрытии форм.
Эту строку исключить из всех модулей:

Delphi

1	DataModule9.IBDatabase1.Connected:= false;

Соединение с базой должно осуществляться при создании датамодуля (его событие OnCreate),
а закрывать соединение нужно когда программа закрывается (в датамодуле событие OnDestroy).

@Yuki58 · 07.06.2014, 13:36 **[ТС]**

Спасибо

@ii5577 0 / 0 / 0 Регистрация: 10.05.2014 Сообщений: 5
	07.06.2014, 07:20	2
	на каждой форме свое подключение. Надо использовать одно общее подключение. тогда и пароль будет спрашиваться один раз. 0

@Joeymax 1180 / 421 / 107 Регистрация: 31.03.2012 Сообщений: 1,150
	07.06.2014, 09:36	4
	Сообщение от Yuki58 проблема, в том что у меня 6 форм на каждой эти компоненты, при компиляции спрашивает пароль ровно столько же раз сколько и форм и на каждой все эти же датасеты, транзакции, датабазы? Сообщение от Yuki58 IBDatabase1: TIBDatabase; IBTransaction1: TIBTransaction; IBDataSet1: TIBDataSet; вроде в коде есть определение датамодуля, неужели невозможно разместить все нужное в этом модуле, а в остальных обращаться через него ко всем этим Transaction, DataSet и т.д 0

@Yuki58 2 / 2 / 1 Регистрация: 12.12.2012 Сообщений: 67
	07.06.2014, 09:59 [ТС]	5
	Сообщение от Joeymax вроде в коде есть определение датамодуля, неужели невозможно разместить все нужное в этом модуле, а в остальных обращаться через него ко всем этим Transaction, DataSet и т.д Начала делать в модуле пошли ошибки в компиляции. Которые описала выше. 0

@Joeymax 1180 / 421 / 107 Регистрация: 31.03.2012 Сообщений: 1,150
	07.06.2014, 10:11	6
	Yuki58,выложи проект, уверен, что здесь смогут помочь. Или в личку, попробую подсказать 1

@Yuki58 2 / 2 / 1 Регистрация: 12.12.2012 Сообщений: 67
	07.06.2014, 13:36 [ТС]	9
	Спасибо 0

InterBase: пароль запрашивается столько раз, сколько форм в проекте

Решение