Cadastro padrão em delphi 2006

Este arquivo se baseia no padrão de cadastro feito para criação de novos sistemas na linguagem de programação Delphi 2006.

unit facesso;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ToolWin, ComCtrls, ExtCtrls, StdCtrls, Grids, DB, DBCtrls, DBclient, DBGrids, DBTables, sqlexpr, FMTBcd, Provider, ActnList;

type TFcadpadrao = class(TForm) Panel1: TPanel; ToolBar1: TToolBar; lbnome: TLabel; lb: TLabel; Label3: TLabel; lbdata: TLabel; Panel2: TPanel; Status: TStatusBar; Panel3: TPanel; Pnedit: TPanel; Label4: TLabel; ToolButton1: TToolButton; ToolButton2: TToolButton; ToolButton3: TToolButton; ToolButton4: TToolButton; ToolButton5: TToolButton; SPInserir: TSQLStoredProc; SPAtualizar: TSQLStoredProc; SPExcluir: TSQLStoredProc; Dtsconsultar: TDataSource; cdsconsultar: TClientDataSet; dspconsultar: TDataSetProvider; SQLconsultar: TSQLDataSet; Panel4: TPanel; LbCodigo: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Label30: TLabel; Panel5: TPanel; Label1: TLabel; lblSearchField: TLabel; edtSearchText: TEdit; DBGrid1: TDBGrid; ActionList1: TActionList; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Edit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure edtSearchTextKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure DBGrid1DblClick(Sender: TObject); procedure FormActivate(Sender: TObject); procedure FormCreate(Sender: TObject); procedure procura_substring; procedure limpacampos; procedure Depois_procura; procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
// procedure