unit6.pas

这个是我自主研发的图书管理系统的应用

unit Unit6;

interface

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

type
  TForm6 = class(TForm)
    Image1: TImage;
    Panel1: TPanel;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    Panel3: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label7: TLabel;
    ComboBox2: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    StatusBar1: TStatusBar;
    ComboBox3: TComboBox;
    BitBtn3: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure DBGridshow();
    procedure Unitinit();
  end;

var
  Form6: TForm6;
  Delno:string;
implementation
  uses unit1;

{$R *.dfm}
procedure Tform6.DBGridshow();
begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from book');
  adoquery1.Open;
  statusbar1.Panels[0].Text:='已有图书'+inttostr(adoquery1.RecordCount)+'册';
end;
procedure Tform6.Unitinit();
begin
 edit1.Clear;
 combobox1.Text:='--请选择图书类型--';
 Adoquery2.Close;
 adoquery2.SQL.Clear;
 adoquery2.SQL.Add('select * from booktype');
 adoquery2.Open;
 while not adoquery2.Eof do
   begin
     combobox1.Items.Add(adoquery2.fieldbyname('typename').AsString);
     adoquery2.Next;
   end;

 edit2.Clear;
 edit3.Clear;
 edit4.Clear;
 combobox2.Text:='-- 请选择出版社--';
 combobox3.Text:='-- 请输入是否可借--';
 bitbtn2.enabled:=false;
end;
procedure TForm6.FormCreate(Sender: TObject);
begin
statusbar1.Panels[0].Text:='';
combobox2.Items.Add('电子科大出版社');
combobox2.Items.Add('华东交大出版社');
combobox2.Items.Add('高等教育出版社');
combobox2.Items.Add('湖南大学出版社');
combobox2.Items.Add('清华大学出版社');
combobox3.Items.Add('true');
combobox3.Items.Add('false');
Dbgridshow();
unitinit();
end;

procedure TForm6.ComboBox1Change(Sender: TObject);
begin
 adoquery2.Close;
 adoquery2.SQL.Clear;
 adoquery2.SQL.Add('select * from booktype where typename=:t1');
 adoquery2.Parameters.ParamByName('t1').Value:=combobox1.text;
 adoquery2.Open;
 edit2.Text:=adoquery2.fieldbyname('btype').asstring;
 
end;

procedure TForm6.BitBtn1Click(Sender: TObject);
begin
 if trim(edit1.Text)='' then
   begin
     application.MessageBox('图书条形码不能为空!','出错',MB_OK+MB_ICONWarning);
     edit1.SetFocus;
     Exit;
   end;
 if combobox1.text='' then
   begin
    application.MessageBox('请选择图书类型!','出错',MB_OK+MB_ICONWarning);
    combobox1.SetFocus;
    Exit;
   end;
 if trim(edit3.Text)='' then
   begin
     application.MessageBox('书名不能为空!','出错',MB_OK+MB_ICONWarning);
     edit3.setfocus;
     exit;
   end;
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Add('select * from book where bookno=:bno1');
 adoquery1.Parameters.ParamByName('bno1').Value:=edit1.Text;
 adoquery1.Open;
 if adoquery1.RecordCount=0 then
   begin
     adoquery1.Append;
     adoquery1.FieldByName('bookno').AsString:=edit1.Text;
     adoquery1.FieldByName('bookname').AsString:=edit3.Text;
     adoquery1.FieldByName('btype').AsString:=edit2.Text;
     adoquery1.FieldByName('author').AsString:=edit4.Text;
     if combobox2.text='-- 请选择出版社--' then
      adoquery1.FieldByName('publishment').AsString:=''
     else  adoquery1.FieldByName('publishment').AsString:=combobox2.Text;
     combobox3.text:='true';
     adoquery1.Post;
     application.MessageBox('记录新增成功!','成功',MB_OK+MB_ICONinformation);
     unitinit();
     DBgridshow();
   end
  else
    begin
      application.MessageBox('图书条形码不可重复,请检查!','出错',MB_OK+MB_ICONWarning);
      edit1.SetFocus;
      edit1.SelectAll;
    end;
end;

procedure TForm6.BitBtn2Click(Sender: TObject);

begin
  case application.MessageBox(Pchar('确实要欲删除'+delno+'记录吗?'),'删除确认',MB_OKcancel+MB_ICONinformation) of
 IDCancel:;
 IDOK:
   begin
     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('delete from book where bookno='''+delno+'''');
     adoquery1.ExecSQL;
     application.MessageBox('删除记录成功!','成功',MB_OK+MB_ICONinformation);
     Unitinit();
     DBGridshow();
   end;
  end;
end;

procedure TForm6.DBGrid1CellClick(Column: TColumn);

begin
  bitbtn2.Enabled:=true;
  delno:=adoquery1.fieldbyname('bookno').AsString;
end;

procedure TForm6.BitBtn3Click(Sender: TObject);
begin
   form6.Hide;
   animatewindow(form1.handle,1000,aw_Activate or aw_center);
   form1.Show;
end;

end.