unit7.pas

图书管理系统设计程序

unit Unit7;

interface

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

type
  Tsearch_reader = class(TForm)
    search_reader: TADODataSet;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    reader_no_search: TEdit;
    name_search: TEdit;
    Label3: TLabel;
    GroupBox2: TGroupBox;
    name_change: TEdit;
    Label5: TLabel;
    Label4: TLabel;
    department_change: TEdit;
    type_change: TComboBox;
    Label6: TLabel;
    Label7: TLabel;
    introduction_change: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    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
  search_reader: Tsearch_reader;
  i:integer;
  _date:integer;
  num:integer;

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

procedure Tsearch_reader.Button1Click(Sender: TObject);
begin
    search_reader.Active:=false;
    search_reader.CommandText:='select * from reader';
    search_reader.Active:=true;
    if(reader_no_search.Text<>'') and(name_search.Text<>'')then
    begin
       if(search_reader.Locate('reader_no;name',VarArrayOf([reader_no_search.Text,name_search.Text]),[loPartialKey])) then
            begin
              name_change.Color:=clWindow;
              type_change.Color:=clWindow;
              department_change.Color:=clWindow;
              introduction_change.Color:=clWindow;
              button3.Enabled:=true;
              button4.Enabled:=true;
              reader_no_search.Text:='';
              name_search.Text:='';
              with search_reader do
              begin
                  name_change.Text:=fieldbyname('name').AsString;
                  type_change.Text:=fieldbyname('type').AsString;
                  department_change.Text:=fieldbyname('department').AsString;
                  introduction_change.Text:=fieldbyname('introduction').AsString;
              end;
              showmessage('已经查询到这位读者的资料');
       end
       else
              showmessage('该图书馆里不存在该借书证。请确定是否输入错。');
    end
    else
       showmessage('还没有完全输入数据，请立刻输入。');
end;

procedure Tsearch_reader.Button2Click(Sender: TObject);
begin
    reader_no_search.Text:='';
    name_search.Text:='';
end;

procedure Tsearch_reader.Button3Click(Sender: TObject);
begin
    if (type_change.Text<>'') and(name_change.Text<>'')and(department_change.Text<>'') then
    begin
    i:=type_change.ItemIndex;
    case i of
    0,6:
    begin
    num:=8;
    _date:=28;
    end;
    1:
    begin
    num:=10;
    _date:=42;
    end;
    2,3:
    begin
    num:=12;
    _date:=56;
    end;
    4:
    begin
    num:=14;
    _date:=70;
    end;
    5:
    begin
    num:=16;
    _date:=84;
    end;
    end;

    with search_reader do
    begin
      edit;
      fieldbyname('name').AsString:=name_change.Text;
      fieldbyname('type').AsString:=type_change.Text;
      fieldbyname('datelimit').AsInteger:=_date;
      fieldbyname('book_num').AsInteger:=num;
      fieldbyname('department').AsString:=department_change.Text;
      fieldbyname('introduction').AsString:=introduction_change.Text;
      post;
    end;
    showmessage('读者资料修改成功');
    end
    else
    showmessage('还没有完全输入数据。');
end;

procedure Tsearch_reader.Button4Click(Sender: TObject);
begin
    with search_reader do
    begin
      name_change.Text:=fieldbyname('name').AsString;
      type_change.Text:=fieldbyname('type').AsString;
      department_change.Text:=fieldbyname('department').AsString;
    end;
end;

procedure Tsearch_reader.Button5Click(Sender: TObject);
begin
     jiemian.show;
     close;
end;

end.