manage.pas

现在家庭藏书越来越多

unit manage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, connection, mybook, ComCtrls, StdCtrls, Grids, DBGrids,
  ImgList, DB, ADODB;

type
  TForm2 = class(TForm)
    clbr1: TCoolBar;
    tlb1: TToolBar;
    btn1: TToolButton;
    tlb2: TToolBar;
    btn2: TToolButton;
    btn3: TToolButton;
    btn4: TToolButton;
    btn5: TToolButton;
    btn6: TToolButton;
    btn7: TToolButton;
    btn8: TToolButton;
    il1: TImageList;
    dbgrd1: TDBGrid;
    ds1: TDataSource;
    tbl1: TADOTable;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure btn7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  booklist2:tbooklist;
implementation
 uses
 main,addbooktolist;
{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
 booklist2:=tbooklist.create;
 booklist2.connect.adotable:=tbl1;
 booklist2.connect.dbgrid:=dbgrd1;
 booklist2.connect.datasource:=ds1;
 booklist2.connect.display;
 booklist2.connect.displaywide(10,tbl1);
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
 booklist2.Free;
 booklist2:=nil;
end;

procedure TForm2.btn4Click(Sender: TObject);
begin
 booklist2.connect.first(tbl1);
end;

procedure TForm2.btn2Click(Sender: TObject);
begin
 booklist2.connect.prior(tbl1);
end;

procedure TForm2.btn3Click(Sender: TObject);
begin
 booklist2.connect.next(tbl1);
end;

procedure TForm2.btn5Click(Sender: TObject);
begin
 booklist2.connect.last(tbl1);
end;

procedure TForm2.btn8Click(Sender: TObject);
begin
 booklist2.connect.delete;
end;

procedure TForm2.btn6Click(Sender: TObject);
begin
form3:=tform3.Create(self);
form3.ShowModal;
end;

procedure TForm2.FormPaint(Sender: TObject);
begin
 booklist2.connect.display;
 booklist2.connect.displaywide(10,tbl1);
end;

procedure TForm2.btn7Click(Sender: TObject);
begin
messagedlg('本程序不提供修改功能！请正确录入数据！',mtinformation,[mbok],0);
end;

end.