Prev Next Up Title Contents Index

Data- kontrollien lisääminen dynaamisesti

Seuraavaksi lisätään luokan käyttö omaan lomakkeeseemme, harmaalla on esitetty koodiin edellisen kerran jälkeen tulleet muutokset:

puh.pas - muutokset dynaamisten kenttien käyttämiseksi

	unit puh;
	interface
	uses ...
	   dynkent;
	
	type
	  TFormPuh = class(TForm)
	    ...
	    ScrollBoxLomake: TScrollBox;
	    procedure ButtonHaeClick(Sender: TObject);
	    procedure FormCreate(Sender: TObject);
	    procedure FormDestroy(Sender: TObject);
	    procedure ScrollBoxLomakeResize(Sender: TObject);
	  private
	    { Private declarations }
	    kentat : cKentat;
	    procedure TeeHaku(s:string);
	  public
	    { Public declarations }
	  end;
	
	var
	  FormPuh: TFormPuh;
	
	implementation
	
	
	{$R *.DFM}
	procedure TFormPuh.TeeHaku(s:string);
	begin
	  kentat.Siivoa;
	  DBEditNimi.DataField := '';
	  QueryPuh.Close;
	  QueryPuh.SQL.Clear;
	  QueryPuh.SQL.Add(s);
	  QueryPuh.Open;
	  DBEditNimi.DataField := QueryPuh.Fields[0].FieldName;
	  kentat.LisaaKaikki(DataSourcePuh);
	end;
	
	procedure TFormPuh.ButtonHaeClick(Sender: TObject);
	begin
	  TeeHaku(EditHakuehto.Text);
	end;
	
	procedure TFormPuh.FormCreate(Sender: TObject);
	begin
	  kentat := cKentat.Create(ScrollBoxLomake);
	  TeeHaku(EditHakuehto.Text);
	end;
	
	procedure TFormPuh.FormDestroy(Sender: TObject);
	begin
	  kentat.free;
	end;
	
	procedure TFormPuh.ScrollBoxLomakeResize(Sender: TObject);
	begin
	  kentat.SetEditLeveys(ScrollBoxLomake.ClientWidth-100);
	end;
	
	end.

Click here for Picture

Kuva . Dynaamisesti luodut DBEdit- kentät


Prev Next Up Title Contents Index