booksearch.~pas

实现图书馆数据库管理功能

else
begin
self.Left:=currentpos.x;
self.width:=originalwid-ch;
end;
mouselbuttondown:=false;
end;


procedure Tbook_search.Image_bottomMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
flag:='down';
originalhei:=self.height;
downpos.Y:=y;
downpos:=clienttoscreen(downpos);
if button=mbleft then
mouselbuttondown:=true;
end;


procedure Tbook_search.Image_bottomMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if mouselbuttondown then
begin
currentpos.Y:=y;
currentpos:=clienttoscreen(currentpos);
self.Height:=originalhei+(currentpos.y-downpos.y);
end;
end;


procedure Tbook_search.Image_bottomMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

begin

mouselbuttondown:=false;
flag:='';
end;


procedure Tbook_search.Image_bian_topMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
flag:='up';
originalhei:=self.height;
downpos.Y:=y;
downpos:=clienttoscreen(downpos);
if button=mbleft then
mouselbuttondown:=true;
end;


procedure Tbook_search.Image_bian_topMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);

begin
if mouselbuttondown then
begin
currentpos.Y:=y;
currentpos:=clienttoscreen(currentpos);
end
end;

procedure Tbook_search.Image_bian_topMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var ch :integer;
begin

 ch:=self.currentpos.Y-self.downpos.Y;
 if ch<=0then
 begin
  self.Top:=currentpos.Y;
  self.Height:=self.originalhei-(ch);
  end
  else
 begin
  self.Height:=self.originalhei-(ch);
  self.Top:=currentpos.Y;
 end;
  mouselbuttondown:=false;
end;


procedure Tbook_search.Image_titleDblClick(Sender: TObject);
begin
if self.windowstate=wsnormal  then
begin
self.windowstate:=wsmaximized;
//showwindow(application.Handle,sw_maximize);
flag_normal:=false;
image_bian_top.Enabled:=false;
image_bottom.Enabled:=false;
image_left.Enabled:=false;
image_right.Enabled:=false;
image_right_bottom.Enabled:=false;
image_left_bottom.Enabled:=false;
end
else
 begin
self.WindowState:=wsnormal;
flag_normal:=true;
image_bian_top.Enabled:=true;
image_bottom.Enabled:=true;
image_left.Enabled:=true;
image_left_bottom.Enabled:=true;
image_right.Enabled:=true;
image_right_bottom.Enabled:=true;
end;

 if flag_normal=true then
image_maximize.Picture.LoadFromFile('max_down.jpg')
else
image_maximize.Picture.LoadFromFile('maxed_down.jpg')
end;

procedure Tbook_search.Image_maximizeClick(Sender: TObject);
begin
if self.WindowState=wsnormal then
begin
self.WindowState:=wsmaximized;
flag_normal:=false;
image_bian_top.Enabled:=false;
image_bottom.Enabled:=false;
image_left.Enabled:=false;
image_left_bottom.Enabled:=false;
image_right.Enabled:=false;
image_right_bottom.Enabled:=false;
 popupmenu1.Items[0].Enabled:= true;
  popupmenu1.Items[3].Enabled:= false;

end
else
begin
self.WindowState:=wsnormal;
flag_normal:=true;
image_bian_top.Enabled:=true;
image_bottom.Enabled:=true;
image_left.Enabled:=true;
image_left_bottom.Enabled:=true;
image_right.Enabled:=true;
image_right_bottom.Enabled:=true;
 popupmenu1.Items[0].Enabled:=false;
  popupmenu1.Items[3].Enabled:=true;
end
end;



procedure Tbook_search.Image_minimizeClick(Sender: TObject);
begin
if self.WindowState=wsnormal then
begin
//showwindow(application.Handle,sw_minimize);
application.Minimize;
end
else if self.WindowState=wsmaximized then
 //showwindow(application.Handle,sw_minimize);
 application.Minimize;
end;

