Scribd
Upload
29 views1 page

uConsUsu 23 05 2020

The document defines a Delphi unit for a user interface form that allows users to filter and view a list of users. It includes components such as a toolbar, edit field, and list view, along with event handlers for filtering user data and handling item clicks. The form interacts with a database to retrieve and edit user information based on user input.

Uploaded by

Caio Spínola Hailer
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
29 views1 page

uConsUsu 23 05 2020

The document defines a Delphi unit for a user interface form that allows users to filter and view a list of users. It includes components such as a toolbar, edit field, and list view, along with event handlers for filtering user data and handling item clicks. The form interacts with a database to retrieve and edit user information based on user input.

Uploaded by

Caio Spínola Hailer
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 1

unit uconsusuario;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FMX.ListView.Types, FMX.ListView.Appearances, FMX.ListView.Adapters.Base,
FMX.ListView, FMX.Objects, FMX.Edit, FMX.Controls.Presentation, FMX.StdCtrls,
FMX.Layouts, System.Rtti, System.Bindings.Outputs, Fmx.Bind.Editors,
Data.Bind.EngExt, Fmx.Bind.DBEngExt, Data.Bind.Components, Data.Bind.DBScope;

type
TFrmconsusuario = class(TForm)
Layout1: TLayout;
ToolBar1: TToolBar;
Edtfiltro: TEdit;
Image1: TImage;
ListView1: TListView;
BindSourceDB1: TBindSourceDB;
BindingsList1: TBindingsList;
LinkListControlToField1: TLinkListControlToField;
procedure EdtfiltroChangeTracking(Sender: TObject);
procedure ListView1ItemClickEx(const Sender: TObject; ItemIndex: Integer;
const LocalClickPos: TPointF; const ItemObject: TListItemDrawable);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Frmconsusuario: TFrmconsusuario;

implementation

{$R *.fmx}

uses umodulo, ucadaltusuario;

procedure TFrmconsusuario.EdtfiltroChangeTracking(Sender: TObject);


begin
dm.qusuarios.Close;
dm.qusuarios.SQL.Clear;
dm.qusuarios.SQL.Add('select*from usuarios where usunome like' +
QuotedStr('%' + Edtfiltro.Text + '%'));
dm.qusuarios.Open();
end;

procedure TFrmconsusuario.ListView1ItemClickEx(const Sender: TObject;


ItemIndex: Integer; const LocalClickPos: TPointF;
const ItemObject: TListItemDrawable);
begin
dm.qusuarios.Edit;
frmcadaltusuario.Show;
end;

end.

You might also like