delphi7有关table运行程序出现错误,怎么修改啊,table怎么定义啊,在哪部分定义呢?

问题描述:

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;
1个回答 分类:综合 2014-11-05

问题解答:

我来补答
LoadFormTable这是个过程吧,你怎么定义的?
再问: 上次给你留了联系方式,结果知道给屏蔽了,我给你发私信了,你帮我看看程序啊!谢谢了! 我是参照一本书里的例子,学习下数据库应用的,按照例子编完程序后运行就出错了,对于table,里面没有给出定义,而且只是之前做了一个.db的表,编程就直接用table了,窗体中也没有用table组件,对于它的定义,我不会啊 第一行和第二行之间加个var Table1:TTable;
再答: 首先在引用里面添加 DBTables; 其次,不应该用FormActivate事件吧,这个事件是每次激活窗体都会执行的;我觉得你应该用FormCreate事件; 最后,这样初始化 procedure TForm1.FormCreate(Sender: TObject); var table1:TTable; begin table1:=TTable.Create(Self); end;
再问: 我想问下一个工程文件,多个form窗体组成的程序用不用相互引用啊,因为在别的unit里也用到了table,又出现同样的错误。
再答: 如果其他窗体引用,则table变量放在窗体类里面定义public,其他窗体需要引用这个单元
再问: 按照上面的方法还是不行,真是郁闷啊!
再答: 你table在哪定义的,又在哪里使用的?描述清楚
再问: public { Public declarations } end; var OperatorForm: TOperatorForm; Table1:TTable; 这样似乎不行,我试了很多地方定义都不行,我想问下这个程序要读取DBtable,这个需要建立连接吗,还有这个DBtable是存放在workdir中的。
再答: LoadFormTable这个是什么东西?应该是一个过程吧?你定义了吗?
再问: 没有定义,怎么定义啊,
再答: LoadFormTable你写这个想干什么?
再问: 我也是自学没多久,有些代码也不懂,只是大概的能看懂。谢谢你能解答这么多,没有程序,再追问也没意义,还是谢谢你!
 
 
展开全文阅读
剩余:2000
下一页:练习2.3
也许感兴趣的知识