Delphi程序错误 undeclared identifier: 'cloumns'
procedureTForm2.FormShow(Sender:TObject);beginadotable1.IndexFieldNames:='id;sname';w...
procedure TForm2.FormShow(Sender:TObject);
begin
adotable1.IndexFieldNames:='id;sname';
with dbgrid1 do
begin
cloumns[0].FieldName:='id';
cloumns[1].FieldName:='sname';
cloumns[2].FieldName:='sex';
cloumns[3].FieldName:='birth';
cloumns[4].FieldName:='class';
cloumns[0].title.caption:='学号';
cloumns[1].title.caption:='学生姓名';
cloumns[2].title.caption:='性别';
cloumns[3].title.caption:='出生日期';
cloumns[4].title.caption:='专业班级';
end;
with dbgrid2 do
begin
cloumns[0].FieldName:='id';
cloumns[1].FieldName:='cid';
cloumns[2].FieldName:='score';
cloumns[0].title.caption:='学号';
cloumns[1].title.caption:='课程编号';
cloumns[2].title.caption:='成绩';
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Hide;
Form3.Show;
end;
end;
end. 展开
begin
adotable1.IndexFieldNames:='id;sname';
with dbgrid1 do
begin
cloumns[0].FieldName:='id';
cloumns[1].FieldName:='sname';
cloumns[2].FieldName:='sex';
cloumns[3].FieldName:='birth';
cloumns[4].FieldName:='class';
cloumns[0].title.caption:='学号';
cloumns[1].title.caption:='学生姓名';
cloumns[2].title.caption:='性别';
cloumns[3].title.caption:='出生日期';
cloumns[4].title.caption:='专业班级';
end;
with dbgrid2 do
begin
cloumns[0].FieldName:='id';
cloumns[1].FieldName:='cid';
cloumns[2].FieldName:='score';
cloumns[0].title.caption:='学号';
cloumns[1].title.caption:='课程编号';
cloumns[2].title.caption:='成绩';
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Hide;
Form3.Show;
end;
end;
end. 展开
2013-12-07
展开全部
意思是不能找到'cloumns' 单元,你可以看看use下面有没有引用dbgrid
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询