Предыдущая страница реферата | 26  27  28  29  30  31  32  33  34  35  36 | Следующая страница реферата

    procedure onkeypress_ (Sender: TObject; var Key: Char);

  private

    needsearch_ : boolean;

    table1_     : Ttable;

    keyFieldName_,textFieldName_  : TField;

    indexname_  : string;

    onchange2  : tnotifyevent;

    srch,ch     : integer;

    onkeypress2 : TKeyPressEvent;

    { Private declarations }

  protected

    { Protected declarations }

  public

     constructor Loaded;

     constructor Create(aOwner: TComponent); override;

     destructor  destroy;

    { Public declarations }

  published

    property needsearch : boolean read needsearch_ write needsearch_;

    property Dataset : Ttable read table1_ write table1_;

    property KeyFieldName : TField read keyfieldname_ write keyfieldname_;

    property TextFieldName : TField read textfieldname_ write textfieldname_;

    property indexname : string read indexname_ write indexname_;

    property newonkeypress : TKeyPressEvent read onkeypress2 write onkeypress2;

    property newonchange  : TNotifyEvent read onchange2 write onchange2;

    { Published declarations }

  end;

procedure Register;

implementation

function compress(s : shortstring):shortstring;

var

   s2 : shortstring;

   x  : integer;

begin

   s2 :='';

   for x:=1 to length(s) do if s[x]<>' ' then s2:=s2+s[x];

   s2:=s2+#0;

   s2:=ansistrupper(@s2[1]);

   compress:=s2;

end;

constructor TDBSearchEdit.Loaded;

begin

   inherited loaded;

end;

procedure TDBSearchEdit.onchange_(sender : tobject);

var

   s1,s : shortstring;

   poz : integer;

begin

   if srch=0 then exit;

Рекомендуем скачать другие рефераты по теме: реферат на тему характеристика, виды рефератов.





Предыдущая страница реферата | 26  27  28  29  30  31  32  33  34  35  36 | Следующая страница реферата