用于保存新记录和更新记录的 ADOQuery

Question

我创建了一个TForm来创建新用户到Access Database中。

我创建了 DBedit1，它使用更改事件更新了 Edit1。如果在我的 TEdit 文件中输入全新的数据并按保存并插入查询，它会毫无问题地保存数据。

procedure TFNewUser.BtnSaveClick(Sender: TObject);
begin
if (Edit1.Text = '') or (Edit2.Text='') or (Edit3.Text='') or (Edit4.Text='') then begin
ShowMessage('Please enter the missing data!')
end else if (Edit3.Text) <> (Edit4.Text) then begin
ShowMessage('Password not match!')
end else begin
adoQuery1.Close();
adoQuery1.SQL.Clear;
adoQuery1.SQL.Add('INSERT INTO taccount (UserN,FName,Pword,ID)VALUES');
adoQuery1.SQL.Add('(:UserN,:FName,:Pword,:ID)');
adoQuery1.Parameters.ParamByName('UserN').Value:= Edit2.Text;
adoQuery1.Parameters.ParamByName('FName').Value:= Edit1.Text;
adoQuery1.Parameters.ParamByName('Pword').Value:= Edit3.Text;
adoQuery1.Parameters.ParamByName('ID').Value:= Edit5.Text;
Adoquery1.ExecSQL;
ShowMessage('New user created successfully');
end;
ADOQuery1.close;
ADOQuery1.SQL.text:='select * from taccount';
ADOQuery1.Open;
end;

1. 当用户单击 BtnNew 时，在 TEdit 字段中输入新记录，当按下保存它保存新记录时 - 是否可以在没有用户输入的情况下为记录分配自动编号。

2. 但是，如果数据从现有记录加载到 Tedit 中，如何按 BtnSave 进行更新。

Answer 1

Kobik已经很好地回答了你实际提出的问题。 我以为 我会发布这个来告诉你你不需要 TEdit，你可以离开 所有的工作都是数据库感知控件，如TDBEdit和TDBNavigator。

如果按编写的方式编译并运行项目，则当您 单击DBNavigator中的+按钮，AdoQuery进入插入模式 并将鼠标光标放置在UserN DBEdit中，以便您可以开始填充 在新用户记录中。

有一个btnSave，这是你应该保存记录的方式。 我有 提供此按钮只是因为您有一个按钮。 请注意，如果单击 DBNavigator上的"保存"按钮，您会收到一条消息，指出"保存"按钮 尚未单击，并且插入操作已取消，并且新用户数据已取消 被丢弃。

项目中的大多数代码只是必需的，因为它模仿了您的代码 使用单独的保存按钮。 为了说明这一点，请按如下方式更改项目

• 将 btnSave 的Visible属性设置为 false

• 在if ...之前添加一个Exit作为CheckSaveButtonClicked的第一行

并再次编译/运行项目。

您会发现DBNavigator上的"保存"按钮现在可以工作，并且项目可以正常工作 从 DBNavigator 的行为的角度来看，行为完全 正如用户直观地期望的那样。

所以事实上，如果你按照它的预期使用DBNavigator，没有任何代码 在项目中是必要的，除了放置鼠标DBEdit1.SetFocus在插入操作开始时，光标位于此控件中，当然AdoQuery1.open。 这就是为什么我说 在注释中，如果您使用数据库感知控件，则可以将工作留给它们 适当地。

更新

您建议我如何使用"自定义>消息"限制用户输入重复的用户名，我认为应该在发布前添加

