unit6.pas

图书管理系统设计程序

unit Unit6;

interface

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

type
  Tchaxun = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    book_no_search: TEdit;
    book_name_search: TEdit;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    auther_change: TEdit;
    publish_change: TEdit;
    publish_date_change: TEdit;
    book_value_change: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    book_name_change: TEdit;
    Label8: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    storeplace_change: TEdit;
    book_type_no_change: TEdit;
    Button3: TButton;
    Button4: TButton;
    book_no_change: TEdit;
    Label12: TLabel;
    statement_change: TMemo;
    search: TADODataSet;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  chaxun: Tchaxun;

implementation
uses unit3,unit1;
{$R *.dfm}

procedure Tchaxun.Button1Click(Sender: TObject);
begin
    search.Active:=false;
    search.CommandText:='select * from book';
    search.Active:=true;
    if(book_no_search.Text<>'') and (book_name_search.Text<>'') then
    begin
        if (search.Locate('book_no;book_name',VarArrayOf([book_no_search.Text,book_name_search.Text]),[loPartialKey])) then
        begin
          book_type_no_change.Enabled:=true;
          book_type_no_change.Color:=clWindow;
          statement_change.Enabled:=true;
          statement_change.Color:=clWindow;
          auther_change.Enabled:=true;
          publish_date_change.Enabled:=true;
          publish_change.Enabled:=true;
          book_value_change.Enabled:=true;
          auther_change.Color:=clWindow;
          publish_date_change.Color:=clWindow;
          publish_change.Color:=clWindow;
          book_value_change.Color:=clWindow;
          storeplace_change.Enabled:=true;
          storeplace_change.Color:=clWindow;
          book_no_change.Color:=clWindow;
          book_name_change.Color:=clWindow;
          book_name_change.Enabled:=true;
          button3.Enabled:=true;
          button4.Enabled:=true;
          with search do
          begin
              book_no_change.Text:=fieldbyname('book_no').AsString;
              book_name_change.Text:=fieldbyname('book_name').AsString;
              storeplace_change.Text:=fieldbyname('storeplace').AsString;
              publish_change.Text:=fieldbyname('publish').AsString;
              publish_date_change.Text:=fieldbyname('publish_date').AsString;
              book_type_no_change.Text:=fieldbyname('book_type_no').AsString;
              auther_change.Text:=fieldbyname('auther').AsString;
              book_value_change.Text:=fieldbyname('book_value').AsString;
              statement_change.Text:=fieldbyname('introduction').AsString;
          end;
          showmessage('已经查询到这种书的资料.');
     end
     else
       showmessage('该图书馆不存在这种书。');
     end
     else
       showmessage('还没有完全输入数据，请立刻输入数据。');
end;

procedure Tchaxun.Button2Click(Sender: TObject);
begin
      book_no_search.Text:='';
      book_name_search.Text:='';
      book_type_no_change.Text:='';
      book_type_no_change.Enabled:=false;
      book_type_no_change.Color:=clScrollBar;
      statement_change.Text:='';
      statement_change.Enabled:=false;
      statement_change.Color:=clScrollBar;
      auther_change.Text:='';
      publish_change.Text:='';
      book_value_change.Text:='';
      book_no_change.Text:='';
      book_name_change.Text:='';
      auther_change.Enabled:=false;
      publish_date_change.Enabled:=false;
      publish_change.Enabled:=false;
      book_value_change.Enabled:=false;
      auther_change.Color:=clScrollBar;
      publish_date_change.Color:=clScrollBar;
      publish_change.Color:=clScrollBar;
      book_value_change.Color:=clScrollBar;
      storeplace_change.Enabled:=false;
      storeplace_change.Color:=clScrollBar;
      book_no_change.Text:='';
      book_name_change.Text:='';
      book_no_change.Color:=clScrollBar;
      book_name_change.Color:=clScrollBar;
      book_no_change.Enabled:=false;
      book_name_change.Enabled:=false;
      button3.Enabled:=false;
      button4.Enabled:=false;
end;

procedure Tchaxun.Button3Click(Sender: TObject);
begin
      if (book_no_change.Text<>'')and(book_name_change.Text<>'')and(storeplace_change.Text<>'')and(publish_change.Text<>'')and(publish_date_change.Text<>'')and(book_type_no_change.Text<>'')and(auther_change.Text<>'')and(book_value_change.Text<>'') then
      begin
          with search do
          begin
        edit;
              fieldbyname('book_no').AsString:=book_no_change.Text;
              fieldbyname('book_name').AsString:=book_name_change.Text;
              fieldbyname('storeplace').AsString:=storeplace_change.Text;
              fieldbyname('publish').AsString:=publish_change.Text;
              fieldbyname('publish_date').AsString:=publish_date_change.Text;
              fieldbyname('book_type_no').AsString:=book_type_no_change.Text;
              fieldbyname('auther').AsString:=auther_change.Text;
              fieldbyname('book_value').AsString:=book_value_change.Text;
              fieldbyname('introduction').AsString:=statement_change.Text;
            post;
            active:=false;
            active:=true;
        end;
        showmessage('已经修改成功.');
        end
        else
        showmessage('还没有完全输入数据，请立刻输入。');
end;

procedure Tchaxun.Button4Click(Sender: TObject);
begin
with search do
          begin
              book_no_change.Text:=fieldbyname('book_no').AsString;
              book_name_change.Text:=fieldbyname('book_name').AsString;
              storeplace_change.Text:=fieldbyname('storeplace').AsString;
              publish_change.Text:=fieldbyname('publish').AsString;
              publish_date_change.Text:=fieldbyname('publish_date').AsString;
              book_type_no_change.Text:=fieldbyname('book_type_no').AsString;
              auther_change.Text:=fieldbyname('auther').AsString;
              book_value_change.Text:=fieldbyname('book_value').AsString;
              statement_change.Text:=fieldbyname('statement').AsString;
          end;
end;

procedure Tchaxun.Button5Click(Sender: TObject);
begin
     jiemian.Show;
     close;
end;

end.