uelenco.pas

来自「大型企业管理源码,JAVA类,包括销售,采购,财务,OA辅助办公处理,有学习JA」· PAS 代码 · 共 83 行

unit Uelenco;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DBCtrls, StdCtrls, Buttons, Grids, DBGrids, Db, ActnList;

type
  Telenco_form = class(TForm)
    DSApp: TDataSource;
    DBGrid1: TDBGrid;
    ActionList1: TActionList;
    Trovami: TAction;
    Panel1: TPanel;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure TrovamiExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure MostraElenco(caller : Tform);
  end;

var
  elenco_form: Telenco_form;
  campo : string;
  obj : TDBedit;

implementation

{$R *.DFM}
Uses
    Ucerca;

procedure Telenco_form.MostraElenco(caller : Tform);
var
   Scheda, Oggetto : String;
   componente : Tcomponent;
   Indice : Integer;

begin
//Mostra elenco

     if caller.ActiveControl is TDBedit then
        begin

             scheda := caller.Caption;
             indice := caller.activeControl.ComponentIndex;
             componente := caller.components[Indice];
             Oggetto := componente.Name;
             obj := TDBedit.Create(self);
             obj := TDBedit(Componente);
             DSApp.DataSet := obj.DataSource.DataSet;
             //Campo := obj.DataField;

             self.Caption := 'Elenco ' + Scheda;
             //vcamp.Caption := Campo ;

             show;

        end;

end;

procedure Telenco_form.BitBtn1Click(Sender: TObject);
begin

     hide;
     
end;

procedure Telenco_form.TrovamiExecute(Sender: TObject);
begin

     cerca_form.trova(self);

end;

end.