就个人而言，我认为在将新记录插入数据库之前避免重复并进行其他验证的最佳方法是首先将其添加到单独的本地表(例如 TClientDataSet 或 FireDAC TFDMemTable(。 然后，一旦用户输入了足够的信息来检查重复项并执行所需的任何其他验证，您就可以提醒用户任何问题并让他们更正它们。 新记录"干净"后，将其从本地表复制到主表。

这样做允许您使用数据库感知控件供用户输入新记录数据。 此外，就个人而言，对于实际应用程序，我一直要求用户使用特殊的"新记录向导"作为包含本地输入表的数据库感知控件的单独表单;通常这是一个多选项卡形式，除非在非常简单的情况下。 这比其他一些方法更费力，例如使用为编辑现有记录提供的数据库感知控件，但效果要好得多，并允许您捕获某些类型的错误，如果用户将新记录直接输入到主表，这些错误将很难或不可能做到。

法典

type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
ADOQuery1ID: TAutoIncField;
ADOQuery1UserN: TStringField;
ADOQuery1FName: TStringField;
ADOQuery1Pwd: TStringField;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
btnSave: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure FormCreate(Sender: TObject);
procedure ADOQuery1BeforeEdit(DataSet: TDataSet);
procedure ADOQuery1BeforeInsert(DataSet: TDataSet);
procedure ADOQuery1BeforePost(DataSet: TDataSet);
procedure btnSaveClick(Sender: TObject);
private
procedure CheckSaveButtonClicked;
function GetSaveEnabled: Boolean;
procedure SetSaveEnabled(const Value: Boolean);
protected
public
SaveClicked : Boolean;
property SaveEnabled : Boolean read GetSaveEnabled write SetSaveEnabled;
end;
[...]
procedure TForm1.FormCreate(Sender: TObject);
begin
SaveEnabled := False;
AdoQuery1.Open;
end;
procedure TForm1.ADOQuery1BeforeEdit(DataSet: TDataSet);
begin
SaveEnabled := True;
end;
procedure TForm1.ADOQuery1BeforeInsert(DataSet: TDataSet);
begin
SaveEnabled := True;
DBEdit1.SetFocus;
end;
procedure TForm1.CheckSaveButtonClicked;
begin
if not SaveClicked then begin
AdoQuery1.Cancel;
ShowMessage('Save button not clicked');
Abort;   //  In case the user clicked the DBNavigator Save button
end;
end;
procedure TForm1.ADOQuery1BeforePost(DataSet: TDataSet);
begin
CheckSaveButtonClicked;
end;
procedure TForm1.btnSaveClick(Sender: TObject);
begin
SaveClicked := True;
AdoQuery1.Post;
SaveEnabled := False;
end;
function TForm1.GetSaveEnabled: Boolean;
begin
Result := btnSave.Enabled;
end;
procedure TForm1.SetSaveEnabled(const Value: Boolean);
begin
btnSave.Enabled := Value;
SaveClicked := False;
end;

东风港目录

object Form1: TForm1
Left = 259
Top = 103
AutoScroll = False
Caption = 'MADefaultForm'
ClientHeight = 314
ClientWidth = 444
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
Scaled = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 48
Top = 201
Width = 30
Height = 13
Caption = 'UserN'
end
object Label2: TLabel
Left = 48
Top = 225
Width = 34
Height = 13
Caption = 'FName'
end
object Label3: TLabel
Left = 48
Top = 249
Width = 21
Height = 13
Caption = 'Pwd'
end
object DBGrid1: TDBGrid
Left = 40
Top = 8
Width = 320
Height = 153
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object DBNavigator1: TDBNavigator
Left = 48
Top = 168
Width = 240
Height = 25
DataSource = DataSource1
TabOrder = 1
end
object DBEdit1: TDBEdit
Left = 85
Top = 198
Width = 121
Height = 21
DataField = 'UserN'
DataSource = DataSource1
TabOrder = 2
end
object DBEdit2: TDBEdit
Left = 85
Top = 222
Width = 121
Height = 21
DataField = 'FName'
DataSource = DataSource1
TabOrder = 3
end
object DBEdit3: TDBEdit
Left = 85
Top = 246
Width = 121
Height = 21
DataField = 'Pwd'
DataSource = DataSource1
TabOrder = 4
end
object btnSave: TButton
Left = 288
Top = 240
Width = 75
Height = 25
Caption = 'Save'
TabOrder = 5
OnClick = btnSaveClick
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 112
Top = 8
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=MATest;Data Source=MAT410ss2014'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 32
Top = 8
end
object ADOQuery1: TADOQuery
Connection = ADOConnection1
BeforeInsert = ADOQuery1BeforeInsert
BeforeEdit = ADOQuery1BeforeEdit
BeforePost = ADOQuery1BeforePost
Parameters = <>
SQL.Strings = (
'select * from taccount')
Left = 72
Top = 8
object ADOQuery1ID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
end
object ADOQuery1UserN: TStringField
FieldName = 'UserN'
Size = 50
end
object ADOQuery1FName: TStringField
FieldName = 'FName'
Size = 50
end
object ADOQuery1Pwd: TStringField
FieldName = 'Pwd'
Size = 50
end
end
end