0

我创建了一个 TForm 来在 Access 数据库中创建新用户。

我创建了 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 进行更新。

4

1 回答 1

2

Kobik 已经为您实际提出的问题提供了一个很好的答案。我想我会发布这个来告诉你你不需要 TEdits，你可以把所有的工作留给像 TDBEdit 和 TDBNavigator 这样的 DB 感知控件。

如果您按照编写的方式编译和运行项目，您会看到当您单击+DBNavigator 中的按钮时，AdoQuery 进入插入模式，并且鼠标光标位于 UserN DBEdit 中，以便您可以开始填写新用户记录。

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

项目中的大部分代码都是必需的，因为它模仿了您对单独保存按钮的使用。为了说明这一点，将项目更改如下

  • 将 btnSave 的Visible属性设置为 false

  • 在Exit的第一行添加一个CheckSaveButtonClickedif ...

& 再次编译/运行项目。

您会发现 DBNavigator 上的 Save 按钮现在可以工作，并且从 DBNavigator 的行为的角度来看，项目的行为与用户直观期望的完全一样。

因此，事实上，如果您按预期使用 DBNavigator，则项目中的任何代码都不是必需的，除非DBEdit1.SetFocus在插入操作开始时将鼠标光标置于此控件中，AdoQuery1.open当然。这就是为什么我在评论中说，如果您正确使用它们，您可以将工作留给 DB 感知控件。

更新

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

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

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

代码

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;

DFM 内容

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=MAT410\ss2014'
    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
于 2017-08-01T12:29:15.750 回答