小弟在练习写程序时,用到了datamodule模块,把各种数据敏感控件放上去。
整个datamodule模块内容如下:
unit datamodule;interfaceuses
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
Dialogs, DBTables, DB;type
Tdatamodule1 = class(TDataModule)
Database1: TDatabase;
t_user: TTable;
ds_user: TDataSource;
t_add_user: TTable;
ds_add_user: TDataSource;
t_user_2: TTable;
ds_user_2: TDataSource;
t_change: TTable;
t_change_list: TTable;
ds_change_list: TDataSource;
t_department: TTable;
ds_department: TDataSource;
t_job: TTable;
ds_job: TDataSource;
t_edu_level: TTable;
ds_edu_level: TDataSource;
t_counter: TTable;
procedure LineItemsCalcFields(DataSet: TDataSet);
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
datamodule1: Tdatamodule1;implementation{$R *.dfm}procedure Tdatamodule1.LineItemsCalcFields(DataSet: TDataSet);
begin
LineItemsExtendedPrice.Value := LineItemsPrice.Value *
((100 - LineItemsDiscount.Value) / 100);
LineItemsTotal.Value := LineItemsExtendedPrice.Value *
LineItemsQty.Value;
end;procedure Tdatamodule1.DataModuleCreate(Sender: TObject);
beginend;end.
当编译整个程序时就报错:[Error] datamodule.pas(44): Undeclared identifier: 'LineItemsExtendedPrice'
这个对象是datamodule自己生成的,我没有改过,到底是怎么回事呢?
这个错误与其他模块无关吧!
整个datamodule模块内容如下:
unit datamodule;interfaceuses
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
Dialogs, DBTables, DB;type
Tdatamodule1 = class(TDataModule)
Database1: TDatabase;
t_user: TTable;
ds_user: TDataSource;
t_add_user: TTable;
ds_add_user: TDataSource;
t_user_2: TTable;
ds_user_2: TDataSource;
t_change: TTable;
t_change_list: TTable;
ds_change_list: TDataSource;
t_department: TTable;
ds_department: TDataSource;
t_job: TTable;
ds_job: TDataSource;
t_edu_level: TTable;
ds_edu_level: TDataSource;
t_counter: TTable;
procedure LineItemsCalcFields(DataSet: TDataSet);
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
datamodule1: Tdatamodule1;implementation{$R *.dfm}procedure Tdatamodule1.LineItemsCalcFields(DataSet: TDataSet);
begin
LineItemsExtendedPrice.Value := LineItemsPrice.Value *
((100 - LineItemsDiscount.Value) / 100);
LineItemsTotal.Value := LineItemsExtendedPrice.Value *
LineItemsQty.Value;
end;procedure Tdatamodule1.DataModuleCreate(Sender: TObject);
beginend;end.
当编译整个程序时就报错:[Error] datamodule.pas(44): Undeclared identifier: 'LineItemsExtendedPrice'
这个对象是datamodule自己生成的,我没有改过,到底是怎么回事呢?
这个错误与其他模块无关吧!
解决方案 »
- 关于dll初始话的问题
- Delphi 2007 安装KOL的问题
- 即将毕业,想买块表,请大家帮忙推荐下
- 软件不显示中文,只显示英文的问题?
- 远程通信问题,用窗体好还是web好呢?
- 关于UDP使用过程中的一个问题处理
- 请问如何在DELPHI7的ADO控件中使用事务
- 数据的格式及打印问题. 请专家或者高手给出方案
- 如何实现本地access表的内容上传到sql server服务器,表的结构一致,都是yyls(kh,jye,clbz).
- 问个小问题!~在线求结果
- 大家进来看一看,小弟不太明白?
- 我装了devexpress printing system后总是出现list index out of bounds,这是怎么回事如何解决。
begin
LineItemsExtendedPrice.Value := LineItemsPrice.Value *
((100 - LineItemsDiscount.Value) / 100);
LineItemsTotal.Value := LineItemsExtendedPrice.Value *
LineItemsQty.Value;
end;这个东西我没定义过,里面的对象是系统自己生成的