我手头上的书不多只有清华的《Delphi4.0入门与提高》,有的东西虽然照葫芦画瓢做了,但对它们并不十分理解,如Table1;Dbgrd1;DbNavigator1;DataBase1等以及它们互相的关系。也许DbNavigator1在这里不是必需的,用户在编辑新文件时肯定每条记录都是新的,那样每条记录都要点DbNavigator1的Insert或Edit,这样的编辑器是不太方便的。因此我想用语句来实现,如 procedure DbgridOnKeyPress(Sender:TObject); begin if key=#13 then begin if Table1.Bof then begin Table1.Edit; Table1.append; end else dbgrid1.selectedindex:=dbgrid1.selectedindex+1; end end;等等。由于版面关系不能贴出代码,我很希望能有人留下Email我把代码发过去大家一起分析,共同提高。
当数据库被打开时,delphi 的Table组件默认表处于浏览状态 你必须再做了一下操作后才可以调用post方法: 1.table.edit; 2.table.insert; 保险起见:你可以再调用之前做一下判断: if table.status=steidt then begin table.post end;
用你的保存,就可以了。
procedure DbgridOnKeyPress(Sender:TObject);
begin
if key=#13 then begin
if Table1.Bof then begin
Table1.Edit;
Table1.append;
end
else dbgrid1.selectedindex:=dbgrid1.selectedindex+1;
end
end;等等。由于版面关系不能贴出代码,我很希望能有人留下Email我把代码发过去大家一起分析,共同提高。
你必须再做了一下操作后才可以调用post方法:
1.table.edit;
2.table.insert;
保险起见:你可以再调用之前做一下判断:
if table.status=steidt then
begin
table.post
end;
[email protected]