bookinsert.pas

图书管理系统。可以实现简单的图书管理

unit bookinsert;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB,data_main, Mask, ComCtrls,
  Spin, ADODB;

type
  TForm3 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label6: TLabel;
    Label7: TLabel;
    Edit3: TEdit;
    BitBtn3: TBitBtn;
    Edit2: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses book1_insert;



{$R *.dfm}

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
form3.close;

end;
   //保存按钮 把文本框里的值加到数据库表中
procedure TForm3.BitBtn1Click(Sender: TObject);

begin
datamodule1.adoquery1.Close;
datamodule1.adoquery1.sql.clear;
datamodule1.adoquery1.sql.Add('insert into book');
datamodule1.adoquery1.sql.Add('values(:s,:s1,:s2,:s3,:s4,:s5,:s6)') ;

 datamodule1.adoquery1.parameters[0].value:=edit1.text;
 datamodule1.adoquery1.parameters[1].value:=edit4.text;
 datamodule1.adoquery1.parameters[2].value:=edit5.text;
 datamodule1.adoquery1.parameters[3].value:=combobox2.text;
 datamodule1.adoquery1.parameters[4].value:=edit3.text;
 datamodule1.adoquery1.parameters[5].value:=edit2.text;
 datamodule1.adoquery1.parameters[6].value:=combobox1.Text;;
if  datamodule1.adoquery1.execsql>0 then
begin
   BitBtn1.Enabled:=false;
   BitBtn3.Enabled:=true;
end;
 //dbgrid刷新
{datamodule1.adoquery1.Close;
datamodule1.adoquery1.sql.clear;
datamodule1.adoquery1.sql.Add('select * from book');
datamodule1.adoquery1.open;  }
datamodule1.adotable1.Active:=false;
 datamodule1.adotable1.Active:=true;
//记录定位
datamodule1.adotable1.locate('ISBN',edit1.text,[locaseinsensitive,lopartialkey]);
end;

procedure TForm3.BitBtn3Click(Sender: TObject);
var s:string;
begin
s:=inputbox('图书编目窗体','请输入书的编号','');
if s<>'' then
begin
 datamodule1.adoquery1.Close;
datamodule1.adoquery1.sql.clear;
datamodule1.adoquery1.sql.Add('insert into book1');
datamodule1.adoquery1.sql.Add('values(:s,:s1,:s2)') ;

 datamodule1.adoquery1.parameters[0].value:= s;
 datamodule1.adoquery1.parameters[1].value:=form3.edit1.text;
 datamodule1.adoquery1.parameters[2].value:='N' ;
 if datamodule1.adoquery1.execsql>0 then
   begin
   datamodule1.adoquery1.Close;
   datamodule1.adoquery1.sql.clear;
   datamodule1.adoquery1.sql.Add('update  book set 数量=数量+1');
   if  datamodule1.adoquery1.execsql>0 then
     begin
     showmessage('编号成功');
     datamodule1.adotable1.Active:=false;
    datamodule1.adotable1.Active:=true;
    end;
end;
 end;
end;

procedure TForm3.FormShow(Sender: TObject);
begin
BitBtn1.Enabled:=false;
BitBtn3.Enabled:=false;
end;

procedure TForm3.Edit1Change(Sender: TObject);
begin
BitBtn1.Enabled:=true;
BitBtn3.Enabled:=false;
end;

end.