unit7.pas

来自「药房管理程序实现药房的基本管理功能」· PAS 代码 · 共 95 行

unit Unit7;

interface

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

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

var
  ypgl_form: Typgl_form;

implementation

{$R *.dfm}

procedure Typgl_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;
       DBEdit1.Text:=Fieldbyname('编号').asstring;
       DBEdit2.Text:=Fieldbyname('名称').asstring;
       DBEdit3.Text:=Fieldbyname('售价').asstring;
       DBEdit4.Text:=Fieldbyname('进价').asstring;
       DBComboBox1.Text:=Fieldbyname('种类').asstring;
       DBEdit5.Text:=Fieldbyname('出版社').asstring;

      end;


end;

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

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

end.