fakuan1.pas

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

unit fakuan1;

interface

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

type
  Tfakuan = class(TForm)
    Image_right: TImage;
    Image_left: TImage;
    Image_bottom: TImage;
    PopupMenu1: TPopupMenu;
    N2: TMenuItem;
    ImageList1: TImageList;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    AT1: TADOTable;
    Label7: TLabel;
    ADOConnection1: TADOConnection;
    Image_title: TImage;
    Image_close: TImage;
    Image1: TImage;
    Label1: TLabel;
    Image2: TImage;
    procedure FormCreate(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure Image_closeClick(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
  fakuan: Tfakuan;


implementation

uses  Unit6, Unit2;

{$R *.dfm}






procedure Tfakuan.FormCreate(Sender: TObject);

begin
flag_normal:=true;
mouselbuttondown:=false;

at1.Active:=true;
edit2.Text:=(at1.Fieldbyname('元/天').AsString);


end;




procedure Tfakuan.FormClose(Sender: TObject; var Action: TCloseAction);
begin
shukuguanli.enabled:=true;
end;

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


procedure Tfakuan.BitBtn1Click(Sender: TObject);
begin
at1.Active:=true;
at1.Edit;
at1.Fieldbyname('元/天').Value:=edit1.Text;
at1.Post;
at1.Active:=false;

end;

procedure Tfakuan.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
  BitBtn1Click(Sender);
end;

procedure Tfakuan.BitBtn2Click(Sender: TObject);
begin
close
end;

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

end.