源码如下:
DataSourceDataChange事件代码:
{ if (Field!=NULL)
{
DBGrid.Tag=false;
ADOQuery1.DisableControls();
if (Field!=NULL)
{
CtrlInput(Field.FieldName);
}
ADOQuery1.EnableControls();
}
} CtrlInput(FieldName:String ) ////功能:控制输入
{
ADOQuery1.Edit(); //不要这两句当鼠标点到别的行时,不能保存当前输入的内容,但就算是去掉了还是会出错
ADOQuery1.Post();
............ //已经屏蔽掉代码了
ADOQuery1Close();
ADOQuery1.SQL.Clear();
ADOQuery1.SQL.Add("Select * From TbName order by xh");
ADOQuery1.Active:=true;
} 其中 ADOQuery1 、DataSource、DBGrid、ADOConnect均已设置好相关连接,我快速在DBGird里输入数据,输入数据后并用鼠标点击DBGrid的任意格子,多试几次就会出现undefined symbol ADOQuery这样的错误了, 除了这些外,我并没有在程序中写入任何事件
DataSourceDataChange事件代码:
{ if (Field!=NULL)
{
DBGrid.Tag=false;
ADOQuery1.DisableControls();
if (Field!=NULL)
{
CtrlInput(Field.FieldName);
}
ADOQuery1.EnableControls();
}
} CtrlInput(FieldName:String ) ////功能:控制输入
{
ADOQuery1.Edit(); //不要这两句当鼠标点到别的行时,不能保存当前输入的内容,但就算是去掉了还是会出错
ADOQuery1.Post();
............ //已经屏蔽掉代码了
ADOQuery1Close();
ADOQuery1.SQL.Clear();
ADOQuery1.SQL.Add("Select * From TbName order by xh");
ADOQuery1.Active:=true;
} 其中 ADOQuery1 、DataSource、DBGrid、ADOConnect均已设置好相关连接,我快速在DBGird里输入数据,输入数据后并用鼠标点击DBGrid的任意格子,多试几次就会出现undefined symbol ADOQuery这样的错误了, 除了这些外,我并没有在程序中写入任何事件
解决方案 »
- 急问:如何得到某行某列的值?(我是新手)
- 关于接口, 插件的问题!(如何用Delphi的接口实现插件?)
- ddfdsafdasfsdafdsfdfasfghgfh
- 请教Delphi调用Access中IN子句 的用法。
- 如何学好DELPHI呀?
- 菜鸟问题
- 300分!!!各位大侠:能告诉我QQ通信用delphi怎么做???有源代码另有600分赠送!!!
- 如何对报表中的一个字段的记录进行计算?
- 关于ListView的问题
- 如何创建一个非应用程序(application)窗口,使它最小化后也能出现在WINDOW任务栏上?
- cxgrid 怎么用代码设置properties里面的属性
- delphi中如何用read读取文件然后显示?
楼主,如果你是用组件开发,就不需要手写SQL了啊。。已经重复了,晕。