book_arrange.pas

该是一个比较好的图书馆系统,是现在大学生软件课程设计的好模板

unit book_arrange;

interface

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

type
  Tbookarrange = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Edit5: TEdit;
    Label7: TLabel;
    Edit6: TEdit;
    Label8: TLabel;
    Edit7: TEdit;
    ADOQuery1: TADOQuery;
    ADOCommand1: TADOCommand;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Label9: TLabel;
    Label10: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bookarrange: Tbookarrange;

implementation

{$R *.dfm}

procedure Tbookarrange.BitBtn1Click(Sender: TObject);
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Text:='select BookID as ''图书编号'',BookName as ''书名'',Auther as''作者'',Public_data as ''出版日期'',Press ''出版社'',Price ''价格'',Type ''类型'' from Book where BookID='''+Edit1.Text+'''';
 adoquery1.Open;
end;

procedure Tbookarrange.BitBtn2Click(Sender: TObject);
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Text:='select BookID from Book where BookID='''+edit1.Text+'''';
 adoquery1.Open;
 //if adoquery1.FieldByName('BookID').AsString<>'' then
  //begin
  //showmessage('帐号已存在！');
 // end
  //else
  begin
  if Edit2.Text=''then
  begin
    showmessage('图书编号不能为空！');
  end
  else
    if Edit3.Text='' then
    begin
    showmessage('书名不能为空！');
    end
  else
  begin
  adocommand1.CommandText:='insert Book values('''+edit2.Text+''','''+ComboBox1.Text+''','''+Edit3.Text+''','''+Edit4.Text+''','''+Edit5.Text+''','''+edit6.Text+''','''+Edit7.Text+''',1)' ;
  adocommand1.Execute;
  showmessage('修改成功！');
  //adocommand1.CommandText:='insert login_User values('''+edit2.Text+''',3,'''+edit2.Text+''')' ;
  //adocommand1.Execute;
  //close;
  end
end
end;

procedure Tbookarrange.BitBtn3Click(Sender: TObject);
begin
 close;
end;

procedure Tbookarrange.FormShow(Sender: TObject);
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 Edit1.Text:='';
 Edit2.Text:='';
 Edit3.Text:='';
 Edit4.Text:='';
 Edit5.Text:='';
 Edit6.Text:='';
 Edit7.Text:='';
 Combobox1.Text:='';
end;

end.