怎么这么奇怪呀,那位老兄告诉我

Question

是不是你自己定义的事件前面少了Form。啊

Answer 1

procedure tform1.aa;
begin
  RecNum1:=Table1.RecordCount;          //得到数据库Table1记录总数
  RecNum2:=Table2.RecordCount;          //得到数据库Table2记录总数
  Num:=Table1.RecNo;                    //Indicates the current record
end;

Answer 2

自己定义的过程，在其代码实现过程中应加上其隶属的窗体名，即更为如下代码：procedure TForm1.caculate(limit_name:string);
begin
  RecNum1:=Table1.RecordCount;          //得到数据库Table1记录总数
  RecNum2:=Table2.RecordCount;          //得到数据库Table2记录总数
  Num:=Table1.RecNo;                    //Indicates the current record

Answer 3

 在 private中声明你的过程
private
  procedure XXX;...
procedure TForm1.xxx;
Begin
...
End;

Answer 4

procedure TForm1.caculate(limit_name:string);
begin
  RecNum1:=Table1.RecordCount;          //得到数据库Table1记录总数
  RecNum2:=Table2.RecordCount;          //得到数据库Table2记录总数
  Num:=Table1.RecNo;                    
end；是呀～～前面要有TForm1