Delphi三十六之数据库篇

下载本文示例代码
　　1．在TDBGrid中将Enter键用作Tab键　　//设置窗体的KeyPreview为Trueprocedure TForm1.FormKeyPress(Sender: Tobject; var Key: Char);　begin　　if Key = #13 then　　if not (ActiveControl is TDBGrid) then　　　begin　　　　Key := #0;　　　　Perform(WM_NEXTDLGCTL, 0, 0);　　end　　else　　if (ActiveControl is TDBGrid) then　　　with TDBGrid(ActiveControl) do　　if selectedindex $#@60; (fieldcount -1) then　　　selectedindex := selectedindex 1　　else　　　selectedindex := 0;　　end;　　2．删除记录前显示汉语的提示对话框　　//设置DbNavigator的ConfirmDelete属性为False　　//在数据集控件的BeforeDelete事件中编写如下代码：if Application.MessageBox("确定要删除当前记录吗？", "删除 记录", Mb_YesNo Mb_IconWarning) = Id_No thenAbort; //利用哑异常退出删除事件共2页。 1 2 8 : 　　1．在TDBGrid中将Enter键用作Tab键　　//设置窗体的KeyPreview为Trueprocedure TForm1.FormKeyPress(Sender: Tobject; var Key: Char);　begin　　if Key = #13 then　　if not (ActiveControl is TDBGrid) then　　　begin　　　　Key := #0;　　　　Perform(WM_NEXTDLGCTL, 0, 0);　　end　　else　　if (ActiveControl is TDBGrid) then　　　with TDBGrid(ActiveControl) do　　if selectedindex $#@60; (fieldcount -1) then　　　selectedindex := selectedindex 1　　else　　　selectedindex := 0;　　end;　　2．删除记录前显示汉语的提示对话框　　//设置DbNavigator的ConfirmDelete属性为False　　//在数据集控件的BeforeDelete事件中编写如下代码：if Application.MessageBox("确定要删除当前记录吗？", "删除 记录", Mb_YesNo Mb_IconWarning) = Id_No thenAbort; //利用哑异常退出删除事件共2页。 1 2 8 : 下载本文示例代码


Delphi三十六之数据库篇Delphi三十六之数据库篇Delphi三十六之数据库篇Delphi三十六之数据库篇Delphi三十六之数据库篇Delphi三十六之数据库篇Delphi三十六之数据库篇Delphi三十六之数据库篇Delphi三十六之数据库篇Delphi三十六之数据库篇Delphi三十六之数据库篇Delphi三十六之数据库篇Delphi三十六之数据库篇Delphi三十六之数据库篇Delphi三十六之数据库篇