unit5.~pas

delphi语言编写的简单图书馆管理系统页面适合初学者模仿练习！

unit Unit5;

interface

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

type
  TManageForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    AddButton: TButton;
    EditEdit: TEdit;
    Label2: TLabel;
    DelEdit: TEdit;
    DelButton: TButton;
    EditButton: TButton;
    ADOQuery2: TADOQuery;
    Button1: TButton;
    DBNavigator1: TDBNavigator;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure EditButtonClick(Sender: TObject);
    procedure DelButtonClick(Sender: TObject);
    procedure EditEditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DelEditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure AddButtonClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ManageForm: TManageForm;
  ccno:string;
implementation

uses Unit1,Unit6, Unit7;

{$R *.dfm}

procedure TManageForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  application.Terminate;
end;

procedure TManageForm.FormCreate(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from course order by cno') ;
  ADOQuery1.Open;
end;

procedure TManageForm.EditButtonClick(Sender: TObject);
begin
if EditEdit.Text='' then  messagedlg(#10'请输入要修改的课号',mtwarning,[mbOk],0)
    else begin
         Application.CreateForm(TEditCourseForm, EditCourseForm);
         EditCourseForm.ADOQuery1.Close;
         EditCourseForm.ADOQuery1.SQL.Clear;
         EditCourseForm.ADOQuery1.SQL.Add('select * from course where cno=:Pcno') ;
         EditCourseForm.ADOQuery1.Parameters.ParamByName('Pcno').value:= ManageForm.EditEdit.text;
         ccno:=EditEdit.text;
         EditCourseForm.ADOQuery1.open;
         if  EditCourseForm.ADOQuery1.Eof then messagedlg(#10'无该课程信息,请确认课号!', mtwarning,[mbOk],0)
         else EditCourseForm.show;
         end;
end;

procedure TManageForm.DelButtonClick(Sender: TObject);
begin
if delEdit.Text='' then  messagedlg(#10'请输入要删除的课号',mtwarning,[mbOk],0)
    else begin
         ADOQuery2.Close;
         ADOQuery2.SQL.Clear;
         ADOQuery2.SQL.Add('select * from course where cno=:Pcno') ;
         ADOQuery2.Parameters.ParamByName('Pcno').value:= delEdit.text;
         ADOQuery2.open;
         if ADOQuery2.Eof then messagedlg(#10'您没有选择该课程,请确认课号!', mtwarning,[mbOk],0)
         else begin
                if   messagedlg(#10'是否删除该课程?', mtConfirmation,[mbYes,mbNo],0)=mrYes then
                     begin
                         ADOQuery2.Close;
                         ADOQuery2.SQL.Clear;
                         ADOQuery2.SQL.Add('delete  from course where cno =:Pcno') ;
                         ADOQuery2.Parameters.ParamByName('Pcno').value:= delEdit.text;
                         ADOQuery2.ExecSQL;
                         FormCreate(Sender);
                         delEdit.Clear;
                     end;
              end;
         end;
end;

procedure TManageForm.EditEditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then  EditButtonClick(Sender);
end;

procedure TManageForm.DelEditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then  DelButtonClick(Sender);
end;

procedure TManageForm.AddButtonClick(Sender: TObject);
begin
 Application.CreateForm(TAddCourseForm, AddCourseForm);
 AddCourseForm.Show;
end;

procedure TManageForm.Button1Click(Sender: TObject);
begin
close;
end;

end.