unit1.pas

图书管理系统设计程序

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, jpeg, StdCtrls;

type
  Tjiemian = class(TForm)
    MainMenu1: TMainMenu;
    N132121: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N71: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N6: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    Image1: TImage;
    Label1: TLabel;
    N19: TMenuItem;
    procedure N71Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jiemian: Tjiemian;

implementation
uses unit2,unit4,unit5,unit17,unit6,unit7,unit8,unit9,DateUtils,unit10,unit11,unit12,unit13,unit14,unit15,unit16;
{$R *.dfm}

procedure Tjiemian.N71Click(Sender: TObject);
begin
      book_input.Show;
      with book_input do
      begin
      book_type_no_input.Text:='';
      book_type_no_input.Enabled:=false;
      book_type_no_input.Color:=clScrollBar;
      statement_input.Text:='';
      statement_input.Enabled:=false;
      statement_input.Color:=clScrollBar;
      auther_input.Text:='';
      publish_input.Text:='';
      book_value_input.Text:='';
      book_no_input.Text:='';
      book_name_input.Text:='';
      num_input.Text:='';
      auther_input.Enabled:=false;
      publish_date_input.Enabled:=false;
      publish_input.Enabled:=false;
      book_value_input.Enabled:=false;
      auther_input.Color:=clScrollBar;
      publish_date_input.Color:=clScrollBar;
      publish_input.Color:=clScrollBar;
      book_value_input.Color:=clScrollBar;
      button3.Enabled:=false;
      storeplace_input.Enabled:=false;
      storeplace_input.Color:=clScrollBar;
      button1.Enabled:=true;
      end;
end;

procedure Tjiemian.N12Click(Sender: TObject);
begin
     book_delete.Show;
     with book_delete do
     begin
    book_no_delete.Text:='';
    book_name_delete.Text:='';
    end;
end;

procedure Tjiemian.N13Click(Sender: TObject);
begin
      register_reader.show;
      with register_reader do
      begin
            reader_no_input.Text:='';
      name_input.Text:='';
      type_input.Text:='';
      department_input.Text:='';
      introduction.Text:='';
      end;
end;

procedure Tjiemian.N6Click(Sender: TObject);
begin
     chaxun.Show;
     with chaxun do
     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:='';
      storeplace_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;
end;

procedure Tjiemian.N7Click(Sender: TObject);
begin
     search_reader.Show;
     with search_reader do
     begin
         reader_no_search.Text:='';
    name_search.Text:='';
    name_change.Text:='';
    type_change.Text:='';
    department_change.Text:='';
    name_change.Color:=clScrollBar;
    type_change.Color:=clScrollBar;
    department_change.Color:=clScrollBar;
    introduction_change.Text:='';
    introduction_change.Color:=clScrollBar;
    button1.Enabled:=true;
    button2.Enabled:=true;
    button3.Enabled:=false;
    button4.Enabled:=false;
    end;
end;

procedure Tjiemian.N15Click(Sender: TObject);
begin
    reader_d.Show;
        with reader_d do
    begin
        reader_no_delete.Text:='';
    name_delete.Text:='';
    end;
end;

procedure Tjiemian.N16Click(Sender: TObject);
begin
lack.lack_1.Active:=false;
lack.lack_1.CommandText:='select reader.reader_no,name,per_book.series,book.book_name from reader,borrow,book,per_book where reader.reader_no=borrow.reader_no and book.book_no=per_book.book_no and borrow.series=per_book.series and '+''''+datetostr(lack.d.DateTime)+''''+'>borrow.back_date';
lack.lack_1.Active:=true;
    lack.Show;

end;

procedure Tjiemian.N10Click(Sender: TObject);
begin
    search.L.Visible:=false;
    search.L1.Visible:=false;
    search.Edit5.Visible:=false;
    search.Show;
end;

procedure Tjiemian.N17Click(Sender: TObject);
begin
    borrow.Show;
end;

procedure Tjiemian.N18Click(Sender: TObject);
begin
    back.Show;
end;

procedure Tjiemian.N8Click(Sender: TObject);
begin
    book_state.ShowModal;
end;

procedure Tjiemian.N11Click(Sender: TObject);
begin
personal_data.edit1.Text:='';
personal_data.edit2.Text:='';
personal_data.edit3.Text:='';
personal_data.edit4.Text:='';
personal_data.memo1.Text:='';
personal_data.edit6.Text:='';
personal_data.ADOdataset1.Active:=false;
personal_data.adodataset1.CommandText:='select * from reader where reader_no='+''''+xitongdenglu.id+'''';
personal_data.adodataset1.Active:=true;
personal_data.edit1.Text:=personal_data.adodataset1.fieldbyname('name').AsString;
personal_data.edit2.Text:=personal_data.adodataset1.fieldbyname('department').AsString;
personal_data.edit3.Text:=personal_data.adodataset1.fieldbyname('type').AsString;
personal_data.edit4.Text:=personal_data.adodataset1.fieldbyname('datelimit').AsString;
personal_data.memo1.Text:=personal_data.adodataset1.fieldbyname('introduction').AsString;
personal_data.edit6.Text:=personal_data.adodataset1.fieldbyname('book_num').AsString;
personal_data.edit1.ReadOnly:=true;
personal_data.edit2.ReadOnly:=true;
personal_data.edit3.ReadOnly:=true;
personal_data.edit4.ReadOnly:=true;
personal_data.memo1.ReadOnly:=true;
personal_data.edit6.ReadOnly:=true;
personal_data.ADODATAset2.Active:=false;
personal_data.ADODATAset2.CommandText:='select book.book_no,book.book_name,book.auther,book.publish,book.introduction,book.publish_date,book.storeplace,readers.borrow_date+reader.datelimit'+' as 还书日期 from book,per_book,reader,(select * from borrow where reader_no=032124421) as readers where book.book_no=per_book.book_no and per_book.series=readers.series and'+' readers.reader_no=reader.reader_no';
personal_data.ADODATASet2.Active:=true;
personal_data.ShowModal;
end;

procedure Tjiemian.N1Click(Sender: TObject);
begin
    xitongdenglu.edit1.Text:='';
    xitongdenglu.edit2.Text:='';
    xitongdenglu.RadioButton2.Checked:=true;
    xitongdenglu.Show;
end;

procedure Tjiemian.N2Click(Sender: TObject);
begin
    xiugai.Label5.Caption:='用户'+xitongdenglu.id+'的密码修改!';
    xiugai.Show;
end;

procedure Tjiemian.N4Click(Sender: TObject);
begin
    close;
end;

procedure Tjiemian.FormCreate(Sender: TObject);
begin
    n2.Enabled:=false;
    n3.Enabled:=false;
    n5.Enabled:=false;
    n9.Enabled:=false;
    n14.Enabled:=false;
end;

procedure Tjiemian.N19Click(Sender: TObject);
begin
help.ShowModal;
end;

procedure Tjiemian.N3Click(Sender: TObject);
begin
    n1.Enabled:=true;
    n2.Enabled:=false;
    n3.Enabled:=false;
    n5.Enabled:=false;
    n9.Enabled:=false;
    n14.Enabled:=false;
end;

end.