【结贴】我如何引用模式窗体的单元文件**

hanxk

我想做一个小窗体，在里面找到需要的东西再放回主窗体，为什么我引用 模式窗体的 unite 文件会报错啊！

gaihl

报什么错?

hanxk

[错误]Biz:\COLLABORATION\ZDXYLXQK\ZDXYYWGN.FUNC.DIR\ZDXYLXQK.Form.pas(6, 51): 找不到命名空间“XZDBHYD”（是否缺少 程序集引用？）


XZDBHYD  是小窗体  unit  XZDBHYD;  

这是引用，有什么不妥吗
unit ZDXYLXQK;

interface

uses
  Business.System, Business.Model, Business.Forms, XZDBHYD;

gaihl

如果两窗口不在同一功能下,就需要在项目管理中引用

hanxk

在同一个业务功能下，但是还是不行，这是两个窗体

hanxk

如果在项目管理中引用，是再怎么进行的。

hanxk

这是主窗体
unit ZDXYLXQK;

interface

uses
  Business.System, Business.Model, Business.Forms,XZDBHYD;

type
  TZDXYLXQK = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerZDXYYWXX: TInfoBroker;
    ControlBar: TControlBar;
    DataNavigator: TDataNavigator;
    DocViewBar: TDocViewBar;
    Panel: TPanel;
    DocViewZDXYYWXX_ZDXYWD: TDocView;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Button2: TButton;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    Button1: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TZDXYLXQK.Button2Click(Sender: TObject);
var
aa:TXZDBHYD;
begin
    aa:=TXZDBHYD.Create(self.context);
    aa.ShowModal;
    aa.free;
end;

procedure TZDXYLXQK.Button1Click(Sender: TObject);
begin

end;

end.

hanxk

这个是小窗体
unit XZDBHYD;

interface

uses
Business.System, Business.Model, Business.Forms, Business.Data;

type
  TXZDBHYD = class(TForm)
    DataGrid1: TDataGrid;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    InfoBroker1: TInfoBroker;
    StoredProc1: TStoredProc;
    DataSource1: TDataSource;
    DataGrid1Column1: TDataGridColumn;
    DataGrid1Column2: TDataGridColumn;
    procedure BizFormCreate(Sender: TObject);
    procedure DataGrid1DblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
     private
    {private declarations}
  public
    {public declarations}
  end;

implementation

procedure TXZDBHYD.BizFormCreate(Sender: TObject);
begin
self.AutoSize:=false;
self.Height:=306;
self.Width:=509;

end;

procedure TXZDBHYD.DataGrid1DblClick(Sender: TObject);
begin
//Edit1.Enabled:=false;
//ComboBox1.Text:=DataSetBroker1.DataSet.FieldByName('创建人').AsString;
//ComboBox2.Text:=DataSetBroker1.DataSet.FieldByName('计划类型').AsString;
//Edit1.Text:=DataSetBroker1.DataSet.FieldByName('计划ID').AsString;
end;

procedure TXZDBHYD.Button1Click(Sender: TObject);
begin
  StoredProc1.Active:=false;
  StoredProc1.Params.ParamByName('@name').AsString:=self.Edit1.Text.Trim;
  StoredProc1.Params.ParamByName('@store').AsString:=self.Edit2.text.Trim;
  StoredProc1.Active:=true;
  DataGrid1.ApplyBestFit(nil);
end;

end.

gaihl

不用引用单元名,直接可以使用

hanxk

奥