booksearch.~pas

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

unit booksearch;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, ComCtrls, Menus,  ImgList, XPMenu,
  Buttons, Grids, DBGrids, ToolWin, DB, ADODB;

type
  Tbook_search = class(TForm)
    Image_title: TImage;
    Image_close: TImage;
    Image_right: TImage;
    Image_left: TImage;
    Image_bottom: TImage;
    Image_bian_top: TImage;
    Image_maximize: TImage;
    Image_minimize: TImage;
    Image_left_top: TImage;
    Image_right_top: TImage;
    Image_left_bottom: TImage;
    Image_right_bottom: TImage;
    Image1: TImage;
    Label1: TLabel;
    PopupMenu1: TPopupMenu;
    d1: TMenuItem;
    d4: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    ImageList1: TImageList;
    XPMenu1: TXPMenu;
    ToolBar1: TToolBar;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    CheckBox1: TCheckBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label8: TLabel;
    Label9: TLabel;
    CheckBox2: TCheckBox;
    Bevel1: TBevel;
    ComboBox1: TComboBox;
    ADOConnection1: TADOConnection;
    ads1: TADODataSet;
    DataSource1: TDataSource;
    procedure Image_titleMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image_titleMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image_titleMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure Image_closeClick(Sender: TObject);
    procedure Image_rightMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image_rightMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image_rightMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormResize(Sender: TObject);
    procedure Image_leftMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image_leftMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image_leftMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image_bottomMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image_bottomMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image_bottomMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image_bian_topMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image_bian_topMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image_bian_topMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image_titleDblClick(Sender: TObject);
    procedure Image_maximizeClick(Sender: TObject);
    procedure Image_minimizeClick(Sender: TObject);
    procedure Image_minimizeMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure Image_minimizeMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image_maximizeMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure Image_maximizeMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image_closeMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image_closeMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image_right_bottomMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure Image_right_bottomMouseMove(Sender: TObject;
      Shift: TShiftState; X, Y: Integer);
    procedure Image_right_bottomMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure Image_left_bottomMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure Image_left_bottomMouseMove(Sender: TObject;
      Shift: TShiftState; X, Y: Integer);
    procedure Image_left_bottomMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure d1Click(Sender: TObject);
    

   procedure wmgetminmaxinfo(var message:twmgetminmaxinfo);
    message wm_getminmaxinfo;
    procedure SpeedButton1Click(Sender: TObject);
   
  private

    { Private declarations }
    originalpos:tpoint;
    currentpos:tpoint;
    downpos:tpoint;
    mouselbuttondown:boolean;
    originalwid,originalhei:integer;
    flag:string;
    flag_normal:boolean;
     public
    { Public declarations }
  end;

var
  book_search: Tbook_search;


implementation

uses Unit1;

{$R *.dfm}





procedure Tbook_search.Image_titleMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
originalpos.X:=self.Left;
originalpos.Y:=self.Top;
downpos.X:=x;
downpos.Y:=y;
downpos:=clienttoscreen(downpos);
if button=mbleft then
mouselbuttondown:=true;
end;






procedure Tbook_search.Image_titleMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if flag_normal then
begin
if mouselbuttondown then
  begin
  currentpos.X:=x;
  currentpos.Y:=y;
  currentpos:=clienttoscreen(currentpos);
  self.left:=originalpos.X+(currentpos.X-downpos.X);
  self.Top:=originalpos.Y+(currentpos.Y-downpos.Y);
end;
end
else
end;
procedure Tbook_search.Image_titleMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

mouselbuttondown:=false;
if self.WindowState=wsmaximized then
begin
popupmenu1.Items[0].Enabled:=true;
popupmenu1.Items[3].Enabled:=false;
image_maximize.Picture.LoadFromFile('maxed.jpg')
end
else
begin
image_maximize.Picture.LoadFromFile('max.jpg');
popupmenu1.Items[0].Enabled:=false;
popupmenu1.Items[3].Enabled:=true;
end;
end;




procedure Tbook_search.FormCreate(Sender: TObject);
var
   ads:tadodataset;
begin
flag_normal:=true;
mouselbuttondown:=false;
popupmenu1.Items[3].Enabled:=true;
ads:=TADODataSet.Create(self);
ads.Connection:=adoconnection1;
ads.CommandText:='select * from 图书类别';
ads.Active:=true;
ads.First;
while not ads.Eof do
 begin
 combobox1.Items.Add(ads.fieldbyname('图书类别').asstring) ;
 ads.Next
 end;




//hr:=createrectrgn(0,0,width,height);
//setwindowrgn(handle,hr,true)
end;



procedure Tbook_search.Image_closeClick(Sender: TObject);
begin
close
end;

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


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

  begin
 if mouselbuttondown then
  begin
  currentpos.X:=x;
  currentpos:=clienttoscreen(currentpos);
  self.width:=originalwid+(currentpos.x-downpos.x);
 //hr:=createrectrgn(0,0,originalwid+currentpos.x-downpos.x,self.height);
//setwindowrgn(handle,hr,true);


end;

end;

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

begin
//setwindowrgn(handle,hr,true);
mouselbuttondown:=false;
end;

procedure Tbook_search.FormResize(Sender: TObject);

begin
originalwid:=self.Width;
if flag='down' then
self.originalhei:=self.Height;
if flag='up' then
self.originalhei:=self.Height;

//mouselbuttondown:=false;
//hr:=createrectrgn(0,0,width,height);
//setwindowrgn(handle,hr,true);
end;

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

originalwid:=self.width;
downpos.X:=x;
downpos:=clienttoscreen(downpos);
originalpos.X:=self.Left;
if button=mbleft then
mouselbuttondown:=true;
end;


procedure Tbook_search.Image_leftMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
currentpos.X:=x;
currentpos:=clienttoscreen(currentpos);
end;


procedure Tbook_search.Image_leftMouseUp(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