bookupdate.pas

来自「图书管理系统。可以实现简单的图书管理」· PAS 代码 · 共 71 行

unit bookupdate;

interface

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

type
  TForm5 = class(TForm)
    RadioGroup1: TRadioGroup;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);
 
begin
case radiogroup1.ItemIndex of
 0:begin
   datamodule1.adoquery1.locate('书名',edit1.text,[locaseinsensitive,lopartialkey]);
   datamodule1.adoquery1.edit;
   end;
 1:begin
 datamodule1.adoquery1.locate('ISBN',edit2.text,[locaseinsensitive,lopartialkey]);
 datamodule1.adoquery1.edit;
 end;
end;
 end;
procedure TForm5.BitBtn3Click(Sender: TObject);

begin

  datamodule1.adoquery1.post;
   showmessage('恭喜您,保存成功');
  end;
procedure TForm5.BitBtn2Click(Sender: TObject);
begin
  form5.close;
end;

procedure TForm5.FormShow(Sender: TObject);
begin
datamodule1.adoquery1.Close;
datamodule1.adoquery1.sql.clear;
datamodule1.adoquery1.sql.Add('select * from book');
datamodule1.adoquery1.open;
end;

end.