一个声明时的小问题啊！请大家帮我看看啊！我是小菜！谢谢大家了啊！！！！！！

Question

unit createsalarytable1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, DB, DBTables, StdCtrls, Buttons, Grids, DBGrids;type
  Tcreatesalarytableform1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Table1: TTable;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  procedure ReadFromTable；
  end;var
  createsalarytableform1: Tcreatesalarytableform1;implementation{$R *.dfm}//模块启动时，从税率表中读数据至datagrid中
procedure Tcreatesalarytableform1.FormActivate(Sender: TObject);
begin
  table1.DatabaseName:='gzgl';
  table1.TableName:='tax';
  table1.Active:=true;
  readfromtable;
end;end.
[Error] createsalarytable1.pas(29): Unsatisfied forward or external declaration: 'Tcreatesalarytableform1.ReadFromTable'
那各'readfromtable'我已经在公共变量中已声明了啊！
可是它还是提示我编译错误啊！
请大家帮看看啊！

Answer 1

ctrl+shift+c
建函数后就应该没问题了.

Answer 2

procedure ReadFromTable；声明了没有实现

Answer 3

procedure Tcreatesalarytableform1.FormActivate(Sender: TObject);
begin
  table1.DatabaseName:='gzgl';
  table1.TableName:='tax';
  table1.Active:=true;
  Tcreatesalarytableform1.readfromtable;//加上Tcreatesalarytableform1就可以了
end;
你试试看

Answer 4

你只写了声明，没有对应的过程啊，再写个类似formactivate这样的过程才行。

Answer 5

过程的实体你写了没有！还有最好用
table1.open;

Answer 6

procedure Tcreatesalarytableform1.FormActivate(Sender: TObject);
begin
  table1.DatabaseName:='gzgl';
  table1.TableName:='tax';
  table1.Active:=true;
  readfromtable;   //这从何来的?不懂!
end;

Answer 7

首先我先感谢大家对我的指点啊！
过程的实体我没有写啊！我是小菜啊！我不会写啊
不知道哪位高手能够指点一下阿？
建过函数以后该怎样啊！是不是这样啊
procedure Tcreatesalarytableform1.ReadFromTable;
beginend;
在这个里面怎么写啊
希望大家能帮助我啊
麻烦你们了啊！！！！

Answer 8

你想在readfromtable里做什么啊？自己都不清楚要干什么？