unit2.~pas

图书管理系统的简单制作

unit Unit2;

interface

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

type
  TFormtscx = class(TForm)
    DataSourcetscx: TDataSource;
    ADOConnectiontscx: TADOConnection;
    adoQuerytscx: TADOQuery;
    DBGridtscx: TDBGrid;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Editgjz: TEdit;
    ComboBoxgjz: TComboBox;
    btncx: TButton;
    Button1: TButton;
    procedure btncxClick(Sender: TObject);
    
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formtscx: TFormtscx;

implementation

{$R *.dfm}

procedure TFormtscx.btncxClick(Sender: TObject);
var
   gjz,gjzsz:string;
begin
   gjz:=comboboxgjz.Text;
   gjzsz:=editgjz.Text;

   if(gjz='')and(gjzsz='')then
      with adoquerytscx do
      begin
      close;
      sql.Clear;
      sql.Add('select*');
      sql.Add('from tsbm');
      sql.Add('order by sh');
      prepared;
      open;
      end
else if (gjz<>'')and(gjzsz='')then
   showmessage('请输入''查询关键字设置''信息!')
else if (gjz='')and(gjzsz<>'')then
   showmessage('请选择''查询关键字选择''信息!')
else
  begin
    if gjz='图书编号'then
      with adoQuerytscx do
       begin
       close;
       sql.Clear;
       sql.Add('select*');
       sql.Add('from tsbm');
       sql.Add('where sh like :gjzszname');
       sql.Add('order by sh');
  parameters.ParamByName('gjzszname').Value:=gjzsz;
  prepared;
  open;
  end


     else if gjz='图书名称'then
  with adoQuerytscx do
       begin
       close;
       sql.Clear;
       sql.Add('select*');
       sql.Add('from tsbm');
       sql.Add('where sm like :gjzszname');
       sql.Add('order by sh');
  parameters.ParamByName('gjzszname').Value:=gjzsz;
  prepared;
  open;
  end
      else if gjz='图书类别'then
  with adoQuerytscx do
       begin
       close;
       sql.Clear;
       sql.Add('select*');
       sql.Add('from tsbm');
       sql.Add('where lb like :gjzszname');
       sql.Add('order by sh');
  parameters.ParamByName('gjzszname').Value:=gjzsz;
  prepared;
  open;
  end
       else if gjz='作者姓名'then
  with adoQuerytscx do
       begin
       close;
       sql.Clear;
       sql.Add('select*');
       sql.Add('from tsbm');
       sql.Add('where zz like :gjzszname');
       sql.Add('order by sh');
  parameters.ParamByName('gjzszname').Value:=gjzsz;
  prepared;
  open;
  end
             else if gjz='出版社'then
  with adoQuerytscx do
       begin
       close;
       sql.Clear;
       sql.Add('select*');
       sql.Add('from tsbm');
       sql.Add('where cbs like :gjzszname');
       sql.Add('order by sh');
  parameters.ParamByName('gjzszname').Value:=gjzsz;
  prepared;
  open;
  end;
  end;
end;

procedure TFormtscx.Button1Click(Sender: TObject);
begin
 close;
end;

end.