unit8.pas

药房管理程序实现药房的基本管理功能

unit Unit8;

interface

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

type
  Typkcgl_form = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    ypmc_ledit: TEdit;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    Query1: TQuery;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBNavigator1: TDBNavigator;
    Edit1: TEdit;
    Label4: TLabel;
    ADOTable2: TADOTable;
    ADOQuery1: TADOQuery;
    ADOConnection2: TADOConnection;
    DataSource2: TDataSource;
    Label5: TLabel;
    DBEdit3: TDBEdit;
    procedure ypmc_leditChange(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ypkcgl_form: Typkcgl_form;

implementation

{$R *.dfm}

procedure Typkcgl_form.ypmc_leditChange(Sender: TObject);
Var SqlStr:string;
begin
  With ADOQuery1  do
     begin
       close;
       ADOQuery1.Sql.Clear;
       SqlStr:='Select * from 图书信息 Where 名称='+''''+ypmc_ledit.Text+'''';
       ADOQuery1.Sql.Add(SqlStr);
       Open;


       Edit1.Text:=Fieldbyname('编号').asstring;
       end;



end;

procedure Typkcgl_form.Edit1Change(Sender: TObject);
 var bh:string ;

begin
     bh:=trim(Edit1.Text);
    if length(bh)<=0 then
    begin
        showmessage('对不起，你要查询的图书不存在，请重新查询！');
        exit;
    end;

end;

end.