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


unit Unit14; 
 
interface 
 
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, Grids, DBGrids, DBCtrls, dblookup, ComCtrls, jpeg ; 
 
type 
  TO_dossier = class(TForm) 
    Panel1: TPanel; 
    Shape1: TShape; 
    Label2: TLabel; 
    Image1: TImage; 
    Panel2: TPanel; 
    Panel3: TPanel; 
    OKBtn: TButton; 
    CancelBtn: TButton; 
    GroupBox1: TGroupBox; 
    DBGrid1: TDBGrid; 
    procedure OKBtnClick(Sender: TObject); 
  private 
    { Private declarations } 
  public 
     { Public declarations } 
  end; 
 
var 
  O_dossier: TO_dossier; 
 
implementation 
 
uses Unit3, Unit1, Unit76; 
 
{$R *.DFM} 
 
procedure TO_dossier.OKBtnClick(Sender: TObject); 
begin 
hide; 
application.ProcessMessages; 
data.CreationAlias(data.DossiersAliase.Value,Data.DossiersCible.Value); 
data.setdabaseAlis(data.DossiersAliase.Value); 
data.OvrireBase; 
//Face.PageScroller.Visible:=True; 
face.ActiveMenu(true); 
face.ActiveBouton; 
 
Face.StatusBar1.Panels[0].Text:='Dossier -> : '+Data.DossiersNom.Value; 
close; 
end; 
 
end.