unit13.pas

来自「图书管理系统 简介 随着科学技术的飞速发展」· PAS 代码 · 共 40 行

unit Unit13;

interface

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

type
  Tlookfrm = class(TForm)
    Table1: TTable;
    Edit1: TEdit;
    Label1: TLabel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ComboBox1: TComboBox;
    Label2: TLabel;
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  lookfrm: Tlookfrm;

implementation

{$R *.dfm}

procedure Tlookfrm.ComboBox1Change(Sender: TObject);
begin
   table1.IndexFieldNames:=combobox1.Text;
if not table1.findkey([edit1.Text]) then
                              showmessage('没有相关关键字的图书');
end;

end.