可是仍然没有我们要的cell属性，只有columns属性，没有我需要的cell属性，怎么办？于是研究delphi的TDBGrid的源代码发现TDBGrid继承的TcustomGrid中有HideEdit，UpdateEdit等方法，说明在输入数据的时候TDBGird在后台是生成了一个输入文本框，焦点改变后这个文本框自动消失把数据输入到TDBGrid。这样我们只要能给这个EDIT的TEXT属性赋值同样可以实现，因为TDBGrid没有CELL属性，不能直接利用SQASetProperty函数给cell的focus属性赋值，只能利用点击这个cell来赋予它焦点，因为只有焦点在这个cell上后才会出现浮动的文本框，修改上边的脚本：
Sub Main
Dim Result As Integer
Dim Var as String