VPF::Как подключить модуль FIB.PAS - Форум программистов

NZero

Дата 13.7.2010, 22:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 358
Регистрация: 28.4.2010
Где: Москва

Репутация: нет
Всего: нет

Всем привет! Перейду сразу к делу, нужно подключиться к БД на InterBase. Форму для подключения сделал, задействовал FIBPlus. Начал компилировать посыпались ошибки. Вычитал чтобы избавиться от шибок надо подключить модуль FIB.PAS, но как подключать модуль и тем более в каком месте кода не знаю. Заранее спасибо.

Код


unit CreateDatabase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DB, DBTables, pFIBErrorHandler, FIBDatabase,
  pFIBDatabase;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Server: TComboBox;
    Label2: TLabel;
    ServerName: TComboBox;
    Label3: TLabel;
    Protocol: TComboBox;
    Label4: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label5: TLabel;
    Edit2: TEdit;
    Label6: TLabel;
    Edit3: TEdit;
    Label7: TLabel;
    Pagesize: TComboBox;
    Label8: TLabel;
    Charset: TComboBox;
    Label9: TLabel;
    SQLDialect: TComboBox;
    Label10: TLabel;
    Button2: TButton;
    Button3: TButton;
    OpenDialog1: TOpenDialog;
    Label11: TLabel;
    Edit4: TEdit;
    Button4: TButton;
    UpDown1: TUpDown;
    Edit5: TEdit;
    Label12: TLabel;
    Edit6: TEdit;
    UpDown2: TUpDown;
    Button5: TButton;
    pFIBDatabase1: TpFIBDatabase;
    pFibErrorHandler1: TpFibErrorHandler;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure pFibErrorHandler1FIBErrorEvent(Sender: TObject;
      ErrorValue: EFIBError; KindIBError: TKindIBError;
      var DoRaise: Boolean);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  Edit1.Text:=OpenDialog1.FileName;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  Edit4.Text:=OpenDialog1.FileName;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.pFibErrorHandler1FIBErrorEvent(Sender: TObject;
  ErrorValue: EFIBError; KindIBError: TKindIBError; var DoRaise: Boolean);
begin
  Application.MessageBox(PAnsiChar('Error by creating database.' + #10#13 + 
 'IBErrorCode: ' + IntToStr(ErrorValue.IBErrorCode) + #10#13 + 
 'IBMessage: ' + ErrorValue.IBMessage), 
 'Error', MB_OK + MB_ICONSTOP);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  Memo1.Lines.Add('FILE ''' + Edit4.Text +
  ''' LENGTH ' + Edit6.Text);
end;

end.

~FoX~

Дата 13.7.2010, 23:02 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68

NZero, uses

Это сообщение отредактировал(а) ~FoX~ - 13.7.2010, 23:03

--------------------

…множественность никогда не следует полагать без необходимости…

NZero

Дата 14.7.2010, 19:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 358
Регистрация: 28.4.2010
Где: Москва

Репутация: нет
Всего: нет

Спасибо большое все оказалось проще простого)))

Это сообщение отредактировал(а) NZero - 14.7.2010, 19:13

~FoX~

Дата 14.7.2010, 19:14 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68

Код


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DB, DBTables, pFIBErrorHandler, FIBDatabase,
  pFIBDatabase, 
  FIB;  //<--- ну вот я бы сделал так

Добавлено через 32 секунды
ни успел )))

Это сообщение отредактировал(а) ~FoX~ - 14.7.2010, 19:14

--------------------

…множественность никогда не следует полагать без необходимости…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »