Они почти одинаковы, поэтому показана будет только одна.
С их помощью можно найти необходимую фамилию или услугу.
unit Unit3;
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, DBTables, Grids, DBGrids, ExtCtrls;
type
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table1: TTable;
ComboBox1: TComboBox;
BitBtn1: TBitBtn;
DataSource2: TDataSource;
DBGrid2: TDBGrid;
Table2: TTable;
GroupBox1: TGroupBox;
Panel1: TPanel;
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
