Question

我希望我可以解释这是我试图解决的问题。我有一个包含3个papnels的表单：1个用于按钮，1个用于数据，1个用于消息。数据面板中填充了一些框架（我需要使用每个数据库表一个框架）。表格详细信息框架和另一个用于在网格中显示记录的框架由界面操纵。

这里是网格框架：

unit FraEdtList;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.Grids, Vcl.DBGrids;

type
  TFraEdtLst = class(TFrame)
    grdEditori: TDBGrid;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

uses database;

end.

这里是细节框架：

unit FraEdtDetail;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls, Vcl.Mask, Vcl.DBCtrls;

type
  TFraEdtDtl = class(TFrame)
    lblIdEditore: TLabel;
    edtIdEditore: TDBEdit;
    lblDscEditore: TLabel;
    edtDscEditore: TDBEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

uses database;

{ TFraEdtDtl }


{ TFraEdtDtl }

end.

这是接口单元：

unit Editori;

interface

uses
  FraEdtList, FraEdtDetail;

type
  IEditori = interface
    procedure CreateFraEdtLst();
    procedure CreateFraEdtDtl();
  end;

  TEditori = class(TInterfacedObject, IEditori)
  private
    FEdtLst: TfraEdtLst;
    FEdtDtl: TfraEdtDtl;
    procedure CreateFraEdtLst();
    procedure CreateFraEdtDtl();
  end;

implementation

{ TAutori }

uses Tabelle;

procedure TEditori.CreateFraEdtLst;
begin
  FEdtLst := FEdtLst.Create(frmTabelle);
  FEdtLst.Parent := frmTabelle.pnlDta;
end;

procedure TEditori.CreateFraEdtDtl;
begin
  FEdtDtl := TfraEdtDtl.Create(frmTabelle);
  FEdtDtl.Parent := frmTabelle.pnlDta;
end;

end.

我已添加＆＃34;编辑＆＃34;单位到将使用框架的形式。对于此示例，我没有使用网格，只使用了细节框架，当用户选择表格时，记录显示为以下示例：

enter image description here

例如，第一个按钮（带有空白纸）用于在我的数据库表中插入新记录，第二个按钮用于编辑当前显示的记录，依此类推。

问题是我想在用户点击＆＃34; new＆＃34;时关注DBEdit组件。按钮或＆＃34;编辑＆＃34;按钮，但我找不到办法进行这种操作。

以下是使用两个帧（以及其他一些帧）的来源

unit Tabelle;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.ExtCtrls, RzPanel, dxBevel, Vcl.Buttons, PngSpeedButton, Autori,
  Editori, DBInterface, DbImplementation, MSAccess;

