问题描述:
delphi7有关table运行程序出现错误,怎么修改啊,table怎么定义啊,在哪部分定义呢?
procedure TOperatorForm.FormActivate(Sender:TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit4.ReadOnly:=True;
Edit4.TabStop:=False;
CheckBox1.Checked:=False;
CheckBox2.Checked:=False;
CheckBox3.Checked:=False;
Edit4.Text:=Datetostr(Date());
Table1:=TTable1.Create(self); [Error] Undeclared identifier:'Table1'
Table1.DatabaseName:='rsgl'; [Error] Missing operator or semicolon
Table1.TableName:='operator.db'; [Error] Missing operator or semicolon
Table1.Open; [Error] Missing operator or semicolon
if not EOF then
LoadFormTable; [Error] Undeclared identifier:'LoadFormTable'
Table1.Close;
RadioButton2.Checked:=True;
end;
procedure TOperatorForm.FormActivate(Sender:TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit4.ReadOnly:=True;
Edit4.TabStop:=False;
CheckBox1.Checked:=False;
CheckBox2.Checked:=False;
CheckBox3.Checked:=False;
Edit4.Text:=Datetostr(Date());
Table1:=TTable1.Create(self); [Error] Undeclared identifier:'Table1'
Table1.DatabaseName:='rsgl'; [Error] Missing operator or semicolon
Table1.TableName:='operator.db'; [Error] Missing operator or semicolon
Table1.Open; [Error] Missing operator or semicolon
if not EOF then
LoadFormTable; [Error] Undeclared identifier:'LoadFormTable'
Table1.Close;
RadioButton2.Checked:=True;
end;
问题解答:
我来补答展开全文阅读