reader.pas

图书管理系统(Delphi),可作毕业设计

unit Reader;

interface

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

type
  TForm4 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    Panel2: TPanel;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    GroupBox2: TGroupBox;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    Panel4: TPanel;
    DBGrid2: TDBGrid;
    GroupBox3: TGroupBox;
    Panel5: TPanel;
    Panel6: TPanel;
    DBGrid3: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Edit8: TEdit;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Label9: TLabel;
    Edit9: TEdit;
    Label10: TLabel;
    Edit10: TEdit;
    Label11: TLabel;
    Label12: TLabel;
    Edit12: TEdit;
    ComboBox1: TComboBox;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TabSheet1Show(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure Button4Click(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure DBGrid3CellClick(Column: TColumn);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation
Uses main;
{$R *.dfm}

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.Show;
end;

procedure TForm4.TabSheet1Show(Sender: TObject);
begin
Adoquery1.Active:=True;
Adoquery1.Append;
Edit1.Text:='';
Edit2.Text:='';
Combobox2.Text:='';
Edit4.Text:='';
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
if edit1.Text='' then showmessage('请输入读者编号')
  else if edit2.Text='' then showmessage('请输入读者姓名')
    else  if Combobox2.Text ='' then showmessage('请选择读者性别')
      else  if edit4.Text ='' then showmessage('请输入出身份证号')
        else
begin
 if messagedlg('确实要增加该读者？',mtInformation,[mbOK, mbCancel],0)=mrok then
    begin
          Adoquery1.Edit;
          Adoquery1.Append;
          Adoquery1.FieldByName('ReaderID').AsString:=Edit1.Text;
          Adoquery1.FieldByName('Name').AsString:=Edit2.Text;
          Adoquery1.FieldByName('Sex').AsString:=Combobox2.Text;
          Adoquery1.FieldByName('PersonID').AsString:=Edit4.Text;
          Adoquery1.Post;
          showmessage('添加成功');
          Adoquery1.Append;
          Adoquery1.Refresh;
    end
    else
    begin
     showmessage('添加失败');
     Adoquery1.Append;
    end;
 end;
 edit1.Text:='';
          edit2.Text:='';
          combobox2.Text:='';
          edit4.Text:='';
         
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
combobox2.Text:='';
Edit4.Text:='';

end;

procedure TForm4.Button3Click(Sender: TObject);
begin
Form4.Close;
Form2.Show;
end;

procedure TForm4.DBGrid2CellClick(Column: TColumn);
begin
Edit5.Text:=Adoquery1.fieldbyname('ReaderID').AsString;
Edit6.Text:=Adoquery1.fieldbyname('Name').AsString;
Combobox3.Text:=Adoquery1.fieldbyname('Sex').AsString;
Edit8.text:=Adoquery1.fieldbyname('PersonID').AsString;


end;

procedure TForm4.Button4Click(Sender: TObject);
begin
Adoquery1.Edit;
  if messagedlg('确实要删除该图书？',mtWarning,[mbOK,mbCancel],0)=mrok then
    begin
    Adoquery1.Delete;
    Showmessage('删除成功');
    end
    else
    begin
     Showmessage('删除失败');
    end;
end;

procedure TForm4.TabSheet2Show(Sender: TObject);
begin
Adoquery1.Active:=True;
Adoquery1.Open;
end;

procedure TForm4.DBGrid3CellClick(Column: TColumn);
begin
Edit9.Text:=Adoquery1.fieldbyname('ReaderID').AsString;
Edit10.Text:=Adoquery1.fieldbyname('Name').AsString;
Combobox1.Text:=Adoquery1.fieldbyname('Sex').AsString;
Edit12.Text:=Adoquery1.fieldbyname('PersonID').AsString;
end;

procedure TForm4.Button7Click(Sender: TObject);
begin
if messagedlg('确实要修改该图书的信息？',mtInformation,[mbOK, mbCancel],0)=mrok then
  begin
   Adoquery1.Edit;
   Adoquery1.FieldByName('ReaderID').AsString:=Edit9.Text;
   Adoquery1.FieldByName('Name').AsString:=Edit10.Text;
   Adoquery1.FieldByName('Sex').AsString:=combobox1.Text;
   Adoquery1.FieldByName('PersonID').AsString:=Edit12.Text;
   Adoquery1.Post;
   showmessage('信息修改成功');
  end
  else showmessage('信息没有修改');
end;

procedure TForm4.Button8Click(Sender: TObject);
begin
Edit9.Text:='';
Edit10.Text:='';
Combobox1.Text:='';
Edit12.Text:='';

end;

procedure TForm4.Button5Click(Sender: TObject);
begin
showmessage('删除失败!!');
close;
end;

procedure TForm4.Button9Click(Sender: TObject);
begin
Form4.Close;
Form2.Show;
end;

procedure TForm4.Button6Click(Sender: TObject);
begin
Form4.Close;
Form2.Show;
end;

end.