type
  TfrmTabelle = class(TForm)
    pnlCmd: TRzPanel;
    pnlDta: TRzPanel;
    pnlMsg: TRzPanel;
    bvlCmd: TdxBevel;
    bvlNav: TdxBevel;
    btnNew: TPngSpeedButton;
    btnEdit: TPngSpeedButton;
    btnSave: TPngSpeedButton;
    btnDelete: TPngSpeedButton;
    btnUndo: TPngSpeedButton;
    btnPrior: TPngSpeedButton;
    btnNext: TPngSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure btnNewClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnPriorClick(Sender: TObject);
    procedure btnNextClick(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure btnUndoClick(Sender: TObject);
  private
    FDBTable: IDBTable;
    FAutori: IAutori;
    FEditori: IEditori;
  public
    procedure SetButtonsStatus(stsNew, stsEdit, stsSave, stsDelete, stsUndo, stsPnlDta: Boolean);
    procedure SetTableName(Table: TMSTable);
  end;

var
  frmTabelle: TfrmTabelle;

implementation

{$R *.dfm}

{ TfrmTabelle }

{ Inizializzazione }
procedure TfrmTabelle.FormCreate(Sender: TObject);
begin
  FDBTable := TDBtable.Create;
end;

{ Impostazione tabella di lavoro }
procedure TfrmTabelle.SetTableName(Table: TMSTable);
begin
  FDBTable.DBTable := Table;
  SetButtonsStatus(True, True, False, True, False, False);

  // Tabella autori
  if Table.TableName = 'Autori' then begin
    if not Assigned(FAutori) then begin
      FAutori := TAutori.Create;
      FAutori.CreateFraAutDtl;
    end;
  end;

  // Tabella editori
  if Table.TableName = 'Editori' then begin
    if not Assigned(FEditori) then begin
      FEditori := TEditori.Create;
      FEditori.CreateFraEdtDtl;
    end;
  end;

end;

{ Impostazione pulsanti }
procedure TfrmTabelle.SetButtonsStatus(stsNew, stsEdit, stsSave, stsDelete, stsUndo, stsPnlDta: Boolean);
var
  flgTblEmpty: Boolean;
begin
  flgTblEmpty := FDBTable.TableIsEmpty;
  btnNew.Enabled := stsNew;
  btnEdit.Enabled := stsEdit and not flgTblEmpty;
  btnSave.Enabled := stsSave;
  btnDelete.Enabled := stsDelete and not flgTblEmpty;
  btnUndo.Enabled := stsUndo;
  pnlDta.Enabled := stsPnlDta;
end;

{ Inserimento nuovo record }
procedure TfrmTabelle.btnNewClick(Sender: TObject);

begin
  if FDBTable.NewRecord then
    SetButtonsStatus(False, False, True, False, True, True);
end;

{ Editazione record }
procedure TfrmTabelle.btnEditClick(Sender: TObject);
begin
  if FDBTable.EditRecord then
    SetButtonsStatus(False, False, True, False, True, True);
end;

{ Salvataggio record }
procedure TfrmTabelle.btnSaveClick(Sender: TObject);
begin
  if FDBTable.SaveRecord then
    SetButtonsStatus(True, True, False, True, False, False);
end;

{ Cancellazione record }
procedure TfrmTabelle.btnDeleteClick(Sender: TObject);
begin
  if FDBTable.DeleteRecord then
    SetButtonsStatus(True, True, False, True, False, False);
end;

{ Annulla l'operazione in corso }
procedure TfrmTabelle.btnUndoClick(Sender: TObject);
begin
  if FDBTable.UndoRecord then
    SetButtonsStatus(True, True, False, True, False, False);
end;



{ Record precedente }
procedure TfrmTabelle.btnPriorClick(Sender: TObject);
begin
  if FDBTable.PriorRecord then
    SetButtonsStatus(True, True, False, True, False, False);
end;

{ Record successivo }
procedure TfrmTabelle.btnNextClick(Sender: TObject);
begin
  FDBTable.NextRecord;
end;

end.

正如您在上面的代码中看到的那样，数据库也是通过接口使用的！我希望我的解释清楚，但我知道这个问题有点复杂。有人可以帮助我吗？

Answer 1

例如，要在用户点击edtIdEditore时将注意力集中到btnEdit，请执行以下操作：

{ Editazione record }
procedure TfrmTabelle.btnEditClick(Sender: TObject);
begin
  if FDBTable.EditRecord then
    SetButtonsStatus(False, False, True, False, True, True);
  frmTabelle.edtIdEditore.SetFocus;
end;

或者将frmTabelle替换为您单元var部分中公开的表单实例的名称，然后将该单元添加到您的uses子句中，您就完成了。

Answer 2

需要扩展IEditori接口，以便为外部控制表单提供通知接口所需内容的方法。例如，接口可以具有诸如AddingRecord，SavingRecord，ValidateRecord等方法。然后，父表单不需要知道帧上的各个控件，但是可以通过设置聚焦控件来告知帧正在发生什么并做出正确反应。您可能还有其他事情需要执行新记录，例如默认值或设置其他状态。

你有时可以通过直接从表中处理事件来解决问题，例如OnNewRecord，但是当你传递一张桌子时，你需要确保不要踩到其他地方设置的事件。

焦点控制在一个框架中

2 个答案: