04.05.2011, 01:16
|
|
Новичок
|
|
Регистрация: 28.04.2011
Сообщения: 67
Репутация: 10
|
|
Delphi не выводит мою БД
пишу прогу для вывода моей БД в делфи, вроде в коде всё нормально, но не выводит и выдает окошко с ошибкой. код модуля БД
Код:
unit Unit2;
interface
uses
SysUtils, Classes, DBTables, DB;
type
TDM = class(TDataModule)
instruments: TQuery;
Database: TDatabase;
Session: TSession;
instrumentsDS: TDataSource;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const my_alias = 'instruments';
datapth = 'C:\Documents and Settings\1\Ðàáî÷èé ñòîë\ìîÿ ðàáîòà â delphi\ÁÄ';
var
DM: TDM;
implementation
{$R *.dfm}
procedure TDM.DataModuleCreate(Sender: TObject);
begin
with session do
begin
Active:=false;
PrivateDir:=ExtractFilePath(PARAMSTR(0));
Active:=true;
if not(isalias(my_alias)) then
begin
ConfigMode:=cmPersistent;
AddStandardAlias(my_alias,ExtractFilePath(PARAMSTR(0))+datapth,'PARADOX');
SaveConfigFile
end;
Database.AliasName:=my_alias;
Database.Connected:=true;
with instruments do
begin
Prepare;
Open
end;
end;
end;
procedure TDM.DataModuleDestroy(Sender: TObject);
begin
with database do
if connected then
begin
CloseDataSets;
Connected:=false;
end;
with session do
if active then
close
end;
end.
а это код её вывода
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids,unit2;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
что не так-то?
|