procedure Tbook_search.Image_minimizeMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
image_minimize.Picture.LoadFromFile('min_1.jpg');
end;

procedure Tbook_search.Image_minimizeMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
image_minimize.Picture.LoadFromFile('min_0.jpg');
end;

procedure Tbook_search.Image_maximizeMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if flag_normal=true then
image_maximize.Picture.LoadFromFile('max_down.jpg')
else
image_maximize.Picture.LoadFromFile('maxed_down.jpg')
end;

procedure Tbook_search.Image_maximizeMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if flag_normal=true then
begin
  image_maximize.Picture.LoadFromFile('max.jpg') ;
  popupmenu1.Items[0].Enabled:=false;
  popupmenu1.Items[3].Enabled:=true;
end
  else
  begin
  image_maximize.Picture.LoadFromFile('maxed.jpg');
  popupmenu1.Items[0].Enabled:=true;
  popupmenu1.Items[3].Enabled:=false;
  end;

  end;

procedure Tbook_search.Image_closeMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
image_close.Picture.LoadFromFile('close_down.jpg');
end;

procedure Tbook_search.Image_closeMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 image_close.Picture.LoadFromFile('close.jpg');
end;

procedure Tbook_search.Image_right_bottomMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
originalwid:=self.width;
downpos.X:=x;
flag:='down';
originalhei:=self.height;
downpos.Y:=y;
downpos:=clienttoscreen(downpos);
if button=mbleft then
mouselbuttondown:=true;
end;

procedure Tbook_search.Image_right_bottomMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
 if mouselbuttondown then
  begin
  currentpos.X:=x;
  currentpos.Y:=y;
currentpos:=clienttoscreen(currentpos);
self.width:=originalwid+(currentpos.x-downpos.x);
self.Height:=originalhei+(currentpos.Y-downpos.y);
end;
end;
procedure Tbook_search.Image_right_bottomMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
mouselbuttondown:=false;
flag:='';
end;

procedure Tbook_search.Image_left_bottomMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
originalwid:=self.width;
downpos.X:=x;
originalpos.X:=self.Left;
flag:='down';
originalhei:=self.height;
downpos.Y:=y;
downpos:=clienttoscreen(downpos);
if button=mbleft then
mouselbuttondown:=true;
end;

procedure Tbook_search.Image_left_bottomMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
if mouselbuttondown then
begin
currentpos.X:=x;
currentpos.Y:=y;
currentpos:=clienttoscreen(currentpos);

end;
end;

procedure Tbook_search.Image_left_bottomMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var ch:integer;
begin
ch:=currentpos.x-downpos.x ;
if ch>0 then
begin
self.width:=originalwid-ch;
self.Left:=currentpos.x
end
else
begin
self.Left:=currentpos.x;
self.width:=originalwid-ch;
end;
self.Height:=originalhei+(currentpos.y-downpos.y);
mouselbuttondown:=false;
flag:='';
end;


procedure Tbook_search.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
popupmenu1.Popup(self.Left+6,self.Top+28);
end;

procedure Tbook_search.d1Click(Sender: TObject);
begin
self.WindowState:=wsnormal;
flag_normal:=true;
popupmenu1.Items[0].Enabled:=false;
popupmenu1.Items[3].Enabled:=true;

end;

procedure tbook_search.wmgetminmaxinfo(var message:twmgetminmaxinfo);
var f:integer;
begin
with message.MinMaxInfo^ do
begin
f:=GetSystemMetrics(SM_CYSCREEN);
ptmaxsize.y:=f-28;
ptmaxposition.x:=0;
ptmaxposition.Y:=0;
end;
message.Result:=0;
inherited;
end;

procedure Tbook_search.SpeedButton1Click(Sender: TObject);
begin
ads1.Active:=false;
ads1.CommandText:='select * from 书库管理 where 书籍编号 like '''+edit1.Text+'''';
ads1.Active:=true;
end;

end.