www.pudn.com > Source.rar > Unit24.pas, change:2007-02-04,size:1457b


unit Unit24; 
 
interface 
 
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, Grids, DBGrids; 
 
type 
  TList_Fournisseurs = class(TForm) 
    OKBtn: TButton; 
    CancelBtn: TButton; 
    DBGrid1: TDBGrid; 
    Nouveau: TButton; 
    Edit1: TEdit; 
    Label1: TLabel; 
    procedure NouveauClick(Sender: TObject); 
    procedure OKBtnClick(Sender: TObject); 
    procedure Edit1Change(Sender: TObject); 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
  private 
    { Private declarations } 
  public 
  code_FRN:Variant; 
  Fourni:String; 
    { Public declarations } 
  end; 
 
var 
  List_Fournisseurs: TList_Fournisseurs; 
 
implementation 
 
uses Unit3, Unit7; 
 
{$R *.dfm} 
 
procedure TList_Fournisseurs.NouveauClick(Sender: TObject); 
begin 
data.Fournisseurs.Append; 
sai_fournisseurs.Showmodal; 
end; 
 
procedure TList_Fournisseurs.OKBtnClick(Sender: TObject); 
begin 
Code_FRN:=data.Fournisseurscode_FR.Value; 
Fourni:=data.FournisseursRaison.Value; 
end; 
 
procedure TList_Fournisseurs.Edit1Change(Sender: TObject); 
begin 
IF edit1.GetTextLen<> 0 then 
begin 
Data.Fournisseurs.Filter:='Raison='''+Edit1.Text+'*'''; 
Data.Fournisseurs.Filtered:=true; 
end 
else 
Data.Fournisseurs.Filtered:=false; 
 
 
end; 
 
procedure TList_Fournisseurs.FormClose(Sender: TObject; 
  var Action: TCloseAction); 
begin 
Data.Fournisseurs.Filtered:=false; 
edit1.Text:='' 
 
end; 
 
end.