刚接触delphi对单元的引用,望赐教!
database 单元
interfaceuses
SysUtils, Classes, DB, ADODB;type
Tdm2 = class(TDataModule)
ADOCon: TADOConnection;
ADOTb: TADOTable;
ADOQy: TADOQuery;
ADOSp: TADOStoredProc;
private
{ Private declarations }
public
{ Public declarations }
end;var
dm2: Tdm2;implementationuses login;{$R *.dfm}end.
login单元
unit login;interfaceuses
Windows, Messages,SysUtils,Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
ed1: TEdit;
ed2: TEdit;
lb1: TLabel;
lb2: TLabel;
bt1: TButton;
bt2: TButton;
lb3: TLabel;
procedure bt1Click(Sender: TObject);
procedure bt2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
uses database;在login单元里我为什么不能直接使用database单元的组件呢?
database 单元
interfaceuses
SysUtils, Classes, DB, ADODB;type
Tdm2 = class(TDataModule)
ADOCon: TADOConnection;
ADOTb: TADOTable;
ADOQy: TADOQuery;
ADOSp: TADOStoredProc;
private
{ Private declarations }
public
{ Public declarations }
end;var
dm2: Tdm2;implementationuses login;{$R *.dfm}end.
login单元
unit login;interfaceuses
Windows, Messages,SysUtils,Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
ed1: TEdit;
ed2: TEdit;
lb1: TLabel;
lb2: TLabel;
bt1: TButton;
bt2: TButton;
lb3: TLabel;
procedure bt1Click(Sender: TObject);
procedure bt2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
uses database;在login单元里我为什么不能直接使用database单元的组件呢?
组件名.
//编译的时候提示Undeclared identifier: 'ftString',是不是单元没有引用过来的原因呢?