biolifeok.pas

本程序实现的是delphi实例

unit biolifeok;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DBCtrls, Grids, DBGrids, DB, DBTables, Mask,
  ExtCtrls;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    DBImage1: TDBImage;
    BitBtn1: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    DBEdit1: TDBEdit;
    Button1: TButton;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure DBEdit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 with Table1 do
      begin
      Open;
      Setkey；
      FieldByName('Species No').AsInteger:=Edit1.text;
      if gotokey then
      begin
      label4.Caption:='查询成功！';
      dbtext1.Visible:=true;
      dbtext2.Visible:=true;
      dbtext3.Visible:=true;
      //dbtext4.Visible:=true;
      end
      else
      begin
      label4.Caption:='查询失败！';
      dbtext1.Visible:=false;
      dbtext2.Visible:=false;
      dbtext3.Visible:=false;
      //dbtext4.Visible:=false;
      end;
      end;

end;



end.