ooh-mygod | soltando o verbo.: Um meme e um outro projeto.

E lá vamos nós com MAIS UM projeto em Delphi. '-'
Dessa vez é uma estrutura básica de banco de dados.

Banco de dados:

Painel central:

Tabela de Clientes:

unit Unit_BDD2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit_DM, DB, ADODB, Grids, DBGrids, StdCtrls;

type
  TForm2 = class(TForm)
    source: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery_Client: TADOQuery;
    Edit1: TEdit;
    label1: TLabel;
    procedure Edit1KeyUp (Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure js_voi_Procurar_Por_Nome();
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
self.js_voi_Procurar_Por_Nome
end;

procedure TForm2.js_voi_Procurar_Por_Nome();
var
  js_str_sql_text: TStrings;
  js_str_prefixo: String;
begin
  try
    js_str_prefixo:=self.Edit1.text + '%';
    js_str_sql_text:=TStringList.Create;
    js_str_sql_text.Add('SELECT *FROM CLIENTE ');
    js_str_sql_text.Add('WHERE CLI_NOME LIKE : ');
    js_str_sql_text.Add('ORDER BY CLI_NOME ;');
    self.ADOQuery_Client.Active:=False;
    self.ADOQuery_Client.SQL.Clear;
    self.ADOQuery_Client.SQL.AddStrings(js_str_sql_text);
    self.ADOQuery_Client.Parameters[0].Value:=js_str_prefixo;
    self.ADOQuery_Client.Active:= True;
    except
    on E: Exception do begin
      showmessage ('Ocorreu um erro ao pesquisar. Veja: ' + E.Message);
      end;
  end;
end;

end.

Tabela de Produtos:

unit Unit_BDD;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, Unit_DM, StdCtrls;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery_Product: TADOQuery;
    Edit1: TEdit;
    label1: TLabel;
    procedure Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure js_voi_Procurar_Por_Nome();
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
self.js_voi_Procurar_Por_Nome
end;

procedure TForm1.js_voi_Procurar_Por_Nome();
var
  js_str_sql_text: TStrings;
  js_str_prefixo: String;
begin
  try
    js_str_prefixo:=self.Edit1.text + '%';
    js_str_sql_text:=TStringList.Create;
    js_str_sql_text.Add('SELECT *FROM PRODUTOS ');
    js_str_sql_text.Add('WHERE PROD_NOME LIKE : ');
    js_str_sql_text.Add('ORDER BY PROD_NOME ;');
    self.ADOQuery_Product.Active:=False;
    self.ADOQuery_Product.SQL.Clear;
    self.ADOQuery_Product.SQL.AddStrings(js_str_sql_text);
    self.ADOQuery_Product.Parameters[0].Value:=js_str_prefixo;
    self.ADOQuery_Product.Active:= True;
    except
    on E: Exception do begin
      showmessage ('Ocorreu um erro ao pesquisar. Veja: ' + E.Message);
      end;
  end;
end;

end.

Conexão de dados:

Tah-dah!

Eu não saberei explicar passo a passo, sorry.
(Algumas coisas eu nem sei como fiz aeaeae \o/)

Estava eu procurando um meme para completar o post, mas eu não achei nenhum que me agrade, mas eu não vou mudar o título agora HAHAHAH. Então, depois eu venho com um texto bonitinho que eu imaginei umas horas atrás, mas não cheguei a digitar.

Gostei dessa imagem :B

Cenas Allen x Kanda são o ó.

Saudades de D.Gray-man, ah. :_:

Beijos, cuidem-se.

Considerações finais: Felipe Leroy, eu amo você.

ooh-mygod | soltando o verbo.

quinta-feira, 3 de dezembro de 2009

Um meme e um outro projeto.

1 comentários:

O quê?

Quem?

Como?

Quando?

Música aí?

Perguntas?

Quem mais?