Question

急！求助高手。delphi7程序出现问题

求助高手，我的delphi7程序出现问题?请帮忙解决，谢谢！！！
当写到table1的events事件OnCalcFields的计算金额这个命令：table1 ZGZ.VALUE:=table1 JBGZ.value+table1 FDGZ.value+table1 GLGZ.value+table1 CFBZ.value+table1 JTBZ.value;时，
总是出现这个错误：
[错误] Unit5.pas(81): Missing operator or semicolon
[错误] Unit5.pas(81): Missing operator or semicolon
[错误] Unit5.pas(81): Missing operator or semicolon
[错误] Unit5.pas(81): Missing operator or semicolon
[错误] Unit5.pas(81): Missing operator or semicolon
[错误] Unit5.pas(81): Missing operator or semicolon
[错误] Unit5.pas(64): Unsatisfied forward or external declaration:'TForm5.DataSource1DataChange'
[致命错误] Unit4.pas(32): Could not compile used unit 'Unit5.pas'
请问怎么修改呢？

程序如下：
unit Unit5;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB, DBTables, StdCtrls, Mask;

type
TForm5 = class(TForm)
Label1: TLabel;
Shape1: TShape;
Table1: TTable;
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Shape5: TShape;
Shape6: TShape;
Table1BDEDesigner: TStringField;
Table1BDEDesigner2: TStringField;
Table1BDEDesigner3: TStringField;
Table1BDEDesigner4: TStringField;
Table1BDEDesigner5: TCurrencyField;
Table1BDEDesigner6: TCurrencyField;
Table1BDEDesigner7: TCurrencyField;
Table1BDEDesigner8: TCurrencyField;
Table1BDEDesigner9: TCurrencyField;
Table1BDEDesigner10: TCurrencyField;
Table1BDEDesigner11: TCurrencyField;
Table1BDEDesigner12: TCurrencyField;
Table1BDEDesigner13: TCurrencyField;
Table1BDEDesigner14: TCurrencyField;
procedure Table1CalcFields(DataSet: TDataSet);
procedure DataSource1DataChange(Sender: TObject; Field: TField);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Table1CalcFields(DataSet: TDataSet);
begin
table1 ZGZ.VALUE:=table1 JBGZ.value+table1 FDGZ.value+table1 GLGZ.value+table1 CFBZ.value+table1 JTBZ.value;
end;
end.
该如何写该？请说的详细一点。谢谢！
设定的字段类型是￥

Answer 1

看看你写的字段类型，