问题很简单，但你不一定会奥！（有兴趣者请进）(100分)

T

tw_jw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #1

1、用delphi+foxpro，在删除记录时，只是做了一个删除标志，但没有真正删除记录，要问各
位大富翁如何真正的删除记录？
2、我想在dbgrid控件中每敲一次回车，光标就从一个单元格跳到下一个单元格，就是用enter
代替tab功能，请问如何实现？

 

天

天堂鸟6420

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #2

你按问题分类找找.这些东西很多的,也做的很好

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #3

1 用 foxpro 做DLL，供delphi 调用，这是目前比较理想的一种方式

1 Onkeyup 中处理

 

D

delphiland

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #4

1 use bde;
procedure PackTable(Table: TTable);
var
Props : CURProps;
begin
Check(DbiGetCursorProps(Table.Handle, Props));
Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE,True));
end;
//这样使用
PackTB:=TTable.Create(Nil);
PackTB.DatabaseName:=' ';
PackTB.TableName:='XXX.dbf';
PackTB.Exclusive:=True;
Try
PackTB.Open;
PackTable(PackTB);
Finally
PackTB.Free;
Free;
end;
2 if Key=VK_RETURN then
SendMessage(DBGrid1.Handle,WM_KEYDOWN,VK_TAB,0);

 

J

jihenglixin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #5

参考一下
procedure TForm1.Form1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
SelectNext(ActiveControl AS TWinControl, True, True) // Forward
else
if Key = #2 then
SelectNext(ActiveControl AS TWinControl, False, True) // Backward
end;

 

人

人在昆明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #6

to delphiland：
哈哈，兄弟的注释很有意思呀！ //

 

T

tw_jw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #7

to jsxjd:
用foxpro做dll，供delphi调用，能不能说的详细一点，或者能找一个事例给俺看看？
to delphiland
这位兄台能不能帮我做一下注释，你写的代码我看不懂，但我还是用你的代码和我的理解
把他执行了一遍，出现capability not supported错误！我是先删了一条记录，然后调用
你写的过程，就出现这样的错误。
to jihenglixin
你的方法我试了不行，首先我不明白为什么在form1keypress事件中？

 

张

张银豪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #8

出现capablity not supported 错误多是BDE版本太低的原故吧，

 

T

tw_jw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #9

其他的大富翁多多帮我解决问题啊！

 

T

tw_jw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-22

• #10

多人接受答案了。